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-2=0">in BODIES 3-^mF BODY -i- G 
l=DEtTAV 2=STATE VECTOR UPDATE 
" T^O ORBIT CHANGE 2^CHANGE 

-ORBIT m PASS OVr1T-t^1 — 



P50^ S 
P21,R30 

Rr63 “ 
ROA 

1038 

VAINT2 

P37 


P4B 




LUMINARY 


ALL 

“Att 

ALL 

-SUNDANCE 
C O LOS S US 
SUNDANCE 4- LUMINARY 
-COLOSSUS 
LUM I NARY 



LUMINARY 

LU M INARY 


J^KVz ^rST'^T-MRLI: ■RbVrsrUN Obb Hh AGC PROGRAM LU’^ANCHE BY NASA' 2021113-051 ia:2B"irPR. — tW at ^ rr P AG E 


C TAGS TTR l^Etl^TlVE "SETLTIC AT^H BTAm ETr^K CAROS rrSER^S“? AGE -mv 1 EtT' 


Goai — “xa: ,"2 OGTr — A ^rrerruT) fixed paetickt “ iTtroxro - 1 6 tttt 

0002 REF I — COtfMT '■eANKSUM ““ 


R 000^ 5 TODIJL E“T~CONT ATI^S RAAIK S 0 ‘THROtJGH 


OrOOT 2J7JOT ETDCK 02 

0004 4000' FFTAGl FDOALS 

0005 4GO0 EfTAG2 EOt:JALr ' ^ 

OO'^O^ ATJTTO FFTAG3 EQUALS 

OOOT “ — aoon “ FFTAG4 FQtrAl~E““ 

0005 


“ zjTTTTO FFTAGB FtJTTALS 

*^0010 — 

0011 — ”“—4000 ^^FTAGIO EWALS 

0012 4000 FFTAG12 FQUAL S 

00125 — T+GOO — — POOSURS E"OUAtS 

0ni2'6- — ^ OOO S TO PR AT FQUALS^^^^ 

""00X27 4000 023S " EQUALS 

001'^ 4 WORDS LEFT E773 05773 1 RNKSUM 02 

0013 5 774 057 74" O' 



0014 — — — 40or) — BLOCK 03 

0015 FOOD FFTAG5 EQUALS 

0015“ 5000 FFTAG6 EQUALS 

OOIST 5000 DAPSO EQUALS 

00X52 on 00 — FFTAG13 FODATrS 

0017 ? WORDS” 7775 “ 07775 0 

OOIT 7776 07776 t) ” 


0010 00 1 2000 — — BANK 00 

no V ■^O'rTO rniAYJOB FQOArS 

0020 7 WORDS LEFT 00T3T70 03TTO 1 BNKSO^ 00 

0020 O0,R7Tl — 03771 0 


0021 Dl, 2^000 " BANK 01 

0022 01 t?000 RESTART EQUALS 

0023 T WnRTTS~XEFT 01 ."3770 03T70 I— BNKSUM 01 

00T3 ■ 01»3XTT ”0377X0 " ~ 


0024” 
0 0 5 

OO 2 6“" 
0027 

00 2 R 

0029 ” 
00291 


— ^X+."2O00 
04,^000 

” 0 4 , 20017 

0"4 • 2000 
0 4 - L 2 00 n 

”04 t 2O0f> 

-- O4.:^ooo 


BANK 4 

V ER B 3 7 EQ UALS 

CONttSl -^OUAtS“— 
-^INOAL L4 E OT AL S “ 

CSI/COHl- FO UAf S 

T N TP R FT2” E QU AL S 

XM»lCALl EQUALS 


iO ! 2 H APW 




FVr^^IO'N 05^> OF A^T:”TPnr,PAM' CaMAMCHt- BY NASA ^O^lUi-Obl 


r.I969 


T 



rmTF 


zs 


T^GS FOR “REl ATTVF STTLTIC AW^^ANK mm CARO^ 


11 SFR»S P AGEING '. Z 


EG 


0029 2 ^ 04V2 0TI0 STB! tOKETTOUALS 

0029R 04,2000 EAFTOG' EQUALS 

002 ^ 04,2000 MIOOGIM f-OUALS 

0030 16 WORH^ LFFT 04,3T^T 03 757~T BTQK-SUW 04 

00 30 04.3760 U377VO O ~~ — 


-0031 05,2000 BANK 5 

“““0*037 03.7000 FKAMURES EQUALS 

0G33 U3, Z000 DtrvmrErM EQUAL S 

00335 or, ?OT>0 DAPMA3S EQUALS ““ 

00337 "OE'.ZnOO CUKTA'G EQUALS 

0034“ ' r “WORDS LEFT '^^05,3776 03T76 I BNKSim 05 


R 00343 WTIDULE 2 CDNTATTJS DAUKS ^-THROTJGH 13 


DirOE 03.7000 HANK 6 

0036 06,2000 TMUCOMP EQtlALS 

0037 06V2000 T4RUR EQUALS 

00373 06,200 0 1MUCAL2 — TQUALS 

00777 “ 06,70370 'CSTPROG EQUALS 

0033 “ 7 3nPDS“LFFT rrs 43770' 373770 "1“ ' “ 3NKSUM 06 

0038 06,3771 Q3TTT“33 


3703 07.2000 

00^0 07.33700 

0041 ~07 rZO 00 

Jj(WZ — — “377,2000 

0043 — “ 07.3000 

0044^ — 07,2000 

00445 07; 2 ODD" 

0045 0 ’^tmrrS'TE^FT ottzodo 


SKT RKE E Qt j A1.S 
RrOZ EQUALS 

PinDESW EQUALS 

XANG EQUALS 

KEYRUPT EQUALS 

CS IP R0G6 ' E Qt r ALS 

bNKSUM 07 


0046" 
0047 
^ 0043 “^ 
0 04U" 

OOFO 

0051 “ 

0O52“" 

005Z5 

0 D 53 


— 10,2000 

10.2000 

— 1 0", 2U0 0 

— 1072000 

- 10.2000 

10,2000 

10.2000 

tD^2 0 0 0 

0 wnPOS LEF1 10,2000 NtFT 


BAAiK 137 


DISPLAYS EQtlALS 
2 



CON GEON2— E-QU AL S“ 

EQUALS 



P B 0S 4 E QUAL S 

OPtmV- EQUALS 

C ST PROG 3 EQUALS 
BNKSU W 10 




DTT54 11, 7000 BANK tl 

0055 - 1132000 OPR f TAL EQUALS — ^ — 

0056 11, 2^000 023TTAL1 EQUALS- —CONSTANTS 


GAPl ASSEMBLF ReVTSlM 055 Of AGC PRGGRA^^ CHMANCHE NASA ^O^lll'i-Obl 


T AG.T “FGK^R'ELTV T t Vfc ■SI:TLT7C~ATTD 131 


mm 



115';"7B“SFR 


r. i^ 6 F 


TRRTN) 


PAGE 


TV 



N 07 



OO^R 

0 o^a'B 


003 Rb 
0059 " 


T VrOVDS LEFT 


1172000 
1 1 , 2 000 
TT77OO0 

ll^TOOT) 
IT .“3TT5 


TNTVEC 
5527T ~ 

CSlPRIJGb EQUALS 


EQUALS 

EOUA t S 


03776 1 


TNTTNTTl FOUArr 

5HKSUW IT 


0060 " T2V7000 BAf^ir 12 

“OTT/Sl— 1 ’7 2000 CUN ICS bQUALS 

“00615 O ST P5ntlT“ F0UAt:5 

006T6 1237000 — OST /COH? EQtlALV 

710617 I73T000 wnOCHO? EQUALS 

0052 WORDS LEFT 12 VTOOO NT TTFrO — &7FStW 1? 


““ 0063 llfTOQT ' FAm 13 " 

“ 0054 — 1337000 P76inC“ TOTALS 

OO'EE — 1772000 LATLONG FQUALS 

■ 0056 13,2000 INTTMIT EQUALS*^^ 

0057 11,2000 SR52/1 EQUALS — 

00575 13,2000 DTETTAL7'EQUATS 

0TJET6 13,700 0 XVHTAGS — EQUALS 

~0057T — - “““73.7007 “ ErPRQGl “'EQUALS 

1 3, ■20 00 “FIDDCHG 3 EQUALS 

0069 1 l^OROS LEFT 1333775 313776 1 3NXSUM IT" 


7'OOTO 5 P A CEE 


Rooms ~ “MOOULF O "CONT AT N5 TANKS 14 THRT)UGH 21 


0071 14,2000 ” TANK 14 

00T2 1432000 STARTAB EQUALS 

00 /T — J 4,2000 KT33 EQUALS 

E0T4 ~ 7437000 "“P50S1 “EQUALS 

0074 5 “ 14,2000 ME AS I NCR EQUALS 

TJUTEo “ 14, 2000 CST/CDH3 EQUALS 

0075 14 W0RES“LEFT 14V3T6r 03761 I =— SNKSUM 14 

0075 14,3762 03762 1 


0076 15,7000“ RA1^K — 7r5- 

00T7 15,2000 — P50S EQUALS 

“0073“ 1 5,7000 ETRYOAP EQUALS 

OOm — =— T5,700F““ $32/3 EQUALS 

‘XnjED 18 ■WOROS LEFT T5,3755 OTTl^’^ O RMICSUM 15" 

OOTt) I 5 ,3 756 “ 03 75 6 0' .‘ “ 


OOSl 

— -- — ^ 

_ - ■ - ■ - ' — 

T5v2t)0O 


“5ANK 

0052 



16,7050 

- P40SI 

EWALS 


GAPl ASSf-M3LF RFVISTDN 055 OF ^r.C PROGRA"^ CHMANCHE BY WASA 2021113-Obl 


I0t28 APR. TTTTF^ 



T AG3 FH R Tc EL A T I VF"5ETL OC AMD BL^ NK BA^NK C ATOS 


0083 

003^^ 


00B41 

00842 

0035 


47 WORDS LEFT 


OOTS' 


TI‘,2 
16V2000 
16,2000 

16, 7000 
16,3720 
16,3/21 


DT^PRDLL 
P5DS2 
P23S1 — 

RTE2 


03TZD~1 
03/21 0 


trSER^S PAGE NO 


EQU AL 5 
EQUAL S 

E 



EQUALS ““ 
BNKSUH 16 


» 


TOE6 17,2000 

“ 0087 17,2000 DAES4 

^003 3 * lT,?tH)a — DAPS5 

DD70 I 7,2000 UAPST- 

110891 ~~ 17,7000 P50S3^ 

OO'^O “32 WORDS LEFT 17,3737 03737 1 

OUPO 1 / , 3 /40 0374-0 1 


EANK IT 


EQUALS 

EDTwrs — 

EQUALS — 

BNKSUM 17 


Wn 77777000 * B^NK 70 

0097 20,2000 DAPS6 EQUALS 

00‘'^3 20,2000 OAOSI EQUALS 

DOD4 20,2000 DAPS2 EQUALS 

00941 EQUALS “ 

— EQtlALS 

00043 2Q',20D'D 7AC5L0C EOT) At S 

0009 Tl ^WORDS L EFT 7^0V3TT0“ ~“Q3 7 'tO 1 “BNK SUM 70 

0099 70,3741 03741 0 — 


0096 2 OQO — B t 

0097 71 , 3 000 UAP53 EQUACS 

a09R““~ _______ WYSUB$~ — “EQUALS 

00931 2 X~, 2tr0 0 K A L C M 0N3 EQUALS 

OTT^J 10 WUf' OS LEFl 21 , 3765 03765 0 BNICStm^BT 

009T 2 1 ,976 6 03 7 6 6“0 — 


900995 MnnULE 4 contains BANKS 2? THRflUGH 27 

“DIOO 22,2000 — — — — — bank Tt 

OTOl “ ^2,2000 BTBC DOES EQUALS 

“ 0 102 “ 72 , *?U00 RTBCt) DEI EQUAL S — “ 

■ 01 13 22 ,'2000 0APS8 EQUAfS 

0104 27 , 2000 ARORERrl EQUALS ~ 

“0105 — “ — ^2,7000 R40S*' EQUALS 

0106 2'2 ; TTTO'O ^ KALCM0N2 EQUALS 

— 0107 _ — — 2^ ,7000 K At C Hfj N1 E Q1 J AtS 

01076 22,7000 CS!PRQQ3“EQUALS - 

■ OIDS "2' WnPOS'LEET 72T3 775 037 75 1 BNKSUB TB 

Oroi" ■ 27,3776 ' 037/6 1 


GAP ; ASSEMBLE RFVISION 055 0)^ AGC PROGi^Am C0>^A*^CHE BY NASA 20'2nn-051 10;2B 4PP. r. 1 9 69 1 MAIN) PAG^ JT 


L TAGS EDR EELATTVE '5ETUtiC“A>)D SLAVIC T5AriIK“CATTnS USER »S PACT NO. 5 EO 


0109 ■■ 2T,70ir0~ BANK 73 

0110 23,2G00 P2052 EfJOALS" 

Trm 23,2000 INFLIGHT EOUALS 

0112 23,2000^ CDMGEONl EOUALS 

OUT" ~Z3i2'0m' POWFLITE EQUALS 

0 1T5 23,2000 PUWFLI I 1 EQUALS 

0113 " ■23T2000 'RENDGUID EQUALS — 

0116 73“,2000 ■ PnWFLlT2 EQUALS 

TriTT 2 3,2000 R30L0C tUUALb 

0113 33.210-00 — piiFmm equals 

01135 23,2000" — CSIPPOGA EQUALS 

"OTTG S WLIRDS LEFT 23T3TT2 03 777“0 BNKSUH 23 

urr? ^2333773 03T73 1 


0120 rr.^TTOO 3ANK 2A 

0121 24.2000 LOAOnAP EQUALS 

"71X22 74,2000 PWS E QUALS 

01225 — 24,2000" CSIPR0G7 EQUALS 

0125 TO WORDS XEFT 24.3765 "03765 0 SNKSUM 24 

21X23 24.3 '66 03766 0 


"0126 ■ ~ 25, 2000 SANK 25 

0127 *25X2000 " ""RFFMTRY EQUALS 

01275 25,2000 COHTAGl EQtlALS 

0123 3 W'JkUS LEE I 25,3774 03774 0 BNKSU W 25 

0125 25.3775 " 0 377 5 1 


"0125" 26,2000 SANK 26 

0130" ^6,2000 "rNTPRETl EQUALS 

0131 26,2000 REENTPYl EQUALS 

0132 ""263 2000 POOS^" "E-OUALS 

0133 ■ 26.5000 P6riSl EQUALS 

0X34 26,7000 P50 S 2 E QUALS 

0135 26,2000 P60S3 EQUALS 

0156 26,2000 — PLANTIN EQUALS LUNAR ROT 

0137 26,2000 EPTm5 E QUALS 

0138 26,-2000 PO5P06 EQUALS 

0138-1 2632000 26P50S EQUALS 

0135 0 w npo S L EFT 2 6,2000 N O N EE D BNKSUN 2 6 


R014C- 


01^,1 — 3 7,?^Ce0 BANK- 27 

0142 — 27,2000 TOF-F-F" EQUALS 

0X4 3 2 7 . 300 0 TQ F ‘E Q UALS 

0144 -- "27,20710 MANUVER EQUALS 

0145 27-r200fl MANUVERl EQUALS 
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1 


L 

T^AGS TOR REXATIT 

7E SETLTrC AND 

BLANK DANK CARDS 


USE R * S P A GR-NO ♦ 6 EO 


*■ - ■■ ■ m ^ 







0 1 46 


27, ZDOa 

T^FCPT 

EQUAL'S 



0147 


27, ROOD 

UPDATEl 

EQUALS 



014 ^ 


“27.2000 

UPU A T fc2 

EQUALS 



014"*7 


27 f 2000 

R^ZSl 

E OUALS 



0 1 49 5 


27 1 2000 

“ P50S5 

EQUAL S 



014^ 


27.2000 

PTfUST 

EQUALS 



015 0 

12 WORDS LEFT 

27 f 37 6 3 

037 63 0 

6NK SUN 27 



0150 


2T , 37 o4 

03 7 6 A- 1 





I 


^0150? ^ODtn.E 5 CDNTAITvTS banks 3t) THROUGH 35 


0151 

015 ? 

0153 

0154' 

0155 

1JT55 ~ 

0157 
01575 

01577 

0155' *23 T/OROS L5FT 


35,7000 — — 

30»?000 

307TOOO 

3 0,2500 

30.2000 

““317721701) “ “ 

30.2000 

30.2000 

3T),ZOOO 

3t),3 750 OTTSOOT” 
3tT. 3 75 I 03751-1 


BANK 30 
IMUSUPFR E0UAL3 

LOWSUPER EQUALS 

ECS TART EOUAtS 
LGPC ^OUALS ^ 

P20S1 EOUAtS 

P20S6 EQUALS 

P40S3 EQUALS 

R35A EQUALS 

&NK^Lm 3 0 


STAN17AR0 LOCATION FOR THIS. (fOR EXTVB) 




0150 31T20700 —RANK 31 

01 50 II. "7000 R3S EQUALS 

0161 “51,2000 — irr2 3 ^UUALS 

0162 — -200 0 — P^30S 1 A € OU A L S 

01621 3T72TItrO K3^ EQUALS 

01575 31,7000 eOHTA02 EQUALS 

01525 31,2000 — CSIPROGO EQUALS 

1JV5T7 31 .2000 R3t EQUALS 

01625 31,200-0 P22S EQUALS 

01620 31.2000 RTf3 EQUALS 

017 3 14 V O R DS' L EET 3 1 . 3 T 61 0 37 6 1 I ; B NKS U M 31 

0163 31,3762 03762 1 


0164 32.2000 — — — SANK 32 

0165 32,2000 NSGSCANl EQUALS 

0T6B 3277000 RTE EQUALS 

~~ 0157 '' 32v2t700 OELRSPll EQUALS ~ 

-01575 327 2000 TMUCA13 EQUALS — 

OTTER 7 WOROS LEET 32 , 3770 03770 1 B NK S L m' 32 

016 8 32.37 71 03771— Q 


0160 - 33,^000 BANK 33 

0170 337 2000“” — TES TLEAQ EQUALS 


TSPl A 5SE>1BLE REVISION 055 01- A'JC PP.OGRAM COMANCHE BY NftSA gO^lll^-Obl lOJ^B APR. 1 .1969 murmrl FTSl^E 33 

C TAGS TlTJr RELATIVE ^trraC ANDT^rSTTK HTVNK X ASTJS TTSFR^S PAGE MO. T EG’ - 


0171 33“,TCr00 TtIOCAT EOITALS 

0172 1 WORDS LEFT 3S.ST7S - T)3Tr6~t PNKSUM 33 


0173 3A.2000 BANK 34 

UTTS 34,7 000 PllOTIE EQUALS 

0176 3A.?00tr P20S3 EQUALS “ 

0177 3A,EOOO P20S4 EQUALS 

01 77S 34T7OTT0 RTETTrTM EQUALS 

OITR 12 WORDS LEFT 34,3763 03763 CT BNKSUH 34 

0173^ 34,3764 03744 1 “ 


01 79 
■017 75 

0130 ■ 
OlBl 
“013? ■ 
0134 
01P45 
0 1 4 6 
01 B5- 
“0133“ 


7 WORDS LEFT 


35,?noo — 

'35.2000 

■35T2000 

35.2000 

36.2000 

35.2000 

35.2000 

35.2000 — 

E5,3770 03770 t 
-35r37Tt E3771 O 


KTECDMl 
C 31 /COM 


B^ANK 
EQUALS 
EQUAl S 
eOUALS 

P3-0S F TOAtS 

P17S1 FQUALS 

HEASINC3 EQUALS 
T^TTNTTZ 

BNK 


35 


^013*^5 *inOULF. 6 CnNTATNS BANKS 36 THKOt^H 43 


0185 ~ 3642TnTa BANK 3^6“ 

'“”37>»rotro — hpasinc equals 

orpy 3B-, ?ano meastnci equals 

OTQO 36T2 000 P17S EQUALS 

or^r — ^ ^^^2000 RTei fquals 

01 n 1 — 36,2000 S34 3 51.00 EQUALS 

0rL92 5 WORDS LEFT 3^6.3^72 Q3T72 ^tr BNKStm 36 

01D2 — ■ ' 3S.37 73 0377 3 1 


0T93 

arrzr 

01^5 

019f> ■■ — ^ 

01 97- 

ar^7T^ “ — “ 

Cno 7 7“ — — — 

Tn.'DB 4 wopns LEFT 

0 1 98 


37,2000 

— rrrRtrar) 

— 3r7,2a00 

^7 , 20 00 

— 37*2000 

^Tt^QOO 

~37 ,2000 


BANK 37 

P70 S PQUALS 

body ATT eOUALS 

RFNOfcZ FQUALS ^ 



PMTWtl EQUAIS - 

C0HTAG3 EQUALS 

BNKSUW 37 


37,3TT4 0T7 74 



*^200^ BATIK 40 

0200 - 40*2000 PINSUPFR FQUALS 


GAP : 

ASSr:MHLe prvi$M:'J OS'; flF AGO PROGfiAWnMA'rCHF BY '^ASA 20211l3-0'3l 

10:23 APR* 1 * 1969 

T MAIN I 

PAT^F 34 







US^R*S PAUENO* 

f 



L 

TAGS 

Fnp RELATIVE SFTLTJC A3?rr BL ANK BANK 

C A3 D S 


8 

FO 











0201 


40,2000 

SELFSUPR 

EQUALS 





0202 


40,2000 

PTNBALLl 

E QUAL S 





020 Tr 


40,? 000 

R 36C Ml 

EQUALS 





0203 

7 

WORDS LEFT 40,3770 03770 1 


BNKSUN 40 





020 3 


40,3771 03771 0 








OZOif 41»?000 BANK 41 

0 znrrznuo pinbaxc? equals — 

02055 41,2000 R36LM “ TOOAtTS 

0206 0 WORDS l.FFT 41 •2000 NO NFFO BNKSUM 41 


0207 42,2000 BANK 4? 

“020 B 42727100 "STTTOO FOUALS 

02 0 9 42*20 0 0 PTNBALtB^ FOUAXS 

02095 42,7000 EXTVBS FOUALS 

'02 0 97 42T2'0 TO 9 36Lm EQUALS 

0210 5 WDROS LEFT 42*3772 03777 0 BNKSUM 42 

0210 42,377^ 07773 1 


0217 43.21900 BANK “=^43 

0217 43,"?00n S Eire KEC EQUALS 

0213 43,2000 EXTVERBS EQUALS 

0214 9 WORDS LEFT A3*3766 03766 0 ONKSUN 4l 

— - = ^3-3T5T OBTdTT “ 


0215 ~^'^F 1 26*3334 HT67FRnS EOUAlS — Z^RO VECTOR — AlWATS IN' HtOH -McmOR 

0716 2FF 1 04,3^5 tO6ZER0^ EQUALS TF^OV^C ZERO VECTOR ALWAYS IN LOW MEH6 »py 

0217 “EF 1 26,373? HIDPHALF EOUALS UNITY 

OZTTT REF — 1 — 04;'35'63 — — — ' LOOPU'AL'p—FQUAt.S' TtUN IT 

0210 RF*^ “ “t — 26,3324 — H7f)Pl/4 EQUALS DPI/4TH — 

0220 RFF 1 04,3611 LOOPl/4 EQUALS DI/h 20FC .75 

0271 - “T; EF 2 — LA-ST ^4 — 25TT332 — HTtJNTTX EQUALS tFU TX ____ 

0777 rpF I 26,3330 HIUMITY EQUALS UNITY 

0223 REF I 26,3326 HIUNITZ EQUALS UNT TZ 

0224 9TF '7 LAST" 34" 04'. 3563 tnUITTTX EQUALS XUNfT 20FC .5 — — 

0225 7EF 1 04*3561 LOUNITY EQUALS YUNTT 20FC“0 

0276 REF 1 04,3557 LOUNTTZ- EQilALS ZUNiT 20E€ 0 

022 7 TFF 1 11*3763 — B/ALDWOP EQUALS 3/4 20EC 3.0 B-2 

0270 REF 1 ‘ 30,7000 — tUWSUPER 


Q 0720 

0231 

0232 

0233 
0 2 3 ^ 


FUPf SPEC! Fie-ASSTtlNS QtFVl ATlNQMFFiO TD CHPTK GONP«JTFR TLAQ IN QFTVRUZVINQ 

REF 1 13, 7 If) 5 OTHPRFC -EQUALS L1U^*'»PEC 

7-eF — — ~ 1 __ — F37 2T6 0 ATOPOTH ^ Q t J A C 'S — AT OPL EM 

1 13*2 705 ATOPTHIS EQUALS A TOPCSM 

ref 1 0173 NftONTHIS EQUALS CMOONFLG 
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T Ar, S FOB 'FTETATTW^SETLOC TlCffNK BA W C AROr 


USER’S PAGt NO. 


’9 


FO S? 


0234 5 

■ REf' 

1 


02B5 

RFF 

1 



' "BTTC BTF r 

0237 REF 1 


0233 

REE 

1 LAST 34 

1)2375“ 

Wt F 

1 

023sa 

RFF 

1 

0239 


:?£ :«t ^ « )?C * )}£ 


0174 “MOONOTN EOUArS~i:**nnNFLr, ^ 

13,7720 MOMATHTS T!OUAUS MnVFACSN 

31,2032 St ATfcSI !-'v"JALS VHRLALL * "TE W POR ARY 

lliBOTl THT5PREC EOUALS^CSMPPEC 

76,3332 THISAXI^-= ONTTX ' 

STTTA ERASID EQUALS LOWIU OO HNl. I NK ' FP A S ABL E D UM P T O 

6214 OELAYNUM FOUALS THRRE“ 


;?e J{£ ^ sjc ^ ^ # ^i{f :!}r jjt $ 


^.0241 THR ^^nLLGWlNG EC ADR 5 OTFTNTTi TT) TAC HIT rTFeBANK" SWITCHING. TH^Y ALSO MAKF IT EASIER FOR 

R0243 PR a SABLE CO^^TRaL TCT KE ARR ANGF ER AS A3L E W I THHUT D T SfUJP T 1 NG THF PROGRAMS WHICH SET EBAMKS. 

WZ^F ERTOR in rope RFL P ASE F T X E^^TTF^ O R y SmM np SAVED BY SE T TING EA C H E B X XX X ^ E BANK X ( X^4 t ' S 6 .T ) , F B - AT I K X OF COUR S E 

R024T WILL BE THE BA^JK WHERE THE ERASABLES REFERENCEO TH EBXXXXWTLLBES TOR ED. 


07,2000 FTATTK 7 

0250 EBANK= MARKHOWN 

0251 REF 2 LAST 55 07,2000 03674 1 EBMAPKOtl ECAOR HAPKDOWH 

“0757- RLE r E7, 1725^ EBANK= MRKBUfl 

02P5 REF 2 I ^ST 35 07.2001 03T25 I pBMRXBUF FCOTR M^rKBUEl 

07^ - 24^,2000 RTTNK 7^ 

0255 ~ REF n: E7,14S1 ^ EBANK= OVCNTR 

0256 TTPE 2“ EAST 35 24,2000 05^431 1 EBOVCNTR ECAOR OVCHTP 

0757 OFF r F7TT5T7 EBANK= P40TMP 

02^3’ REE 2 LAST 35 24,2001 03672 t EBP40T1TP FC ADR P40’?'MP 


0250 — — 34, 2000 BTmiT 54 

0250 ^FF 3 LAST 35 E7,1431 EBANK= OVCHTR 

0761 4 LAST 35“ 34,20Oa 03431 1 FBOVCT^JT ECAOR OVCALTR 

0267 OFF r F5; 142-6 — "FR ANK = Q P LACES 

0251 ^EF ^ LAST 15 54,2001 02426 0 EFCP1.ACE ECAnp QPIACES 

TI7S4 ■ 37, 2000 BAHK 3T — 
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0266 ^EF 2 LAST 35 '27,2000 Oil'll 0 FBRNl PrAOH RNl 
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0001 ~ “XI.ZODO SUBRU COMER ASE 030 
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OOOA 3T.Z000 StJBRTI 'TROUBLE 043 

0005 37,2000 SUBRO TVCDAPS Oil 

0005 3T77OO0 SUBRO — CHTEFT AN — UZB 
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R 0 OT)T 
ROnOT 
R 00 n'+ 


F'^JTtALS TS UScD T^J IW’i WAYS. Tl — IS ObTFN USIr'.) I!l'XHArN A 5RUUP 

HF ASSTGNHFMTS SO THAT THF GROUR-TIAY KHVFD WITH THE 

CHANGI-NG-3F “GNLY ONF CAPO. EXAMPir. 


A00T5 X FQMALS "START ^ 

AOOOF Y EOtJALS X +STZE,X 

1^0(107”" ^ — pquaLS Y +5TZE.Y 


ROOOB rx* rv-Am z are CFR 43 FCUTIVF and BFGI'^^ AT start. ) 

WOUDV rST7^;X~OTn SI2E.Y ARE THE'^ESPFCTTVF SIZES OF X AND Y, 

ROOi n USIJAXLY T^UMFRTC* IF. 1. 6v ISD FTC. ) 


ROnn — EOrjALS DETENT T I FF T HR-S HA^ T NG OF KEGTSTFRS {DTFFERFMT NAMES 

ROOlZ" Tn^D FTFFFPFNT OATA). -HXAMRtR. 


AOCTT 


X FONALS Y 


R0F14 = HEANS THAT MUtT I ^LE mMFS KAYF'BFFN GIVEN TN THE SAMET)ATA. 

R0DT5 (THIS TS L HG 1 C A t " B ON T V ACE Nt F t N DT SHADING) '"XAMPL^. 


AOOTF X = Y 


R oot 7 

PDOI 3 


TH- SirF~AtFT DTTLtZATraN HF AN ERASABLE AFF nfTFN INGLUDFO 


THE CDMMFrnS IN FFrttmTNG FORTT. 


)N 


IN 


ROOIF 
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RODP? 

7 n 073 
~^RD'CT 7 'T' 


M REFFPS TD"THE MfjHTLITY t)F THE ASSIGNMEATT. 

IT MEANS THAT THE SYMBOL IS RFFFRFNCFD BY BASIC 

[nv5 THUS TS F-3ANK SENSITIVE. 

T M^ANS"^HAT THE SYMBOL IS REFERENCtO ONLY RY 

TNTHRFRETiVF INSTRUCT! DNS. AND TS THUS F-BANK 
INSENSITIVE AND MAY APPEAR TAp-ANY E-BANK; — 
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IS THE 


NUMBER OF RFGISTlRS 


INCl.UDEO BY THE SYMBOL. 
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ROOTT 

R 007 G 
R 0070 

RTRTTr 
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P0034 
R 00 BG 
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N INNICAT^S THE NATURE OR RFPMANENCF OF THE CONTENTSi- - 

PL means that the cttntents are rad LOAOEO. 

— D S P McANS- T HTT T HE RFGTSTfP TS USED FOR A OTSPLA Y . 

that THE KEGISTFR IS PERMANENT. IE. IT 

- IS tJSED DURING THE FNir^E MISSI^^N FOR ONE 

P U RP OSE A N D- CANNOT BP SHAR ^^ O. 

TMP that THE- RhDtSTER IS USED TFMROB API LY iBR 

rS- A SCRA rCH"RFG TSTfR EOR-THfr W TO WHICH 

I T IS ASS T GN rD- THAT IS. tt NT ED NOT BE S ET 

RR1'*P T7T TNVOCAT I^N OF THE ROOT I NF N^^R tRAES IT 

rUNTAiN t'S‘'FOL OUTPUT TO ANOTHEi^ ^nUTfNtT^ THUS 


(TTfPl A $ S E R L e ■ftTVTSTTTN 055 ACC PftGRAS^ UiJMANCRP BY NASA 2021in-nbl rOl’iS' APR. 1 ' , t — CDMEKASg.UiO 


1 t 'IAS ABLE ASSrGW«EEJTS trSFR*S~PARP NO. 2 EO 
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R003R ' T5 NOT ACTIVE^ IN PARALEEL. 

ROOTo TTi Mi^ANS INOOT'TD THE RDUFlNt AND II IS PRUHABLV 

R0040 TENPORAPY EOIT A HIGHER-EEVEC^RDUTTNE/PROGRAM. 

R0041 nUT MEANS OUTPITT FROM THE" ROUTINE. PPOFABLY 

R:00'42 rbMPORARY FUR A HI G H ER-LEVEL RUU I I Nh/ PRUURAH. 
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~0W2~ 

ODDI 
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"L AND 0 AR^E BUT H CHANNELS 

AND RECISTEPS. 


00 5 3 
■ n054 

”(T0t)2 
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0 

FRANK — 

EQUALS ^ 

r 0(1 At ^ a; 





0004 


0005 

0007 )“ 


TBftlW 
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BBftNK 


EOOat“S 4 
FQUAIS 5^ 
bOUALS 5 


AOOACeNT TO FBftNK ftt«) B84W fOft OXCH Z 
(D T CB) ftN D DXCH F BA I MK IDT C F ). 


ftEtrrSTER T 15 ft K^O^SOUPCF, ITSet) 8Y Zt: 


0050 OOTO AFWT EQUALS 10 I M TE RPU PT S TO RAG E . 

TJ060 0011 " L-ROPT “EOUALS It 

0061 0012 " OEUPT EQUALS 12 

UU62 OOTO SAMP TI ME E Q UALS 13 SAMPL E O T IME 1 S 2. 

0055— “00T5 ZROPT EOUALS 15 ( TO— ftltO 1 4 A R E SPARESriT^ 

0064 0016 eAMKRUPT EQUALS 16 USUALLY HOLDS FBANK OR 8BANK. 

TJ055 OOTT BRUPT EQUALS 1 7 RESUME A D DRESS AS W E IL. 


0060 ~ 0020 - CYR EQUALS 20 

“' 0067 non SR e quals 21 

■ 0065 0022 ' OTL EQUALS- 22 

— 0060 0022 EOOP ^UALS 25 - EDITS INTERPRETIVE OPERATION CODE PAIRS. 


0070 

"0071” 

0072 

0075 
0074 

OOT5 

0076 


0070 , 

“■ 0075 

■" 0050 PTF" T 

0081 

0082 REE 1 

— 0055 

0054 - 

-0083 

— 0055 

" OTT5T 

— 00^^’’’ 

—0050 

0050“ 

0071 

— 0002 

0095 


0024 TlNb2 EQUALS 24 

0025 r IMEl E Q UALS 23 

“0026 — TtM85 -^UALS-25 

0O2T TTME4 — EQUALS 27 

0 05 0 I T HE S EQUALS 30 

0051 TIME6” EQUALS 51 

0052 CD'iX “ EQUALS 52 — 

0053 COOT EQUALS 33 

0054 — COUZ EQUALS^ 34 

0035 COOT EQUALS 35 OPTICS TRUNNION COU (WAS OPTY». 

0055 OPTT = CtFUT 

0036 COUS EQUALS 36 OPTICS SHAPT CDU (WAS OPTXI. 

0036 OPTX = COUS 

0057 PI P A X E Q UAL S 37 

7040" 2IPAY - EQUALS 40 

0041 PtPAZ EQUALS 41 

0042 8 M AGX E QUALS 4 2 

004-5 HMAOY EQUALS 43 

0044 BNAGZ EQUALS 44 

0045 I NL I NX EQ UALS 4 5 

0046 RNRAO EQUALS- 46 

- 0047 — fiYRUCTS- - EQUALS 47 

0 0 4 7 G YP . n cWD E QUALS 47 

-0050 COUXCNO EQUALS- 50 

0051 COUYCNO EQtlALS 51 
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trSER* S BAGB MOV 


Et) S3 


OWE ' - ^COiJZCMD' EOUAUS ?2 

0096 0053 COUTCTO EOTAn 53 

OSTT RTF I HPT VCHTJ — = OTOTCW 

0093 REF 2 XAST ^ 0053 TVCYAVT EQUAFS CnUTCMD 

0099 ■" 005A anJSCMO ' FOilALS 

Mo 0 “RTF' I OOSA TWRlfCH EOOALS COUSLMU 

0101 REF 2 LAST 40 “ 0054 OPTXCMTT — 2~” COtTSCWD 

0102 0055 FHSD EOUALS 55 

0103 0053 mPTJST EQUALS 55 

0104 01056 LFMOW FOUAtS “50 

0105 " 0057 LOCALARH TOCIALS 57 

0T06 OOoO BANKALRM' EODALS' 60 

i 


OPTICS TRUNNION COWANO tWAS OPTYCMO) . 


SPS YAH COWMANO IN TVC MODE . 

OPTTCS SHAFT COMMAND tMAS OPTXCMOl. 


R0107 INlcRPRElIVb RtUlSTERS AODRESSEO RELATIVE TO VAC AREA. 


0103 0042 — — LVSOUARE EOUALS 340 SQUARE OF VECTOR INPUT TO ABVAL AND UNIT 

7JT00 004*4 trV EQUALS 360 LENGTH OF VECTOR INPUT TO UNIT. 

0110 0046 XI EOUALS 3B0 INTERPRETIVE SPECIAL REGISTFRS RELATIVE 

0111 * 0047 X2 EQUALS 3SD TO THE WORK AREA. 

■OTT'2 0050 SI EQUALS 400 

0113 0051 Sr EOUALS 410 

0114 003? QPRET EQUALS 4?0 
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■ 0120 ^ OOOT' 
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“0123 “0012 

0124 0013^ 

0125 0 1'l 1 4 
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L OSC A r. AR-“EQOAL S ^ 
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RIJLLJElb EQUALS 6 

SUP EEBIRT “EOUAl S 7 " 

UUTO "EQUALS lO 

D SAlM n U T EQUALS 11 

CMANir "EQUAL S“r2 : 

CHAUtE" E0UAL5 13 - — 

CHAN14 E QUALS 14 

MNKEY III EQUAL S 15 

MAVKEYIU EQUALS IE" 

CHAN30 EQUALS 30 — 

EHAUQl EQUALS 31 

CHAN32 EQUALS 32 

CHAN 33 EQUALS 33 

WTMl EQUALS 34 " 

ORT32 EQUALS 35 
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P 0 rT5 ■ FLAG WORD S “ 


“ R013f^ FLAGWPDO STATE W roaO-aiAl' 

0137 R I. A G WR D 1 STATE TT “T OTS-D 2^1” 

R 0 1 35 ^ F L AGWRirr — STATE”T2 (030-0441 

R0139 FLAGWD3 STATE -•-3 (04^-059) 

R0140 FLAGWRn4 STATE +4 (060-074) 
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ROl^R INTFRPITTVE SWFTCH GIT ASSIGNMENTS 
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3 AXISFLG 


""RTJTTET 
R01565 
R0157 
R '0 r 39 ' 

R0T6T 
R 0154 
R0rS5' 

R0T6T 
R0169 

TrOTTT 

R01T2 

R0173 
PRUITT 
R0175 
R0t76 
R017T 
“R-OITF 
ROl'TO 

Rorsi' 

ROUT?' 

R 01 T4 
R0135 
^0155 
R0137 



AMOTNFLG 

APSESW 

AS! NFLAG 
ATTCHFL G 
AV‘=^GFl AG 
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1000 
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0020 
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INTEGRATE TO TOfC 


INTfORAT C TO TH^ - 
THEN-o^RESFMT ti-^e 
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~1032 REF 2 LTST SB TTOS? EXETTEMB EQUALS ITE 3P2 
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^062 FTAtTWOPn R-FBE^n/ATTONTT (1201 


1004 trorP QT07- - ST ATE ERASE +11D 



P'AO' TO AT) PTTR OTP^ 


m 
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RETURN FO^ SCALE-FACTOR ROUTINE SELECT 
RETURN FOR 2 BLANK 


1053 

1064 

1 033 ~ Tpp- 
1 0 T) RFF 
1067 RTET 


0115 0115 INTBITT5 ERASE SIMILAR TO ABOVE. 
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T ~ LOVSn 5~0 OTl 5“- WORFT EQUALS INT3TT15 — RETURN FOR QSRWO 
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REP 

1 



10 / 3 

K FF 

2 

L A 5 T 

6 9 

i U T 

k ef 

3 

L AST 

" 6^ 

1075 

RTF 

4 

LAST 

69 


0 1 1 6 01 IB AlTTFOiTT^ FRTISE — 12 BIT TNTERPRETTVF OPERAND SUR-ADHR^ 
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1075 

107? n>EF 1 

lOTn ^FE "3 — L AST 
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Ol-F 12 LAST 

6 0 

01 2 E MTXTEMP 

EQUALS VBUF 

+ 3 

FOR MTXNOUAl DATA 


10 A 

*'LE l3 LAST 

70 

0125 SIGH'-’ET 

h QU AL S V B U E 

“T3 
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ITTB RFF 2 CTTST TO OT41 D SP F t E QUALS TEMl R FL AOD P ESS For DSP IN 
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UVSION 
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ERASF 
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EQU AtS 
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70 
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■ tJSER^S P/VGH Net. T 

TO S 3 


f 





P 0034 

SW 1 TXHEn — 3 A NK PORT ION* 









¥ 


0035 

12 ,ROOO 


OTJK r 2 “ 



00 *^ 5 

^EF ^ CA^ST^ 133 T)^,TaOO 

-> ■ ■ II ■■ 1 . ■ ■ II HI 1 1^1 ■ „ . , . - . * » « ■ - ^ ■ — 1 ■ ■ ■ — 


SE TL OC T 4 R UP 



0037 

06 * 2012 






0033 ■ RcF 2 L4S1 TJT Tn 133 r 10 10* COUNT OSTT^RPT 


0 03 g STCT J— — — 06,2012 11'036 1 CDRVE CCS DS PT AB -t-ll O 

0040 3:et= r Trs^zon tr'2063 o re ttspout 

0041 RTF Z LAST 134 06.2 014 0 2063 0 TC DSpnuT 


0042 “RTF 7 “LAST 04 — 06,2015 57»035 0 

0043 REF 1 06.2016 7 43723 

0044 REF 3 ntST 134 TOT'ROTT TS'DaO 1 

0045 “RFF r~ 06,^20“ 6 4105 1 

0046 “ — ~ 06.2021 0 0006 1 

0047 TEF T 06, 2022 — 01 010 1 

0043 3EF“ 1 06,2023 XT 2071 0 


XCH 

"OS P TA^ 

f ITO^ 

MASK 

L^Wl 1 


TS 

^ #*x 

DSPTAB 

X 1 D 

AO 

KtLT AT^ 11 

E X T E NO 



W R I Th 

1 J IJ 1 0 


TC 

HANr ^20 



(TTfPT' '■ O'*?^ i.-JF"i?^'^""MKUGi<AM f. ^ VTCTH’^^ NASA ;> I I M-OS 1 


10T2B APR. 1,196? Cn^fATO 



r4i(jn>T ogham 


TrSFF’S PAGE NO. 


PO S3 


P004' TSPGTIT PROG^UM. PUTS^ QUR "DISPLAYS. 


006 0 ^Trjr—j 

0051 REF 1 — 

005?^’ 1 

0053 RHF“ ir — — 

00F4 P^EF 1 

0055 REF 2 LAST 13 5 

DO D FEF 3 L ISPTI TTE 

00*^7 4 LAGT 134 

0058 REF 4 LAST 135 

OOD ^FF 1 

0060 PFF 1 

0061 


0062 

RTF 


" LAST 

135 

00 <^3 





006 4 

REF 

2 

LAST 

13i> 

0065 

' -F 

2 

LAST 

4 1 

0066 

■ REF 

3 

LAST 

135 

006 / 

7 FF 

1 



O06 8 

RF^ 

2 

1 1 

13 5 


06, '20 id 4 GFTTTTD TSPDTSBD6 

06V7TTZ5 4 50?1 0 CS 

06,2076 54 073 T TS 

06 ,"2T177 56 776 I XC H — 

06.2030 6 5020 0 AD 

06.2031 54 776 0 TS 

06,7012 50"T76~T nSPSCJTEl FMOEX 

06,20^3 11*023 0 " CCS 

06,2034 10 776 0 €CS 


06T7TTT5 — ~L“701O' r 
06,2036 1 2047 1 

0^2 03 7 00 0T2 1 

06' ■,'23 40 IQ 07T 1 

0-6 ,7 04 1 17764 0 

06,2042 55*016 0 

06 , 7043 0 OOOT'O 

06,2044 54 073 1 

05,^045 3 2037 I 

FFDT45 72031 'O 


TCF 

T AB L NTH OC T 



120MRt)PT DTT 


TS 

CAF 


Frntrn 

?rRn 

OSRriPTFM 
DSPCNT 

NEGO 

DSPCNT 

DSPCNl 

DSPTAP 
DSPCNT 
nSPSCAN -2 
DSPLAY 
I? 

16372 

NOOT 

ID 

DSRUPTEM 
r ABLNTH 
nSPSCAN -1 


Sri TH -0 FOR 1ST PASS THRU OSPTAB 


TO PREVENT 


IF OSPTAB FNTPY +, SKIP 

TF DS P CN T -I-, AGA I N 

IF OSPTAB ENTRY DISPLAY 
DEC 10 LENGTH OF OSPTAB 
TF D5RUP T f:N=»0, 2 NO P ASS THRU 7r IP 7 AP- 
lOSPCTJT ’=0). +0 INTO NOUT. 


IF DSRUPTEM=-0, 1ST PASS THRtl DSPTA8 
(0SPCNT = 0). 4-0 INTO OSPsUPTEM. PASS AGAIN 


006^ REF 1 06.2047 5 50 1 7 I" DSPLAY 

GOTO RTF 5 CTTST rT5 06", "2 0 5 D 50 776 I 

0071 TTEF 5 LAST T35 06,2051 5'*’P73 0 

0077 REF 2 LAST 134 06 , 205 2 7 4372 1 

OQTl REF' 4 TFGT 135 0647333 54 073 1 

0034 REF 1 06,2054 3 4364 1 

00'^5 REF 6 LAST 135 06^,7055 50 776 I 

0076 PTE T 06, 1056 7“4n72 1 

0077 RET' 5 LAST 135 06,2 0 57 6 0073 0 

0073 06,2060 0 0006 1 

007 0 rtf 2 cm — 3 34 0777363 01 010 1 

OOPQ REF 3 06,2062 “1 670^ 1 


AO ONE 

TS OSPTAB 

MASK LOWll 

TS DSRUPTFN 

C AF H I 5 

INDEX DSPCNT 

WXSK RTtTTTFr^ 

AO OSRUPTEM 

EXTEND 
WPTT^ OUTO 

TCF QFl 


RE'^LACE POSITIVELY 
REMOVED-BITS 12 TO 15 


P T CK U P B I TS 12 3^ 0 - 3 5 Of RE 


WR I TE TTT ANNEL^^^ 

7**N0RMAL RETUPN SKIPS ONE 


OORl 

0032 


troiT 
0 0 3 4 
0085 
OOD 

0037 

0033 


0059 

0070 


REF 

R EE 
■RTF 
? ^ F 


REF 

O - u 


•rrpF 7 

R 1 

REF” 4 


T 

1 


LAST 135 


T 

3 LAGT 135 
1 

2 tTTST TTG 


LAST 133 


06,706 3 
0 6 « 2 0 6 4 
0TP,"20\55 

06 , 7 0 6 6 
00,2067 
05 V 2 07 0 

06T20P 1 

06,2072 


05 ,2trT3 
7 6 , 20 7 4 


1 0 1 0 1 
3 50 71 
r 7T 3 7 
1 1 * D 17> 
0 202 -4 


0 

1 


-0 
0 

r 2 132 1 
4 2173 1 
27*302 0 


3 7700 1 


ns POUT 


HANG 20 


C C S 
CAF 
TCT 
CCS 

TC 


CS 

ADS 


CAF 


5 4 02 7-0 5TTT ! >1€ 4 TS 


FL AGWRD5 
/.FRO 

miD S POtlT 

NOUT 

D SPOUT SB 


11 .14,9 
OSPUPTSW 


70iMmi^T 
f i MF4 


nONT DISPLAY UNLESS DSKY FLAG DM 


NQ - Ot ^LAY Pf - QU E STS 


GlfPl '\SSrMBLE 



055 0^ PROGRAM C ^MANCHt BY NA SA TO^TI 1 3-Ob I 


TTTTZB-TTFTt; 1 •1969 COMAID PTHTF 


C 


4RUPT~WnG^AM 


OSPR*S PAGE NG, 


60 S3 


P0091 
R 0 09 ? 

' THE 
THE 

R 0 0 >5 

. - ... . 

ROOTS 


R'0'397 


R0093 

- 

0 00<5T 

THE 


- — -- 

TTKTl 

REF 

0102 


0103 

REF 

0104 

=TF 

0105 


010 6 

REF 

0107 

REF 

0103 

.... . . 


STATUS 


TKE PPnCTFFD PtrSHPUTTON IS MONITORFD EVERY 120 MILL I SECONDS VIA THE~CHATTNEL 32 BIT 14 INBIT 


IP 

IP 



PPFV 

PREV 

WW 


ON AND WW OTr 
ON AND NCn‘rDF=T 


BTPITSS 

UPimTE 


DTET^AW NOW ON' 
IF PRFV OFF AND NOW OFI^ 


UPDATE TM!.)DFS3‘3' AND PROCESS VIATimALL 
BYPASS 


TRE~XTTGT(r~ETTPI'DTEU REWIKbS ONty ') MCI lAPPPDX. 103 l^TCROSECONDSl Of CDTIPUTEr 



WTTEN-Nn CHANGES OCCUR 


1 

TZ 



06,2075 
06T2DT6 
OS'tTOTT 
06,2100 
as *21 01 
06*210? 


3 IT?! 0 

a 0006 1 

06 032 0 
T 5002 1 

0 ootns 1 

1 2116 1 


FRUCFEOE' C A 

EXTEND 

Rxnn 

msK — 

“ EXTEND 
67F 


TTOTTFSTT 


CHAN32 

5TTT4 

TAJttMO 


2 ‘ LAST 136 


06 ,210T 
06*2104 


TJTDET 

Dll a 
-an r 
■0112 
0113 


TIFF 

PFF 


T 



13 


'• E F 
REF 


LAST 

LAST 

rirsT 


13 6 
ITG 


F2 


06 , ?r05' 

06,2106 

1167 21 0? 

06,2110 


23* 3 21 0 
0 0006 1 
06' 001 


LXCH 
EXTEND 
mctm — 


Ti^ODESBB 



10 nno 0 


LAST -rre- 


,2111 1 2116 X 


TS 

^ASK 

C C S 

TCP 


L C HAN 

IMODES 

B-IT14 

■A 

T4JUHF 


ornr 

0115 

0116 
DTT^ 
0117 


TTFF 


REF 

ITEF 

RFF 


r 

1 

T 


06,2112 3 4371 O 

06 72113 0 51 T4 1 

0777 



TC 


NDVAC 


eBANK= DSPC^U^4T 


06 ;21T 4 

06X2115 


03557 0 
60 1 0 1 1 




CHECK TF BIT 14 DIFFERENT 


NO change 


OPOATi: IMODES3 3 


WiAS ON - NOW OFF 


NOW "ON 


rrsp 


ir5SE.M[<!.E I5;yi<;TnM' Ot>'' IIF ■S’CTr'PRUfSPAM CiIMUNCHI- by NASA 


10!i!8 AJ^K. 


1.1'?6'^ — COMA ID TXrZV FTtCE TTT 




PAGE NO; 5 - EO S3 


POllS JDHP TO AT’PPTIPPTATE^nNCE^O^P“S'ECXTNO T.96 SEC ACTUALLY) ACTIVITY 


Dll'? (TEE 2 CTSn TST CIFTTTTB 50 U7U 0 1 AJUMP I Nf)EX WUP T KbGl 

OTTO 05,?TTT“ 1 PIZO'T TCP +I 


DT7T FrEF“~T GETTTTO l~2TTCrt) TCT OPTTE S T 

0122 PEF 1 06,2121 1 2765 0 TCF OPTION' 

0123 REF 1 06^2122 1 2176 0 TCE TMUMOAL 


"TOT ZT !TEF 3 Lim TT2 06,2123 1 5333 ~0 TCP R E SUME 

0125 ~REF 2 LAST 'TTT 0672124 T— 2730 0 TCF OPTTEST 

0126 REF "2 " LAST --137 06,-2125 -t-2765— 0 TCF OPTMON 

"DT 2 7 REF 2 TAST ITT 06,2126 1 2174 0 TCP I MUM O N 

-0123 - REF 4 - LAST -137 06 , 21-27 " 1 53 33 0 TCF “RESUME- 


0129 


0130 


EEF 

PEF 


T 


06 ',2 130 
0672^1 3 1 


0 4740 0 

20000 0 




CADE 


PPTORI VE 


OT’T REF 1 7TOO "" 20MPU PI = O C T 3 7 77 6 ID E C 163S2) 

0132 06,2132 0 0006 1 MODSPOUT EXTEMO" — TURN OFF RELAYS 

0133 PEF 3 LAST 135 06,2133 01 010 1 WRITE OUTO 


0T34 
0135 - 


1 05l2T3r--T 2041- tr CAF— 120MRUPT SET FOP NEXT CDRVE' 

T 067 2135 T 31774 -1 TCE SETT I MP4 


0136 TTFE 14 LAST — 136 06". 2136 3-5t702" O OUTEDSF C AF BIT14 — 

0137 REF 5 LAST 135 06,2137 7 130?“Cr ” MASK OSRUPTSW 

0133 — 0672T4TT 0 0006-1 EXTEND 

0130 PEE 1 06 . "2 141 T: 216 7 1 O^ZF OUIKOFF — WROTE LAST TIME, NOW TURN OFF RELAYS. 


0139 5 PEE 4 CAST TTS 06,2142 11'016 0 CCS 

— 0140 REF 2^ LAST 135 06 .2147 O 2024 0 TC 

- 0141 REF 1 06,2144 1 2154 1 TCF 

0142 FEF 15 CAST 177 06 , 2145 4 5002' 1 CS“ 

0147 REF 6 L AST 137 06 ; 21 47—27 * 302 O -OtTlKRUPT ADS 


"01 44 REF 2 — r AST 175 06 ,"21 4 7 STTroO— 1 CAP — 20MRUPT 

0145 REF 2 LAST 13 5 06.2150 54 077 0 “TS" ' TIMF4 


0145 REF" "11 — L"AST 64 0 5 ' ; '2 1 5 1 3 50 07 0 CAP 01X9 

0147 -REF 7 LAST 137- 06 72152-- 27 • 302-0 AOS ^ -OSRUPTSW 


— 0146 — REF 5 LAST 177 06.7153 0'“5333 1 TC RE SUMP 










f— Tp: r-r A - 








0149“ 





"OTt f 2154" 

0 0006 1 

ntjOSpY 

FXTENu 







0 1 :) u 

■REF" 

4 

LAST 

137 

06 t 21 55 

~"01 Olt) 


VJR ITE 

OUTO 








r-r ^ 4r~ 






^ iLiS A 1 


^ *^-* 0 1 4 T 







0151 

^ f-r 

3 

l.AST^ 

131^ 

O 't 1 2 1 5 6 

3 TtOu^ “ i ■ 

StNCT a 

C A r 

ZO 







52 “ 

^ E F 


Ih ^ 


nfr,“?lTJT‘ ■ 

?6 02“ 0 


■ ■ 

T I ^F4 







0153 

u ':"f 

1? 

L^T 

137- 

— n^r?±trQ~ 

3L 50fTM) 

— — 

- Cftf- 

B TTO 


If. — - .... . - - ■ ■ — 






OSPOUTSB 

NflOSPY 

R TT 14 

OSRUPTSW 


NOUT=0 OR bad RFTURN FROM OSPOUTS8 

I WE OISPL 




GAPr' ASSFMRLE Rf^VlSION DF MVC P{^OGP.irN'l“COTiriCHt" BY N/iSA“20 7.1 1 r3-0!> 1 


lOiZB \PK. — rrrrsi — cumaid — raz9 — fttite — v3b 


rWUPT PROGRAir 





FO S3 


0154 

0155 

T5T5^ 

0157 


~ 0160 
“nOTST 

orsz 

0153 


“FEF 

PEF 


TT 



3 

o 

5 


LAST 

LAST 


TTT 

13P 


0 672 I 
06V2162 



672T5T 


ZT^TO? 0 
11»3TX2 
TT 




0 

53 33 1 


CCS 

Txr~ 


DSRUPTSW 
RLSUHb 


1X6 , 2T57 BTTTT C nCT37737 OCT 


0158 

RTF" ■" 1 

3'6.3r65' 

0 21S5 7r 

TC 

015^ 

■ ffEF 7 nrST 13 8 

0 c t 216 6 

0 Vi a 1 

TC 


SYNCT4 

RESUME 


orsT 



06.2157 

usTzrnr 


067" 
05.2T7Z 


1X^0005 
Ul OIU 

5007 
46 


1 

T 

XT 

I 


QUIKOFF 


EXTEND 
WRITE ■ 




OUTO 

c^rnr4 

OtMKPUPT 


-RESET OSRUPTSW TP« SEND OISPLAY NEXT PASS 


0154 


05 . 7 TTT 


22400 0 11,14»9 tCT 


2740tr 


iu: 2 a APR 



ASTEMB'L^ KhVISIUN ObS '!K” AT;<: PUfK^r^AM ' 'JMAi>iCHb 


NASA 2021113-1^1 


1 1 




POl 




■TROl'STr 
T> 01 S ^ 

^rrrs 

P 0171 

ROl?:’ 

wm 

■R 017 A 
R 0 rT5 
R~DT76 

R 0177 


"'RDTTPT 

^0130 


R 01 H 2 


R 0183 


nryvr^f 


R01T5 

R 0 1 86 

Roias 

ROT^O 


T4RXIPT PP.niTRXP^ 


nSFR'S PAGF Ml. 


7 


EO S 3 


DR nrR AM 31 AME : T 


FUKtt T i nNf AL ' Dt ST 7 rPTTTF: 1 THTS 


TT DETECTS CHANGES OF THE TMU 



PKOG-’AM iS "NMERED BVBRY 430 MS. 
rTlAUNEL TO- AMD CAXi:S~THF^APPRnFRTATF 5 UByrOtJTINE:S. THE 3 TTS TROCESSED AND THEIR RELEVANT SUOROUTINES ARE 


~FD 3 jr:'T ! m — 

TFMP IN LTWTTE 
"TSS TIKN-jN re 
I MU FATL ■ 

TMU tTDtr FATL 

• 'PMU C ADE" 

TMH nPER ATr 


^ir 


_ :> 


BTr 

15 

“TTT 

13 

12 


TT 

■ o 


SUBR'JIITINE CAL LEU 

TL 

TTWNTT '3 

IMtJFATl. ( S£ri <; SW1 
ICOIJFAIL (^ETISSM) 
IMUCAGF 

iMtjnp-- ^ 


THG LAST STATI- 


T H E SE B IT S I S L F F I — I N I wP nF S ? 7 T 


L EO F ! N O S TH E~ t 1 EW 


VALUE OF THE BIT TNA. UI TH 0 S^T Tn THT PP,npP 1 ?-p-ETiPH L'TCATinN, HXTIFAtL 


CALL IMC SbUlTFi'ICET T^THIPT “EVERY ABO V T L 1, T S ECHHUS . 

JOBS OP TASKS TNITIATED: HONE. 


SUBRtIDT INFS CALL fit: TLIM. TTUPNTN. SpTPSSWV IMUCAGE. IMUOP 


FRASABLE I NI T I Al I Z A I I ON 5 


FPrSH START CP, FF START WITH 
RESTART W!T^•• ACTIVE GRHUt’S: 


NO GROUPS ACTIVE: C ( TNOOFS'-SO ) = OCT^TAIU 

C( IMifDFSSO) = (B( IMOUES 30 I AMOIOCT 00035 )) OLUS OCT 37400 
T H IS L E AV E S T MI I F A T L B IT S 


ROIFI 


ALAPHS: NON 


ROTFT” EXIT: TNUNTFST. 

t 


HTTTDT 


DUTPHT : * “DPD ATTD' 



UTTH thAMGES ^RHCESSED BY APPROPRIATE SUBROUTTNFT 


0195 REF 

0 TD 6 

0197 REF 

0198 REF 

~" 0 IT 9 — ~ 

0200 REF 


1 

I 

1 

1 


0 f * 2 1 7 4 3 1 320 ■ 1 I MirMO w 

0 6 T 2 T T 5 0 00 05 " 1 

tr 6,2 176 06 030 1 

06 ,^U 7 7 7 27 4 3 1 

— D 6 V 7'?00 0 0006 1 

' OavTROl 1 22 31 1 


CA 1 - 10 DFS 30 


KXOP CHAM 30 
MASK 30 RDMSK 


B 7 F TNDM TF S T 


SEE IE THE^E has BEEN A CHANGE IN THE 
RFLEVANT BITS OE CHAN 30 . 

CHECK IP BITS 9 * 11-15 CHANGED 


NO CHANGE IN STATUS. 


OZCT T PTE '3 CTTST TTT D : 5 V 2 ?X) 7 . 54 O T O 7 fT RUF T REGl " SAV E BITS WHICH HAV -g eH AN G E P' . 

~ 0 TD 2 PTE 2 LAST 06,2203 “^•"320 1 I XCH — tMrji>FS 30 UPDATE IMODESBO. 

0203 "“ ■ 06 . 2204--0 0006 1 EXTEND 

~ 0204 RTF 27 CTTST TTS 06 vr?. 0 ^ rr 7 >-t> ot 0 LCKAN — 

0206 -^REF 3 LAST 139 06,'»?06 55*320 0 TS IMn 0 fS 30 


0206' FPF 2 — LAST 

0209 t?FF 4 I AST 

0208 


13 ^ 06 > 220 7 4 501 T P C“S DME 

1 3" - 06, 9210 56 09f) 0 - XCH PUPTPEGl 

_ — 0^.^. G 0006“ 1 EXT’ NO 


0216 


p 


F~ 


0217 

PEF 

6 

LAST 

“■02T7! 

RLF 

“ T3 * 

L AFT* 

0210 

R EF 

4 

LAST 

0270 

RFF 

3 

LAST 

0331 

X. 

J.J 

1 

Li' 




REF 


LAST 

““0227 

3 

0233 

7 Ff 

~ 3 

LAST 


140 
130 
330 
1 4t) 


06,3221 
0^3 2022 
06,2223 


140 

140 “ 


06 ,2724 
05 f 72 25 
O 54377*6“ 

05 t 2227 
00437 3 CT 


56 071 
50 070 
3 5002 
7 13 20 
50 070 
063333 


071 


1 

0 


0 

0 



0 

0 


xci^ 

imfx 

CAF — 
I3ASK 
INDEX 
“TC 


NXTIFAIL COS 
Tt3 


KUPTREG2 
211PTR PG I 

Bill 4 

l>10nES30 
RUI^TPEGl 
3TA T CJ - F IP 


SAVE OVEPELW-CnR^ECTEn OATA 
SELECT MEW VALUE OF THIS BIT 


Pf'fOCESS AMY ADDITIONAL CHANGES 












b A ^ i A h ^ b L b H h V 1 ] * 

7)5 5 

OL AGE PKUGRA^ Ci 

IMANL Ht 

RY NASA 2021113-051 

AlJf-'. 1, 196W C0M4ID rrr?'= I-ZfO ■ 

* - 










L 

T4R1JPT PROOFAM 








USFF-»S RAGE MO. R EO S3 











0209 

RFF 1 


06 , 721 7 

6 2 503 

1 


B736 

TL I M 

CHANtTE IN TMU TE^P, 

021 0 

REF 1 


05 , 221 3 

1 2215 

1 


TCP 

MXTIFBIT 

BEGIN BTT SCAN^, 











0211 

REF 3 LAST 

13 9 

06 j 2 ? 14 

6 50 i 7 

1 

-1 

AT) 

“ONE 

(PF-ENTERS HERE FROM NXTIFAIL,) 

0212 

R FF 5 LAST 

1*^9 

06 , 2715 

24 070 

0 

»MXTIF31T TNCK 

RUPTREGl 

ADVANCE BIT POSITION NUMBER, 



^ ^ 

06,2216 

6 0000 

1 

+ 1 

UUUBLt 



021-^ 

RFF 3 LAST 

136 

06 ,2217 

54 T)00 

0 

-m- 


TS 

A 

SKIP IF OVERFLOW, 

02 15 

RpF 2 LAST 

14 0 

06 ,2220 

1 2215 

1 


TCF 

NXT 1 FB I T 

LOOK EOP BIT, 


RUPTREG2 

NXTTFBTT -1 


GrTrrT R!:V1SI'TM Oh'j Hr TTH" '^>'^0 GMAM L i^ANCME BY NASA 2^71113-0 5 1 


rO:?B APR. 1 V196'? 




T4^'UPT P vH G'P A'M' 


USEH'S PAGE NO. 


EO S3 


P 07? 4 


P-;0G7AM TNONTFST 


70 V ->3 

Pn2?7 

^022 7 


Fijoi; T TiTWi: " Dt s i: R 1 p Ti r IN i 


rRT'S' PK!jG7A^''F17nRS REQUEST'S' 'FOR T5S 



Z AT TON 


TBS TOP N- ON 



30 BIT 14 t 


'\M0 ISS OPPRATF TCE^AM^^F^^ 30 3IT 9) RFCTUF5TS A7E TREATEt)- AS A ^ATP AND PP DCFS ST NO TAKES PtrAFE 
AFTPR FTTHGPr ONF appears. THIS TN IT T AL IZ AT TON TAKES T!FI OHFrjF THE FatLOWING THREE fnP*^S’ 


480 SECONDS 


R0V31 
P0 233 



P0V37 

P 773'^ 
R0V41 
P02^3 


P07 44 
3 074^ 


R 02 43 
R02S0 

R 02 54 
0 2 

■R'OTSR 

R0250 
^02 6Z 
R 0 264 

^0266 

R02'63 


30270 


^0271 

R0273 

RT)77F 

R0276 

R07/3 


— 3027 3 


C-02R ’ 
7 02R3 


P 07 R 5 


n ISS TUP'N-O'i: TN THIS SITUATION THE COHRUTER IS OPERATING WITEN THE ISS IS TURNED ON. NOMINALLY, 

ROTH ISS TURN-gn AND TSS OP^RAT^ APPEAR. THE RLATEORM IS CAGED FOR 90 SFCONDS AND THE TCDU* S ZEROEH 
“SO I H AT AT THE T.ND “OF THE PROCESS THE GIMBATLOCK 


WILL FUNCTION 


2V ICDVJ INITT ALIZATI JN: IN THIS CASE 
“A PRESH ST3PT HA'S DIJNl^'W'TTH" THP-- TS5 '■'TN 
TFROED so THP GTMBAL LOCK MONITOR WILL 
A RESTART, O'HF XCDU’S WILL NOT RE ZER 


THE COMPUTER WAS PROBABLY TURNED 
nPERATF. 


O^ITM Tnt ISS IN OPERATE OR 
SS O PE RA TE I S ON. THE TC DU 

FUNCTinN. AN EXCEPTION Tp- THE T3S IS^N GIMBAt i:OCK AFTER 


IN THIS 



3) RFFTART W1 TH RPSTARTA&LE P'^OGRAM USING TETE IMU: IN THIS CASE, NO INITIALIZATION TAKFS PLACE SINCE 

IT IS ASSUMED THAT THE US TNG PPOGRAM DID THE INITIALIZATION AND THEREFORE T4RUPT SHOULD NOT INTERFERE. 


IMO0ES30 BIT 7 IS SFT = 1 BY THE FIRST BIT (CHANNEL 30 BIT 14 OP 91 WHICH ARRIVES. ^^OLLOWING THIS. TNONTEST IS 
-NT-^REO. FINOS BIT 7^1 BUT BJT 8 = 0. SO T7 SETS BfT 8-1 AND EXITS. tHE NEXT TIME IT FINOS BIT R = I AND 
P70CPE0F, SETTING BITS F“TND T~= '07 A T P R OC T N O N ' , T F T SS T U «^ N-ON R E QUES T T S P RESE N T , TH E T S S I S C A G E D (ZERO » — 


COARS-). IF TSS OPPRAT 


IS NOT PRFSFNr PR.OFRAM AX ARM 00213 IS ISSUED 


AT THE END OP A 90 SECOND CAGP, BIT 2 


OF 'TMDOFS30 is TESTED. IF 'TT IS - 1 


TSF TURN^XTN WAS NOT PRESENT FOR THE ENTIRE ^O SECONDS. 


THE TSS TUPN-ON FEQUFS1 — IS P'^^’E SENT THE 90 SECOND WATT IS 
NAS WAITING FOP THE rNI TT AL TZAT t 


IN THAT CASE, IF 
UN L F S S - A - P ROG RA M 

WHICH CAFE THE PROGRAM IS GIVEN AN IMUSTALL EFROR RETURN. IF THE DELAY 



WENT PROPERLY, THE ISS DELAY OUTBIT IS SENT AND THE ICOU'S ZEROED. A 
7 W T 3 1 r BIT T N”TOTFFScCHNDS.'^ TF A-M TSSTOTT P PO GPAM WAS WA TTI NG I T I S 


TASK TS INITtATED TO REMOVE THE FT PA FAIL 


N D f-MU. 


AT f’XOCTNON, IF^ILT ISS OPFpaT'- IS PRESENT (OPONXY), THE CDU’S ARE ZEROED UNtESS THE PLATFORM IS IN COARSE 
AXTGN-T = G T MBAXr - L OC K ' IT EPE r 37 A N T SS 1 ON- PP OGR AM ~ TS D 7S T NG T H E I MU C T MUS FF LG ^ 1 ) . 


CALLING SEDUL-NC^: T47URT rV^RY 430 Ml LL I SECONDS AFTER IMUMON. 


jnns DR TASKS INITIATED: 1) -END! NON . 90 SECONDS AFTERrCAGlNG STARTED. 21 ISSUP, 4 SECONDS AFTER CAGINf, DONE 

3) PFATLOK, 10.24 SFCONDS AFTFR I N IT I AL T Z AT I ON COMptETEO. 41 UNZ2, 320 MILLISECONDS AFTER ZEROING 


S'!M\:^1JTINES CALLED: CAGESU3, CAGFSUB2, ZEROICDU, ENDIMU, IMIJBAD, NOATTOFF, SETISSW, VARDEL4Y 


S ABL E I N I T I U f 7. ATTUN : 


n 

y 


EE IMUMON. 


A L'AFNE : — P R O GRA M ALARM 0D 7 13 


EO UES 



ATEt 


FXIT* FNOTNON FXfTS Trj 03 iTf ST r'” TASKS H^AVlNG TO W WITH INITIALIZATION EXIT AS FOLLOWS: M^ISSION PROGRAM 
77A7TT NF 7TTrr~ TN I T T AL T ZA T T D T ' CtrM P L E T P3 — "YT T 7 0 EN D T MU 4 M T SStON PROGRA M WAITING AND tNtT T At i Z AT t ON fAlL F D. EXIT 
TMUBAD, IMU not I^UtSF, EK7T TO TASK-77PR. 


“^TTPUTt — rS9~ t N T T T AT 


02 B 7 


> r 


LAST 140 


0 4. 3 7 

^7 f £_ 


73X 4 1 320 0 TNONT+-ST CS 


I MODE S3 0 


AFTER P-ROeFSSING ALL CHANGES, SEE If IT 


GAP 


OF AGC COMAfOUH^ BY NASA ^')2l \ I3~'^hr 


lOl ZS ' PR. r, T^F9 COMA ID 70T9 PTHTF 


02'^! 



0293 


95 
0296 

■i~' 


P02 


0300 

0301 

0302 

0303 
030'+ 
030'0 

0306 

Tn07 

0303 

0309 

0319 

031 1 


T43UPT PROGRAM 


USFR*S PAGF NO, 10 


FO S3 


0238 ‘'FF 
02BO RFF 
~rT7'90 8FF 


RFF 


P FF 

REF 

RFF 


12 

» 

I 

T2 

5 

1 


L A S T 
LAST 


66 

140 


06 t 2 23 2 
06,9233 
iy63~9T3T 


LAST 64 

rXST T4^1 

LAST 142 


06r2?35 


■a6TZ736 

06,7237 

06*?740 


7 5011 0 
ID 000 0 
T“23"67'0‘ 

3 5E1 0^ 
7 1320 n 

10 onn 0 

1 22 44 0 


■^ASK 

CCS 


CAT 

MASK 


5TT7 
A 

rT3TF5T 
51 T8 

IMnOESBO 


"TS TI ME TO ACT OM A TURN-^ON S^OUENCF 


NO 



rrr 


SFF IF FIRST SAMPLE OR SECOMP^ 


TCF 


PFnCTNON 


REACT AFTER SFCONO SAMPLE 


13 VAST 
7 LAST 
~2 TA5T 


142 


063 72 4 1 
06, 2242 
06,?243 


3 5010 0 
27*3 20- 0 
T“23 52"0 


CAP 

ADS 

TCT 


81T8 

IMOOtSBO 

C^3TEST 


IF FIR5T SAMPLE, 
TIME. 


SET BIT TO REACT f4EXT 


PROCFTS IMU TURO-ON PEQOTSTS AFTER WAITING 1 SA«p>LE FOR ALL SIGNALS TO ARRIVE. 


RFF 


0312 


TTEF 

REF 

7 EF 
l^EF 

> irc 

7EF 

RFF 


EF 


1 

8 


6 

“1“ 

10 

TT 


LAST 

LAST 

LAST 

LAST 


142 


06, 2244 

06,7245 



140 

T42 


LAST 

EAST 


142 

TTT 


LAST 142 


06 ,7247 
06,2250 

06 .2252 

06. 2253 

06. 2 25 4 

06.2255 


4 2757 1 
7 1320 0 

5'5'*3 2a TT 

7 5002 1 
10 000 0 
1 2342 1 


4 1520" 0 
7 5007 T 
10 000 0 
1 2260 0 


06 , ?2 5 6 
06 ", 7 25 7 


0 5650 1 
00215 1 


06,2 260 0 27171 


PRGCTNnN CS 

MASK 


+ 3 


MASK 

CCS 


05 

MASK 

CCS 

TCF 


BTTS7S8 
IMnOES30 
TMnn‘=S3n 
8 I T 1 4 
A 

O P DNL Y 

I MODES 30 
B1 T9 

A " - 

+ 3 


TC 


ALARM 

213 


TC 


C AGF SUB 


SEE IE TURN-ON REQUEST. 


Ot» g - RA T E ON ONLY. 


IF TURN-P^N REQUEST, WE SHOULD HAVE IMU 


alarm if not 


TTTTT 

031 4 
0 3 16 
OOTTK 
0 3 1 


TEF' 

RFF 

, ^ ITC 

TTET’ 

RET 


1 

I 

1 

1 


0 6,?25T 
0 6 ■*226? 
r-3 , 1474 
06T227rT 

0 6,7'* ^ 


3 2 7 64 0 
0 5245 I 


n227-O"0 

14063 I 



WAITLIST 
EBAMK= C DU I no 
TC^rfT* FNDTN^^n 


03X7 

0318 

trrr:^ 


0320 

4T32T 

032? 

0323 

^0324 

0325 


RTF 


r F 

RTF 


' ’ P F 


■■ FR- 
: - F' 


IT c 

V I i 


2 

r 


9 

XT 

12 

10 


r AST n42 0 6, 22 65 t-23-6r"0 


LAST 142 


LAST 
LAS T 
1 AST 
I A 


65 

T42- 

142 

142 


0 6 . 2 


0T7T226T 



PFTNON 


4 5016 X 
- ^7 1 32 0 0 

5 7 * 32^ 1 
7 6016 1 

■ 0 — t 

05,277^ ] 271 f> 0 


06,7770 

06,2271 

0 632277 
06t27 7 3 
0 6 ,22 


h- 


MOT NON 


C33TEST 


40 SECS 
VAR O flA Y 


XCF 

CAE 

TC 

CS 

t r A ' SK ' " 

XCH I MODE S3 0 

OASK BIT? 

EXTE N D 


eiT2 

jMrine$3 0 


H7F 


f MOTMON? 


PESET TURN-OAJ REQUEST FAIL BIT. 


IF IT ^AS tD^F, SEND ISS DELAY COMPLETE 


f ar. 


r 


AFl PPvl^r^^f 0^'". '^F ACC 'f>R^'iGR“AM CO ^AMCHC RY NASA :^0 v 1 1 1 3 -O 'S 1 


roTZB "APR. 1", r-f6y croTsmiD . 02 ^ — — m3 


T4-lj‘’^T PRH'Gl^A^^ 


0326 

0327 
032F 
0320^ 


2 -F 
■ EF 


1 1 
13 


lAST 

LAST 


142 
1 4 2 


(To ,7276 
06, 2777 
TbTTTOTT 


3 D 
7 1320 0 
0 0006 I 


7 - F 7L 


06 ,07301 1 22 Sh 0 


0330 

'TV 

14 

L A SI 

— TFT 

06,2302 

0331 

Cl crc 

1 



06,2303 

0332 

REF 

8 

L ^ST 

1 42 

06 ,2304 

0333 

-TF~ 

I 



06T73O5~' 

0334 

C F 

1 



06,7306 

0335 

RFF 

1 



06 ,7307 







0336 

REF 

11 

L A ST 

66 

06,7310 


0337 

T1371" 

03 39 
0340 

03 41 


TFT 

OFF 


RFF 


RFF 


T 

9 

1 


LAST 137 


0 6 , 231 1 
T67ZTT“2 

06 .2313 

06.2314 


4 0074 

7 5010 
10 000 
1 5324 

0 4701 
1 


0 

1 

0 

IT 

0 

1 


3 5001 n 
0 0006 1 
05 01? 1 

0 4740 0 
17151 I 


06,2315 0 5571 1 


CAT 

MASK 

TTXTTOO 

37F 


BTTl 4 
IMTOFSTO 


R^ETNOM 


TS 

1MA5K 


TCF- 

TC 

CA03 


STATf — 
T MTS F Ft 3 

A 

TA5KOVFR- 

PnSTJU*^^ 
I MtlOAH 


Ef'JOTNnNT 


CAP 

EXTEND 
HTTP 

TC 

CADR 


BT T13 


CHAN12 

I3NKCALL 
WAT TOFF 


TC 


ZTrROT Cnt.l 


DSFF^ PAGF~TOV“ 11 


= 0 S3 


IF IT WAS ’W~AfWTUR74-ONT^ EDITS 
PRESENT, RE-cNTFR 90"“SEC- tTL AY 


T NOW 
IN WL 


rm 


WAITING. 


UNSUCCESSFUL TIJRN-ON. 


SEND ISS OELAY complete. 


TURN OEE NO T^TT LAMP 



WA 



0347" 

0343 

0344 


“TEF 


0 3 45 
0346 


0347 
034 8 
0349 


0350 

0353 

n 3 52 


7 

RFF 

RFF 


RFF 
7 E F 
7FF 

RFF 

■RTF 

RTF 


11 

2 


1 

14 

T5 

11 

~4 


LAST T43 


LAST 

LAST 


LAST 

orsT 

LAST 

nrsT 


142 


143 

T43 

64 

137r 


LAST 143 


TT 6, 2116 

06 ,2317 
06.3320 


T’SOPT 
0 0006 
~03 032 


1 

t 


06,2571 

06‘,7?322 


R 5005 1 
0 5772 0 


4 


27 54 
1320 
370 


1 

0 

o 


067732 3 
06,27374 
0667375“ 

06,^326 
06 ,2 327 
06 , '^'MO 56 *52 I I 


4 5017 0 
7~T32 


I SS UP 


ITS 

EXTEND 

WANU 


TS4 L 5 


C AF 
TC 


cs 

MASK 
T5 


CS 

MASK 

TS 


CHAN12 


Bl Til 
VAR OF LAY 


nCT54 

TMTnFS30 


BIT6 

i Mnn E S33 

!M0DtS33 


REM O VE. ZE RO 



WAIT 10 SECS FOR CTRS TO FIND GIMBALS 


FEND VF CAGING, I MU FAIL INHIBIT, AND 
ICOtlFAIL INHIBIT FLAGS. 


FMABIE DAP 


0353 

0354 

0355 

0356 


0357 “ 

03 53 - 
035^ 
03 SO" 

0 366 


RTF 


RFF 12 LAST 143 


REF 


Trrr 


75 F 

RFF 


0364 


0 56 7 


2 

T 

1 


LAST 

LAST 


LAST 143 


142 

142 


06, '331 0 2665 


06,233? 
06 ,233 3 


0 6 , 22 .5 4 


4 5 001 
O' 0006 

03 or? 


1 

t 

1 


057 
(T , 376 
E3 , 1474 
0577337 
Ob , 2340 


3 5045 0 
0 5745 1 


031 3 7- 1 
16053 0 


TFF 2 LRTS r^43 0 6 , 2341 1 5324 0 


REF 11 LAS 


64 




rs 


S O T I s s ir 


B1T15 




NO 


WAND 


CHAN12 


tTAO 


4 S E 0 S 


TC WAITLIST 

EBANK= COUIND 
RC ADR PFA t L OK 


06,7M4? 3 5014- 1 URUNLY 


TOO 


CAT 


KN V FR 


BIT4 


TOS 


T G ^ T GHT tt A VT - OFE N 1 N H I B ITE 0 


REMtlVT IMU DELAY COMPLETE D I SCRETE 


BUNT E f TA T tE PROG ALARM ON P I P- T^A T L-T OR 
ANOTHER 4 SECS. 


IT^ 




MBL 



CfIMANCHh "ff? NASA ^^U2lli3-0S1 


105'2B"RPR 


1 tl969 CtmTTTD .02? TW 


L r^RUPT PRGGTIA'M 


USFR»S t>AGF NO. Tl EO S3 


0368 





06 ,23 43 

n 0005' 

1 

EXTEND 

IF nP^ATF ON ONLY AMO WE ARE IN COARSE - 

0360 

^ ir F 

4 

L AST 

1 43 

06 , 2344 

02 T)T2 

V ■ 

RAND CHAN12 

ALIGNS OONT ZERO THE COUS BECAUSE WE 

077D 

~RFf 


L AST 

1 43 

06 , 2345 

TO “000 

“D 

CCS A 

NlbHF bt In blNtJAL USt Y41N20 TO 

0371 

R b F 

4 

LAST 

1 42 

06 , ? 3 ^ 6 

1 23 6T 

0 

TCE C33TFST 

RECOVER. 


fr ■ • 




r .>•>. , 






m'7 2 RTF F"T7rS1 1^*3 OFVFWr — 3 3010 G CITF O T H ER W I SE^ Z E R H T H F t GUN T ERS 


03T3 " REF^ 15 OST 143 06,2350 7 0074 0 “TJfASK STATE UNLESS SnMFnNE“3"S USING THE im. 


0374 REF 10 LAST 144 06,2331 1 0 000 0 FCS A — 

“ 0333 RFF~ F “ r AFT HfAT 06,2352 1 2 36/ 0 TCF C33TFST 

0375 RFF 1 06 , 2T53 0 2730 1 TtT T^ SET TURNON F LAGS, 

^ 0377 RFF 3 LAST 143 0632TS4 0 4740 0 ISSZERrr“ TC TBNKCALL TURN OFF NO ATT FAHR - 

0373~ PFF 2"^AST 143 OF, 2355 17151 1 ^ CAOR NOATTOFF ^IMU CAGF OFF ENTRY 


0370 FEF 10 LAST 6F “ -06,2356 3 5013 D CAF FITS ISS COU ZERO 

- 03HO ■ — 06,235 7 0 0006 1 — = f XTEND~““^ 

"0381 RFF r44 TT6-, “FB XT" 0 5 012 1 WOR CHAN12 ' 


03811 REF 2 LAST 143 06,2361 0 5521 1 TC ZEROICOtt — — — ^ 

“0T82 RFF 12" X AFT 043 OF, 23'52 3 '5012 1 CAF BIT6 — WATT 300 MS FOR AGS TQ RECEIVE SIGNAL* 

-0383 PFF 3 LAST 143 06,F353 tr -52 45 X ^ VtArITt IS T" " — " 

03 84 REF 1' TFll ' F8A NK- OR I S ' — ' 

■0385 FEF — “T " 075X2364 0 2 3 T 5 ~ 1 2C A DP UN 22 

0335 REF " 1 06,^65 14062- 0 “"^“^ — 


TJ3J56 


■RFF 


FAST r44 


06,235"6 1 2367 0 




REV!*;; inN'0^5 f " iFni:" ■ p p hgi-^am c'^manchl by nasa '^(i^ii i3-obi 


iO:^H Ar»K. rrr9'ft'9 CGMATT •0?9 PTHTE 1^5- 


^T)3 - 
R OB'" 0 

R 

039 4 
R03'55 




o 


R03 
R0397 

o 039^ 

'90 

R0400 


“ir0401 


T 49 OPT PRnGRAM 


TJSFP* S 



13 


FO S 3 


'^RTHS'RA'^ TnIA’-^": 


Fim: TTDNAmiE S C H 1 P I T^''X : ~THTS "T^RDGPA^f MONITO R' S" ' THR EE F L 1 P-F 1 .D R TNB I TS OF CHANM r fBB 
SlTR'RnUTI'NE'Tn PROCESS '^CHANGE. IT TS ANAtOGnUS TO WHICH MON ITORS C HANNFL "30 , PXCEPT THAT IT PFAOS 


r^r- 


33 WITH A WAND INST^UCTTON RFCAHSF A • WR I TF • ’^UL S F TS REOUTRED TO RESET THE FLIP-FLOPS. 
'P? nc E SS ECr ATTD THF R Hi JTnTFr“G7n7n?0“ 3Tn^ — — ____ 


THE BITS 


BIT 


FUNCTION 


SUBROUTINE 


13 

12 

TT 


PIP A FAIL 

OOWNLIMK “TOO F'\ST 

UPLINK rno fast — 


p IPFA TL 
ONT A S T 
UPTMFAST 


'TPON FNTRY TO THE -SUt'^^UT INI • THE N*-w ‘UT STATE IS TN A^. 


CALI TNG SFOUENCE 


EVERY 430 MILLISECONDS AFTE1> T^^ONTEST 


ROAT^R 


JOETS'^OP TAS KT TTqTTTATE D ! 0 N F . 


R0403 


P 0 4 04 
RDAOS 


SUERaUTINtS CALLED: P TpRA I L, ONTHFAST 


UPTMFAST IM BIT CNANGFS. 


ERA3ABrE I NIT I AL I 7 ATI ON: Cl I MODES 33) 
RE A P P E AR”TE T H E X OAP I T T O^TS PER $1 ST 


= nCT 1600D 


A FRFSH START OR RESTART, THERFFOPE, THESE ALARMS WILL 


R 043^ AL AR MS ; NONE . 


“EXT T : CLOCK MmSB 


R04n0 OUTPUT 


UPnATir-t^ 3113 13, 12 AND 11 O*" TMODESBB WITH CHANGES PROCESSED. 


0410 OFT 6 LAST 1 43 , 2367 3 1321 0 C33TEST CA IMODESBB 

041T ' REE" 1 06,?3?D 7 5079 \ MAS’^ 33RnMSK 

TJ4T2 ~PFF 2 DTST ' 41“ 06,23 7 1 S4 001 I TS C 

0413 REE 2 LAST 145 D6 , 33 *"?' 3' f 0 70 0 CAF 33PDMSK 

0414 06,2373 0 OOOS I EXT'^^o 

0 4T5 RET= 1 0E,-3374^ 03 033 1 — “ WAND^ CHAN33 

041A 06,2375^ D" 0006 1 EXTEND 

0417 REE 3 LAST 139 06:,pJ76 06 001 0 RXOP LCH^N 

041-q 0 6 , 2 3 77 0“t)006 1 E X TEND 

0419 REF 1 06,2400 1 24? 7 0 B 7E DLUCKMnN 


SEE IF RELEVANT CHAN 33 BITS HAVE 
C H ANGED . — — — 


ITE SETS FLIP-FLOP I M PIL TSt 


CHANGE. 


0420 R EF P. LTST Pm 06 , ? 401 5 4 0 7 0 t TS RU PT PEGl — — — SA VE BITS WHICH HAV*^ CHANG E D -r^ 

0421 3rPF T I AST 145 06T24tT2 23»321 0 LXCH fMnDFS33 — ==— 

0492 06,2403 0 0006 1 EXTENO 

■ 04 73 REF ~”4 rrST TTD 06,2404 06 O OT^' D RXm LCHAN 

04>4 REE 8 LAST- 145 Of) , r40-5^ -5T • 3 2 1 1 TS TM0DES33 UPDATED IMDDES33. 


0423 PTE 3 0437 1335- 06,9406 3 50 21 1 CtAP TTTD 

0496 REF 9 I AST 145 06v2407-- 070 0 XCD «^tiPTkEGI 

049 -^ 06 , 941 ^ — flDOO 1 OOUBIT 




ASSEMBLE RFVISIOT]“0';''- OF “AKC PROGRAM COMAMCHt I’V"' MASA ^OZlllJ-Obl 


IO!28 APR'; m 96'9 COMA ID 


TJ79 PAGF 



l_ ■ TA'PtJPT' PKOGP'A'M 


tJSrrP^S ^Attf NO. lA- — ^0 S3 


04?'^ PFF 1 


06 T2 '+TT 1 ff 0 ' TCF NXTIBT TT “SCAIT TOr B^r T CHAMGF 


OJVT« RFT'~zr~rSn ITTO 175724 x 2 6 5017 1 =T so OFTF 

0430 ' "^FF ro LAST 14B 0577413 ' 74 070 rr' tlXTTBT TNC1 TUPTRFGT 

^0431 ' 06.2414 6 0000 1 3-1 OOUBLF' 

04?? PTF rr'”L7tST 144 i7'6V241S S4 000 0 TS 3“" ( COO I NG 

0433 HEF' 2 LAST 146 06.3416 1 2413 1 -TCF AOCTT S T - “ 


lOE W TI CAL 



301 



0 - 43 - 4 - ■ 

"WWf 3“ 

— LAS'T" 

~r40“ 

“^"06,'2“417 

66 071 

3r 


0435 

RET= 11 


146 

TTFr3420 

50 070 

0 


0436 

REF 13 

T-AST 

6 6 

0 6 * 2421 

3“50t)5 

1 


Tr4^TT - 

REF ■ 9 

CASl 

145 

0 6 T 24 22 

7 1321 

1“ 


043 8 

■REF 1 2 

LAST 

1 46 

0672 423 

50 070 

0 


0439 

R liF 1 



06T2424 

0 2745 

0 


XCn RUP T RfcG2 

TNODT R O PT REGl “ GET NCW VAL1JF QF BIT WHICH CHANGFO 

car Btrro 

MTSK I M O D E S33 

INDEX RUPTTFGt 

TC C33JMP 


0440 REF 4 LAST 146 06,2425 10 071 0 NXTFL33 — CCS- ' RUPTREG2 PROCESS POSSIBLE ADDITIONAL CHANGES. 

— 0441 REF 3 LAST 146 06.2426 1 2412 0 TCF WXTIBT -1 


I0 : 2B A P R 


TT T 'T e. q C n WA TD 


TTATH ASSr'MPLu pf y/TS I ni^ -O'BB" l -F ACC PH^iTfTRA^ C^^'A’^’CHE 3Y NASA 20^1113-051 


T^U^T P'P.nGRA^ 




15 


0 S3 


P 0 4 4 2 


■RT)44 3 

R0445 

R 044:7 

R0443 
P 045 0 


J^RDGTTAM NAMF: GLTCK^'mN “ 

FUNC noNArTihsci' 1 PI i )’n ^ s t hi- cuur cnim T FR — r n d ftep m i n e wn tt hf :^ 

ANH TAKES ACT TON T F I T rs. THRF^ nrCinNF DF ItTAL F“ G IMBAt “ ANGL I' ( MGA ) AR^liSGO: 


t'OCK 


IT ABSTTIGA ) T. FST' THAN' HR FQUAT Ta 70 DEGREES NOF^Al MHOE. — — — 

Z\ ABS(mgA) GRZATER than to degrees AHO less THArlT or EQUAL TG 85 OTGREES - GT^BAL LOCK LAMP TUPN^n ON 

3) ABS(MGA) GREATER THAN 85 DEGREES - ISS PUT IN COARSE ALIGN AND NO ATT LAMP TURNED 


R04T? 

T04G3 

R0454 

RD4Tr 

P 045 7 
R04SE 
R 0470 
R04S2 


CAL I TNG sequence: 


V EK Y 4R 0 M I L L T S EC ONOS AF TER- C 33T EGT . 


TOB^'^T TirSKS INiriAlEO: NUTTF. 


SUBRnUTlNFS GALLEG: 


n S-rCDARS WHEN A8S(MGAJ GRE 
"L'AMPTEST BEFfT^c JUPNTNG OF 


R THAN 85 OEGREES AND ISS NOT IN COARSE ALir7N 

LPCK LAM P ^ 



RASARLE 


r N I T 1 AL I 7 A T I OH : 
IT'FRESR START- 
21 RESTART WITH 


RFSTART WITH NO GRGUPS ACTIVE: 

SRPUPS active: SAME AS FRESH START EXCEPT 






irt c D urr ^ 

C(CDUZ) NGT CHANGED SO GIMBAL MONITOR 


■BIT 1 - rr. 


PROCEEDS AS BEFORE 


R 04 6 T 
R0464 
R O 4Ers 


Al ARMS: 


1) MGA RFGTTN I CAUSES Gl MfrATtnCK LAMP TG BE LIT, 

?) MGA REGT^T'r (R) CAUSES THE- TGS-TG BE PUT IN COARSE ALIGN AND THE 
5T] ■■'AtT -AOY. 


^TT LAMP TO BE LIT IF EITHER NOT 


046 ' 

REF 

06 68 
046^' 

R EF 

KEF 

0'^^ ^0 

^ E F 

047 1 

^ EF 



0472 

REE 

()47 5 


r^- Kcr 


1 

T 

I 

? TAST 
7 — cirsT 


14 7 
ITT 


1 


OF , 2A7 7 
““07,2430 
06,2431 
06 ,243 2 
06,2 4 3 3 


06 t 2434 
06, 2435 


10 034 1 

TTrr«rT 

1 24 60 0 
1 2434 G. 
1 2460 0 


GtGCKMON CCS 


COU? 




3 L AST 147 05,2 436 6 -24“5 7 0 


rcF 

TCF 

Tcr 


GLOCKCHK AD 
E XT E N D 

3 74 


SFTGLtXK 
GLOCKCHK 
47t GC X 


S E E MAGNITUDE OF M GA IS GR^ AT E^ THAN 
TtT 



-TOOEGS 


SFTGLTXK -1 


NO LOCK* 


04 "^5 
04 76 
04 7 7 


REF 


RFF 


1 


T 6 , 

06,2440 
06, *>441 


)uG~TT 
0 0006 1 
6 2465 1 


itrr 


15 Cr EG$ 


S EE rr : A B S t MGAt GREATgR 



EXTEND 

3 7MF NOG I Mr/104 


qj!*76 ref 1? LAST 143 ^J6,'2442 3 50 14 1 CAP BTTB- IF SO, SYSTFM SHOULD 8 F IN COARSE ALIGN 

0475 — 06,2443 0 OGOB 1 ^XTENG TO PRFV^NT GIMBAL RUN-AWAY. 

04 8 0 7EF 6 LAST 144 GtttTTAX ' — Ot 012 0 RAW CttANl 2 — — 

O^ri peF 12 LAST 06,2445 10 000 0 - CCS A 

04B2 ? 6 F 2 LAST 147 -T56?2-4-6 1 2455-0 TCF NOGIMBIJM 


04 2 3 
0 48 4 


8 FF 4 LAST 1-44 O 5 . ?44 7 0 4740 0 TC 

*^FE ^ 336,3 450^ 17027 1 C ATX 


I BNKGALl. 
Sf TCflARS 


GO i^iTO e OA-R S E AL I GN . 


OF*- 

04^6 '-tF 


1 06,2451 3 62 n 0 

4 LAST 148 06,2452 0 5247 1 


CAP SIX ENABtT- I ST^-ERFGR COUA^TER S IN 60 

TC wAiaiST -■ - 


GAP: 

A^pmBLE PFVISt >N 053 OF AGC ‘ 

n.-TG»AM CHHANCHF HY NASA"202U 1 1-OSl 

— nTr23"i\PR. — 1, — coma in 

* 


1 


l 

T^PU^T 


- USER’S PAGF NO. 16 


EO S3 


04'^7 

^ - DPir 

'^FF 

3 

LAST 

143 

F3*1474 

0488 

1 



06; 2453 03023 0 

04 3 y 

P EF 

1 



— 06 7? 7+ 54 16063 0 

0439 

p r-F 

i 

13 

LA ST 

1 44 

n6VP455 ^ 60 rZ"“T 

0 4 'V 0 

3 EF 

4 

LAST 

147 

l}6t7456“ T~?4 60 0 


0401 RtF 4 L*ST 145 06.2457 3 5021 1 


04 92 

P.EF 

6 

LAST 

13 5 

06 » 2 4 6 0 

6 

1036 

0 

0493 

?TT 

14 

XAST" 

tar- 

071,2461 

~r~ 

56"! 2 

Tr” 

04 ‘^'4 





06,2462 

0 

0006 

1 

04 95 

REF 

1 



06 f 2463 

1 

5333 

0 


FB-ANK= CniITNO 
7CAnB CA+FCH 


NOGIHRUN CAF HTr6 

TCF SETGLnCK 


-1 ‘ CAP ZTRH 

SFTGLOCK AD OSPTA5 4-110 

TO5K [HTF 

'EX TEND 

BZF GtOCXOK 


TURN ON GIWBAt LOCK LAND. 


SEF IF PRESENT STATE. GF GIMSAL LOCK LAMP 
AGR E ES W IT H D E STR E O STATE B Y HALF A GOTNG 
THE TWn. 

OK AS IS. 


0496 

o-p • 

7 L71ST 

148 

06 t2464 

7 10 36 

1 


MASK 

04 RT 

REF 

13 LAST 

147 

06 » 2 465 

10 000 

0 


CCS 


TPr^T: REF I 0'6, 2466 F Z50? O TCF 


04 

PFF 

15 

LAST 

148 

06,2467 

3 5012 

1 

CAF 

T)3'0D 

“RTF 

1 6 

LAST 

1 43 

06, 2470 

~T~rT7D 

n — 

MA5X 

0501 

^ tF 

1 4 

LAST 

1 4B 

0 6 1 247 ] 

n 000 

0 

res 

0502 

REF 

2 

LAST 

143 

Pf. , 2472 

1 STBS 

0 

TCF 


0507 -PF 3 LAST 145 06,2473 

0504 RFF 17, LAGT 148 06,7474 

71505 PPP ' T3 CTTST 153 06.247 5 

05 06^ RFF 9 LAST 146 06y7476 

0507 ’FF 1 06,2477 

0500 TO TASl 158 06 ,2500 

0^09 REF 3 LAST 145 06y?501 


4 r056-t - -GtINVERT CS 


7 50t2 O — MASK 

6 5001 0 AO — 

5"'0?6 0 XCH 

7 2164 1 MASK 

7T» O 35“I 405“ 

I 5533 0 TCF- 


OSPTAB 4-110 
A 

glamrtst 


BIT6 

T MD0 ES 30 

A - 

GLOCKOK 


OS'->TAP 4-110 
BI T6 

R tT 15 

nSPTAR 4-110 
OCT37737 
OS P TAB RllO 
Gl nCKOK 


IF T1RF, OONT TURN ON IF IMU BEING CAGED. 


T URN O FF UNL E SS 



* 


IMV61^T GtHBAL LOCK LAMP. 


T O t N OI CATE CHANGE TN D5 p TA:» 


OTTCr TTF 1 On* ? 5 02 — 0 2750-1 GLAM PT S T Tt LAMPTFST T VW OFP UNLESS X AMP TfST IN P R OGRESS. 

A LAST^ lAR 06,2^0^ 1 5*^'^ 0 TCF GLOCKOK 

051? PEF 1 “ - 06-f P‘304 1 247 3 1 TCF GLINVfPT 


O 13““ 
05 lA 


0/v,Pn05 63434 1 -ZODEGS DEC -.3^883 -70 WG^^FFS SCALED IN HALF-P E vdluT I ON 5 . 

06,3506 75252 0 - 1 50EGS DEC -.08333 


TGC" iJCr'JfiH ■ ITIM ANCHh BY NASA ^^021113-051 


TDSZB" APo. rri 969 


trr? — pAt;F — 


T41> GPT PR”GT;1<W 


USFR^ S PTTGF NO . 


eo S3 


P05T5 


PROGRA’^^ MAMF: TL T« 


“PT) 5 io 

RTJFIir 

R0520“ 



DF'SCRI PllUN ; mis PkU'GAM MAItNIAlNS T H E TF MP LAMP fHr T ~4 O F CH ANNFL TTT 'ON TH E 0 
THP TEMP SIGNAL FROM TH" TSS (BfT 15 OF CHANNEL 30). HOWEVER* THr^lTGHT VflLL NOT RF. TURNED OFF IFoA LAt^P TPST 
IS IN PROGRESS. 


CALLING SEQUENCE: CAt.LEO BY IMUMON ON A CHANG 


OF BIT 15 OF CHANNEL 30 


“~RT)5^2 


R 0 5 


n -f 

9 


R052A 


JOB S OR T ASKS INI I ITTF^r “NOTIE 


SUB'^nUTIMFS CALLED: LA^PTFST 


EPASABLF INTTTALI Z ATTON : 


FRFSH START AND RESTART TUR»« TEfT TEMP LAMP OFF 


TOT OF 
R Ob p 7 
R 052 B 

■ 0570 

■ 0531 


■0537 
0‘537 
05 3 A 


05 35 
0536 
TT53~^ 

05 TT 


0539 

05 A 0 


TTUAPMS: TEMP LAMP !UR^’'U ON WREN TMll TFMP GOES 0 


FXIT: NXTIFAIL. 


output: SFRVICF OF T"^mp i AMP, 


PTF 

“ 1 



of; 2 50 7 

FEF 

5 

LAST 

146 

06 , 751 0 



nrr 

LAS 1 

143 

06,75 1 I 

RFF 

I 



06 , 75 1 2 

RTF 

7 

L4$T 

149 

06,2513 

Pf=f 

13 

L 4 S T 

147 

06 » 2514 





0 f 2 S 1 5 

h F 

1 

A 



06 , 75 1 6 

R FF 

1 



06,7917 


W tF 

3^ 

LAST 

14R 

06 ,7570 

R FF 

2 

LAST 

1 4? 

"06, 7521 


T 4777 0 
54 071 O 


3 501 A 
0 0006 
05 011 


1 

1 

T 


1 22^ r 0 


rrpTBO 1 
1 2227 0 


11^320 
1 


TT 

0 

1 2520 0 


rmt 


TFM 


MASK 
TS 


TCF 

TCF 


LTMIT5 


POSMAX 

RUPTREG2 



TEMOOK 

Ti HP till' 


CAF BIT4 

EXTEND 

ifm: 

TCF NXTIFAIL 


TCF 


lampt f st 

NXTIFA IL 


IN A. EXCEPT FOR TL!M. 


R FA O V 
OSKY 



WORD D f CHAN G ES 
LAMP ACCORDINGLY. 


TURN ON LAMP 


r f T^F M P N ON D O N T TURN O ff L A>H> fF 

LAMP TEST IN PROGRESS. 


05TT 
054P 
0543 
054'^ 


REF ■ IT L A ST r43 


O 

t-f 


FF 
REF 


2 

3 


LAST 
LA ST 


149 


DS-f 2’^72 
06 t 25 2 3 
06,2524 
06,7525 


5014 0 
0 0006 1 
03 011 1 
1 7727 0 




RTT4 


EXTENO 

WAND nSALMOUT 
NXT tFAT t 


TURN OFF TEMP CAUTION 


I ON 0'^ : r>F- 



?^ttGkAM CMMANCHF:“'r^y”MASA ;^0 1 1 1 '-i- Ob 1 


TDI'ZH APr-?. rn^'69 COMATD r0T9 P AG F 150 


P01^45 


T4^Uf>T r^TTflG'^AM" 


PAG^ttlD. IB 


P R n f, R A M N A M C : T T I J P N OM . 


PO S3 


“R”0546 

R054B' 

ROSSO 

R055V 

R05S6 

'RTTSoT 

R055V 

R0561 


nm PROGRAM IS CALLbU HY 


^WirTTONrAT' 

RFOUESTT TS HETECTCT. iTTON ENTRY* TTITRITOTM CHECKS 


ON WHEN A CHANGH^OF B IT 14 OF CHANNEL 30 



N-DN 


A TiJRN-nTsT DECAY SEOUENCE HAS FATLEt)» AND IF SOt TT EXITS. 


IE OHt TT SETS BIT 7 OF I 
THE TURN=ON ■DECAY SIGNAL* 



0 TO 1 SO 


IF NOT, TT CHECKS WHETHER THE TURH-DN REgOEST CHANT?E“ TS TO ON OR u 

TTTA T^TNETn^ T WTTC “I^/n'rAT^'' THE ISS I N I I 1 AL I ZA I lUN SEQUENCE. pP OFF* 

IP* IS CHECKED AND TF TT ISXrJ. ITURNGN HXTTS. TE THP DECAY SIGNAL TS OFF, RROORA^I ACARH 00207 IS ISSUED, BIT 2 
HE IMODESBO IS SET TO I AND THE PFQGRAM EXITS. 

(-fqp- 15 -fryTi N/; 'nT- ■ 


rrT~?'“aF'“rHUDtS 3 o (iss delay seoufnce fail) 


HIS R O UT I NE AND I WUOP FROM 


PRETCESSTNO ANY CHANGES 
ENDS. 


THIS BIT WELL RE RESET SY THE TNOTNON ROUTINE WHEN THE CURRENT SO SECOND DELAY PERIOD 


R0P6F CALLING SEQUENCE; FRED I WHEN ISS TUP N-OM" RFQUE ST CHANGES STATE 



R0P64 


R0P66 

R056B 


R050D 


R057R 

r-OETA 


J IB'S “rnF'XASKS“i n 1 1 1 a i lui — none'. 


SUBROUTINES called: ALARM, IF THE ISS TURN-ON RPQUEST IS NOT PRESENT FOR 90 SECOMOS. 


ERASABLE INIT! ALTZATT'-'N: FRESH START AND RESTART SET BIT 13 OF CHANNEL 12 AND BITS ? AND 7 OF IM0DES30 TO 0, 
AND HIT 14 OF IMOOFSBO TO 1 . - ^ 


ALARMC: PROGRAM AllARM 00207 tS IN 



THE ISS TURN-tlN REOUEST SIGNAC IS NCT PRESENT FOR 90 SECONDS. 


ROSTT EXTT 


NXTTFrrt 


nUTPUT: BIT 7 OF IMOOESBO TO START ISS IN I T I AL I Z AT I ON * OR fj I T 2 OF IMODESBO AND PROGRAM ALARM 00207 TO INDICATE 

F A n," U TOR TT- n N S F CJU E A' C F . 



05T5 

REF 

1 1 

LAST 

142 


03 (b 

' REF ■ 

1 • 1 

L AS 1 

1 4 -J 


GET7 “ 

■ REF 

1 5 

L A ST 

14B 


05 7 3 

'REF 

4 

L AS T 

1^9 


0570 - - 

REF ■ 

20 

LAST 

143 


033G 

REP 

1 

LAST 

150 


Q F 


^FF 


1 


OS ;2526 
TToTZSTT 

Go ,2530 
Go, 23 3 1 


M 6 * 2 ^3 2 
06 * 25 ^ 3 
05 ; 2 SG 4 
05,2333 


3 301 6 G 
T 1320 0 
10 0 00 0 
1 2221 0 


3 3002 0 
7 1320 G 

G~00 n6 1 

1 2551 0 


I THR^NON 


CAF 
M A S K 
CCS 
TCF 


B1T2 


NXT I FA IL 


CAF 

MASK 

e x tend 

SZE 


BTT14 

IMODESBO 


ITU<>h»0N2 


IF DELAY REOUFST HAS GONE OFF 
PR E MATURELY, 00 NOT PROCG -S G AN Y CHANG E S 
UNTTL THE CU^^ENT SEC WAIT EXPIRES? 


SEE IF JUST ON OR OFF 


IF JUST hm. 


U 1 O J 

05^4 


0590 


05 T2 

0 5 9 1 


TE 14 L2\GT GTr 


05 85 


LAST 

1 

05 8 b 




05 27 




05 85 

- 5 - 

CAST 

] 50 

05 f>9 

7Ff 12 

\ AST 

T 50 


L F 
TEF 

RFF 


2 

“57 


LAST 13D 


LAST 150 


GoG5r5TS 
06,2537 
• 2 5 4 0 


06-425^ 
06v?542 
05 , 3 


3 5001 O 
0 00 06 1 
02 Gt^- O 

n 0005 t 

I 2t>AA 1 
] 2-2 2 T - G 


G5t255f 4 
0fri5^545 
5465 


03 ,23 4 7 
02 , 2350 


3 50C6 G“ 
2 ?* r>G G 

0 5650 1 
GG-2tT7 1 

1 2227 0 


CAP — — 

EXTEND 

RA-NO 

EXTEND 

BZF 

TCF 


Bf T15 


CHAtU2 


CAT 

ADS 

YC— 

nCT 

TCP 




MXTIFAIL 


I T-2 ~ 

I 30 

ALARM 


2 07 

NX r f FA ft 


IF DELAY present DISCRETE HAS 
SENT. IF SO, ACTION COMPLETE. 


BFEM 


If^NOT, S-T BIT TO INDICATE REQUEST NOT 
PRESENT FOt> fHLL DURATION* - 




iSTeN'!^LF «!=vrslnM O':? dP Pr<nr,(<AM (;oMAWCHF"5Y NA?A 2021113-051 


10J28 APP. 1.196'? CUMSTIT 


xrz9 — FTfiTE — r~ 


L 


T4PUPT rjmTA>T 


USEP » S 


rm. 19 


EO S3 


0594 TTEF 2T ■ XAST “ "13T) T)E , 259r '4 X37D‘X) “ ‘‘TTUFNm? CS IMnr)ES3T) — SET 5 ITT TO -mrtTC AXE W4IT OP 1 SAMPLE 


0595 REF 13 EAST 142 Crffrr55 2 T ^Xr 0 MASK 3 ITT 

"0595 TTTF TZ XXST T5T 05,2553 — 2M320 0 BTIS r TOT T ES30 

0597 REF 7 LAST" 150 06.2554 1 2227 CT TCF NXTIFAIE 






rVlSTD'N'Ob^S llh A(,C CMi^ANCHH BY NASA ?0^11I ~ 5-05l 


1 0; ?8 AP ^ . 1 tl 969 



L T^"UPT PnOGRTi^M — USFR.*^ 20 PO S? 


P05^B PROGRAM MAMF: TMUCAGF. 


RW 99 

R060I 

R 0603 

■"■TrOF,lT 5 

R 06 a 7 


FUNTTriNT^L T^RIS PROGRA^^ PRUCbSShS CRANGT^ G'^ T HT I WUCAGE IN3 II « 30 BI T II. IF T HF B IT 

CHANGES TH 0 ( CAGE BUTT OFF ^PFSSFD) • THE T^S TS^XAHETJ TtCDir TERO + COARSE ALIGN NO ATT LAMP) UNTIL THE 
ASTRONAUT SELECTS ANOTHER ^GGRAM TO ALIGN THE ISS. ANY ^ULSE TRAINS TG THE ICOU^S ANO GYRO* S ARE TERNINATfO, 

T REUVSSTTCT TTTnT'nUT CUUNTh S'"ARh ZbROT^D AND THE’ GYRLl > S ARE DE-SELFCTFU, NO ACT IO N D C CURS WH ^^ N T HF "BUTTON I S 

RELEASED ( INBTT CHANGES TO I), 


R 0 6 OR C ALT TNG GEHITENCET ” BY ' T ’^U^TOfr -WHEN TMU CAGE SIT CHANGf 

R060R JOBS OR TASKS TMTTTATtn: NONE. 


ROSIO SUBROUTTNES CALIEH: CAGFSUB. 

RDSl 1 AETE~TNTTTAT T / All JM FRR SH-'ETART ~ANT)' RE51AR! SPF Bll 11 OF TMODESBO TO 1 


R0613 alarms: NHN^. 


R0614 f^XTT: NXTIFAII 


^ 06 T 5 


rrUTPHT : 



CTrG!-0» COUNT 


“PUT 



0 ^ 


R tTI NAT TU- AUD- NG- - A TT" T ' A M *> t ! T 


06 17 REF 16 UAST tTiO OA. 2S35 1 0 GGO C IMUCAGF CCS HE 

“UFT3 ^FF" -r~— Go, 2SSS 1 73SA G T CE USS T E Rf! 

06TR RET 1 0C.R657 4 2'’62 1 CS OCT77000 

0620 06,2350 0 0005 1 EXTEND 

"0671 REE T~~ " — 070,2561 03 014 1 — ffANO CHA N14 


NO ACTION TE GOING OFF. 


TERMINATE ICDU.OPTICStGYRO PULSE TRAINS 


062? REE I 06,2567 4 7757. O CS nCT272 

(JE'^'T 06,2563 O' 0006 1 EXTEND 

0674 R’^E R T.AST 150 05,2564 03 UTR I WAND CHAN12 


KNOCK DOWN TVC ENABLE, fMU ERROR COUNTER 

ENABLE, tERO tCDU, CO ARSE -AtTW 

ENABLE, OPTICS FRR CUTR ENABLE 


On675 ^^TE rAr~X7rS1 1746 07777333 4~5n03 U ' — CS QIT13 T U R N OEE E - NGINE 

0675 06,2536 0 0006 1 EXTcNEi 

0627 - 3 j 06 , 75&7 03 01 1 1 WANO OSALMOUT 


0623 ’EF 1 06,2570 0 2725 0 TC CAGFSUBl 


0679 RIEF ^ LAST HfT 06 " , 25 7 1 — 0 - 4 T 40 0 NX I MN *< -r * , t ,L KNOCK DOWN TRACK, RF E SM M AT, DRIFT ELAG -S 

06^0 RFC 1 - - 06 f 25'^2 T 7060 1 CAOR “ RNET'^EFOR — ^ 


ZERO ZERO COMMAND OUT"COUNTEP S 

CflUXCMD ~ 

CDOyr.MD 

C Bit Z C N 0 

GYROfMG 


0631 'PEE' ■ ■ 5 — L AST PT? OG , 23T3 4 5021 0 CS 

063? opE 1 06,2574 54 050 0 • TS 

0633 REF 1 06,2575^ 54 05t-l TS 

0634 '^TE 1 06,2 576 54 05? 1 TS 

0635 1 “ ■ S^^r-O^ 7 O TS 


UfTO'. 
063 7 

06^3 


- rr-t^ 1 063 760 0 

06,7601 

'"’-F 2 LAST 152 f)6,'»^-02 


4 77 61 — 1 ^ -n c TTAO 

O 0 006 ) E 7 >T*.Nn 

0>-013 1 WANO CM AN 1 4 


HAVING WAITED AT LEAST ?7 MCT FRO M 

GYRO PUtSF train TER-M INA T T 0N, WE CAN 
nF-SFTEe-T THE GYROS. " 
























(.1 A P I 

.4 S f" M L t: R E V I S I U N 0 b b < 

riE AGC PKE}GKAf^ CU*^ANLHE"B'Y NASA 201:^1113-0^1 

10ii»8 APR. 1.1469 

"COW A ID 

". 02 9 — PTST;? 153 









L 

“T 4 K u Pi PTIT? GR 


USER *5 RAGE 

— 2Tr 

' EO S3 


“ — — i"% — 







T3^3 9 

^ EE 8 LAST 151 

05 9 76TT3 r 2227 X) TtT ^XTTFTrrt. 







* 






I 



gap: A'tiSrMGL^ a-VISIUM ObS Mh A'U. PRdGKAM C’lMANCHb 


NASA 2021113-051 


Tt ) :23 APR, rtl96 < 9 C OWA TD 


1:5^ 


T'^TUPT TK'OGPA^'' 


PI^XTE m, 22 


€0 S3 


P0A40 program NAMF: TMUnP”, 


R06TI “ n JRGTTWATT' n E SC R 1 PT I UN : IRIS PROGRAM PRUCFS3"ES 'CHANUbS i N THE I S S OPFPA TE DISCRFT F t B IT ^ ' O F CHANNFt 30, 

R0643 IF THE IN BIT CHANGES TR 0 . rWDTCATTNG I SS OTTT TMUOP GENEP Att Y SETS B IT 7 OT TMODEBBtr TO 1 TO REOOeST TSS 
R06AS INTTT Al T7 ATTPN VTA TNOAITEST. AN EXCEPT TON TS DOPING A FAILED ISS DELAY DUPING WHICH BIT 2 Of IMOOES30 IS SET 

”^06 47 rD“r~ANa MiJ FtTRIHEP INI! 1 AL UA nON IS REQUIRED. WHEN THr TNBI T CHANG E S TO "lf I ND I CA TI NG T SS O FF* I MUS E ELG IS 

R064P' TESTED TH EEE ANY PROGRAM WAS OS F^IG THE TSEV ^TE SO. PROGRAH ALARM 00214 IS TSSOED. — _ 


rALLfNG StOUENct: BY T MUMUN WHEN H1T^ P'~0F XHANNEL ^0 CHANGES. 


R065? JOBS OR~T ASKS INITTATED: NONP. 


P06E3 S’lBRnOTINES CALLED: ALARM. IE TSS IS TUPMED OFF WHILE IN OSE. — 

R0654 EITATSAmT^ 1 N l ! 1 A LTZ'A IT 0 N : 'TTTRFSH START ANU KbSl AR T , B IT 9 OF T M0D E S30 TS S E T TO I EXC EPT WH E N T HE GI M BAL LOCK 

R06B5 lA’^P IS HN, in WHTCH CASE IT IS SET in 0. THIS PREVENTS" tCmt ZERO BY TNtlNTEST WITH THE fSS IN GIMBAL LOCK. 


ROBBO^ ,TLARErST“ PKOORTVM^ ALARM 002 r 4 IF T H E TS S I S TURN E D ^ FF WH I L E T N US E . 


R0659 EXIT: NXTIFAIL. 


RDBfeO OUTPUT: ISS INIT T AL I Z ATION REDOEST ( rMOCrESMO BIT 71 OR PROGRAM At ARM 00214. 


D^7 — ^ Oo , 2604 

0663 PHF 1 ““ — 06, 2 6 OS 


0664 


ID " 

LAST’ 

rT6“ 

06 .7606 

~ 066 5 

REE 

17 

LAST 

14R 

D6,?607 

" 0666 

“REF 

11 

LAST 

1B4 

06.26TO 


0 0006 1 1 MUO P EXTE ND 

1 2^26 D D^ZE IM0nP2- 


7 1321 1 
7 5012 t> 
27 • 32t“r 


MASK 8IT6 
-ADS IMOOES33 




WAIT 


t S A M PLE - . 





4 


“ 0667 '’EF 6 LAST 152 06,2611 0 4760 O TC H^NKCALL KNOCK DOWN TPACK* PEFSMMAT, DRIFT FLAGS 

0660 HEF 7 LAST 152 06-r?612 1706<7 1 C ADR RNOREFDR 


066^ REF" 2 LAST 142 06.2M3 4 ^757 1 

0670 '-EF 16 LAST 1 A4 06,2614 7 0074 0 

TJ5TI (TFT^ rr LAS r~T54 06. -2 6 1 5 — 5 6 '07 4 T 

0677 06,2616 4 0000 0 

0677 RFF 3 LAST 144 06,2617 7 5010*1 

OFTsr ^ 17" LAST — T57 06,7620 10 0 00 0 

0676 4FF 0 LAST 133 064 2621 1 *2227 0 


CS 6ITS7S8 KNOCK DOWN »FMDFV6t)5, IMinJSF FLAGS 

i^ASK STATE 

*XC7I SWLe IF GOING O FF . ALAR M I F PROG USING I MN 

COM 

MAS*^ IMIISFFLG — 

-CCS A 

TCF NXTIFAIL 


0676 RTF 3 LAST TSC fT6~r2t> 2 2 0 565 0 1 TC ALAR" 1 

0677 06v2t>23- 00214 0 TtCT '2 LA 

0673 CCF 10 LAST 154 06,26*24 1 2227-*0 TCF NXTIFAIL 


0679 

06D0 


13 

t ASD 
EAST 

150 * 
t51r 

— i36-i 2'>25 
06 v26 2 6 

0631 

EF 

■■ I'B ■■ 

LAST 

154 

06 , 2S2 7 

06>]? 

- RFf 

11 

LAST 

1 54 

—04.2630 

0633 

REE 

? 

LAST 

150 - 

06 .26 3 1 


3 501-6- C *+MU0O2- -eA'F- BTT2 S-FF fF- EtML^O ISS TURN-ON SFO IN PROG. 

7 1*3 20 0 MASK IMOOFS30 

1 0 000 0 CCS A 

1 227? 0 TCP NXTIFAIL ■ If S‘7. OONT -RROCeSS UNTIL PRESENT 90 

1 -2551 0 TCF ITIIPNON? SECONDS FXPIRFS*. 


7TAP 


ASSfMHLf ftEVI<;iDM 



A’rcn.MANCHfc ?Y MASA 2021113-051 


TTJrZB APR. 1, lV6y LUMA ID TXTTJ PTtTJP 1755 


- ■'■pfRirPT "^n^RTTM 


P AGE "WO. -^3 TO S3 


PTJ6RA PRT!C'.PAM~NrAKFT PIPFATL 


"R06S5 LUNCi iUnal (It 5L K"I PT 1 UU : rHlS PKUGUAM P“'JC^SSES C'HAi'jGhS »l I 13 OF CH ANNEL ii, P IPA F AIL. TT SE T S 3 TT 10 OF 

R06S7 ^ TMOPFSSO TO AFREr. IT C ACTS" S*^TI3SW TT'f CASrS A PTPA FAIL NFCESSITATTS AN I3S WAWTNO. IF NTTiT. E. TH0t)€S30 
R0689 PIT 1 = I , AND APTPA FATE TS PRESEMT"ANP^E—TSSTS NOT BEING IN I T I ALT ZED . PROGRAM ALARM 00212 IS ISSUED. 


“"R069I “ CALLING SEQUENCE: BY C33TEST ON CHANGES OF CHANNEL 33 BIT^TTr 


“ROSOP JOBT'OH TASKS INITTATEO: NONE. 


R0693 SUBRnUTINES called; 1) SETISSW, TtND “ 23 " A L AP M tSFE FUNCTinNAL DESCRTPTTON) . 


P069S ERASABLE INITIALIZATION: SEE IHUMON FOP. IN IT T AL I ZAT ION OF TMODEG-JO. THE REIAVANT BITS ARF 5 . Tvtrf^, AND 10. 


KU6N/ alarms: P R O G E AWALARM 00212 IF P I P A F A T L ~1 S PRESEN T BU T NE IT H E R I SS WA R NING I S TO B E I S S U ED N OR THE tSS IS 

R069F BEING INTTIALTZEO-. — — - 


ROTOG exit: ‘NXTFL3TT 


R070I OUTPUT; PROGRAM ALARM 00212 AND ISS WARNING MAINTENANCE. 


0702 


10 

L/rST 

154 

06,253? 

TO -DTJO 

0 ■ ^IRFAIl 

tcs 

0T03 

Rt F 

1 1 

LAST 

TS4 

06,2633 

3 5006 

1 

C AF 

077T^ 



L ft JS 1 

154 

06 » 2 6 3 4 

57*320 

“3 

XCH 

0705 

R F F^ 

1 

r ; - ' 

■ — — ■ 

06 ,7535 

7 2T63- 

tr 

MASK 

" 0706 

REF 

?5 

FAST 

155 

06,2636 

27*320 

tr 

- ADS 


■^EF 








0707 

2 

L AST 

143 

^6 , Z6^T 

0 2665 

0 

TC 


GTm REF Z6 CTLSI 153 DCS p 5 AD A'T3'2'0 0 CS 


070T 

' "R FF~ 

13 

LAST 

&3 

06,2641 

T 5crrT 

0 

MASK 

^ 0*^10 

RFF^ 

20 

LAST 

155 

05, 26 A 2 

10 ooo 

0 

CCS 


DTTT RFF r 0577553 1 2A2S 1 TCP 


0712 

RFF 

27 

■ LAST 

155 

U6 f 7644 

T 1320 

1 

CA 

0713 

RTEF 

1 



06,*^ 545 

7 2760 

0 


0714 

R FF 

21 

LAST 

155 

06 , 2 645 

10 000 

0 

CCS 

0715 

RFF 

2 

L AST 

155 

06,26^7 

1 242 5 

\ ^ 

TCF 


071S REF 4 LA"ST 154 TO, 2531:) tr-565tr t TC 

0^17 “05^3651 002T2 0 OCT 

07TB 5EF 3 LAS T 1 5 5 06, 2652 1 2 4 2 5 1 TCP 


A 

BITIO 

IMOrjESBO 

-SITIO 

IMOOF-SSO 


SFTISSW 


■TMnOES3'7 

BITl 

A 

NXTFL33 

TMnDES30 

DC T 1 7 20 

A 

NXTFL33 


ALARM 

2L2 - 

N X TFL33 


SFT BITIO IN IMOOESBO SO ALL ISS WARNING 
INFO IS IN ONE REGISTER. 


A PROGRAM ALARM IF I MU OPERATING BUt'nOT 
CAGED OR BEING TURNED ON. 


ABOVE CONDITION NOT MET. 



UTCTST 



r 


P071P 


A072Z 


1 n R" 0 5 OP AUC PkMGUa'’^17J'MANCH(- BY ZiJAllli-Obl 


rnTZB~svTr: — tttw? — comaid — rozg — frAtrE — r^e 


T A RII ?T Tn?D GR 571 


TIER’S ’’AGE NO 


2A 


f O S3 


oRnGTTAM NAMES 


ONTMFAST, UPTMFA5T 



□ NAL nFSXRI PTIPTr: ~IHFSE PROGRAMS PROCESS CHANGES OF B IT S 12 AND 11 OF CHANN E L 
0, A PROGRAM ALARATTS TSSOFO. 



R 07 73 RTT ALARM C AUS F 

ROT? A — ______ 

R07?5 12 01T05 DOWNLINK TOO FAST 

■RXrr?^ IT OllOF UPLINK 100 FAST — 


R0727 CALL ING SFQUENCF^' ^BY“C37TFST OTJ- A T CMANOfv 


"R0723 SUBROUTINES CALLED: ALARM, IF A BIT CHANGES^ A O. 


RT5727 LRASABLfc “INTTI AET2AI I UN : F R E SH SIART OR R EST AR T , B IT S 12 AND 11 OF I MrT r iES33 


R0731 ALARMS: SEE "FUNCT lONAL DESCR I PTION. 


R0732"' EXIT: NXTFL33 . 


ini733 nUTPUTl— PROGRAM A EARW ON 5 B IT CHANG E T O 0. 



07327 REF 

0735 RFF 


0736 REF 

077T 

073 5 ’’FF 


D75T REF 23 — EAST TOO O g. E SO 'O' I D 000 0 — U PT M F A5 T CCS 7\ SAWF AS DNLINK TOO FAST WIT H- DI 

07270 REF 6 LAST 15 6 06-72f.M I 2423 1 TCP NXTFL33 ALARM CODE. 


TC alar H — 

nCT 1106 

TCF NXTFL33 


074T RFF 6 — ETST 756 06T2667 0 56 5 0 I 

0742 - 06.2663 01106 1 

0743 7EF 7 LAST 156^ 06,2T.64 1 2425 1 


22‘ EAST" 15 5 06.-2653 1 0 0 0 0 tl — ONTMFAST CCS A 00 PROG ALARM IF TM TOO FAST. 


4 CTIST 756 0 6 ", 7 6 6 4 1 247 5 7 TCF 


5 LAST 155 06,2655 0 5650 1 TC AtA®M 

06.26 5 5 01105 1 OCT 1705 

5 LAST 156 06,2657 1 2427-1- TCP— NXTFL33 




ASSEMBLE 



055 OF AGC 0'4f1GPAM C'JMANCMfc UY NASA ^>02 1 1 1 M-Ub I 


lUJ<ia APU. 1,14 69 COMAID r079 FTHTE r5T 


TA!7'1PT PTiOGRflM 


fJSER>*^PAOC NOT ~Z^ 


PO 53 


POyr^cT' ppOCPAM NAME: SETISSW" 

PTm'E FJ Ml TTO N .AT. Ob SCRI P 1 1 ON : ~THI S PROCPJM TURNS IHE ISS W A R TnP i G LAM P ON AND OFF (CHANNEL 11 B II — 1=1 FOR C I N, 

OOTzrr- 0 TOP OFF) DPOcNOrNC rmrn-Hr ’5T5TOT5 HP IMOtrrSOO BTFi ir ( 1130 FTVILI AND 4 (TNNIBIT 1 MU FAIL!. 12 ( I COU FAIL! AND 
R0T4Q T (INHIBIT TCD'J FAII.), .AND 10 (PTPA FAILT A^fO I ( INHIBIT I»tP A FAIL). THE LAMP IS LEFT ON IF A LAMP TFST IS IN 
P 07M P’^DDTTFFF.' 


R0752 calling SEOUEMCF: CALI PD BY IWJMON ON CHANGES TOIMU PAU AND ICDU FAIL. CALLED BY IFAILOK AND PFAILOK UPON 

R 07 5 A TE HOVAU' 'TF ' THF' FAT L 1 NH I rt I I S . CALLED BY~ PTT’T^T t ~'W H E M T H E PIP A F A I L D I SCRE TE CHANG E S. IT I S CALLE D BV PIPUSE 

707G6 SliTC^ THE PTPA" FAIL PROGRAM ALTTRH MAY MECESSI TACTF "AAf TSS ’RAPNING. AMO LOFFWISF BY PtPFftpE WHEN THE ALARM DEPARTS 

R07B3 AND IT IS CALLED BY IMtirERnO AND TSSOP AFTER THF FAIL INHIBITS HAVE BEEN REMOVED. 


R0760 JOBS DR TASXS INITIATFO: NONE. 


FDTST SUBROUTINES CALLED! NTTHES 

R0762 erasable T NI T T AL I 7 ATI ON : 


P07S3 1) 1M00FS30 - SEE IMIIMON. 

R07f'4 7) IHODES33 BIT 1 = 0 (LAMP TEST MHT IN PROGRESS). 


R0765 ALA''MS: ISS WAR^^I^tG. 


R07f, s "" rXrn " VTA Q . 

P0767 OUTPUT: ISS WARMING LAMP SCT PROPERLY. 


076B REF 1 D6,2663 3 5073 0 SFTTSSW CAF OCTIS 

OR"-R REF 7P LAST "165 D6.2566 7 1320 0 MASK IMrTDFS30 

07 7 0 ~ ■ 06,2667 D' 0006“! EXTFND 

0771 — ref 12 last 155 06,2670 7 50D6 0 IMP BITIO 

0772 "P,EF 29 LAST 157 06,2671 3 1320 1 CA IMDDFS30 

TT77T 06,2672 0 0006 1 EXTEND 

077 RFF 5 LAST 145 06,2370 04 001 T FOR tCHAM 

0773 06,7676 0000 0 COM 

0T76 RFF r “ '06, 7675' T 5067 1 MTTSK O C T ISO DO 

0777 RrF 74 LAST 156 06.2676 10 ODO 0 CCS A 

0778 REF 1 t)6,267R 1 2710 1 TCF ISSWDN 


SFT ISS WARNING USING THE FAIL JITS IN 
BITS 13. 12. AND 10 DF IMDDES30 AND THE 
F A I LUR E I N H I B IT BI T S TM P OSIT THNS - 
4. 3. AND 1. 


0-tNDICATFS FAILURE. 


FAILURE. 


0770 REF 1? (.AST 1*^5 06. .2700 3 6017 I ISSWDFF CAF Pill DO'>tT TURN OFF ISS WARNING IF LAMP TEST 

0730 ’’FF 12 LAST 154 06, 2701 7 1321 1 MASK IMnDFS33 IN PROGRESS. 

07 FT rpr PM — LAST TTT 06 ,2702 ID O D D 0 CCS A 

07R2 -REF -3 LAST 135 06,-2703 0 0002 0 TC 0 


"0783 PTF rs ntST TM7 06,7704 4-50T7— 0 CS” ~ BT T 1 

0784 ■ 06^7705 0 0006 1 '^XTEAfR — 

07H6 -RE- 4 LAST 152 Mr5,,'706 03 011 1 WAND DSALMOUT TURN OFF ISS WARNING 

"OTBS REF 4 OTtST TST 06,. 7 7 0 7 O- 000 2 0 TC a 


0787 


O'), 7710 0 0006 


ISSWDN EXTEND 


ASSEMBLE fteVlSIONl 'C)5^ OF ACC PROGRAM CUM^MCHt BY NASA 202iri3-n'51 


ia5;^y amh, — rrrrs ^ — com at d 


xrz^ — — tss 


c 


TZi^TTUPT pt^QGRA^I 


07571 

07872 


PEF 

REE 






1 

1 

r^f 


OTTI r5T 


07 BB 
078'^ 

0791 

07^2 

■0T9T 

OTE?? 

07'“5 


"RFF 



IN 

P 


5 

7 


LAST 

OST 


TITF 


r r 


u 
RFF 


rAET 

CAST 


T57 
1 A3 


OT75" 

— TEF~ 

T O ■■ 

~r.wsrr 

0797 

REF 

11 

LAST 

0718 


1 


0799 

^ REF 

12 

LAST 





0800 

RLE 

30 

LAST 

08 01 

REF 

I 

- 

0802 

REF 

31 

LAST 


jjmj 1 


1 

LAb 1 

Dd04 

ITEE^ 

18 

EAST 

0805 

REF 

~T^r~ 

fAST 



REF 

5 

1 AST 

^ 0307 

P EF 

3 

LAST 

0808 

■RPF 

4 

LAST 


IT8 


1 A8 


158 


r5T 


158 


157 

15A 

T58 


06V27IT 
DEV 77 1 2 


1167 ■^TTT 

0EV7 




22 066 1 
O 5764 1 
”3 501/ 1 
D 0X10 6 1 
05 011 “T 
O 006'6 1 

4 7703 0 
O 0006 1 
03 012 I 

3 5027 1 
0 0006 1 

05 012 1 

06V7TZ5 4 1036 1 

0'6VZT25- 7 2753 O' 

0672777 27*036 1 


QXCH 

TC 

CflF 


TTFHP6 
VARALAR»M 
BTTI 


4 

067771^ 
XV6 , 2 / 1 6 
Xr6,2717 
a6-t27?0 
TTFTTTTT 

067 7777 
0677T23 
06,7724 


EXTEND ^ 

won rrsALMDUT 


IX 

CAGEStJB— CS 


TTFTP6 


QIT15+6 

EXTEND 

WAND CHAN! 2 

“OAF BITS4E5 


EXTEND 
WtPr CHANl? 


CAGESUBl CS 
ITOSK 


OSPTAB +110 
GC40010 
05PTAB +110 


0677730 
06, 'M731 
06 •2732 


4^~T370 TT — CAGE SUB 2 CS 



7 2735 0 
27*370 0 


MASK 

ADS 


nCT75 

IMOOES30 



NO 


EO S3 


TELX EVEPYONr WHAT CAUSED THE ISSWARNING 


TURN ON ISS WARNING 


SET OUTBITS + INTERNAL FLAGS FOR 
SYSTEM TURN-ON OR CAGE. DISABLE THE 

I M U DEL AY CO M P 


SEND ZERO AND COARSE-V 


TURN ON ATT LAMP 



CAGING ORITUR N= ON 


5 E T F LA GS 

AND INHIBIT ALL ISS WARNING INFO 


D*7 773 
76,2714 
06 ••’715 


4"“1 32 1— t 


7 5012 O 


CS — 
MASK 


IM00FS33 

8 ! T 6 — — “ 


DXSABtE DAP AUTO AND HOLD MODES 


27^37 1 1 



157 -06,2736 0 0002 0 


Q 


155^ 


0 6 , 256 5 
06 V2665” 


-0 MtIF A It F OU A L S S E T 1 SS W 
^COUEAIL EQUALS SETtSSW 


AliSEMtlLF.' kF VISION 055 OF AGC PmUiRAM CUHAMLHl; BY NAb4 1 1 J-Uiii 10:28 AV**'. 1 ,1969 — C DWn i D 


L T4PII'’T Trt7n^i5TfRr - USFP*S'’1^H Ntn 27 


^ JU?1P TAfflTES" AMT'CONSTANTTV 


.029 PAGP 159 


FO S3 


"OTilD 7PT T 

0 8 U ' RTF * 1 

0812" "TfF 1 

0813 FEF r 

0314 

1TB15 RFF 1 


Ofc ,llil 1 2326 0 IFSrLTMP TCP T T URNON 

"064 2T40 1 266S 1 TCF I MUF A 1 L 

■06.2741 r 2665 1 TCF ICOUFAIL 

“OF, 2/42 1 2555 1 TCF I' ^UCAGE 

06.7743 76400 1 30R06SK OCT 76400 

05.7744 1 2504 0 " TCP TMUOP 


CHANNEL' 30 DISPATCH. 


LBTT IO NOT SAMPLEO MEPeF.' 


0815 REF I 

0817 “RTF 1 

OHTR RTF 1 


06.7T45 1 2632^0 -C330NP TCP " PI PFATL CHANNEL 33 OTSPATCH. 

06.2746 1 2653— 1 TCF ONTMFAST" 

05TZT47 1 2660 I TCF UP T NFAS T 


R0319 StJBPnUTTN e TO SKIP IF LAMP TEST NOT IN PROGRESS. 

0820 RTF' TS CAVT TSF 06.2 750 4 1321 1 CANPTEST CS I HnO E SSB 

0871 R"EF 15 LAST 158 "05. "2 751 7 5017 O MASK' BITl 

088? REF 1 06.2752 1 3065-0" TCF ?nPFIN3 



ES33 




! F LAN P TEST IN 


0823 .IFF 1 SOTO 33R0MSK EQUALS PRI016 

0874 06,2753 40010 I OC40010 OCT 40010 

-TJITZE 06.7 7 5 4 00 0 64 0 0CT54 OCT 54 

062 7 0647755 00075 O- OCTTT — OCT 75 " 

03?'8 06-47766 00772-0 0CT7-T7 OCT 00272 

"DoT R — 06,7757 00300 "I F TTS7 S 8 OCT 300 

0830 06,7760 01720 O nCTtT20 OCT 1720 

0831 06,2761 00740 1 0CT740 OCT 00740 

"O'ffTZ ttEF 1 5TT67 OC T 1 5 000 E OUSL 'S' F R T 015 

0333 — 06,2762 77000 1-OCT77000 OCT - 77000 

0334 — 0647763 76777 r -OTTIO OCT -1000 


0836 - 

0836 REF 

0837 RFF 


06,2''64 21460 0-90SECS DEC OQOO 

1 5771 120MS = 0CT14 (DEC 12) 

B CTTST 137 5333 CL O C K O K EQUALS R F SUWE 


^ 75 pT P 



ni^ ACX CilMANfrjRE'liY NASA ’^0 ^ il’l 3^"^ 


1 U !23 AMR. 1 , 19 f .9 CtPIATO TCTT^ 





4B 


(IP 



TUI 


O^FR»S PAGE NO* "TB — FO S3 


poe 39 

0839 


RHUTINFS 


RFF 



0H4T 

RFF 

7 

« 

084? 

^ FF 

14 


RL r 

13 

0844 

RFF 

?6 

0 8 ' 1.5 

REF 

1 


0846 

KirF 

1 


OB 4 7 


OS^'^ 

0880 


RFF 


0851 
0 85? 
0 85 


pEF 


0854 

0855 

0856 

0857 
0B5B 
OR 59 

0860 
TTRTa 
0862 
0 8 63 


RTF 
8 FF 

R 3 P 

* ^ 

~FF 


PTF 

^TF 


-^yf 


RFF 


DBFzr 

0 865“ 
08 5' 5 

0867 

086*3 

0 8 6 9 
08 7 0 
OHTT 

0872 


TFF 

RPP 


f^P 

S t— 1 

OFF 


RFF 

RFF 

FFF 

RFF 


o 


Z 

1 

14 

~T 


"5 


11 

27 


1 

I 

1 

I 

1 

1 


LAST 


I. 

LAST 

L7T5T 

LAST 


LAST 

LAST 


LAST 
T 


LAST 

LAST 


144 


130 

151 

1 57 


LAST 159 


LAST 160 


LAST' TAF 


160 

IFF 

1 T 7 

TSTT 


2 FAST IBTT 


06#?765 

0^42 766 
06^ ?76T 
06,2770 
06,27 M 


• 2772 
064 277 3 


06 ,“277 4 

06.2775 

06.2776 
0642777 
06 ,3000 


06.3001 

06 . 3 002 


06.3004 

06. 3005 
054 3006 
06 ,-3 0 07 
06 • 30irr 

7T0TT 


06 • 3 012 
"0 34 3013 
06 ,3 014 
T)6t3 0 15 


3 1331 
0 0006 

06 030 

7 5011 

■ 5 ^ 


1 

X 

1 

0 

X 


OPTMON 


0 70 

10 000 0 
0 3224 0 


11 •303 1 
1 3001 1 
XXTKTTX 
1 3001 I 
1 5333 0 


3 1331 1 

0 0006 1 
T)6"X33’X 

7 5027 0 

26 070 1 

23»331 1 

tr * 01106 ^ 

06* 00! O 

53 V331 0 


4 0000 0 
7 — 5027 0 
0 0006 1 
I 3022 0 


144 

160 


T)6 ,“30T6 
06 ,3017 
06,3020 

06, 302] 
06, 30? 2 



3 ■^716 0 
55' 318 1 


06,3023 11*315 0 

06, 30 '’A 0 3125 I 

06 X 3076 ) 

05,3026 *0* 302 7 1 


CA 

FXTETTT 

RICOR 

M^ASK 

xs 


OFTMODFS 


TC 


CHAN30 

B1T7 

RUPTRFGl 

A 

OCOUFTST 


3 3 OPTION 


res 

TCF 

TCF 

TCF 

TCF 


OPT ? NO 
+4 

3^3 


+ ? 

RFSUME 


CA 

cXTFNf^ 

RXOP 

MASK 

ADS 

TrXCH 

PXTFNX 

RXOR 


OPTNOOFS 


■CH7\N33 ' - 
OCTHIPXY 
RllPTRFOl 

0 p T M n rrtt 

ICHAO ~ 



COM 


cXTFFJf) 
O Z F 


O CT m -P TY 


S-XSAMP 


MASK 


SETSAMP 


CAF 

TS 


31 T 5 
A 

+ 2 

AtFGflNF 

SV^SAMPLF 


PROCESS^/ 


CCS 

TC 

“TC— 

TC 


Of SilPMOO 
CSCOfS 
M ANODES 


ZOPTOFS 


MnNITOP XPTICS INBITS IN CHAN 30 AND 33 


rotJK FOP ocmi fail sit change 


STOPr CH 



PROCESS OCOUFAIt BIT CHANGE 


BYPASS IF TVe TAKEOVER 


LOOK FOR OPTICS MODE SVITCH CHANGE 


STORE IN 8 IT CHANGES 


OPDATF OPTMOOFS * T O THOW 0 


SAMPLE CtlRRfNT SWITCH SETTING 


MANUAL-SET ZERO IN SWSAMPLI 


IE CSC 


CSC-"SET ^ WSA MPt F POS " “ 

ZOPTIGS-SFT SWSAMPLE <-l) 
CURRENT OPTICS SWITCH SETTIAIG 


BRANCH ON PREVIOUS 
CSC 

MANUAL — 

ZERO OPTICS 


SETTING 



OM 0^^ -'Tl-' ;^"GC PPUGKAV ‘BY NASA ^0 ^ 1 1 1 ^.-Ob i 


nj!28 AP'-!. I, 1^56^ 


.029 PAGE rerr 


TA^ IJO J 


U SPIN'S PACT NO. 79 


90 S3 


0^3 
OB 7 A 
CiFTS 

0876 

0877 


2 LAST 150 X)S;3 12T IT»31A 1 ^npTPPS CCS SWS AMPLE IS 5VTTCH STILL AT ZOPTTCS 

RTF ‘71 06,30'’0 0 3047 1 TC ^TOCSC NOW “AT CSC 

■pTT I ' " orrrrrm o 3 0 3 ^ 0 re zioman manual — 

^FF T 0-t^D32 0 3057 0 TC ZOPFIATT ZOPTTCS-S-CC IF ZOPT ^>RnCFSSINO 

">FF 1 06,3033' 0 3154 1 TC SFTOCSMn ZOOT NtJT PPOC FSSI NG-NO ACTION 


OF'TT PEF I 

0B79 '^EF 1 

OSSO RFC 1 


0881 REP — 7“~LAST T6T 06.3037 0 3057 0 ZTOMAN TC Z^lpFIMI ZOP TO MANUAL-IS ZUPT DONE 

OTR? THEF 7 LAST — 051 06,^040 O' 3T54”T^ TC SETOESMO Y ES -NOPMAL EXIT "" 


0883 PEF 7 LAST 156 06t3041 0 5650 1 ZOPAtARM TC ALARM AL ARM-S Wt TCHEO ALTEREO WHILE ZOPTICS 

D 8 ‘P 2 r rrsTTPrzr? ooiis i nci — — ooiis 

0EB5 REE 1 06,3043 3 5074 1 CAF 0CT13 PROCESS! MG- SE T RETURN OPTION 

Oe^6 - f’EF 1 06,3044 55*316 0 TS WTOPTTON 


06.3034 11*317 1 CCS ZOPTCNT ZOPT PROCESSING- CHECK COUNTER 

05.3035 0 3153 0 TC SETCNT 32 SAMPLE NOT FINISHED-SET CtlUNTEP 

06,30 36'“ 0 31 57 1 TC SETrOEND 32 SAM P LE WA TT CnM P L ETEr r-S E T~ ' U P ZO 


0 8^7 


EF 


1 


05,3045 0 3070 0 


TC 


CANZOPT 


CANCFl ZOPT 


083^ 


O 


0889 

03 70' 

0891 

0897 

OBOT 

0894 


0 8 CT 
0896 
08 ^^7 
Co'^R' 

0899 

0900 

0901 

0902 
U^ORT 

0904 

0905 


■^FF 

RFE 

FEF 

PEE 


LAST T6T 


9'5',3 04F — D™3154 1 


TC 


SCTTTECTrn 


K F F 

REF 


3 

1 

5 

F 

7 


K 

REF 

REF 

P'EF' 

OFF 

.’EE 


1 

16 

“6 

28 

10 


REF 

REF 

PTE 

H E F 

REF 


10 

7 

79 

6 

7 


LA5 


LAST 

LAST 

LAST 

LAST 

t. AST 


361 


06 ,3 0 4 7 
06, 3050 


0305 7 
0 3115 


6 4 
161 
T6t 
158 
161 


06.3063 

06 .3064 

•06 , T T 5 3 

06,3966 

06,3067 


0 

T 


ZTOeSe 


L A ST 

161 

06,9051 
05, 3052 

0 5 630 
001 16 

1 

1 

L AST 

LAST 

16F 

' 06 , 3063 




161 

tl6 ,3 O'a a 

0 

3112 

n 







LAST 

142 

0 5 * 3 0 5 5 

3 

FO 07 

0 



06 ,3056 

1 

3064 

1 

LAST 

15 ) 

06,3057 

3 

■ 1 * 

501 7 

1 

L ASF 

T60 

0 ^ ) , 3060 

F 

TT3T 

0 

LAST 

160 

06 r 3061 

10 

1 000 

0“ 

LAST 

160 

06.306? 

n 


1 


3 5015 0 
7 1331 0 


COAPSLT I K 


ZOPF IN ( 


^TPF I M2 



'>4 0 0? 0 
0 000'’ 0 


TC 

Ttr- 

TC 

OCT 

TC- 

TC 



CAF 

MASK 

C CS 

I NCR 
TC 


Z''PFINT 

M 


MANTUeSe 


■fftTP 

ZUPFIN? 

BIT! 

A 

RFSUME 


C7 

0 


BI T3 

OPTMOOFS 

A 


TF ZOPT PROCESSING 




ZOPT PROCESSING-ALARM 


C - A - NCEl Z O P T 

7EPO CNT-innK FOP COARS npj RETURN 


tT C OA R S ' CTT SINCE F S T AP T ^-GO"TO 
If NOT GO TO L+l 
SEE IF EMO ZOPT TASK WORKING 



ZOPT TASK W'^RK TNG-WAIT ONE SAMPLE PFRIOO 


TEST IF ZOPTICS PROCESSING 
RETURNS TO L^l PROCESSING 


L4»7^ IF NOT 


0906 REF 2 LAST 147 06,0070 4 6711 1 CANZOPT 

0907 REF ““8 LAST 161 06,3^71 7 1331 0 

0908 PTT" 9 LtrST r6T U6,3072 53 • 3 Tt— 9 _ 

090? PCT 17 LAST 161 06,3073 4 5017 -Q- 

OPTO OS,3C7^ O O006- I 

-L“FST 36,3075 03 Q12 1 — ^ 

0912 REF 3 LAST 161 06,3-076 0 000? 0 - 


CS SI X 

MASK OPTMOOES 
— TS — OP T Mt i n FS 

~cs - 61 n 

EXTEW 

W- AM O CHAN! 2 

TC 0 
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ZONF=3,-NORMj^ command 
GRAB SIGN OF ZONE 


GRAB SIGN SHAFT COMMAND 


SIGN ZONE - NOT FOUAL TO SIGN CP M«4 anO 
SEE IF O'" SORTS BETWEEN -90 AND +90 

A8S(DES0PTS > — 9 0 OFG 




« 




* 
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L 

T "VR U P T PT^TIG PAH 

^AGf NO. “56 

"EO S3^ 



1113 

111^ 

ITHT 

lllf. 


REF LAST~ 167 

PTF~' T"Ta^T TET 


TIEF 4 last 16 3 


1T)V2TI5 — 6 2120 0 
1012117 1 2tT2“0 

10,2120 4 1306 1 

10171:21 55»T0b T 


ST»rF 

TCF 

cs — 


+7 

CMDSETUP 
XD'^HANnO +l 

COMMAI^DO +1 



FIRST 


OR FOURTH TR I AD 


KE VEK5F 


REGULAR 



TTT7 RFF 2TAST 166 TO 1677 


40 


40P 



FAR PI 



1118 REF 7 LAST 166 10,2122 3 5017 1 

rrT 4 rrEF~‘ TT last' 166 ttttttzt — 53*303 i 

1120 REF 36 XaST' 167 10,2124 60 000 1 

1121 REF 5 LTTST 166 10,'7125 11*305 1 

1122 “651 1 10.2126 0 ~ 21 ' 44 1 

1123 REF 1 ltr,-?r2T 0 2151 0 

1124 PEf^ 1 ^10,2130 0 2161 0 

6125 R6F 2 DfST 168 10 ,2131 0 2151" O 


CMDSETUP CAP — QNE ^ 

TS OP I INU 

■mOEX A 

CCS COMHANDO 

TC P OSO P C ’ i lP — 

TC NFXTnPT *■! 

TC 7JEGnPC«0 

TC PIEXTOPT +1 


SET OPTIHO 


GET SIGN OF eOMHANO 


ZERO COMHANO-SKtP SEND INDICATOR 



* 


1 126 

RFF 

4 

LAST 

167 

10,2132 4 

0035 

n 

1T2T" 

KTF 

3 


T67^ 

1 0 * 2 1 3 3 6“ 

1160 T 

1128 

’REF 

14 

LAST 

165 

10,2134 54 

- 0 02 

1 

1129 

- PFF 

1 



10,2135 0 

2047 

0 


TRUNCNH CS 

COtjT 

IF COMMAND GREATER THAN 

45 OEG-COMMANO 

ATT ~ 

DESOPTT 

45 OEG " 


TS 

Q 



TC 

GcTOPCHf) 

LESS THAN 45 OfG-NORMAL 

OPERATION 


mon REF- 37 CAST 163 10,2166 10 >300 X CCS A GREATER THAH 45 OEG-USE OPSMAX WITH 

1131 REF 3 LAST 166— 70,613 7 3 4T77 1 CA POSNAX CORRECT SLGH 

'1132 rnV7T40 0 2147 1 TC t2 

1133 REF 4 LAST 163 10.2141 4 4777 0 CS POSMAX 

1134 ^EF 0 LAST 167 10,2142 54 001 1 TS L ^ 

'1135 REX' 1 10,2143 0 2063 0 TC ST O f CN P 

1136 REX 1 10.6134 5 2-206-0 POSOPCNO AO NAXPLSt ' 

1137 10 ,6145 O - 00 05- 1 EXTENO — — 

1130 RTF 1 rn TZr46 6 2166 1 EZHF DE LO P CND C O WNANP LESS THAN WA X P ULSE 

-1130- RTF” 1 1072147 4 2201 1 CS HAXOLS GREATER THAN NAX PULSE-USE MAX PULSE 


"~1T40 IXF 5 DTST — T67 10,2150 24 0 61 0 — N EX TO P T 1 NCR I T E M Pl GET-$ ENP INOICATOR 

1141 REX 6- XAST 135 10,2151 6 5020 0 AD NEGO MAKE SURE ZERO COMMAND IS -ZERO 

1146- REF 12 -CAST 168 10,2152 51*30-3 0 INDEX OPTING 

“1X43 TEX 3 CIST 40 10,2153 54 053 '0 TS CDUTC M O S TORE PULS E IN S E ND R E G 


1144 RFF 13 
1X45 REF 5 


I AST 168 10.2154 11*303 1 

XTVXT X53 1016155 0 2123 0 


CCS OPTING 

TC C MD SFTUP *-1 GET NEXT OPT 


1146 RFf- 6 LAST 168 10.2156 10 061 1- CCS ITfMPl ARE AMY PULSES TO GO 

-1X47 TEF 1 1T - , 6 15 T — 1 21 7 1 0 TCF SEN O OC M O YE S»SENf ) E M 

1168 PFF 15 XASl 166 10,61 60 0—53 51 X TC — RESUME - —NO 


1140 KgF 2 CTSI 163 10 . 2 1 61 6 22 0 2 0 N E G ^P CMO AO MA X PLS 1 

1150 10,6167 0- 0006 t EXTEHO 

1151 REF — -2— V AST 168 1-Ot- 2I63 - 6- 21666 3Z«‘= OiriOPCMO LESS THAW MAX PULSE 

m? “REF 2 Xm 153 10.2164 ? - 2 2 0 1 ~0 trA MA X PLS M AX PULSES 

1153 3EF 3 LAST 168 10,2165 1 2150 0 — TCF MFXTOPT 


GX^51 A S S E M Hi F"T< E "O^’^ " ■rrF"“A‘CT“W13G A1^C H M A NC HE N A S A 2'0 2 1 m - 0 bT 


10128 T^PP. 1, 19 69 C m'A I U VUTl PATTE — 


X4RIJ PT' PR OGR A ^ 


•"5 WOV 3 T^ 


EO S3 




1 16A 


rrisy 

1T65 

TVhT 


p 


1165 

P-EF 

TT^rg- 

ReE 



1157 

REF 

' TIST 


1159 

3 EF 

1160 

pff 




6 


lAST 

L AS T 


1 


3 

16 


LAST 

LAST 



RFP 


T 6 B 

168 

TFS* 


TrrrzTB-e 

TT)T?r 67 

TOTTlTCr 



152 
1 6 8 


10,RT73 
lO r ?17A 


R^F 13 — CAST 16S 


TSF 

169 


1 T , 71 75 
10* 2176 

10 , 21 n 

10*2200 


51-^ TOT 0“"aFLUPCMD“ HTDEX 

57*3 05 0 XCH 

1 2 TSO ~0 


3 506 ? 

0 ocros" 

05 014 
0 5333 


3 5016 “0 
O O OO S 'T 
05 012 1 

0"5333 1 


TOVTTOT 

TOT? 202 
5062 


775T2~0 


TCF 


OFTTND 

CCTMMANOn 

NEX I GPl 


0 SFNDOCMO 

1 

1 

1 


SFT8TT 


HAX PL S 
M AXPL 
11.12 


CAF 

Firr 

WOR 

TC 


1 1 ,1 ? 


CHAN 14 

FFSUHF 


CAF 

“ETCTENO 
"WOK 

TC — 


BIT 2 


CHAN12 

ITESOMF 


TTEC 1 55 

OFC -164’ 

FOtlALS FRIT’ 6 


SET UP SMALL COMMAND 


SFNO OCOU DRIVE COI^MANOS 


E NA B L E OCOU ERR CNTS 


START CtTARS NEXT TIME AROUND 


UTRS 


-80 

-77 


T^TPi ss^^T^HLF'rrvT^r'TN na-bb r\- a';l pmhgrw Comanche b7"N7\sa 2021113-051 


10:28 APP. 


tl g? 69 C n WA T P 



trtr 


L 


■'GWMITMK. lists 


USPR«^ PAt;^ NO. 


EO S3 


0001 

0002 


iEf 


1 


000^> 


9 0005 
Aoons 
4 00U7' 
A00D8 
A 0 0 0^ 
AOOTT 

AOOll 

AOOl? 

AOOTT 

A00T4 

AOOIS 

^OX}T^ 
A0017 
AOOl 0 

/Atnnp 

OOTC 

'^nUTT 

ROO?? 

R0023 

“POO 2 4 

ROO?*^ 
POO? -I 


R 00 2 51 
P 00263 
R OOP 5^ 


^ FF 


LAST 137 


22,2000 

05,2000 

05,2000 

0340 


BANK 22 

SFTinr OnwNT^^'LM 

"BANK 

■pBANK= TlArTMBtlFF 


SPECIAL nCWNLlNK HP COnFS” 


OP CTIDF ADOPESSC FXAf^PLF) SENDS 


BIT 15 


BITS 14-12 BITS 11 

^ 


IDNADR'TTTC? 

2 ON A OP TPPHF^ 
30NADR VOBOOY 
4 ON A OR STATE 

5 ON A OR UP BUFF 

60NA0P OSPTAB 
DNCHAN 3 0 

DNPTP NEXTLIST 


tP“3tOC"WTrSt 


(4 AGC 
(6 AGC 


WtTS I 

wos> 



“fT 

0 

0 

-rr 

0 

0 

"Cr 


POINTS TO NEXT 0 

LIST. 


( 10 AGC 
(12AGC 


WOS ) 
WPS) 



tr 

1 

2 

3^ 

4 

5 
T 


PC APR 

ECAOR 

ECAOP 

PC^AOR 

ECAOP 

ECAOP 

CttANNEL 

ADDRESS 

AOPES 


ry 
1 , 
2 . 
3. 


IWNL tST FPRN AT - f>FE I tvttr mNS AND RUT" 

^ t TO 6r, 


ONPTP, ns -DNCHAW 


TTT^ A LTST= -XONAOr 

SNAPSHOT StIBLIST = LIST WHICH ST'^RTS WITTTA -inNAOK. 

SNAPSHOT SUBLIST CAN O^tiy CONTAIN ITOADKS. 

T ITTEP imTAnP' MUST BF LHC ATEO TN THE CONTROL 1 
FFASA3LG DOWN TRY WURHS SHMUtO BE GROUP*^! IN SEQUENTIAL 



I ST . 

AL 

■LOCATim^lS AS MUCH AS POSSIBLE TO 3AVF STUPAGE USED BY DOWNLINK LISTS, 

™THr nowNLTNK UTSTS T T^TtlUt) TNG SUBl T STS') — ARE ORGANTZfO SUCH THAT^ THE ITEMS LIST*=D FIRST! IN FRONT OF 

SENT IBST, hXCrPTlON- — SNAPSHOT SUBLISTS, IN THE SMARSHUT SU3LISTS THE DATA REPRESENTED BY THE FIRST 

n rnNAORS is PPESEPVFO (Tm order) in DNTMBUFF and sent by the next 11 OOWNRUOTS, THE DATA represented by THE 



RDOTTiT' 

ROOZOR' 


to 5T ~r$~^FTrr imm-tjtat-ly. 


0027 7EF I COUNT QS/DLIST 

0023 0007 fPASZERC ^^OUALS 7 ^ 

002^ EFF” 1 0007 SPARE ECUAfS' ERASZER^ USE — SPARE TO — INDICATE AVAILABLE SPACE 

0030 05,2000 773A0 0 tOWtOCOD tlCT 77 340 LOW TO CODE 


0031 R“EF 1 05 ,"7tr07 MOHDNLST FOUAtrS CMCSTA0L FRESH START A“NO POST P27 DOWNL I ST 

0032 t 05,2207 UPDNLIST FOtlALS CMENTPDL IJPOATF PRDGRATt fP27) OOWNIIST 


OF PP OiTR'A'^T ' CMMAML BY ^MSA ^071 [ 1 [ 

I DTjWMI INK LISTS 


P0033 


TTTTTinrFnT; T t l'J6S» 


COMA ID TTn^ PTHTE m 


USER’S RAGT^ MCT. 


2 


FO S3 


CSM PTWTPFT FLIGHT nnWHST" 



CUMTRQL LIST-— 


003*^ 
OOTT 
0037 
00'’- 8 


DU 3 9“ 

0040 

0041 
■oiy4T- 

0043 
■ 

0044 

0045- - 

0046 

0047 
004 8 

0049 

0050 
0053 

4 

0055 


0 05 '> 


0057 

0058 




0060 
0061 
cror 62 ~~ 

0057T55 
006? ] 
0063 

0054 
0063 
0055 — 
6 

006 
0 06 ^ 
JI007^ 


0067 


TIOTT 
0074- 
00 73 
tT0T5‘ 
00 7 7 
0078 
" OOP'S 


3 FF 


■R 

nn- 

i 


-FF 

REF 
P E F 
TTEF 


REF 


n 

r 


FF 

EF 


T u 


FF 


3 
1 

4 
1 

3 

“2 

2 

2 

“?■ 

4 
1 

~2 

2 

2 

I 

1 


LAST 170 


LAST" 171 


LAST 

TATST 

LAST 
LAST 
XA5T 
L A S I 

TTAST 
LAST 
1. AST 


128 


117 

117 

“T5 

T9 


TITS' 

124 

101 


05, 2 n 01 
"05 ; 7301" 

05,2CrO2~ 

05,21703 

■OTTTUUT- 

05 T 2005 
-05,2 0 06 

05, vnoy 

05 , 2T)10 

05,2011 

1757 TUTT 

3 

05, 20 14 
05, 2 0T5~ 
05,8016 
03 rTU7 
05 , 2 


05, 



05 . 202 1 

05 .2022 


T? 043 
243 40 
32052 
I 43 AO 

32057 

03412 

03422 

13414 

03427 

01245 

11162 
0 3023 
03273 

03 7 02 
12744 
25T3 5 


P-ET 

— 1“ 



05 , 2023 

PEF 

5 

LAST 

171 

05 . 2024 

RFF 

7 

LAST 

171 

05-, 7tJ2 5 

RTF 

6 

L AST 

ITT"-" 

05,2026' 

REE 

7 

LAST 

171 

rT5 . ■? 0 77 

8FE 

1 



"05 , 203 0 

“RTF 

2 

L ri S T 

rzu 

“054Z0TT" 

kctF 

2 

L APT 

120 

05 , 2032 

p - F 

2 

LAST 

93 

05 , 2033 

P LF 

IH 

1 AFT 

T54 - 

'~05T20T7r 

P EF 

2 

1 AST 

8 1 

05,2035 

R cE 

3 

LAST 

171 

05,2036 

REF 

23 

“LAST 

1-56 

05 , 7030 

IFF 

1 

• - 


05 ,2040 

PEE 

3 

L^ST 

124 

05, 2041 

P EF 









St 


3206^1 
0008^ 
32 0 63 

243 40 
32052 
“T 43 40' 

32057 

2207? 

“ — 03743 

0 3 753 
02610 
"001 06 

01236 
03223 
— 07331 
32075 
13780 
— 64111 
Urt LISTS 


T 

0 

1 

TT 

1 

0 

0 

1 

0 

•S •" 

1 

n 

T 

1 

0 

T 

1 

r 


0 

0 

1 

■0 

1 

0 


T 

0 

1 

rr 

0 

1 


1 

0 


•RTF 

REF 
R EF 
RTF 


1 

2 

1 

Z 


LA5T' in 




P 
^FF 


3 


TTST' 
L A5 T 
LAST 

•trsT 


TTT 

17 1 

79 


tr S -- , 2043 
05 ,2044 
05 02045 
, 2 0 4 o 


t Tt 


05 , 8047 

05. 2050 

05.2051 


766 05 0 
01174 1 
011 76 O 
01 200 — T 
012 08 0 
01207 -0 
7660"; ^ 1 


CMPOV/EOL 


F DUALS 
ONE 1 ^ 

60NADR 

ONPTR 

ADNADR 

OMPTR 
1171^ A OR 
10NADR 
TDIMAOR 

lONAOR 
TONADR. 
30NAOP 
I ON A DR 

iTCTNmUTs 

lUNADP 
30NA0R 
ONAOR 
ONPTR 
IDNAOP' 
00PTR 


CHPOWFOl 

ONT^^mifT 

CT^POWTO? 

UNTMBUFF 

CMPn0F03 

TIG 

DFLLT4 



OEtV 

PACTOFF 


CSTFFR 
OELVEETl 
irFT7 

CMPOWE04 

time? 



60N A OR 
ONOJK 
AON A DR 
DNPTR 
ONPTR 
T 


ONTMBUEF 

CMPOWEO? 


CMPnWE03 

CMPOKt-OS 



] ONAOR 
ION ADR 
lONAOR 
lONADP 
1 Ot'^ A OR 


CENTANG 

OELTAR 


ONPTP 

3nNAnR 

ONAOR 


TEVPNT 
PCMO 

CMPI)WE07 
VGT IG 
0 TtV FTT 2 



COLL 
SEND SNAPS HUT 
COLLECT SFCONP SNAPSHOT 
SEND SNAPSHO T 
COMMON DATA 
TIG,+1 

P F LL T 4fH 

RTARG*-H,+2,, 

TG0,4-l 

t + 1 


.F5 



0£LV#'*‘l, •• + S 

PACTOFFtYACTOFE 

P C M O,YC Ml ) — — 

CST»=ER, + 1 

CSX DELTA VELOCITY COMPONENTS 

R E FSMMA T ,»l,, ,,+10, -HI — 

COMMON DATA 
TIHE2,TIMF1 


( 31-331 



SEND SNAPSW3T — ^ 
COLLECT SNAPSHOT 


COMMON OATA 

E t P V,»l — 

CENTANG,+1 

DELTARt+1 

TAL G W RDS- to -Att 0- 1 1 

TEVTNT ,FT 
PCMD.YCMO 

DPT M O D E - GTHniDFLAG ' 
COMMON DATA 

IG,+l,,..+4,+5 


CDH DEL TA VELOCITY COMPONENTS 




l-lDNA D ft PN -f? 

1 DM ADR RN +4 
I DMA DR VN 

IDNADR VN -*•? — 

lONAOR VN ^-4 

^IDNA f PT 1 Mf; 


R N+ 2 , 3 
RN> 4,^-5 
VN * + 1 

VN»2t»8 


-S NAP SHO T DATA 


- T DMA DR — ITN 


VM-^4,-f 5 
PTPT IMF* 
TNtMT 


+ 1 


008 




8FF 


LAST 14 7 


<>5 , 7 *S 2 


171^'6 I Cmpoip^eo?-! ONAOR CnU7 


CnU7,C‘>UT 


SNAPSHOT DATA 


0084 

0086 


^ EF 


K^F 


7 

3 


LAST 


1T7 

113 


0S72056 111 A3 1 


TPTTZTPTT 

a'?,?06 0 


0 7076' I 

TOSO*^ 0 


-117Nff08 cirox 


CMPL'WF03“7DNADR AK 

-ZONAOR THFTAOX 


CDUY 


” ' ■ "TAPr 

■55'S'EMPLE FEVISIHAT 'ass OF AiJL PR MGVAM COMANCHE 

BY NASA 2021113-05 1 
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t - ft — ft ft MT - MB- ~ -rnimm . ^ ... 





F 

^nvNLINX LISTS 



tJSpR^S PAGE NO- 3 

EO S3 







0031 

HFF 3 LAST II6 0*^,'’033 

03133 0 

^ 1 ON ADR ADOT 

ATIDT , Tl / OG AR A T F , * t 


0082 

nOTiT' 

REF 4 LAST 17? 05,2054 

p T3FT' " m~ rT6TT7TFF 

03135 0 

— 03 13/ 1 

lONADR ADOT +2 

TTWTnp — 2mnT +4 

a00T+2,'»'3/nMEGAB + 2, + 3 
arvn -i-4-4-6/nMFnflR-i-4--i-6 



A K * AKl ^ A K? . RC S F L AGS 


THETADX, 


r^ nnn m oa tf 


, THFTADZfOARB^GE 


TK)8T 
OOBB 



WBT 

0090 

ooor 

0092“ 

0093 

0094 
0095” 

0096 

0097^ 

009B 


0100 

0101 

0102 

0103 

0104 

0105 

OITJB 

0107 

oroF 


REF 


tTFF 

t: F 


LAST 
IT L AST 



2 

1 


TTT 

165 


TAST IT 


05, TUB! 


a5,2052 


05,2063 
05, 7064 
05V2065 


■^EF ■ 

2~ 

"OrST 

“TTT 

05 , 2066 

PFF 

3 

FAST 

172 

05 , 2067 

^ ?F 

1 



05.2070 

REF' 

3 

LAST 

7177 

“D5,O0Tr 

-rp ■ 

1 



05.2072 

7FF 

1 



05 * 7 ^ 

^FF 

5 

LAST 

16 7 

05 ,20 74 






REF 

T 



05.2076 

RTF 

1 



0 5 , 70 7 6 

p ef 

3 

LAST 

113 

05, 7077 

REF 

f 

"T 

L A 5 1 i 1 *3 

05 .2 TOO 

REF 

1 

- 


0 ^ ,'>101 

REF 

32 

LAST 

158 

0® .2102- 


06 

05,? 105- 
0572106 


700T4— 0 
52754 T) 


O’FTFnWEOA 5 ON A DR 


60NATTR OSTTAB 


IT 


03 0 6 6 


7605F“l COP n V F O S -lDrJADR *? 


01775 0 
01727 1 
TTTT3 1“ O' 
01733 1 
01642 0 
TB055OT 

01 '-*-32 0 

"O 
73741 1 


TT 

1 

0 

tr 


071 '^1 
13125 
05154 1 
01370 r 
340 1 1' 0 
34013 1 
34030—0 
43 


lONADB 0 
lONAOR V 
IDNAOR V 
IONA OR V 
lONAOR T 


TTHFR 

niHEP 


tTn^AOR R 


niHFR 

OTHFR 

trr 


CMPOWFOO lONAOR RS880 


-70NAOR: COUS 


B07 I D NAD R L B ^maSS 


3^ 



1 DM ADR 
2 ON A DR 


eOMADRr 
1 m4 A DR 



n^^CHAN 

ONCHAN 


DAPDATRl 

FRRDRX 

W BDPY 

I NOD 69 30 
Tt 

13 

30 


-nNCHAN 



CO M MON DATA 


r)IS 1 >tAY T A Bits 


R-OTHER+?»+l 

tr-ITTHER'*- 4 . ♦ *? 
V-OTH€Pf +1 

V-0 T H ER 4?,-t-3 

V-nTHER+A,*5 

T-OTKER.+l 

TTt 



f JATA 


RSBBQ. + l COMf-tON DATA 

.A^l»A^2tTAlLREGt»ItA-2 — 
CDtIS.PI-RAX.PfPAY.PIRAZ 


tEM M ASS.CS M MASS 


CO MM O N DATA 


OAPDfrTRl ,DAP0ATP2 

ERRORXf ERRtTHY.fRRTjRZtGARflAGP 

WBOOYt . . .T5/3MEGAC, . . 


Rei>OCTR,THPTAO,-H, + 7 

IMODESBO. IMDD€S^3 
CHANNELS 11,12 

CHANNELS TS,14 
CHANNELS SO. 31 
CHANNELS 3?,3 - B 


R olog 


3 AP 2 Pf-VI^UJN (IP t'U P^tiGPAV! CnMA NCH r HY MASA 2021113-051 


~TT 5 T 75 AP^, T ; r 9 6 ^ 



PISCS^ — 


L 

“DOWNLI 


POllO' 

CSM rn 

^0111 


0112 

0113 

R cF 

011*^ 

R ^ 

0115 

“REF 

■“tnrs 

"TrEF"' 

0117 

|T ^ 

0115 

REF 

0119 


— 0120 

REF 




NO 


EO 51 


DOW'IIIST 


t:}NTK!^L LTST------ 


7 

1 

ET 

I 

A 

P 


05 ,2107 

05,7107 

0 5,2110 
05,2111 

rAST rT 3 05,7117 


LAST 171 





,2113 

05,7lt/v 

05,2115 


LAST 


“orzx 

01 2 A 
0 1 25 

0 I 2 T,- 

0127 

0128 
OrTZO" 

0130 

0131 
“0132 
013 T 
013 A 
0135 ■■ 

013 6 
0137 

■OT 33 ~ 

0139“ 

0140 

“0141 



f f 2. 

05,2127 
05 .2130 

05,2171 


p sr- 


■OFF 

PPF 

2 TT 

2 FF 


1 

20 

3 


TTAST 
1 AST 
LAST 


Op 

172 

171 


05, 


32043 1 

24340 O 
320 52 1 
14340 0 

32057 1 
03412 0 
00302 0 

17674 1 
17502 0 
06351 0 

03023 0 
13 720 0 

1 ' 

32061 1 
00024 1 
32063 0 

24X 41) 0 
3 2 052“ X 
40 0 
32057 I 
V2C72 0 
1“27 57 ~ 'X 
00106 
013 36 


CMCSTADL EQUAtrS 

DNPTR 

6 ON A DR 

ONPTR 

4DNA0R 

-rtmm 

ION A OP 

r 


CHCSTAOl 

ONTNBXFE 

CMCSTA02 

ONTMBUEF 

C^«tC 5 TA 03 

TIG 



41 >NArm 
40NA0R 
2nNA0R 
lONAOR 
3 ON A OR 
50NA0R 
ONPTR 
IONA OR 

mPTR 


MARKDOWN 

MAPK 2 DWN 

HA POX 

P AC TOFF 
VGTTG 



6 ON A OR 
DNPTR 

ADNA OP 

DNPTR 
DNPTP 


CMCSTA04 
T TMF2 

FA 0 5 
DNTMBUfF 
CMCSTA02 




CNCSTA03 

CMCSTA06 



RBE 

7 FF 


1 


Cr5-,-2T3T 

24 LAST 

171 

05,2140 

1 


05 . ? 1 1 

T S ^ S T 

172 

05 ,2142 



1 DN A DR 
t D‘ I A DR 
l O NADP. 
ION A OR 
OMPTR 


STAT<= -HOO- 

T EVENT 

LADN C HA7 

OFT MODES 

CMCSTAD7 


R0142 


Slip LISTS 


0143 

REF 

2 

1 AST 

171 

0^ 

0144 

kEF 

3 

~tAST 

17T~ 

05 

0146 

REE 

3 

LAST 

171 

1)6 


CNCSTAOl EQUALS CMPOWEOl 


o 


MCSTA02 EQUALS CWOWf^ O g 


CMCSTAOV FQlJALS CMPnwEOR 


0146 ^ 

-R EF 

2 

LAST 





0 1 ^ 4 * T 

■ K 5 F 

2 

L 5 ST 


♦ r* -- 


LAST 

0 1 45 

' EF 





t. A S T 

0149 

5 ^ K p 

2 


1 71 


05"? 2051 


CMGST A05'”E0UAtS CmPi3WE04 


1 




05,2063 


TTMC 


g - Q t tAL S CMpnwE05 


05 ,207 ? 


CMCSTA06 ET)UALS CMoow^06 


SEND ID BY SPECIAL COOING 

FSUOT - 



SEND SNAPSHOT 

COLLECT SECOND SNAPSHOT 



COMNON DATA 

TIG»+l 

TJ 



MARKDOWN, + 1. • .-*-5 , +6 , GARBAGE 
MARK2DWN,+l., . + 5.4-6 
APtTGEE AND PE R I G E E FR OM R 3D 
PACTOFF, YACTOFF 
VGTIG, . ..+5 

V + 1 , . . . 


t25 



(30) 



CONMON DATA 
TIMEZtTIMEl 

-cr 



SEND SNAPSHOT 
COLLECT SNARSHOT 

SE ND S NA P SHOT 

COMMON DATA 


COMMON DATA 
OGC,+I,rOD,4l ,MGC,+1 

FALGWROS ID AND 11 
TEVENT,+1 

“ LAUNCHAFt-H 

OPTMODES .HOLDEL Af7 
COMMON DATA 



COMMON OOWNLIST DATA 


CO MM ON DO W NLIST DATA 


COMMON DOWNLIST DATA 


COMMON DOWNLIST DATA 


C OMM ON DOWNLIST DATA 


COMMON DOWNIIST DATA 


171 


3)5 , P 0 75 


CMCSTA07 ^'OUALS F^POWEO? 


COMMON on-iMLlST DATA 



- 









gap: 

ASSEMBLF '^FVISION 055 OF PROGRAM COMANCHb BY NASA 20Ziili-0bl lOSi'y APR. F, 196^ COMAID 

.029 — FnsTJt — rr^ 

^ . — — f 



X 

DO^NLTNTT LTST5r USFR^S PAGF 5“ 

EO S3 




K 0 1 dO 

















t 




















t 
































































= 



















-VIS r 011 “? 



ir;r:”P'i^L)GFU'^ ^matvjcttf by' 'nasa 2021113-051 


xvnzs- "APR . l,in.sn CHMATB rCnr7 



PDISI 


DlW^jriT’K nSTS 


USSR'S P^AGE Nn. 


EC S3 


CSH ^TENOFZVOXiS AND PP FT H^US T L T ST 


-CONIRnL nST— ^ ^ 


0153 


05 


CMRE^tnoi 


0154“^ 

IFF" 

3 



03^2143 

0155 

0156 

REF 

RFF 

1 1 

1 

LAST 

173 

0 5 ^ 1 ^ A- 

05 

■ 01 ST 

IFF 

"IT" 

LAST 

175 

05.214 6 

015'? 

01 59 

RFF 

IFF 

1 



OF , 2147 

5 

LAST 

173 

OF, 2 150 

0163 

1 '2 F 

3 

LAS I 

171 

OF ."2 151 ^ 

016 1 

V) [Tp 

3 

(.AST 

171 

05, 21F2 

0162 

P tF 

1 



05.2153 

016 3 

-KEF 

5 

A 

'T AST” 

173 

05. 2134 

0164 

PFF 

1 



05,21 55 

0155 

RFF 

-> 

L ftSl 

124 

05, ?1 56 


320A3 1 

2^^^0 0 
32v0 52 V 

0 

32057 1 
0341? 0 
0342? 0 

13414 1 
01151 0 
17674 1 


F 'V >-> 

Twn 


HS 


IRTP EN DO 1 


?5 0 


GIFT 

0167 

0163 

OITU 

0171 

017? 

017F 

0174 

0176 


n 

r. 


FF 
S^F 

PEF 

kBF 


*? c; t.; 

'< , r 


KEF 

PF F 
' FF 


1 

2 

? 

a: 

« 

3 

4 

T 

3 

1 



LAST 
LAST 
1A5T 
I A-ST 
EAST 


03 

101 

T7^ 

117 

90 


LAST 173 


■ ' OlTfT - 

IFF 

■ IT 

017 7 

R cF 

2 

017'! 

R FF 

1 4 

OX T 9 

KKE~ 

3 

OTsn 

^ f7F 

1 

0111 

R EF 

2 

■ onirTT 

"PFF" 

~T 

^ 0181T6 

9 

R FF 


— 0182 

REF 

2 

" 0113" 

RFi- 

25 

0184 

PFF 

1 

0185 

OEF 

2 


rTTFl TTF 


OFt 

05,211)0 

lT5T?T5r 
05,2163 
0 5 , ?^1 6 4 

05.2166 

05.21 V6 

05.2167 

TO' 



0133 
0 1 7 
0188 
OlPO 

01 la 


TTFF 

:<FF 

<>EF 


F 


21. 


I _ S T 
LAST 
L AST 

LAST 

TjTS*r 

LAST 

LAST 

TASF 


LAST 
LAFTT 
L AS T 
LAST 


17 5 
TTS 
175 

101 

FTl^ 

171 

123 

ITF" 

90 
11T“ 
120 
1 7 7 


05 , ? 1 7 1 
05,217? 

05 , 21 T3 

05.2174 

04,-213 5 
0 5;2T76 

05.2177 

05,2200 


05.220? 
05 , ??0 3 
05 .' 2'2 04 
05 , 2204 


03662 0 
03424 0 

02636 0 
06634 O 
03655 1 ■ 
13404 O 
1163 20—0 

32061 1 
00024 1 

32062 0 
74340 '0~ 
32042 1 
14340 “0 

'320 5T"- 1' 
32072 0 
0263^ 1 
03753 0“ 

02610 1 
13645 1 
-0 1331 t 
32075 I 
02324 0 
07400 I ^ 


REF 


LAST 173 


05,2206 

05 ,204 3 


07766 1 

7 7 6 71 1 

t o L I STS — 


6 DM ADR DNT^FOFF 
ONPTR CMRElsrOO? 
■ADMAOR DNT'NmiJFF 
OMFT? CMRF74O03 
I ON A OR TIG 
IDMAOP OELLTA ^ 
ODN ADS RTA 'TG 
IONA HP VHPTIHF 
"4DNA0R NARKODWN 
lONAOR VHFCNT 
lONfrOP TTPI 
TONADR FCSTFFF" 

idnaor oelvtpf 

20NA0R TCDH 
ION ADR TPASS4 
3DNA0R OFLVSLV 
20NA0R RANGE 
D N PTP 



lONAOR TTMEZ 
DNPTP CMPEN005 

’^NFTP cmpenoo? 

AONAOo ONTMRliFF 

O N P TR C M ^^ -N DO B 

OMPT^ C3RFN006 
lONADP OIFFALT 


TONAOP CPNTANG “ 
lONAOR DEL TAR 
3nNAOR 0ELVEET3 

1 B N AOfr OOTN t OOE S 

ONPTR CrtREN007 
lONAOR RTHi'TA 
2D r iA0R t AT( SPL ) — - 
20NA0R VPRFO 
■lONAOR STATE +100 


SEND 10 BY SFECIAL COOING 

SEm SNAPSHOT 

COLLECT SeOONO SNAPSHOT 

SEND SNAPSHOT 

CQNHON DATA 
TIG.+1 

nFLtT4. + l 

RTARG,+l. . 

VHFTIMF.+l 

n 


+ 4 f + 5 



1 , Y C ot i,st:DL t -, zcwrT ^mTrycD tt 7 


VHFCNT, +1 
TTP I .+1 



OELVTPF. +1 

COM AND CSI TIMF 

r p A$ s 4,+ r^ — 

OFLVSLV. +1 . .-+4.+5 
RANGE.+l .RRATF,+1 

CO N MON DATA 

TIMFP.TlM^l 
COLLECT SNAPSHOT 


(32-33) 



COLLECT SNAPSHOT 
SEND SNAPSHOT 
COMMON DATA 
COMMON DATA 
COM DELTA ALTITUDE 


( 74) 



0FLTAR,+1 

DELVFET3,+l,...+4,+5 
O PT M QOES.HOtDFlAG — 


COMMON DATA 
RTHETA.+i 

t A T t S Ft t i LN O tS f>L ) . + 1 
VPRF0,+1,GAMMAFI , +1 
FALGWROS 10 AND 11 


CMRFNOOl FOITALS CMPOWEOl 


COMMON OOHNLTST DATA 


01^1 


n F F 


LAST 173 


05 . 2 Ot2 


CMRFN00 2 FCHJALS CMPOW^E02 


C OMMOn 00 WNL 1ST 04T A 


2 


0193 


T 


TT 


1 ' - f 


LAST 17-2 05r?O6t 


CM P FN 0 03 EO t JALS 


rMRFNOOA EOUAI. S CMP^tNF04 


CO i**^ M0N O OWNt - 1 


COMMON OOWNLTST DATA 


I 


s ap; "SSsgMHLE R EVISIOH A('^C P!>nGgA^< COMANCHF BY NAS'A~?0 2T1'13-I)bl lOi2B APR. 1 , lV6y — COHA I D — TCT?’? FTftTE — TTS 

U OnWMLTNK LIST*; tfSTR^S' PA1 ?c~NOt " 7 EO S3 

01^4 REF “'3 LAST' 1T3 n5,?i7S3' ’ CMPFRDD5 EOUAl 5 CHPOWED? COMHOH DOHNLT ST DATA 

IEEF 3 UATT 173 OS, 7072 CHKENU06 fcyDALS'”C>1PUMfc06 Ca W W O N D O WNL I S T DA T A 

0176 REF 3 LAST 1T3“ 05,:20TS CHRFNmrr EQUALS C«PnWE07 COMMON DOWNLIST DATA 

R0197 — : — " 


CTAP': ■ ' 

■ ■4SSt‘'F 

XT'^f VlSiiJM OSij 

7r~TCTrnTT7TnTTnnr 

'TTIMAMCHf: I3Y N ASA 2021 ll B-O") 1 

10:?3 APR. 1»1969 — crw 

rn — rcrr9 — — rrr 

- - 








' ) UWIML INK L 1 6 1 5 



USER • S RAOE^O. 

s EO S3 








P 01 98 

C SM 

F^V 1 P Y Nj 0 ij p D A T 1 

n OWNL T ST 




— * "• iT*- 







R D 1 



L( 'N 1 P'lL 

L 1 6T 




02 00" 





05,?'^07 

■D7Tr ‘ 
0202 

~rF 

1 

15 

LAST 

175 

0 5 . 2 2 7 
'05,7210 

0203 

1 

m 

i 

1 



05,7211 

"070^ 

KEF 

16“ 

r53T 

1 t f 

05 * 2Z 1 2 

02 0"^ 

REF 

1 



05 ,22 1 3 

02 06 

K F F 

9 

L AST 

11 1 

05, 7214 


CMENTRni 



0271 

0727 

0223 

0224 
07 75 
07 26 
0727 


0?'36 


0741 

024? 

0243 


3704^ T 

24340 0 

32057 1 

XZ^-3-40 0 
32057 1 
073 00 0 
■U3535'l 

24304 0 
14370 0 
04300 0 
033 13 O 
1367^ 1 

"07400 r 
03265 0 
32061 1 
00'024 1 

32 7 57 0 
43 40^0 
37057 


EQUAt.S 

rjNPT7 


CMENTROl 


2235 

2236 


14340 
07076 
T3I6T 
073 00 
2 43 04 


T 

17 

1 

O 

0 

n 


0778 

REF 

~s~ 

LAST 

177 

05 ,2237 — 

■T437rr 

(J 

0229 

REF 

2 

LAST 

172 

05,2240 

rr3GT3 

0 

0230 

KEF 


LAST 

17? 

05,7241 

03066 

1 

0231 

KtF 

2 

X5ST” 

ITT 

05,2242 

03314 

T 

A 

0232 

REF~ 

2 6 

LAST 

1/5 

a5,2E43 

o 1331 

1 

0233 

R5F 

5 

LAST 

172 

05,2244 

131 7'5 

0 

0234 '■ 

R tF 

2 

LAST 

ITZ 

f ^ ^ f ? ? ^ 3 

05 154^ 


0735 

RFF 

33 

LAST 

172 

05 ,2746 

01320 

1 



^ C45T 

2 — LAST 
22 LAST 
"4^ TTrST 


177 
1 75 
TTTr 


0 6 f 

U ^ f 

05, 

05, 

-cm- 

05, 

06 i 

5T 


2247 

7750 


3401) 0 

r 


T4 


I 


3 


7251 

? '^5 2 


7754 

7755 

256- 


34030 0 
3 4052- 1 
014 32 0" 

1037? 0 
-00 1 06 0 
-T 4 r7 r r T " " rr 


6pNADR nilTMBUFF 
ONPTR CMFNTP02 

41) (VIA DR DT-^TMBUFF 

OTIPTr CKFNTR03 
2Dt| A-011~C WTA PTiOD 

IDNADR L/Dl — 

6T1NA02 UP BUFF 
4aNA0R UPBUFF +12D 

rONAtJP PAXrRRl 
BOUAOR t^VTANG 

'2mAnR LAT(SPL) 

IDNADR ALFA/ ISO 
ONPTR CMFNTR04 

IDNAD7 TTnF2 ^ ^ 

OMPTP r5'ir-NTP05 
60^tADR ONT'-^BUFF 

ITNPTT CMFNTR02 

40NA0R. DNTMBUFF 
20NAn7 AK 

B nNA OR -'FRR O R X — ^ 

2nNADR CNnAP*^OD 
60NADP UPRtlFF 
4 n NA D R U P BU ^ F -*-120 

LF^^MASS 
OAPDATRl 

rTP! 


1 DM A OR 
ION ADR 



1 ON A OR 

3 ON ADR 


nPTMODES 

V^BOOV 



IDNAOR 

ONCHAN 

I I n \J 1 AJL I 

ONCHAN 

ONfHAN 


I WOES30 

n 


30 

32 


IDNAOR RSBBO 

30N-AOR CAORFLSH 
lONAOR STATE +10D 

^ ONA OT-- OAM f^ AFI 


SEND ID BY SPECIAL COOING 

COLLFC T SNA P SHO T 

"5F NO S N TAP SHOT — 

COLLFCT SFCONO SNAPSHOT 

SEND SNAPSHOl — 

CmWON DATA 

C MO A P MO 0 . PRF L . QR FF , R R Et-^ 
upeuFF, + i. • .4-ia, + ii 


UP3U^F’H2 , 1 3 . .. + 18*190 
C OWP NUMB, - t )- pnLP M OO,UPVFRB7t TP COt t NT 
P AXERR 1 , ROL L T M " 

LATANG*+l .ROOT.+l .THETAH, +1 

,-n,L N G( SR t r m 



ALFA/IB0*BFTA/180 
COMMON DATA 


COLL-CT SNAPSHOT 

send snapshot 

SEND SNAPSHOT 
AK* AKl ,AK7,RCSf LAGS 
E RR rr Ry/Y/7*THC T Ar)X/ Y / ?- 
CMOAPMtTO* PREL * OREL . RREL 
UP8UFF+0,+l. .•+10,+11D 
UPBUF*='fl2l + 13 , , .+12 , + 190 


LEMMASS*CSMMASS 
OAPDATRl ,DAPOATR? 

R O LL TM , R O LL C 

OPTMOOES ,HnL OFL AG 
WBfiOY, • . . + 5/nMFGAC,, . .^5 
RFP0CTR*f1TE tA1 3+ 0 *+ -tipr7 
I MODE S 30 , T MOOES 33 

channels 11*12 

CHANNELS - 1 - 3* 14 


CHANNELS 30,31 
CHANNELS 32*53 

RS8B0, + l 

C A0RFLSH,+1 ,+?, FA ILREG,+1 ,+2 

FALGWROS 10 AND 11 

GAM M AEI ,♦! 


P 0244 


SUB LISTS 


02-5 DEF 4 LAST 175 05,704 3 


CMeNTROl FQUAl S CMPOi^EOl 


common bOWNLIST DATA 


gap: A.SSbKBL'P~ff'^'VI<;iL'! M 05b OF A GC PROGRAM CHMA MlNE BV NASA APR. i.lV6»J — cai TAm nT?9 — PTC? ITB 

nnvimiNX LTSTST - “ tlSER’S page no. 9 EO S3 


0?46 

RFF 

5 

LAST 

\15 

0572052 

0247“ 

"■■RFF ■ 

5 

TA ST ' 

T75 

05,2057 


CMFNTR02 EOUAtS CMP0VIE02 


CHENTROi bUUALS fMPUWbOS 


CONNON OOWNL I ST OAT* 



0?AB REF * LAST IT*' 05,2X161 ' CMFNTKOA EQUALS CHPnsE04 COMMON POWNLTST DATA 


02A9 PEF 5 LAST 1T1~“ 05,2257 766T5r 1 CMENTR05-10NAOR OELV OELT.-Fl SNAPSHOT OATA 

0250 'JEF 6 LAST 178 05.2260 01166 0 IDNAOR OELV +2 DELV»2, + 3 

— Q-251 fTEF 'T DSST TTB 05,2261 U1166 1 lUNAUR UtLV +6 0 E LV*6,T 5 

0252 REF 3 LAST IT9 05;2'2B2 '03725 T TONATm^ TTF' — TTETTt 

0253 REF' 3 L AST 119 ' 05T2T63 03724 0 lOrJAOR' VtO VIO,-*-! 

“ '0'254 REF 5 ' TTST TT5 05,2264 03766 0 IDNAOR V P REO V P R E D.*1 

0255 REF 3 LAST 171 05,2265 7S532 1 -IDNAOR PlPTIMEl PIPTIMEIvt^I 


025E 


REF 


4 — EAST ITE 


05T7075 


CMENTRO/ EQUALS CMP0WE07 



OOWNLtST OATA 


>^^VlSinN IJbH M 


TT 


A(;L P^UG h’^M L^^^^A ‘ ^iCHE BY f imSA 2021113-051 


Xm2 8 


r »1 9 6 9 CH MAi n nX?9 PACT tT^ 


nnw^JLTNK' LISTS 


^AnFTMtr. TXT 


£0 S3 


P 0? 53' 


^32 OOWWITSTS 






0260 
0 261 
026? 
026 3 
OT.VT 
0265^ 
0266 


^ - F 


REF 

^ FF 
OFF 


T 

1? 

1 

20 

1 

0 


LAST 177 


TAVI TT^ 


- “025 7 

PFF~ 

' 3 

0268 

fff“ 


025 9 

r - y. 

2 

0270 " 

F h 

1 

0771 

RTF 

7 

0272 

KEF 

3 

0273 ' 

■" '’—FF 


0274 


5 

“0276 

REF 

1 

027 S 

REF 

21 


02‘?’~ 
0>TT 
02^0 
02 >1 
0207 
0233 
0236- 
■D7"B5 

0? 36^ 
02 3T 
0238 

0239- 

02^0 

02'^T' 

029? 

0 203 
07 
0296 
0296 


REF 


p \ 


RTF 
REF 
RTF 
E F 
REF 
RTF 


R E F 
■R"^F 
REF 
OFF 
■RFF 

RFF 

D C p 

■ N ; ' 

rtef 

REF 

REF 


LAST 

LAST 

LAST 

LAST 


LAST 

LAST 


6 

~U 

7 

7 

27 

2 

t 


LAST 

LAST 

1 A S T 

rA~ST 

LAST 

LAST 

LAST 


121 

T7F 

179 

9 7 


ITF 

179 


LAST 177 


TTO 

179 

179- 


nrnr 

17 9 
179 
~TTF 
LAST 179 


7 i 

1 

27 

1 

10 
1 1 
12 
I 3 
14 


tirsT 

LAST 


LAST 

LAST 

TASr* 

LAST 
LAST 
L A ST- 
LAST 
LAST 


97 

1 7 7 

17- 
1 7 7 

-T7F 

179 

179 

—jtf 

179 
17 


05,2265 

OFT7265' 

05,2267 
0 5,777 0 
7 T 5 T 277 T“ 
05, 227 2 
09,2273 


05,2274 

O F, 2 2 75 
05,7776 

05 . 2 27 7 
05, 23 00 
05,7301 
■05-77302* 

05.2303 

05.2304 

05.2305 
05,7706 
0 5 ,73 00 
05,2310 
05,7311 

OS, 7 *7 12 

TT5T 231 3 ■ 

05,2314 

05 ,23 15 
06,231 6” 
96, 231 7 

07 . 2 320 
0 5, 2 321 

05,232? 
06 ,232’5 


32ir43-T 
24340 0 
32052 1 
3F43'40 0 

32057 1 

275370 
27553 1 

27567 0 
02751 0 
00007 0 
00007 0 
00007 0 
320'5I 1 
00024 1 
32332 1 
04340 1 

00007 n 
OOOOT O 
00007 0 
00097 0 
3205? 1 




05,23?5 

05,2375 

05,2327 

05,2330 

06,7331 


00105 0 
12025 0 
'00007 
0 1331 1 
32075 1 
"00007 0 
00007 0 
00007 0 

00007 0 
-77779 1 


CMPr7220L EOUALS 

OMP IK 

6DNAn0 

OMPTR 



ONPlOr- 

ftONAOR 

FDNADR 

60ArArrR 

ION A OR 
rONADR 
lOAfAOR 
ION ADR 


CMPG 2201 — 

ONTMBtlFF 

CMPG2202 

"DN T MBiJ F F 

-^CNPG ?203 
SVAMRKOAT 
SV-^RK O A T -H2D 
SVNRKOAT +?40 
L ANOMARK 

"SFARE 

SPARE 

SPARE 



10NADR 

ONPTR 

2DNADR 

lONAOR 

lONAOR 


TIME2 

CWPG2205 


SPARE 

SPAKE 



t ON A OP. 
ONPTF 


SPARE 

CWPG2202 



DNPTK 

ONPTR 

IDNA OR 

lONAOR 

30NA0R 

lONAOR 

lONAOR 

ONPTR 


CMPG2203 
CMPG2206 
•8 N N 

STATE +100 
RLS 




OPTMOOES 
CMPG2207 
tF 


I ON A OR 
ION A OH 


lONAOR 
IONA DR 


SPAKE 
SPARE 
S 

SPARE 

SPARE 


SEND ID 3Y SPFXIAL CODING 

COLLECT 'STTAPSKni 

SEND SNAPSHOT 

COLLECT SNAPSHOT 

SEND SNAPSHOT 

COHMOH OATA 

LANOING SIT-F MARK OATA 


T+0. . ,+34 — 

LANOING SITE MARX 0AT7L 
LANOMAPK,GAWAGF 


trATA 

TICT 2 tTIMEl 
COLLECT SNAPSHOT 



COLLECT snapshot 



XOMMON DATA 
COMMON DATA 
SNMf GARBAGE 
FALGNROS 10 AND 
RLS,+l,* ••+4, +5 


11 


OPTMOOeS ,HnLOELAG 
COMMON DATA 


F029 7 


SOP LISTS 


029^ 

RFF- 


FAST 

"077 

0? ,2943 

C 20 9 

O 1- f 

5 

LAST 

17E 

0S^2 96 2 

0300 

KFF 

6 

LAST 

178 

06, 2057 


CMPG? ? Or'EOUAL$ CM P OWcOl CO MM ON I S T OATA ^ 

CMPG2202 FQtjALS CMPffWKO? COMMON OOWNLIST OATA 


C^PG2203 FOOALS CMP0WE03 


COMMON 0 IWNL I S T OATA 


' »*v/' 


IP Vfc - 

■ 


f/W 











DTIWNLTNK LISTS 


0301 


RPF 


L^ST TT8 



■(^ 

r 


0303 

0304 


; FF 
REF 


RFF 


2 

2 

3 


LAST 

LAST 

LAST 


0305 


OFF 



TF 

TB 


LAST 176 


PmmPi 


- • ^ V- - .,-,..1 W»-' *>* I* , 

>Ti| 'i7S5 HP ASC ^>‘■^I^G^B:AW'X0MA^1CH^: BY NASA g^21 113-0?! 1U!2 ! 8 ^ AWH 


X75Sn TTT 



05.2061 


C'IPG2204 EQUALS CMPnWEOif 



05. 7333 
05 .T53'2t 


76672 0 — CHPGZ7U5'-10NA0P LUNG 

OITUT 0” 10N7LUR ALT 

76674 TT ^IDNADP XAT 


05,707 2 


C«PG27tr6r^0UAt5 CMPnvfE 06 


U5.:^0 75 


CHPG220 7 E QUALS C ffPO W E07 


USER’S PAGE NO. 11 


EO S3 


COWMEIN nOWNLI ST DAT A 


LUNG,+1 



AtT.^1 

LAT,+1 


COMMON nOHNLIST OA 



P03‘07 


0303 ■ ■REF 2 LAST 170 ■05.2335 02107 0 DNTA3LE — GENAOR CMCSTADL 

0309 REF 2 LAST 170 05.7336 02207 0 GENAOR CMENTRDL 

0310 REF I 05,233 I 021A3 0 G F NA T7P CWR O ND O L 

T)3Tt • REF 1 05,2340 02001 1 GFNAUR CMPTWEOL 

0312^ i^FF" 1 05.734-1 02266 1 ' GENADR CMPG220t 


R0313 

« 





TKTy- fi'S'S'!'=WE ’P. t V I s 1 n 'S ■ 0 •s ^ wr- a:; 


i - 


T^~T!]nR'Al« C rj M A^NC Hr"UY ~ m $A 7 021113-IJ5I 


10:23 APR. tf 1959 




FRFSM STAFT AN 0 IIF START 



T O S3 


^00001 

ROOOl 

■ROTTOT^ 


f^RnGTRA M'TrrsrR I PTT ON 


FTI>TC1 TONA'L ■ Uh SC R 1 P U UN 


B APRTtV 195T 
SDNT^TSK ^EV 120 


B0003 SL APl MAN INI T I ATED FKt SH ST-^TT 

R 00 or ~ r. EXFCUTF STAPISOB 

^OOOS 2 . TURN HEF OSKY ntSCRFTE-L AMPS 

ROno^ 3. CLEAR FATl Pt^-iST=RS. SELF CHECK ERROR COUNTER AND RESTART 

TOOOT CHUNTER 

ROOO- 4, EXFCUTF nOFSTAPT 




HTTFSTTirr 


^ A C H T NF " TN T T T A TF D FRESH S T AR T 


ROOlO 
^OTTT 
POO 12’ 
R0013 
TO 01 


1. CLEAR CELi=-CHtCK REGISTERS, MODE REGTSTET AND CDUZ REGISTER 
? CLEAR THAS" TABUE 

3. TNITI AtTTT IMU ^LAGS 

4. INITIALITF FLAGWtJTDS 

5 ; — rRTTN 5FFR"C0NTPAI — ro IDLE 'LDHP TN DUMHYJnR 


R0015 

ROOT 6 
R DOT 7 
RTOOTl 
R0019 
R0O20 


GnPROG 


HARDWARF RESTART 


R002? 
R002 3 
RTT02 4 


ROOZ5 
R002 5 
POOR/ 
R002B 
R0020 

F 003 0 


0. EXECUTE STARTSUB - 

1. TRATrSFER CmTrR^HL TO OOESTATT If ANY OF THE FOLLOWING CONDITIONS 

~FXT5T, 

A . RESTART riCCUREO OUR TNG EXECUT ION OF ERASCHK 
B. BOTH DSC ILIHTOR F I L AND AGC WARNING ARE ON 

C~r MARK REJECT' A-NH' ETTHER NA y— rrcr-fct A I N DSKV 

ARE ON. 

2 . SCHr-DUt^ A: TSPUPT PKOGR/UTFOP THE OAP 

3. SET FLAGWRDS 'BITS fop: TNTTTAKE ROUT 



4. EXTINGUISH ALL OSKY LAMPS. EXCEPT PROGRAM AL AHM.G I MR.AL LOCK AND 
NT ATT 


57“TAITTTAt T ZT I Mil TtTTGS — 

6, IE ENGINE CRMHANO TS tJN ( El AGWRD5 . B I T TU SET ENGINE ON (CHAM 
NEL 11. BIT 13) ^ - 


.TP 


P 


0031 


0 0032 
P0033 
R0034 

RCOBB 


UtB 




R003T 

(*s U U 3 3 

R 003 ^ 
'>0040 


FNFMA 

1 . 

P - 


SOF rWART -’FSTART 


INITIATED FY MAJOR MODE CHANGE 




execute ST art SB 2 

KILL -PREIGRAM^S THAT WER^ 

p n U TT N F 

TRANSFER COMTP^tL TO GOPPOG3 


IMT^GRATING OR WAITING FOR INTEGRATION 


GnpROGH 



' CtlMMnN T O tUI P ROG AND FMEMA 


1 - 

? . 

3 . 


TEST PHASE TAtH.PS - IE TNCmPEeT. D i S PL AY- AL A^M 3 107 AND ^ 

TPAN S F E P x CnNT Pm — TO DOF ST apt 

DISPLAY MAJOfr 

IE ANY GROUPS ACT oyF Uf>ON RE STA'> T , TRAMSFF'^ CONTROL TO THE 


4 J 


« 


# 


i 


♦ 






“T- - - J i " ^ • -"^| i 





r 



% 




1 • 


I 


i 


* 


V 

‘ > 








■:' 7 . 


TW: AS'5rMf^L^ 0^*= 



COWfNlCHt BY NASA 2n21U3-0bl 


rorzBnrpTT 


It 19 69 COMAID rCr79 


L 


FRESH START ANO~^F^TART 


USER’S PAGE 


Ft) S3 


T0041 PESTARTS SITBROUTTTT^ TO RFSCHEOUIF PFNOTNG TASKS* LOFTOCALLS. AND 

R0042 JOBS (020 IS RESTARTED VTA FINDVAC) — 

R1504T 4. TFR^D^GTEnTTPS W^£Pt ACTIVE UPON PE STARTTH 1 5PI AY ALARM CODE 

R00A4 1110 (RESTART" WITH NO ACTIVE GROUPS) . " 

R0045 S. TRANSFER CTTOTROl. TO IDLE LOOP TN DUMMYJOB 


R 0046 STARTSU 8 SUBROUTINE COMMON TO SLAoi AND GOPROG 


R 0052 
R 0053 
010054' 
R 00 S 5 
R 0056 
■RTJ05T 
R 0053 
R 0059 


R CTO 4 7 ' 

1 . CIEA'R OUTBlTXHftNNtLS b AND b 



R 004 R 

^ R 0041 

2 * TNITT ALIZF Tl^r .5 tTIMF 4 tTT 7 IF 3 



3 , TRANSFER CONTROL TO $TARTS 32 







R OOSO 

STARTSB 2 SUBROUTTiTE COMMON TO STARTSUB AND ENEMA 



^ 

■ "T".' rVTTT A 1 T 7 F nUTTn^ THANNFTS 11 • 1 7 . 1 3 4 NTJ 14 

■ - . . ■ . — . ■ — = 



2. 
? . 

4 . 

5. 

6. 
T. 
B, 


REPLACE ALL TASKS“aN WAITLTST WITH ENDTASK 
MAKE ALL EXECUTIVE REGISTERS AVAILABLE 

MAKE ATT "VTTC'TRrAS' AVAILABLE — 

CLEAR DSKY REGISTERS ^ 

ZERO NUMEROUS SWITCHES 

INITim I Z E rjDT I C S TCAGS 

INITIALIZE PIP A AND TELFMETRY FAIT FLAGS ’ 

I N I T I At IFF cnwfr tt it vftry 


R 0060 I NPUT/OUTPUT INITIAL 1 2 ATTriN 


^0061 A. CALLING SEOUfMCF 


prXRTBT ” SLA PI TC PPSTJUMP — TTR V E RB 36* EN T ER 

~ F OUBT' C AGR SLA PI 


R00&4 enema - TC P OS T JUM P DO NOT CALL ENE M A WITHOUT 

R006T “CAOR ^NEMA CONSULT !NG POOH PEOPLE 


R0066 FT nUTPUI 


R006 7 ERASABLE MEMORY INITIAL I ZATION 


P006T 


P0069 


KOO’^n 


R0071 B. ATAFMF 

■RTOrTTr TTOT P HAS E T ABtF ' ER R OR 

ROO^R 1 ll-O — RESTFrFT-WITM 


PROGRAM ANALYSTS 


T. SUB'PTrUTTNPS CAILPD 


MR . KL E AN , WTII TttST *-DS PMtTrAtrAll-MTFFST AR T S * F I NO V ACr- 


"Wr\J I ^ r '»POr,P,A.M Cn'^AlTCHt ‘BY NaSA ^0^ni3-0bl 


TTTTTISnzrFnTT 1* I96‘j Cn^ATD 7X779 77!<^ 


FRFSH START AT'JD 


usTR^s ^Ar;T 


S3 


0074 10 ,221X3 

0075 REF" 1 OT^TOOO 

UTTT5 05,2342 

00^^ -Tf 3 last 132 ^T51400 


BANK 10 
SETLOC FRANDFES 
B7JNK 


FBlVTtK= LSTl 


0073 REF 1 


'XOUNT 05/START 


T~07 0 05,2 U2 0 0004 0 STAPl INHINl — — F R E SH S T AR T . COMF S FrERE F R OT " PWBALL> 

OOBO TTEF' 1 0F\2343 0 2776 0 “ TC “ STARTSUB StTBROUTTNE DOES MOST OF THE WORK, 


ODFT ‘ TEF 1 ^ r75T2T44 1 2351 0 5TARTSW TCF SKTPSTM 

0032 REF 21 LAST 150 05,2345 3 ‘^002 0 STARTSTM CAP BTT14 

0033 FFF 1 ' 05,2346 0 5147 O TC FINDVAC 

"0084 “ rT5T2T47 17 717 0 STMZCATJR HCT TTTTT — 

0035 05,7350 77 777 0 HCT “^7777 


PATCH., .VTCF S TAR T S T M, , ,FPR SlMUt A TtON 


STMiTtATION START AODRESS, 


0104"-’ 
0 1 03^ 
TTTtrr 
0107 
0 1 03 

onrr 

01 TO 

01 n 

OtlT 
0114 

oils 


1' ^ F 


I 


f • 


tA-ST" 


RFF 18 tA3T 


0036 ' 

-T- FF“ 

“ ro 

1 AST 

173 

05; 7 351 ' 

0036 1 

s. t F 

i 



05 ,2352 

OOEtSZ 

R £ E 

18 

1 . A s r 

167 

05,2353 

0037 

REF 

20 

LAST 

m 

0 , 2 3 5 4 







003 3 

REF 

10 

LAST 

166 

05 , 7355 - ■ 

O'OB'^ 

R ! - h 

2 

Lw 3i - 0 I 

3 2 

0 5 , :!! 356 

0092 

RFF 

1 


- 

05,7357 

0093 

REF 

2 

LAST 

1B3 

05,2360 

0014 

— 


LTVST 

1 8 3 

05,2361 

0016 

REF 

3 

LAST 

177 

0 5,3 4 6 2 







TTrOTT” 

< bF 

I. 



05,2363 

0101 

RFF 

10 

LAST 

133 

0 5,236 4 

UTOi 

F F 

11 

LAST 

“133 

05, 2365 

0103 

R EF 

2 

LAST 

32 

rr5,73 66 

0104 

PEF 

2 

LAST 

“82 

05, 2363 

010 45 

ITT 

y 

"TASr 

55 

0577370 

0104^ 




— 

05,2371 

01047 

REF 

1 



05,2772 


T TtrTfTTr 
7 5033 n 
6 5001 n 

5Fn73TFT 


F1CT5F1 


3 5021 
55' 365 

54 375 
54 3 76 
54“ 


55* 154 


1 

T 

1 

t 

XT 

1 


4 4710 7 
55* 302 0 



^FF 


} 


05 f2 5 ^4 
05433-75 
05,23 7 6 

054^ 7 7~? 
0542400 
05,2401 
,240'^ 
t)5 , > 40-3 


0 0006 1 
01 005 0 

0 0006 r 

01 006 0 
0 0006 1 
tn- 


0 0006 1 
01 012 0 
rr 00 06 — r 

01 013 1 
O 0006 1 


FA 

MASK 

AD 

TS — 


OAF 
TS- 
TS 
TS 
TS 


TTirr 


BITS4S6 
BIT15 
DSPTAB 

7FRn 


TTT 


FAILREG 
FAILRFG +1 



TS 


RFDOCTR 



TS 


R-RiniZ - 
DSRliPTSW 


D H F ST AR T 



FRFSTORE 

SMOOE 

U F SVFLAO 


CHANS 


WR I 

EXTEND 

NR ! T E 
FXTFNO 
WRT Tr 

E X TFNn 

WRITE 
F X T ^ NO 


CHAN6 


OSAL M Ot t T 


CHAN12 


CHAN13 



V - 

7 


-tirsT-- 

1 6 0 — 

— 05,2 404' 

01 014 

-0— 

W^ITE 

— CTUtNtT 

LAST 

1 6 4 

u 5 ',2405 

5^ *3 l r> 

0 

T S - 

w 1 X] f> T r ON 

LAST 

73 

0 5 , 2 '^‘■ 0 6 

^^4 332 

i 

TS 

ONL STOOD 


R E OU E S TE O F R E SH S T fl ’^T . 

S^MF S^Ttmr ON ZE<>OtNG FAILREG. 

^ — . — — » — 


Tn r-A-F- R ^STr ST- A R- T, — 

-must NOT BE REMOVED FROM OOFSTART 
must not be removed FROM DO*"START 
O PDATE STATE VECTOR REQUEST PLAGWQR O 

TURN OFF RCS JETS 

TURN OF F RCS JETS 

ZERO C H ANNEL 11 — — 

ZERO CHANNEL 12 
ZERO CHANNEL 13 

ZERO- C H ANN E L 14 — . 








'-/’*;?’*•♦ •: . 0 ' ;'* ; ■■ ■'* , - t. . * ^i\*V' ’ . ^'.i * . . ■\ -, ^/*-*‘'‘*'^»kT^,J|o‘-i' ,". 

' . : • ■ • .■ ■; ‘ >Ki .'. . -•- “ ; ;; ■'^; .> : • •.•*. ?-■ - ^ 

■ , •' • . ••■•.. ■ I,-,.' • . . •.- • - , '■ ..- •'•'■•' ■■ -'. -.■ , . • -. -••••>..■ ■ ■ . 

I .^■- ■/, .■;..^.iv ., V ■ r' . . ,. j-i<,^ . :.. . j/,.A,,i^\.» ■. .■i,,><;.i .; , B , n i. nia rii «< *iis».i Lt 




i T^ i .j i i i i-HV* i s 






■¥> 


-a fe . 


GAP: A'^SF'^PLE REVISION 05S HP ^r;r proGra^ GOMATqCRE BY NASA ?;n'2i 1 1 3-Ob 1 




10: py APR. rv i9 69 COMA in 





L 


0117 

oin 

OlZO 
01201 
0 1 2 0 2 
0 1 2 OT 


Pv c SH START AO O IJTRTA ^T 



■RE 


T 


Obf2^?A 0 7501 T 


USER-^S RAGE NO. 


E3 S3 


REF 

1 



05,2407 

54 571 

0 

TS 

NVSAVF 

Q FP 

1 



05.2410 

SS » 071. 

I 

T S 

E 3 ANK TE M 

^EF 

1 



, 2'4Tr~ 

5 5 * 1 30 

0 

TS 

■".'ATE INOX 

REF 

2 

LAST 

7 8 

05,2412 

55* 126 

I 

TV 

TRKMKCNT 

RcF 

2 

LAST 

175 

0 5 * 2 41 i 

55* 125 

1 

TS 

VHFCNT 

2 Ff 

1 



05 , 2414 

5 5*0 44 

1 

1 S 

EX rVHAC » 

"3 n c 

' ' , i 

21 

LAST 

183 

05 , ?415 

4 1036 

1 

CS 

0SPTA3 +110 

T! ’^F 

2 

L A S t 

Tffl 

" ITS'.ZAT^' 

T3038 

a 

M A S K 

B 1 1 b4 

3 C C 

U- 1 

38 

LAST 

16 B 

05 , 2417 

10 ocn 

0 

CCS 

fl 





05 .2420 

0 2424 

1 

TC 

+ 4 

R“EF“ 

3 

~LA ST 

1 84 

05 . 2 421 

~3 50 33 

i 

CA « i 1 S4L 6 

^ A «■» A. m, 





05 ,7477 

0 0006 

1 

EXTEND 


rv, 1 

19 

LAST 

1 83 

05 , 7 ^,23 

05 012 

1 

WOR 

CH AN12 


•KLEAM 


THP 
1 


I MU WAS IN CUARSE ALIGN IN GIMBAL 
• Sn PUT IT BACK INTO COARSE ALIGN 


01215 
01 2T 5 


PFF 

T “P 


12 

1 


LAST 133 


05,2^75 

TT5N”7^Z^ 


A 5021 0 
ST^TJTT IT 


CS 


Z^RO 

MOORFG 


0121 r 
01 21"^ 


REF 

REF 


1 

1 


^T-rr 


ETTSl m 


m 3cr 

0131 


t? 

1TEF 


1 

TT 


05,2427 

rT5VZ43TT 


0172 



1 


05.2431 

0X23 

^ EF 

34 LAST 

^7T 

05,'7'432 

0126 

REF 

3 LAST 

163 

05.2433 

0127 

■dtff” - 

TV CAST 

16 9 

05 , 2434 






0123 

"? E F 

1 


05 .7435 


rasT r55 


013 


rv^ 


0137 

o pp- 



0134 

RFE 2 

LAST 

132 

013 V 

REF 1 



0136 

REF 7 4 

LAST 

179 


01 3T” 
013T5 
0133 
Ol’RRTE 

0130 


R FF 


p 


EF 
GPp 
PTF^ 


T 

1 

2 

7 


rv 




_> 


Ef 
RFF 


LAST 

LTTST 

LA Si 


75 


1 14 
tF^ 

I 34 
TFT 


n 5 < 2 43 6 


05, 243 7 
t)5",’244r 

05.2441 
0 5t 2442 
OS.'^AAS 


3 43 71 0 
54~3Fr6~0 


ns 


05 , 2447 
OR .2450 
05.2451 


05,2452 

" ^ ^ 4 f ^ ^ 


55^320 0 


3 7716 0 


3 32t52 3 
55*331 0 


3 5070 0 


0 0006 1 

"T 
5 3 *313 0 



5,2444 3- 3 204 — 1 

n4 4B 5 4 0 74 0 


45 3 00 


-7 STMIA 
6 3205 

54 O T F 


1 

O 

r 


3 3206 O 


54 07.4 1. 


CAF 


CAF 


CAF 


CAF 


CAF 

“TS""- 


PR 1030 



1^30 IN IF 
t! $ 3 0 


NFGONE 

O P TINO 


OPT ir4ITF 


IM33 I NIT 
!MnOE S 3 3 


EXT*" NO 

OCA" TFFOtETl 


OXCH 


CA- 

TS 


CA— 

MASK 

AO 

TS— 


CA 


T3 


T5LOC 


SWl Nt T 

STATE 


f 1 : -A CR C» 
NOPOIBLT 
SWINTT fl 
F-LAO W RO I 


S-WINIT 
s -f A^E^2 


FRESH START I Mtj INITIALIZATT 


KILL COA R SF OPTICS 


LET T5 IDLE* 


LEAVE NODOPOl FLAG UNTOUCHEO 


013 


1 ' 


WEF 


1 


0 


; > / 


i-->4 3 00 7 7 1 


CA 


f LAGWFn3 



GAPl aSSFMPLf REVfSIOM 0*;*^ OF Am: PRnr,HAM C^^AMCHF 5V N' A ' ^A 20?I113-0bl 


1012 a &t»R. 1 , 1969 COMa 1 0 7U79 PTSI^^ TB^ 


r 



a NO Tt ESTAirr 


a ~Se B «S P AR E N O .' 


5 


0140 PS t AST TVr Tr5174Ta T 5000" 0 ' 

01403 RFF 4 - last 134 0"3V2456 6 320T T 

01403 tc-iF 2 — ram — ra^ — 03 , 243 ? — 54 nt/ ~o — 


0141 03,2450 0 0006 1 

OINrm '^FF 5 TTST 105 05', 246 1 3 3211 0 

0143 OFF 26 LAST 184 05.24o2 37 101 0 

0144"” 0 5,2453 — 0 0006 1 

“■QT 45 TEF 5 DTST 155 05',"2454 3 i2H I 

0146 REF" 27 LAST 135 05,2465 52 103 1 — 

01462 ■'^'EF 1 — 05,2466” 3 0104 1 

01453 RFF r 05,7 467 T Z5 :> 5 0 

'0145 35 REF 7 ITSST 105 05,2470 6 3214 0“ 

01464— T5EF 2 LAS! "TBS 05i2471- 54 104 0 


WASK ■ 5mr BEFSM'iai— FlrAO 

ALT SWINIT +3 

rs FL A0WRD3. 


EXTENir - 

“OCA SVINTT +4 — — 

”OXCH -STATE— F4 

EXTEND' ” 

uca SW I N IT *6 

OXCtT STATE TO 

cr FLAOwaOT 

MASK 0 0 7 6 2 00 CM O ON F LO, LM OO N F LO. AND SUFFLAO 

”40 SSLlNITTStr 

TS FLA0WR08 


01465 “REF 8 CAST" 135 05, ”24 72 3 3215 1 -CA” "SWINTT TOn 

01466 REF 23 LAST 135 05.2473 54 COS 1 — TS STATE +90 


■ 0147 05,2474 0 0006 1 

014° REF 9 LAST 185 05.2475 3 3217 0 
01421 ■■RFF 29 ” 1 AST — TRS 05,2475 52'TD7 0 


EXTEND 

oca SWINIT +100 
CJXCH STATE +100 


0155 


TEF 


2 

1 


LAST 143 


'05'r247T 

03,2300 


0—4701 ”0 
0322'^ 1 


E NDRSTRT TC 
C AT3R 


POST JUMP 
B UM MY J O B 


D OE S 



BANK iT~ 


Ml 


T)157 
0 1 57 1 
015 8 
0157 
DTETD- 


xns^i 


0173 

0164 

0165 
~r)TSS 

0167 

0168 
016^^ 

0170 

0171 
OITT 

'01 7T 

0174 
■■0TT8- 


RFF 


TIFF 


REF 

REF 

REF 

PEF 


REF 


REF 


3 

1 


4 

1 


5 

1 


6 

1 


7 

1 


1 


LAST 168 


LAST 


LAST 


L AS T 


LAST 



RFF‘ "T5 DSrST r6K 


06 ,2501 
Xr?VT5V2 
05,2503 
05, 



0 71004 a 

0^0006 T 
3 5071 1 
T5 5 1 



■ OT ,-2505 

‘ 0 0006 

TT 

1 85 

05,2506 

'3 5021 

1 


05,2507 

52 761 

0 


06,2510 

C 

G 

c 

O' 

I 

185 

05'.-2?^rT- 

- 3 - 502 ?- 

1 


65, 2512 

52 753 

1 


05 ;75T3“ 

"Cr 0006“ 

I 

185 

05,2514 

3 5021 

1 


05,2313 

52 757 

0 


05 , 2516 

'0 0006 

7 

185 

”05 ?25 17” 

3 5021 

1 


05 i 25-20 
05>2521 


62 - 763 I 
0 0006 1 


05 , 25 2 2 — 3 50 21 1 

52 705 1 


05i2523 
> 25 24 


0 0002 0 


^.KLEAN INHINT 

EXTE N D 


OXCH 

DC A • 
OXCH 


E XT END 

OCA - 
OXCH 


V37KL EAM 



OCA 

OXCH 


NE GO 
-FHASE2 

NEGO 

-PHASE4 


OCA 

OXCH 

-rc — 


NEGO 

-‘^HASEl 


NEGO 

-PHASE3 



NEGO— 
OXr>R -t»HAS05 


NEGO 
-^HASE6 
0 


0176 


2525 06-200 0 -70076200 ITCT^ 


4 






VI irTXJ"‘0's'=' 'fi'UW L'JMANCHh liY NASA 


XXJT7W~njnr 


1 , 196P COMAT D ,029 P AG c 


sta:^t attct rtsta^t 


PAGr NO. 


^^3 S3 


P0I77 


COMtS HERE FRO^ TOCATTON ^000, GOJAH. RESTART ANY FR:nGRANS WHICH NAY HAW BEEN TONNI NG AT THE TIME 


0 1 70-" 

01^10 
01 TO 5 

0130 6 

0131 

orsi 3 

01>^l 6 
010 ? 
DIO?! 



K r r 


REF 16 LAST IB 5 


, ?!326 25"'TBA 0 GO'J^’nG 


PTT7R 


R EPi lCTR 


ADVANCE RESTART COUNTFR. 



05.Z52T 
T; 7 S''3 0 



I 

3 

1 

1 

19 



R FF 


01 

Ol^?F 
01775 
01B?7 
0 TBFR 




R FF 22 


o 


l-F 


LAST 

177 

0 5,-2 531 
05*253? 



■nrs'tT^TT 



05*2534 

LAST 

183 

05 9 25 35 



"715, 25 36 

LAST 

160 

05,2537 



05,2540 



05,2541 

LAST 

163 

05. 2542 



05 725 4 3 

LAST 

136 

05 * 2544 



05*2545 



D 5, 2546 


22 00? 
0 0006 
04 007 
53*433 
FT FT 


AGODO 
3 5001 
0 0006 
03 033 
0 0006 
1 2 SAT 

3 5002 
G OTTTJB" 
0? 033 
0 0005 

TT 2774 


T) 
"T 
1 
0 
T 
G 
0 
T 

1 

1 

1 

0 

0 

1 

V 


LXCH 0 

tx 1 EMI) 


FOR 

nxCH 

TC 

CAOR 

CA 


'SUPFRBNK 
RSB8Q 
BANKCALL 
VAC5STnR 
BIT15 — 



ES' F aR D EBUGG 




TEST nse FAIT BIT 
HA D A 



WAND CHAN33 
EXTEND 


SEE IF WE HAVE 
TF S B . - ATTEMP T^ 
A RESTART. IF NDT* CHECK THE PRESENT 
STATE OF AGC WARNING BIT. 


FTTF 


BUTTONS 


D1 32 ^ RE I- 


G5,7F47 0 ??57 1 8UTTDNG Tf 


CA 3fT14 

FXTEND — 

RAND CHAN33 
FXTEND 

N P NAVK E Y -1-1 

t IGHTStT 


IF AGC WARNING ON (BIT = OJt DO A 

S T AR T O N 



WE ARE IN /i RESTART LOOP. 


MAKE FPES^H START CHECKS BEFORE ERESTORE 


Px0173 
ROl 9 5 
R 0 1 BT 
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05 T 0 RFF I 04 , 30-30 '6 206 R I 


CS FLAGWR06 

MA S K nC T ftOOOO 

EXTEWO 

B ZMf T SI TPOO 


0641 04, 2-03 1 0 0 004 O RC^^TtlPOO INHINT 

06412 i vp — 2 LAST 133 04,2032 3 SOST-O"" CAF EMAMK 6 


NO, IS TVC OAP ON- 


NO, CLtNTINUF WITH HOO 


GAP: 

ASSF'VOL 

r r>i 

t: s 

-VISION 

0 5 5 

nr Agc PR 

ca 

r L j 









L 

FRF SH 

START AND 

REST APT 




0542 

K 5 5 

s 

f 

LAST 

lOO 

04,7033 

54 003 

0 

0 64 3 

REF 

3 

LAST 

1 77 

r 6 , 1466 



0544 

PEF 

1 



fT 47 R 1 3 4 

" 31 14 74 

T 

0645 


2 

LAST 
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aA'. 203 S 

55^653 

0 

0647 

FF 

n 

1 

L^ST 
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" 0 * 4 , 2 03“6 

0 4740 

0 

1567 H 

- -p^ 

1 



04, 2 0 .3 f 

81 f) 1 7 

"0 

0649 

IFF* 

C; 

LAST 

1^8 

0472 040 

0 4740 

0 

0650 

REF 

1 



04, 2041 

13366 

0 

0 6 5 1 





“ 0472 * 047 “ 

i dMo 

TT 

065 2 

^ Fr 

1 0 

LAST 

roB" 

-0-4, 7 043 

0 4740 

0 

0653 

9 EF 

1 



" 06 ,2044 

42025 

0 


ITT'KiASd 2021 113-051 


API*’ 


Trr^ CUMAID 


06^^'+ 

0655 


0657 
065 8 

*06 5g~' 
0660 
0660? 

06605 

06oT)tr 

506^51 

066T 5 
0652 
0663 
0665 


p ff 
“kFF~ 

FFF 

RTF 

RFF 

cF 


11 LAST 193 
1 

nTASi rrr 

2 LAST 197 


RFF 


RFF 


Z 

3 

1 

TT 


LAST T9 T 
LAST 194 


LAST 


' j 


LAST 198 


04 - * ^ 0 A 5 
04 » 2 046 
TT4T7T4T 
0 44 3 0 30 
04,3051 
34731733 
04.3053 
O^’T, 20 54 
"0443356" 
f j 4 * 2 0 5 5 
04, 

04 . 


0 4740 0 
51071 0 

3 5021 1 


30 5 7 


1 


mTtr 

04,3 05]. 
04,3062 
3TT3T3 

044 30 64 


54 775 0 
0 0003 1 
3 ■■5022 1 
0 4662 1 
01733 0 

0 0T06 1 
0T^tr053T 

0 ’ 0006 1 

01 0 06 XT 
3 0775 1 

rr ooDT'^r 

1 '3113 1 


TS 

EBANK 
XTTF 

TS 
TC 
T 


ISIT 


TC 

CAOR 

CAF 

TC 

CAOR 


fbank 

dapoatri 

CSM'^ASS 

1^ASST*^P 

TBNKCALL 

SFTOFF 

TBNKCALL 
MASSPROP 
3. I SEC 

ITTKCALL 

RCSDAPiOW 


+ l 


TC 

CAOR 

CAF 


IRNKCALL 

TVC7AP 

ZrPO 


TS MMNUMBFR 

REL [NT 


TC 

CAOR 


SANKCALL 
OFLAYjne 
TORtr 


NO 

WRITE 5 


WRITE 6 
CA MNNUNBFR 

EXTEND 


IISER»S RAGE NO. 18 


079 PTOTF T96 


E3 S3 


DISABLE FVC 


BZF 


! SSFR VON 


YES, CHECK SERVICER STATtJS 


TJE 65 

—urrjr — 

. \ L- I 

—J 

TASl — 

"T 90 

0656 

RFF 

1 



0667 - 

RFF 

4 6 

LAST 

197 

06 SB* 

totf 

1 



066 ^' 


11 

LAST 

189 


06 7 0 


06 ri 


RrF 


I 


04, 2065 

0 44 2 06 6 
04 , 3057 
O 47 7 0 7 0 
04,2371 
04, 3072 


4 0075 1 


7 501*7 
10 000 
T-3T 


O 56 
01520 


0 

0 

1 

1 


CANT^^OO 


04,2073 0 4473 0 V37BA0 


MASK 

CCS 


TC 

OCT 


TC 


F t A G W R 0 2 

JT 

A 

ALARM 

1520 


RTLOSP 



l onn V 3'7 FLAG S 




RELEASES DISPLAY FRO^ ASTRONAUT 


0672 

0673 


REF 

P|^f 


4“ L A ST r^4 

1 


047^074" 

04,3075 


21273 0 


Tt— 
C A DR 


p ostjumr 

PINBRNCH 


BRING BACK LAST NeRKAt 0 ! S PL AY 
WAS ONE. OY 


0674 

06 75 
05/5 
0677 

0B7T 

0679 

OBTT 

06^1 
06 32 


■rr«=T 

t n ^ w 


r- F 


\ r r 




p 8 f : 


P V 


13 

14 
“T 

1 


A 7 
15 


LAST 

LAST 


191 

108 


TT30 7T 
04,T)77 
04 , 2 lO 0 


TT4T3TTT 




1 

0 


5 4 1 55 
50 155 
3 7 4 - 5 T 0 

T 6043—1 




;) 4 ,yro 3 

4 DODD 

0 

L A 5T 

1 

04,^104 

— 5 — 

1 

LAST 

I 9 B 

04,2105 

- if) tyorj 

C 

LAST 

1 9 .3 

O'. , 10 ^ 

1 “D 1 ^ 

T 


CHfCKTAB CA 

AGAINMM TS 

ND X 

CA 

MASK 
C 


CCS 

CCS 


NDV37MM 

MPAC -f-t 
MPAC 4-1 

LOW? 


T H E NO, Of M M 


MMN 1 I MBER 
A 

M^AC 4-1 


WH I CH - MM TF li S— f 


IF GH. S-F I"^ ANYMOOf IN LIST 


ttap 


AS>r 


“T — 7«" 


r 



OF A'.C Prn'G-iAM COM\M'Hi' RY MASA 202111.1- 



TTe~^w: rrrT6 " — chma in — — pa/^f — 


“■R^ SH ST APT AND TT^TA:'T 


0'6ST 


Q 

P irp 


1 

1 


0635 

0686 


06S7 
06 33 
06 ^ 
06-0 


0 7 

06^3 

UFTZT 

06^^6 

071 6 
0715 


071 6 
0717 


0713 


r . ti 

RFF 

P FF 

^FF 

Q ^ P 

» A L I 

REF 


16 

1 

1 

1 


R-PF 

RFF 

TTFF 

RFF 


'^FF 


HFF 


1 

1 


T? 

i ^ 


FF 


06,^107 
04 . 7110 


1 2077 1 
1 ~22 77 0 


LAST 19r 


04 , TTT l 
04,2112 


3 015^ 0 
54 774 1 


LTTSi — rrs 


04, ? 113 
04,2114 
'74T7 


3 LAST 
■4 LA^ST 

1 


RFF 


04,7116 


401 03 1 
7 501? 0 
10 000 0 

1 7124 tr 


L 


34 

rw 


04 r^'l I T 

04.2120 

04.2121 
04 , 2 I 2T 


0 0004 0 

4 5017 0 
7 0075 1 
54""aT5 1 


n^. , ^12 3 — I 5717 1 


o^t, 2124 


0 


h » 


126 


3 241P 1 

54 -3 74 n 


2 LAST 194 mT7126 0 -5417^ 

-04,2127 - 00014 T 


. F 

TCF 


TTOAimM 

V3TN0N0 


CA 

TS 


MPAC +1 
m NO EX 


I SSFR VON 


C$ 

MASK 


TXS 

TCF 


FlAGWPn? 

V37FLB1T 

75 

CANV3T 


INHINT 

CS 
MASK 
TS 


AVFGBIT 
FL AGWRDl 
FTAGWRTrT 


TCF 


ENDOF JOB 


CANV37 


CAF 

TS 


ROrJAD 
T F M P R L S H 


TC 


PHASCHNG 

14 


04,2130 tr 6005 1 ^no 


TO 


IMTP^^T 


USLP*S PAGE NO. 


F6 S3 


YES» GET NEXT ONE 
LAST TI^E n? PASSFO MM 


SAVF INOtX for later 


V37 FLAG SET 


T,E. IS SERVICER GOI 


NO 


YES 
FOR 


TURN OFF AVERAGE G FLAG AMD WAIT 
^VICEP TO RETtJRN TO CANV37 


OTTT 

0720 

0721 


R EF 


1 


0772" 
0773 
71724: 

0725 

0776- 

0727 

A0723 

07 29 
07 5 0 


073? 


073 


0T3T 

0735 




RFF 


. : f f 



^EF 


R -F 


■RTF 

-r- F 


I 


I 


t 

I 


04 ,2T3T 

04,2132 
0 4, 213 3 

04,2134 
04;'’] 35 
04 , : ITS' 


•^7 674 
77442 0 
7 7 7 76 I 


04,2137 


T4T71"^Tr 


4 5051 1 
0 0006 1 
03 011 L 

3 2403 1 
0 0006 1 


0*"»,7T41 0 3 012 1 


0 / , 42 

n , 2 I 4 3 
, 7t 44 


rr 


C' 


4 2404 1 
0 0006 1 
03 — rrt 3 - o 


3 LAST 194 n<( ,2 1 45 0 2330 "O 


OAtr 


nUM^/YAO EXIT 


LAST 194 


04 , 2 1 4 F 0 55 30 1 


0 4, 21 4 T 

04 - 21 5 0 


5560 - T 
00020 0 


INTST all 


CS GCT140n 

EXTENT 

^TAW — rT~ — 


CAF 


0CT44571 


lANO 


12 


CS 0CT6O0 

EXTEND 

NANO 1 3 


TO 


INI fSUO 


TC 


CL P A^^'^RK 


TO 


OO yNf t ' AO 


STIKT^ AG 


CLEAR CAUTION RESET 

ANH TPST CONNECTOR OUTBIT 


CLEAR ENABLE OPTICS ERROR COUNTER, STAR 
TR AX t^TS O N B I T. TVC ENABL "C . ? F Rn O PT ICS, 
OISENGAOe OPTICS OAP, SIV8 IN J SEQUENCE 
STAOT, ANO SIV8 CUTOOF BIT. 


CLEAR UNUSEO BITS 


GAP: 

L 


0736 

sFF 

RFF 

4 

1 

LAST 193 

""04, ?rTr 

0 465? 

1 

0737 


04,2152 

57767 

0 








0733 

2 FF 

2 

LAST 109 

2153 

0 5550 

1 

07 3 '1 

■1 F F 

1 


04, 2 154 

00215 

1 

0740 

“ * €- 


"LAST 200 

■ ■04,.?l'3'S 

Tf 3560 

T 

0741 

pp 

1 


04 , 21 5 6 

00037 

0 


0 742 

7tF 


L A ST ITET^ 

04,2 15 f 

lU Ub 

T1 

074 3 

2 EF 

1 


04, 2160 

T 2260 

0 


A^^F‘’^pLE I ^TITN" TT'ST ' ' ) P AGC P^-'jG^AM CO.M 



V * 


F^ FSH ST^iPT ANTI" REST *^5^7 


NASA 20211 13-Obl 


int2B APR. TTP^F^ CUmTO PAGF ZtJTT 


USER'S page 


?0 


E6 S3 


TC BANKCALL 

CADP UPACTnfF 


TC DOWNFLAG 

AORES VHFRFLAG 

TC DDWMFLAG 

ADRES RRIMA^PK 

res 

TCF NnnVF AU 


TURN OFF UPLINK ACTIV LIGHT 



NO* t>TCK tm NFW PRUGFAM 


07^^ ' FF ' ZTIAST 194 TO 19 ': 9 9^""^ “ rniTNT r)A/POO 


0745 ^FF 2 LAST 04,?161 0 4473 0 PHOH TC RrLDSP RELEASE OfS^^LAY SYSTFW 


074S ■ "?FF 1“"~ 04^157 3 5061 0 CAE PP 1 75 SET VAPTABLE RESTART REGISTER FOR POO. 

0747 ^EF 1 04,71^,3 35*056 1 TS PHSPPTOT? 


0748 04,? 1 64 0 0004 0 INHINT 


■0T49 ^FF ’7 ■ LAFT HTB O-T, ?165 4"5ri 7 ^O “rS“^ N OnnST T — TURN OFF NODOFLAG 

0T5O ^EF 4 LAST TT8 044T165 7 00*66 1 H A SK— EL AGW? D2 — 

0751 REF ^ LAST* 200 04,2167- 54 OTO T "TS FLAGWPOP- — 


0752 REF 3 LAST 198 04,2170 3 502? 1 CA flVT SET 7.5 ftf-START FOR STATEINTl 

0753 REE 11 LAST 10? n4»2lTl 54 001 1 TS L 

0T54 04VTrr2 4' 0000 0 ‘TTCm — ^ 

0765 REF 2 LAST 1R5 04,2173 52 755 1 OXCH -RUASE? — 


”“0756 — ’■■■"REF 1 Oh, 21 74 4~Z4Tm (TS BTTT^ 

0757 1TEF “1 ^ — “ 04,-2 rrs - 7 0074 n MASK FLAGW^^OO 

0758 RTF 2 LAST 200 04,71 76 54 074 0 TS FLAGWRDO 


0757 — ^■^EF 1 04-r2t77 3 50 21 1 CAE ONLAOPOO 


T)T6n RTF r riTST T^T- TO — "104 10 47^ - ""TOUNT - 0 - 4/3/3 7 


076] REE 3 LAST 1B3 n/-,^>200 54 332 1 S^^UOOPOO TS ONLSTCOO 


I I * t U SE -I- K- TLL P20 BY TURNIN G OFF 


^ENDFLG 


SET UP A^PP.O‘^»T ATE OUWNIIST. 


A 0 7-62 

0767 n|=f I 04,2701 4 2410 1 

" 07o 4 RTF 2 L AST 134 OA , 2202 55»07r~T 

0765- OFF 5 LAST "lOR 047 ^ 7 0075 1 

0766 REF” 6 LAST 200 04,7204 5 4 075 1 


(OLD HNf WILI- BE F I NT SHED F f RST ) 
CS tlCTOllRO TURN tT^F TRACK, TARGli UPDATE FLAGS 

MASK FLAGWROl 

TS PLAGI^POl 


0767 

- R-EF" 

12 

LAST 

075 0 

0 pp 

1 


076'’ 

* 1 ' 

" 1 

6 

1 /'ST 

0775 


1 



04.74^ 0 47^ 0 OPflt^ TC IBWCALL KirL OROUPS 315,6 

04,2206 12513 O CAOP V37KLFAN 


n4,RR07 111-775 O CCS H^^NU^RFR IS IT PU4H 

n' 4,2110 1 7217 0 TCP RFVOV^XT AJO 


'T^r: VISION 



■ BY NASA ;>fj21 1 i'J-Ob 1 


10i2a AP^^. r^TTSn CDMA 10 7079 c^ftrE ZOt 


t: 


STATE AND PESTAtrr 


USER*S PAGTT^n. 21 


E6 S3 


TTTTl 

0177 


0773 

0774 


0775 

0776 


0777 
0773 
T5T7T 
^07 SO 
T)T81 


“0782 

0733 

0754 

0783 


0758" 

0787 

0788 

OToT 


0 7 70 

OTTT 

079? 

07«^3 

0794 

0798 

0796 


07^-^ 

0793 

UTO^ 

0800 


un !. 


TEF 

RTF 


13 L AST "“ZOO 


0^^.2211 
04T:’21 2 


0 -r^ T i^O 0 
" 12505 1 


TC 

CAOR 


rPKKCAtt 

PnnKLEAN 


RHDUNOAHT EXCEPT FOP GROUP 4 


7 

f 


7 

3 


LAST 

LAST 


200 

139 


04t 2213 
0 4,2214 


3 0775 r 
55*011 1 


GOMnn 


CA 

TS 


MMNUW3ER 

MOOREG 


"HFE 

"REF 


8 

1 


LAST 198 


0472215 " O 4701 0 GOGnPROG TC 
0472216 12651 0 CAOR 


RFF 

REF 


R 

2 


LAST 

LAST 


201 

165 



04,9720 


"REF 
9 EF 


TT4T727T~ 
04,2223 I 2234 


4 0775 
6 4112 
0" 0006 
1 2224 


0 

T 

T 

0 

I 


RFNOVno 


“REF 

REF 


9 

4 


L AST 201 
L AST 


04 ,'222 4 
04,2275 
04,2226 


4 0 775 0 

6 1911 0 

O"O0O6" 1 


RFF 


1 


04,2227 1 22^40 1 


REF 


P 

RTF 

REF 

TEF 

RTF 

REE 


~T 

1 

49 

“T 

(- 

-- zr 

50 
1 


XTTST 200 


LAST 197 


04 , 7230 

04.2231 

04.2232 
04 , 2 ?1 3 


T00T4 I 

7 5ort-o 


1 2251 1 


LAST 

“LAST 

“LAS T 


201 

TOT 

201 


RFF 

PEF 


LAST 185 
LAST 188 


O^ , 223 4 
04,2235 

04 ,2936 
"04,2237 
’T4 , 27 40 
0 4 ,224 1 
04,2242 


3 5011 
7^ O0 ~^ 4 

1 0 OOO 
1 2246 


tmOOF 


n 


5021 
52 753 


1 

0 

0 

1 

T 

1 

1 


POOF I 1 1 


K T LLZO 


0807 


PFF 

RTF 

h? - F 
KTF 

REF 


10 

“3 


LAST 

FAST 


201 

200 


04.2243 

04. 2244 
04 , 9 


975 52 


0 0006 1 
3 5091 1 

733" 


L"AST 799 


04,2246 
0 4 * ? 2 4 7 


3 2411 I 

5 - 4 - 7 7 4 


RFV37 


7 


1 


04,2250 1 27.13 I 


POSTJUMP 

GOPROG? 


C$ 

AD 


MMNUMQFR 

nCT24 


IS 

20 


^rFW PROG = 20 


EXTEMO 

37F 

TCf 


REMD^nn 
^nnFT7 7. 


YES 


“RENDNUO ~C3 

AD 


BZF 


MMKtUMBER 

MOOREG 

KIL L20 


MASK 


FL AGWROO 
RNOVZB IT 
A 



TCF 


C AF 
37rsic 

tcs 

TCF 



RNDVZB IT 

Ft AG WP 00 
A 

REV37 


EXTEND 

OCA 

DXCH 


NO, KILL GR O U P S 


NEGO 
-PHASE I 


EX TEND 


ME GO 


DXC H 


CAF 



TCF 


V970CA0 
T FMPFt SH 


GOGriPROG 


SET RESTART POINT 


9803 

0804 

0805 


0806 

0507 

0802 


LAST “200 


REF 

RTF 


Txn 



TT 

> 

REF 


? 


aCST 29t 

t.AST 185 


tm 2^ I 
04.2252 
0 4 ,275 3 

94, 0 0096" T 

9 4, 2 2 3 5 3~3 0 n — t 

04,77 50 5 2 751 0 


STATQtin 


CS 

MASK 


Ft AGWROl 
OCT 120 
F t AGvmoi 


-SET TRACK FLAG AND UPDATE FLAG 


EXTEND 
99A — NFQO 


KILL 4 


nxcH 


PHAS"^ 4 


T^P: AS^. F.MbL^ ';FVT'^TnN 05Y UF AGr'PP nr,c^,AM C 




HY NASA ?U2in^-n^l 


Turzn Apw. rrrwm — chmatd .029 f'agf — zm; 


L 


FRESH START RTSTART 


USFR«S PAGF MC. 22 


H6 S3 


0809 r^EF“ 1 0A,7Z5T‘ 1 2713 1 TCF GTIMOP 


NH, RESET I MUSE FLAG. 
BIT 8 FLAG O 


OBTAIN NEW OOWNLtST ADDRESS 


GHTS 04 , 2270 — OrnoaoA 0 mFINT 

081’^ REF " 1 Tr4,2771 1 2700 0 ” — TCF SEonriRnn 


*^0H7D RTF I 04,22 72 — 0 44 00 1 VBTNriNrj TC FALTON COTE H E R E TF R E QUES T ED DOESNT FXTST “ — 


0821 RFF 1 04.2773 1 2073 0 TCF V378AD 


0822 REF 16 LAST 187 

0323 

TTET T " TTTST ““TOT 

0823 r’FF ~2 LAST l^^R 

^TT87S REF T — — 

~(TB27 RTF 1 


PRESET GRtJV»P4 RESTART PRIORITY 
STORE PRIO f-OR S®VAC 


0828 

R E F 

2 

LAST 202 04,2301 

3 0020 

0 

CA 

CYR 

0829 

R-ET 

1 

0 4 , y i>n ? 

T ■7'5T 4 

1 

M A SK 

PR I n? 7 

0830 

7EF 

1 

04,2303 

55*062 

0 

TS 

PHSPPDT4 

0831 

KEF 

1 

O4ry7304 

54 053 

0 

TS 

NEWPK I 0 


5014 

04.2274 

04.2275 

0 4 , 37 7 6 
04. 72 7 T 
04.2 


0 000 ^ 0 
50 TT4 0 

3 7457 0 
SS^OBO l- 
■54 020 1 


OCTOOOIO EQUALS BIT4 


V 37 XC '0 


[NHINT 


CAF 


TS 


PRF^^l 

MMTENP 

CYP 


OBTAIN PRIORITY SITS 15 
S HI F T ^ IGHT TO Q-T- TS 14 


11 

T 0 ~ 


081(1 

0811 

0812 

mrj 

0814 

0815 
OFTTS 

0 81 7 


REF 

REF 


REF 

p pp 

RTF- 

RTF 


3 T4ST 


5 

51 


4 

1 

* 


LAST 

LAST 



201 


LAST 27} 0 


FAST rw 


T 4 . 22 TTT 
04 . 2 ZhT 
04, 27T7 

04.2263 

04,77S4 

04,2765 

04.2266 


04, 


TT"T NOUVEAU CT^F 


T 0074 
10 000 
1 2266 
T) 5560 
00007 


0 

0 

TT 

1 

0 


50 774 0 Fi 


>T 3 2571 tr 


MASK 

CCS 

TET 

TC 

AORFS 


KNUV7B1 I 

TL AGWnOO 
A 

T3“ 

OnWNFLAG 
I MUSE 


INDEX MINDEX 


CAF 


ONLAOMMI 


— 083? -“’FF 7 LAST “707 04,7305 3 1060 0 CA 4mtfmp OBTAIN F8ANK - BITS 8, 9, 10 OF MMTEMP. 

0833 04,^306 0 0006 1 EXTEND 

' — DBT4“ RTF FT" LAST TTS 04TZ30T — T 5 010 1 ^ BTT3 — — 

0835 REP 1 0^,2310 t 507^ 1 MASK inW3 

0836 'EF 12 LAST 200 04,^311 54 OOl 1 TS L 

n B3T RTF 4 LTST 707 04^7307 50 774 O T NOE X “ M I NU t X — — — 

~ 0838 RFF 1 04,231 3 3 2416 0 CAF FCAOP***^! 

0839 7FF 1 04,7T14 55*061 0 TS BASETEMP 

■ 0840 RTF 3 LATT”- T8T 04.2315 '7 4364-0 MA S K 

0341 REF 13 LAST 202 04,2316 26 001 I ADS L " 


0847 RTF 2 L7TT — 707 — 74 ,73 T7 5 1061 — t — CA BASETEM^ BBTAIN GENAf) *> PORTIO N DF 2CAnP ^ 

0843— ^FF 2 LAST 35 04.2320 7 5054 1 MASK tflNl 0 

0844 REF LAST 1 43 04,2321 6 5005 I AD PITH 


084 



~04i"2 322 O" 5 1 60 O 


TC SPVAC 


Cr 84 n 

0847 

0843 


"»f'F 2 i:ST 108 04,2324 7 6043 I MASK L0W7 

RTf 1 04, O 0 TC NFWMnOEA 


NFW MM IN MOORfG (THE LOW 7 BITS OF 
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5^ 

1:7 


RT^M CGMANCHt BY 113-0 b i 


lUii'y API^ 


TTTW^’ — COI^A lO 


VZ^ 2TJ3 


^RF5H START ATTO R 


R08A9 

“T38SO 

"RTBST" 


085^ 

W5T 

oes-v 

UF5T 


FOR “SUNOT 5K ONLY^ 

3 LAST 200 
FFF Z^UTTSI TW 


R 


0^,7326 

ttztttttt 


0 

TT 


AA73 a 
52 W 0 


TC 

TC 


R EL DSP 
FNDOF J OB 


T7 CAST 


TW 


0B5S 

0857 


REF 

TTF 

REF 


3 LAST 197 

~6~ u AS1 — rw 


LAST 1S8 


*233 0 
WTTTTT 

a^t?33? 

04V 2 3 SZ 

04 » 233 4 
04 rZ33 5 


0 0006 I 
22 155 0 


INTTSU8 


EXTEND 

xrxcn MPAC 


3 5057 
54 003 

0 0004 
0 


0 

TT 

0 

1 


TTAF 

"TS 

TNHTNT 


E BANK 6 
EBANK 


STDPR^ATE 


0353 

0859 


REF 

REF 


1 

1 


086 0 

— RTF 

"^53~ 

LAST 

72TT2 

0 S 61 

R FF 

1 

- — — ^ 

— 

0862 
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I ISO 

10R25 


T 



F5 , 1425 


E3ANK 

“FRANK 

“FRANK 

FRANK 

FRANK 
FB ANK 
FRANK 
FSANK 
“FBANK 
FRANK 
FRANK 
FRANK 
FRANK 
FRANK 
FRANK 
“FRANK 
FRANK 
E8ANK 


^TTT 


F BANK= 

-FBANK= 

F8ANK= 


FRANK 

FRANK 

FRANK 


KT 

S UR F X I T 
SURFXTT 

S t;IR F X T T 
AUG 

TOG 

BEST! 
START NO 
BFSTI 

ST API NO 
P40TMP 

knfac 

KT 

SI T B EXIT 

sue EXIT 

SURFXl T 


LANOMARK^ 
MARKINDX 
WHOFAPFS 
ES T^OKFR 
TIME2SAV 


FRANK 

FRANK 

FRANK 

FRANK 

FRANK 

FRANK 



SETTING 
SETTING 
SETTING 
STTTTNr 
SETTING 
SETT I N G 

rr 



RTE O U 
REOUTRED BY 
REOUIPEO BY 



MM 76 
MM 75 

MM 7A 

73^ 


REQUIRED 8Y 
REQUIRED RY 



NM 72 
MM 6 2 
MM 6 


FRANK 

FRANK 

FRANK 

FRANK 

FRANK 


SETTING 
SETT ING 

oETTTNO^ 

SETTING 
T TNG 


REQUIREO RY 
REQUIRED RY 
R FQ U 


REQUIRED 

REQUIRED 


EBANK 

EBANK 


SETTING 
SETT ING 


REQUIRED 

REQUIRED 


EBANK 

FRANK 

EBANK 

E6ANK 

FRANK 


SETTING 
SETT ING 
N^ 


SFTTTNG 

SETTING 




ERA^K 

FRANK 

EBANK 


SETT ING 
S E T T I NG 
SETTING 


REQUIREO 

REQUIREO 

REQUIRED 

PEQUIREO 

REQUIRED 

REQU I RED 

REQUIREO 

REOUiRFO 


MM 54 
MM 53 




BY MM 51 
BY MM 47 
"tM 4x 



BY MM“40 
BY MM 35 
BY^ MM 34 
8Y MM 33 
BY MM 32 

BY MM 23 
BY MM 22 

-2t 



BY 

BY 

BY- 


MM 20 

MM 06 


P 1033 5 NDl F 

410645^ 

RT0855 


T H E F OCtnW T NG CONS T AN T I S T H E •N t TMRF R OF E NTRIES I N EACH OF " 
THE above LTSTS-TtIF, THE NUMBER UF MAJm MUOESCFXCEPT POO) 
THAT CAN B- CALLED "FPOM T KEYBOARD MINUS ONE! 


1 0855 
10875 

REF 

3 

LAST 

20 2 

T0PT5 

K t F 

7 



10395 

1 oof's 

RFF 

4 

LAST 

205 

10915 

RtF 

1 




04 , 25 ?0 
04,2457 
0041 
04 ,2000 
04,? 520 


04.2 52 0 00040 Xf 


EPRtMMl 



EQUALS 

SETLHC PRFMMl 
=M rNUS EPREM M l 
SETLDC VERB 3 7 
BANK 


NnV37MM ADRES “f^t.MMS -1 


END OF PREMMl TABLE 

THIS COOING WILL AUTOMATICALLY CHANGE 
T H E * N0V37 MM < - CONSTA N f A S EN TRI E S 4RE- 
TNSERTEOIIN) OR BELETf 0< FROM ) THE 
•PRFMMl' TABLE. 


TTEHS IN ' PREMMl* TABLE - 1 . • T MOVE* 


— T0925~' — 04,2521 ONLAOMMl EQUALS — — — 

— 10935 REF 04,2521 00002~0 AORES REN0E7Vti P79 

— 10045 RET 2 fast 204 9'^. 25 2? ODOD2 — 0 A OR E S R ENDETVU 

-10955 3 LAST 20B 04,2523 DDDfr^ D AORES REAIOEZVU P77 

■ 10955 ‘^TF 4 LAS^ “ 206 04t25?4 TViTOOP 0 AORES P^NOEIVU P76 

1097 5 TEE 5 L AS T “ 2 08 , ^525 DnOOt "t) AORES RFNOEZVtJ R75- 

10985 PFF 6 LAST 20B 04,2526 OOOO? 0 ADPCS RENOEZVtT- P74 

10995 7 LAST 04,:»597 0000'> 0 AOPFS RE^mEZVU P73 


ON AGt C OMANCHE BY NAS‘A“20^!1 1 13-Ob 1 


roTTU' — i.r 4 fc<j LUMAiu — ^rre-^^ — fthte — 


r 


FRF SrfrSTA'RT A ND ”R ^^JATn- 


USEF«S RAr^r NO. 7 ^ 


E5 S3 


I ITI OT 

11015 


kFF 
RFF 



11035 
1 10 '+5 

11 TT 55 " 

1106 5 
11075 

TTOR’^' 

linos 

11105 


PRF 

p 



P FF 
RFF 
FEF 
REF 


8 

1 

T 

T 

R 

T 

'T 

4 

a 


LAST 

208 

04,F53T} 

00007 

OODOl 

V 

ADRES 

RENDEZVU 

PT2 

P62 


0 4 , 2 p 3 1 

0 

ADRES 

ENTPYUPD 



“TTTTTTTT 

0000 1 

1 

A U >•’ b S 

PUWbKtD 

P6 1 



04, 35 33 

00000 

1 

ADRES" 

COSTAL IN 


LAST 

2tro 

34,7534 

00000 

1 

AORES 

COSTAL IN 


lASl^ 

~7TPT~ 

<.)4 , Z5 3 5 

00000 

1 

AUHtS 

CnSTALlN 

P5T 

LAST 

209 

04T3536 

-00000 

1 

AORES^ 

COSTAL TN 

P51 

LAST 

20^ 

04,2537 

00003 

1 

AORES 

POWERED 

P47 

TA S T 

"709 

04, 7540 

00 UO 3 

1 

AORES 

POWERED 

P41 

LAST 

209 

0 ^ f 2 ^ ^ 1 

00003 

I 

A DR ES 

PnWFR~F0 

P40 

LAST 

209 

04 ,7542 

0 0 0G7 

0 

ADRES 

RENDEZVU 

P39 


TTITE ■ 

PFF 


13 ST 

209 

0 4', 254 ? ■ 

00002' 

-T) 

11125 

RFF 

T 1 

LAST 

20<^ 

04, 35 4 4 

00003 

0 

1113 5 

REF 

12 

LAST 

2X19” 

04,7545 

00002 

0 

1114 5 

RFF 

13 

“TTrST* 

209 

U4 , 2 5 4o 

0 0 0 07’ 

“0 


RcF 

14 

LAST 

209 

— os .^47 

00002 

0 

1 116 D 

REF 

15 

L AST 

209 

04 , 2550 

00002 

0 

rnT5~ 


l6 

TATTF 

709 

"04,2 5 51 

GOOD?' 

D 

11185 

PFF 

17 

LAST 

209 

04, 2 *=^5 2 

00007 

0 

11195 


18 

LAST 

209 

04,^553 

00002 

D 

TITITS" 

0 L'F 

3“ 



04,2554 

00004 

0 

11215 

RFF 

19 

LAST 

209 

04 ,3555 

00007 

0 ■■ 

^ ^ - - — - 

11275 

r.EF 

7 0 

LAST 

209 

04 , 2 556 

OOOD2 

0 

TITT 5 

r\ Lr 

7T 

LAST 

209 

04,265 7 

■ ™ ■00007' 

0 

11245 

REF 

5 

LAST 

2 09 

04 , 2660 

00090 

1 

112'5S 

REF 

6 

LAST 

209 

04 ,25 6 1 

00000 

T 

1 1 2 S ^ 


19 

1 AST 

204 

5031 


UNLAOPOO 


TOFFS F FW tJEt Vt l 


ADRFS 

aorfr 


AHRES 
AT7RES 
AO PF S 
A ORES 
AORES 
A ORES 
AORES 
AORES 


TTDFFS 

AOPES 

AORES 


11275 
11285 
1129 5 

11^5 


0000 

OOOl 

TTTFTF 

0 0 03 


11315 


TOtrzT 


COSTAL IN 
E 31 TRYUPD 
■^ENOETVU 
POWERED' 

P2 2 0NL S T 


13F5 0R3 ITAL TMTEORATION CEr^-ISTANrS 


^ 1 133 S THE SE^CTTTST 
11345 
11345 
1 OSS- 


USED IN' con PUT I NG 


11355 

11365 

11175 

1135^5 


R f F 


04, 2 5 6 3 
04,2563 
0'4V25 64 
04,25 65 
I 1 ♦ ROOD 
TTTTTrtrrr 
T 3 “r 3 CrOO 


00465 

32324 

mrr. 


0 

0 


R^M 


2DEC 


01733 I 


roFC 


BAtlK 


113TS RFF 


T 


11405 


.* iZf: 


L A 3T 


8 5 


F 3 *155-4: 


RFNDE^VU 

RENOE7VU 



RENOEZVU 

RENOFZVU 


F3F 

P37 

P35 

F34^ 

P33 

P32 



RENDEZVU 

RENOFZVU 


P30 

P23 


RENOEZVtJ 
RFNOEZVU 
RENDEZVU 
CaSTALIN 
COSTAL IN 


P?1 

P20 



P06 

POl 


0 

1 



2538.00 F3 8-27 800 KM ABOVE LUNAR SURFACE 





800 KM ABOVE FQ. RADIUS 


13 


S ET LOC INT t NIT 

ftA^4K 



f 3 ANK- ^RECTCSM 


11415- 
11425 RFF 


13 , 2000 


13 


f < 


> f 


)0 1 


4301 4—0 

014 74 1 


STATEUP SET 


Bor 

V INTEL AG 


EXTRAPOLATF CM STATE VECTOR 


GAP: ASSF’^BLt KHiVISIOM 055 PF' A-GC PROGRAM COM A'f^3rRT:“BY ' MASA 20 2 U 1 3-0 b I 


Z 


FRFSH START ATID RT5TART 



1143S 

IIAT5 

11465 

11475 


115S5 

11565 


P 


1 


1377DTF?. 

13,2003 


pEF 


1 





PEF 


RFF 


T 

1 

T' 

1 

2 

T 

2 


tasT 


85 


13,TG04 

13tT005 

I3,?0T)5 

~n;zoo r 

13.2010 

13.2011 
T3 ,2 0 1 2 
13, TO 13 

TTTTTTrzr 


0 TT 5T a 
26006 0 
TTSTTHT 

014T6 0 
45014 0 
01667 


T 

1 

0 

T 


LAST 199 


TTTTTTrF 

13.3^16 

13.2317 


27162 
71214 
■TJ430T 

26031 
01531 
34041 0 

0 


1 

0 


45014 0 


711695 


THisviNT IS CALirD-rr-rri'n'^AVi andt 


OROWFL AG 

+3 


SFT 


CLEAR 


BON 


OT'IOFL AG 
CALL 

PRFCTFLG 

TMTEGRV 

OLHAO 

5URFFLAG 

STATEMO 


STCArC TDECl 


CLEAR 


TT 5 7 b 

>EF 

”7 

32AST 

209 

^3,2020 

01 6 'K 

(J 

11585 

REF 

1 



13.2021 

2 66 T 0 

1 

1 1 595 




■ 

13,2022 

43014 

0 

11605' " 

"TCFF 

T 



■ ~r3 ,2023 

02 750 

i 

1161'i 





13.2024 

26026 

1 

116?5 

RFF 

2 

LAST 

210 

13; 20 2 5 

01 47^ 

0 

Trr635~ 





1-5,2 vl Z b 

45014 

0 

11545 

TFF- 

2 

LA"ST 

210 

.A. ^ ^ 

13,2027 

07467 

0 

11 65 5 

’^EF 

T 

L AST“ 

210 

13 , 2030 

27152 

1 

1 1 66 5 





X 3 ^ 2 0 3 1 

77 514 

1 

11675 

REF 

1 


• 

1 3 .2072 

01236 

1 

11655 

RFF 

1 



13,2073 

266 5 5 

a 


TTJTSTALL 

CALL 

VTNTFL AG 
ScTIFLGS 


BOF 



♦ 2 

OIMOFLAG 


PRECIFIG 

tNTFGRV 


CCRGO 


7ir»nOFLAG 

^NOINT 


ri705 
11715 9FF 


LAST 210 


1‘^ ,2034 
13., 7035 


43414 1 
014 74 1 


THISVINT SET 


RVO 

VINTFLAG 


10:28 APR 


1.1969 LOHAIU 7079 PTSrGF TTfT 


USER^S ^ 


NO • 30 


E3 S3 


ALSO 6X6 H-MATRIX IF VALID 

FOR ORBITAL NAVIGATION 


EXTRAPOLATE LM STATE VECTO«> 


AND 6X6 W-MATRIX TF VALID 



KPi 



rr^TT’nrr-Tr/c- PROGRAM cnMANCHfBY nasa zo2iii:^~o^i 


APR. r .196^ COMA in 


FAftn= ztr 


L 


RFSTART TABLFT^ 


USER’S PAGE NO. 


EO 


PUITOT 


RESTART TABLES 


ROOU7 


ROOOl there are two EORMS HE RT^TART TABLES TTm EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE 000 

RDOOT TEST ART TABLES. THE anD~lABLL:S HAVE ONLY T I NE E N T RY O F T HREE LUCA T IONS WH I LE T HE EVEN T ABL E S HAV E T W O EN T R IE S 

R0007 EACH USING THRPP LOCATT n>45. THE TIVEORMATTOM AS TO WHETHER TT A JOB. WAITLIST. OR A LONGCALL IS GIVEN BY THE 

ROOOR ^ WAY THINGS ARE PUT INTO THE TABLES. 

TUTHTJ A^JUHHAS ITS PRIHRITV S TO'P'FD TN PRDTTAB UE I HE CMMRbC r PHASE SPO T - A POS I T I VE PRIORI T Y INOT fA TES ~A 

R00I2 FINDVAC JOB. A NEGATIVE PRIORITY A~NrrVAtr. THE ?CADR TTE^THE JOB IS STOREO TN~THE CAORTAB. — 

R0014 FOR EXAM'^LEt 


ATOOIS 

■A0016 


R0017 A RF5TAPT 0^ GROUT> *> WTTFr EHASE 5EVEN WOUtO THEN EAtJSE SOMEJOB TO BE RESTARTEO AS A F INOVAC WITH PRIORITY 2B. 


— P'ani9 3^TSPT7T ttTT -23 000 — 

A00?0 2CAnP ANYJOB 

Ron 21 TrERT~~A~PcS'! AR T [)F GROUP S W H H EHA S^' T' WOUL 0 X AUSE ANYJOB TO B E R F S T AR TE D - AS A N O VAC ' W I TH P R IO R ITY ?3. 

‘ R007T A LONGCALL HAS ITS G ENA OR~"n F ITS 2 CAnR-STOFEO NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PROTTAB IS 

“ R0025 PLACED THE L DC A T ItrtT OE r OP R EG! S T FR TRAT- C ONT A IMS THF DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 

— RTJ077 with;- example . — 


5.7SP0T OCT 23000 

RGADR SOME JOB 


— A0023 3.6SP0T GFNADR DELTAT 

Zr0D70“ ~ — -GENAOR LONGTASK 

A0030 BBtOM lONGTASK 


— A 0031 otm rrooo — 

AOOJ?"“ ■ 2CADR JOBAGAIN 


R0033 THIS WnULTT START Trp~ L 'INGTASK AT — nTE* APP-prrpp fATE 'TtME. OR IMf^EDTATELY^IT THE'“TTHE~mtr ATREADY PASSED. TT SHOtJtO 

90035 PE NOTED THAT TE DELTAT TS IN A GWITCHEO E BANK^ THIS INEORMATOIN SHOULD BE IN THE B8C0N OfTHE 2CA0R OE THE 

R0037 task. — FROM ABOVl. WE SE^ THAT S^OND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OE 31. 


R003 9 
R0041 
^90043 
R0n^*-5 
RD0A7 
TTOOTO 


WAITLIST CALLS ARE TDENTIETED BY THE FACT THAT THEIR RCADR IS STORED NEGATIVELY. IF PROTTAB OE THE PHASE SPOT 
IS PGSITIV', THEN IT CHHTAIMS THE DELTA TIME. IF PROTTAB IS NEGATIVE THEN IT IS THE -GENAOR OF AN ERASABLE 

LOCA r TON" r.nT>rrATNlNG" THE delta time. THAT IS. THE TIME — IS STORED INOIRECTLT. IT SHOULD BE NOTED AS ABOVE. THAT 

IF THE TIME IS ^STORED TNt^IRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IE APPLICABLE. WITH 
WAITL 1ST Wa HAVE ON^EWTHER UPTTON. lE -O IS STOREO IN TTOTTAB. IT WILL CAUSE AN IMMEDIATE RESTART OE THE 
TASK. EXARIPLFS. ' — 


AODSO — ^ 77777 THIS WILL CAUSE AN IMMEDIATE RESTART 

ADD S I — — - ^ 2 C A DR A TAS K O F THE TAS K t AT A S X : 


A 005? 
A DOST 
AOOSA 
A0055 


DFC ZOO IE THE T THE ’Of THE 2 SECONDS SINCE DUMMY 

2 CAD’" DU MMY WAS PUT ON W A ITTt ST I S UPi TT W !L tr-BEG- I N 

IN 10 MS. -OTHERWISE TT WILL BEGIN WHEN 

IT NORMALLY WOULD HAVE BEGUN. 


nrrzmnn? 


GAP: assemble RE V I S I HNI' o 5 5 IF* ArX f>f^nGFAM' Cr'*MA*tCHF BY NASA :>0 ^1 lT3-0b 1 


L 


A0056 

AOO*^? 


ROOSR 


RESTART TAITLES 


Jr Jr Jp 

•1|V 


NOW THE T A 3 UT S 'THEH^ EL VE S 


GENATtR ariWE 
2C40R T4SKTASK 


T71T6^ — CriMAIO 


USER'S PAGE NO 


WAT7E 2T2 


EO S3 


WHERE DTI ME CONTAINS THE DELTA TI«E 
OTHERWISE THIS IS AS ABOVE 


005^ 
0060 
OOf" 1 


0062 


JET 


m, 2 ooo 

01,2000 

01,2000 


BANK OT 
SETLOC RE 
BANK 


HOUNT OTARS TAB 


TOOfT 

0064 

A0065 


01 .2000 

01,2 OOl' 


PRDTTAB 

r AORTAB 


E qOAt 'S' 12 'O D O 
EQUALS 12001 


US ED 



O ET T AT IIRg 


THIS AND THE NEXT RELATIVE LtX: CONTAIN 
RESTART 2CA0R 


DO 66^ 

- 

1 

01,^ 400 

0 

0063 

1 

SIZCTAP 

TC 

0067 

^ ^ F~ 

1 

01,2001 

0 

00 1 0 

n 


TC 

D068 

“PFF 

1 

0 1 , 2u 0 2 

U 

0063 

1 


X 

0059 

R EF 

1 

01,2003 

0 

0024 

1 


TC 

0070 

PEF 

1 

01,- 20 0 4 

0 

0063 

1 


TC 

DOTT 

R FF 

1 

A 

Cl , 2005 

0 

0043 

~Tr 



00T2 


1 

0 1 , ^006 

0 

00 63 

1 


TC 

0073 

OFF 

1 

01 ,20DT 

o 

0 1:0 7 

1 


TC 

DOT 4 

p cp 

1 

0 1 , 0 1 u 

0 

■'02 42“ 

0 


TC 

0075^ 

P EF 

1 

01, 201 1 

0 

0260 



■ TC 

0076 

K FF 

1 

Jt,201 2 

0 

0336 

1 


TC 

■DOTT" 

REF 

1 

0 1 ,2013 

0 

0346 

0 


T C 

0078" 

' " RFF 

2 LAST 212 

01 ,^T1 



- - - 

1 • rSPOT 

EQU 


T:. 2 SPOT 
1.3SP0T 


12006 

12004 



2.3SPOT 
3.2SP0T 
3.3S P n T 
4. 2 SPOT 
4. 3 SPOT 
SPOT 


12004 

12006 

12004 

12006 

12004 



5.3SPnT 

6.2SP0T 



12004 

12006 

12004 


R0079 


ANY fADRE GROUP !• cVrtvi-RrSTAPT 


EQUALS 3.25^1 
VAtUES SHOtrtt) GO HERE 


0 OR n 

00J=^1 

00B2 

0032 

00H3 

0084 

0085 
008 5 
OOSIT 
OO^’T 

OORB 


^EE 

TTFF 


4 


LAST 208 


01,2014 
Eo, 1661 

0 X t : 


OOITO I l.^SPOT 


KEF 


K 
REF 
REF 


6 

]. 

1 


lAST 203 


cm 


01 ,^ni 5 
01,2017 
■F 6 VTWB 


T 4 '5T 0 0 
45711 1 
10000 O 


DEC 

EBANK 

TGA O K 


120 

AUG 

smn 


THIS MUST EQUAL CIJTAGTIMEI 


.7 


1,5SP0T OCT 


10000 



REF 

REF 


0090 

OTT^ 


0091 

R 0092 



2 

1 

T 

3 

T 

I 


LAST 208 


LAST ?T2 


01,2020 
01,2021 
01 ,2 022 

E6 ,1413 
01,2023 
GTV2024 
0 I ,2025 
E^ , l 41 3 
01,2026 

0t,2U?7 


02405 1 
34066 O 


2CA0K RE0r)40.9 


10000 0 — i.TSPOT — rrcT 


02074 0 
5 5066 1 

10000 0 


EBANK 

2CA0R 


t aoo o 

ESTRGKER 

KftlNUS 


02 '3 4 5 1 
75-066 0 


1. 11 SPOT OCT 

FRANK 
2CA0P 


10000 

estroker 

PTKUP20 


ANY MtIRF GROUP IvtlDO pFSTaPT VAtUES SHf)Ut-0-GU HfKE 


0093 
P 0094 


RFF 2 LAST 212 01,2071 — 2.2SP0T EQUAL SI .2SP0T 

ANY MOOR GRO’iP 2 ,F:VlN VAl UES StlOtJLO GO HERF 




;^i^. ' • ■, ‘ ‘ ,*. * * ■ V, ?v ■ ., 

' / ‘- ■ ■ . V , .- -^ - * ,• • t . 



^:it .■■"5:* . V *' . * .V 

• 'J* A^' V - ■■ .•'w‘. t" * ^ 


. I 


i * 




i 

-p-^ 


TP^ 


GAP: ASSEMBLF REVISION 0^5 TIP 



COMANCHE BY NASI 



13- OS'! 


10:TB“ ITPP, Ul96q ^UMAID .02^ PTCTTE 



L 

REST 



oom 

P EF“ 

0096 

REF 

0097 

REF~ 

009P 

REF 

0090 


0100 

R EF 

0101 

REF 

01 OT”' 

“RTF' 

01 02 

— » — ^ 

0103 

REF 

OTD'zr ■ 

P EF 

010 4 

REF 

0105 


orifT 

K EF 

0 1 OT 

R EF 

01 OT 

R EF 

CTIfTB 


OVOO' 

^FF 

0110 

REF 

OrKT" ^ 

REF 


USP W • S PA Gir NO . 


BO S3 


T 

1 

T 


rTTST 

LAST 


7m 

213 


m ,70 TO 

01.2031 
1 3 ;T5 T '4 

01.2032 


026^4“ I “2 .3 SPOT 
75150 I 


GFNATIP 
GEN ADR 
tbANK= 


60DSEC5 

STATETNT 

RRECTCSM 


26063 0 


3BC0M STATETNT 


4 

1 

TL 


LAST 213 


LAST 126 



2T7T 


1 

1 


4 

1 

1 


LAST 213 


01.2033 

^3,1554 

01 .2034 

01.2035 

01.2 03 6 
T,1T34 
01.20 37 

01 . 2040 

tri,20 41 

T5TTT5T 

0172042 

01,2043 

OT;'2044 

FT, 1734 
1 , 20 45 
01 72 046 


05000 I 2 .SSPOl OCT 


rBAMK 

2CA03 


05000 

R REt TCS M 
STATTNTl 


02636 0 
“2 60 63“ 0 “ 

Tonoo m p.TSPOT oct 10000 

EBANK= MRKBUF2 
ZTTRTn RT2 


02630 U 

70067 1 
14000 I 


2.11SP0T OCT 14000 

— FBANK= LANDMARK 

02576 1 - 2CA0R V94FNTER 

62065 0 - 

TOOWT) 


13 SPOT OCT 


10000 


02377 0 
560'6T'TT 


FBANK= m?KBUF2 

2CA0R RfOrrR22 


ANY ^OPF GROUP 2 . OOD RBSTA7 T VALOFS SHOUL D SO TIFRE 


OITZ 


ROUT 


TEF 


2 — LTSi — zrz 


01.2071 


3.25POT 



SPOT 


An:Y MORF GPOUP 3 •EVEN RESTART VALUES SH’TULO GO HERE 


0114 

0115 

0116 

0116 

0117 

OTTT 

XOIT 

0120 

0121 

0122 

01^2 


RTF 


3 

T 


LAST rrr 


01 ,2047 
3^,1477 
0r,"2O‘5TJ 
01 ,2051 
ni ,2052 


20000 0 3 



00000 


“RTF 

REF 

REF 


7 

1 

1 



0124 
0125- 

0125 

0125 

0127 

OT2S 

0120 

Ol?<^ 

0130 

0 1 -5 1 

0131 


REF 
■< EF 
TEF 


3 

I 

T 


LAST- 213 


R E F 

— pr 




LAST 213 


T 



SEF 

RFF 


1 

I 


I, 2013 

01 ,2054 

01 .2055 
T 3 ,1706 
01 , 7056 
01,2057 
01,2060 
^ 3 f 1 706 

or ,2061 
01 , 2062 
01^206 3 
E3 ,1706 
I'l 1 , 20 64 

0 1 , 20 65 

01 .2056 
^ 7 , 1 - 42 T 
O t , 206 7 

rn ,2070 


02427 1 

340*57 1 

1 

OOODO 1 

OOOOO 1 
22000 1 


OCT 20000 
EBANK- TGO 
2CAD P S40.13 


3.5SPnT 


3. 7 SPOT 


02117 1 
70063 0 

2 2000 t 3.11 SP0T O CT 


DEC 

OBC 

DEC 
OCT 

E BANK^ 

2CA0R MATRXjnR 


0 

o 

0 

22000 



02253 
TOO 


t 


EBANK 

2CA0R 


TPPHF*^ 

REPll 


22000 I 


3.13SPOT OCT 22000 

EBANK^ TEPHEN 


02 026 I 
70063 -0 
76-347 O 



3, 15SP0T-0P^AT)R TGO 4-1 
— ^HANK " Tt? 0 


75011 0 
27710 1 


2CADR- FNGINOFF 


% « 


GAP 


L 


AS^EMBLF RT VISI OKl 05*5 AGC f^kOGRAM 



NASA 2071113-0^1 


lUi^rAPR 


COMAID 7T729 PATTE THT 


RES TART TA B UFS 


IISFR^R PA^F NO. 


EO S3 


pon2 


ANY MORE GROUP 3. non restart TALUT5 SHOULD GO HERE 



LAST 20B 


LAST l?A 


0138 

0139 

0141 

0141 

OTAT 

0143 

0144 
- 01 4^4’ 

0145 
01 46 
0T4T 

0147 
■ 0148 

" — crnr? 

0 1 50 
0150 
“ITOTST 

0164 


^TF 


*7 


L AST 

LAST 


r^TTTTTrr 

E7,14I2' 
■ 01 1 207? 

01,2073 

01 .2074 
E74 1574 

01,20 7 5 

“ 01 ,20715 
"014 2077 
E 7, 1412 

214 074 2100 

01,2101 

— 1TIT7T07" 


77777 0 4. 2 SPOT TTOT 


77777 


757D7 0 
27710 1 

30000 1 


FB7mK= TIG 
-2CADR PRECHFCK 


D2534 1 

”50067 0 
77777 0 


OCT 30000 
EBANK= DELVIMU 
2CADR P4 7BuDY 


4. 4 SPOT 




EF 


QPE 


7 

1 

T 

9 

T 


LAST 212 


LAST 

XAST 


214 


■RFF 

RFF 

PER 


TTT 

1 

1 


tTTST 2T4 


”F 6 , 1 4 6 6 

01.2103 

01.2104 

01. 2105 
F7.1412 

“OTTTTTnS 

01 ,2 10 7 

0 r.r21 1 0 

E7, 1412 

01 ,21 n 
,*^112 


75207 0 

27710 1 
05664 W 

75443 0 

27711 73 
77777 0 


OCT 77777 

E8ANK= TIG 

2CA0R PPECHECK 


UFC 


2596 


EBANK= OAPDATRl 
2CAnP TTG/0 


4.6SPnT 


OCT 

EBANK. 




77777 
T TG 

PPE CH E CK 


27710 
04700 7 


75? 03 1 
27710" 1 


2406 

— E BANK= T T G 
-RCADR TIG- 5 


'AHFF GROOF 4, EVEN RESTART VALUES SHOULD GO 


01,2773^" 00050 t 4. 3 SPOT DEC 


40 


07775” 

0 1 65 

0166 

0157 

01 58 
0160 
0169” 

0170 

0171 
VJ-r? 

0172 

0173 
7rrT4“ 

0175 

0175 

0176 

01"^ ^ 
0178 

01TF~ 

0170 

0170 


FFF 

’^TF 

REF 


4 

1 

1 


PEF 

FEE 

■REF 

REF 


5 

1 

7 


ITASl 2175 E6,7 423' 

or, 21 14 

01.211*^ 

— 01 .2716 

56,1423 
01 , 2117 
0 1 ,? T?rr 


75115 O 
27711 0 


00 2 40 1 


— EB AN F 
-2C AHR 



OflTVCON 



LAST 214 


75064 1 


EBANK= 
2 0 A OP 


PACTOFF 

OOSTRHLL 



LAST 214 


REF 


1 


7 n , 2 1 2 1 
n, 1423 
01 , 21 2 ? 
0 1,2723 
0 1 , 2124 


00764 1 4.7SPnT 


T5 165 - 1 
27711 0 
00372 1 


DEC 500 
F8ANK- PACTOFF 
?c-AOR — 


4. 11 SPOT DEC 


?50 


PTF 



F 

1 

1 


1 AST 2T4 



0 1,2 
01, 2 126 



742 3-5 0 
27 71 TO 
00310 0 


FQANK= DA FO Af P l 
-2CADP VFf440.6 


4>13S P 0T OEC 


o r iz 

u. I 

FFF 

F 


j — 


3 

7: 

T 


LAST ? 0^ 


F7 , 177 7 
07,21 30 

ott 


7 4 ? 7 0-1 

-r 


EQANK 
— 2CA0P 


TOO 

WHOCAPES 

P40RNABL 




LAST 173 


oi , 
r 5,1 7 57 


16000 0 4.15bPOT 7CT ITjOOO" 

- E3ANK= OGC 


PRFt AUNCH DPT ICAL VFR T F IC AT f ON 




» VV 


>r r 








^ i t 




4 


■ ■ V i f. i ' ~ i' ' ' . I .I I * ^' ■ wl i»i»> » i I n-'' f.iy’ >,r L*:;^,, .^' ■ ji-i'I fi' i Vf ii 4h y 


*-'• 4 * . . ♦ * 4 * .,, ▼ ^ . 

• * •# *'#’■•.' ^ * I**' » 4 ' y • 


• . ■ ■■ ^ 4 *^ . 


r*:rv. 


r V ^ 

t ’ * \, 

<> 


L ^ 








*i ' ' t V*- ' 


irr* 

‘"* ■• \ \- 

'' ‘ A 

• # 

. I A 


'4 • 






I . ' *'iJ’, •VV *> ■ ‘ t t - '~ ’ S- V-* ■ ' 

;:' A • - ■ ‘ '^ ‘ 

■ Ir^aSy ^~ 4 I tmi 4 » ■ i|^bii>> ‘ivrv.^4^; ^ j i _:f ,^tJm h 



A <■ ^‘ri*». M ... ^ , * " ■ . . . 


’ • > ' ■ ‘ # > -I- ■ , ■ • • 


4 . '« . >» • 


■P^^W 


■ J ii Yr 


^■■■ ' ■■4ti y» i. y, i fa, ,< 


/ 





ASSEMBLE RFVI^f GKi'-OTr'i^r A ;c P^OGf^.A'M COMAMCRE W MASA 20211 IB-Obt 


I 


RESTART TATTLES 


rT5“:7^ ARC*. TTims^r LUMA l & 


USER* S~T»AGT"NO 


TTOT ZT5 


E? S3 


0181 
013 1 

TTrar 

0183 

OISA 


REF 

REF 


1 

1 


^018^ 

018T 

0188 

“OTT 

OIBT 

0189 

~DT^Tr 

01^1 

0191 


REF 

RTF 

TTF 

REF 

9EF 



TEF 


3 

1 

1 

1 

“6' 

2 


LAST 


93^ 


LAST 208 


LAST “213 
LAST 213 


REF 



RTF 


IT 

1 

1 


LRTST ZTTf 


01 .2133 
'0T,Z13A 
"?n ,TI33 
' T 5 .T8T1 
01,2136 

" or ,2137 

01.21 AO 

01.2141 
^ /.16/2 

01 . 2142 
“01, 21 A3 
"T7.14T2 

OT , 2 1 4A 
01,21 A5 


02XrOO 0 
660 6 S 1 
I'TO OD ■ 0 

037 A 2 0 

66068 r 

01672 0 
7 53 AO 1 


2CA0R CaMPVTR 


CALLS FOR ORTTCS DATA AGAIN (STD LEAOIN) 


A.l/SPUl rjLf 


16000 


PRE IAUNCH AZ I MU T H~CH ' AMG E 


EBANK= XSM 
2CAT)R AlMTHCGl 


50067^0“ 
12000 3"^ 


022trA 0 
50067 0 


A121SP0T GENADR PAOTMP 

-GFNADR TIG3LNK 
E3ATfK= PAOTMP 

— ~BBCtTl TIGBLNK 

A.23SPnT tJCT 12000 

TBANK= TIG 

PCAOr PAOS/SV 


DELT A T me USED IN SETTING UP 
LONG CALL OF TIGBLNK BY PA0,PA1 


PROTECT ^AOS/SV BY P40 PAl 


0122 

niTB 

TrUTT 

01 9 A 


-6 


24000 1 4,2 5SP0T OCT 


o 


EF 


TEF 


5 

2 


LAST 
L ATT^ 


20d 


■ 0302 

01 ."2147 

01 ,2150 


02000 3 

32060 O 


EBANK 

2CADR 


24000 

BESTI 

P RGG5 2 


“0193" 

Ol'^T 

OIRT 

0T9*r 
0193" 
01 19 
~02OO” 
0200 ' 
0291 


REF 

RTF 

TTTF' 


REF 

TTEF 

RFF 


7 

1 

T 

2 

T 


LAST 214^ 


LAST 


95 


01 ,2131 

"T6 ,1423 
O 1 , 2152 
TIT 7213 3 

01 . 2154 
E5 ,1765 


00377 1 4.27SPnT DEC 


25tr 


-EBANK= PACTOTF 
-2CA0R DUTVCRCS 


TT2DZ 

FTP 


0203“ 

RTF~ 

1 

0203 

REF 

1 

02JA 



0205 

REF 

9 

0206 

REF 

1 

0206 

0707 

R EF 

" - r 

0208 

REF 

12 

■0209 

E F 

T 

0209 

REF 

1 

0210- 

— 

- 


rrsT — 2r2 


LAST 214 


LAST 21S 



LAST 215 


0] ,2156 
01,2157 
TT, 1661 
01,2150 

m ,2161 
01,2162 
E 6 ,14 6 6 

01,2163 
01 ,7 1' 6 4 
01,21 Bi- 
rr, 1412 
01,2166 

01,21.67 
01 ,21 7 0 
E 6, 1561 

01 ,2 TT 1 
-0 1 , R-1 7 2 
3172173 


27711 0 

13000 0 4.31 SPOT OCT 13000 

EBANK= STAR 

■n2T33' 0" — “ “ 

30065 T 



0406 A 1 


A,33SP0T DEC 2100 
EBAMK=^ AOG 


PROTECT CONTINUING JOB TO START P63 


75403 1 
23711 1 
ITOOO'T 


-2CADB WAKE062 


TTT 



022A6 0 
50066 t 

00764 1 


EBANK- DAPOATRl 
2CA0R POSTBURN 


752 22 ■ 1 
277 10 1 
1 7000 1 


4.37SPnT DEC 

EBANK 

-2CA0P 


500 

TIG 


4.41SPnT OCT 


17000 


PROTECT DISPLAY JOB IN P67 


02512 0 
54066 O 


RCA OR P67.1 


LAST 215 



4.43SPn T -GENA D R S 61D T 

EBANK= S61DT 

____ 2€^A OR 361 vt C 



START P REREAD, ENTRY 
S61.1C NTtL CHANGE EBANK^EB? FOR PREREAD 


0216 

0217 


•-fF5 


1 — 

7 

0 1,2176 13000 0 4.45 SPOT OCT 13000 

LAST 2L5 fT,16M FBANK= ArlG 


PROTFCT CONTINUING JOB S61.1 
(FNTRY !HU AL TGNMENTI 



G5P: iGS 




IT 9 Sink 0?^ Pf^sO^iRAMCnMANCHF BY MASia ■:^0?111'3-03T 


ra:'78"'s p p . rrrTE^ cut^aid — nr?^? — rat;^ — rre 


i: 


USE^*S PAGE NTO 


E? 


o;?i-^ 

0213 


<> 

RfEF 


0219 

0220 
0221 
0 22 r 
022 ? 
0223 


REF 

^FF 



1 

1 

8 

1 

T 


REF 



0 224 


^EF 



0223 


V2TS' ■ 


0227 


0227 


(r?2TT 


TT 

I \ 


Ef 

RFF 

!^FF 


1 

1 

1 


0 230 
■0230' 

0231 

0232 
0 23 3 
0 2 33 
0 234 


PEF 

PFF 

3TF 

^EF 

PFF 

3Tr 

rff 


2 

1 

T 

7 

8 
T 
1 


0235 

0236 
0'?36 

0237 
023R 
0239 


■RFT 

2FF 

REF 


0 239 

0240 

0241 
3JZ47 

0242 
02^2 1" 
■0r243IT 
02^212 
024212 
02423” 
024221 
0 24222 
0 24Z22 


P FF 
R EE 
TFF 


IT 

1 

1 

9 

1 

T 


RTF 

TEF 


13 

2 


•RFF 

RPF 

FF 


RFF 


WEF 


10 

1 

“T 


LAST' 215 


01,2177 

01,2200 

1JI727DT 

^b~*YUhlL 

01*2202 


0 

54056 0 

17000 1 4:47E'PaT OC! 


2CADR S 6 1.1 A -1 


7203 


LAST IT 5 



LAST 118 


LAST 

LAST 


215 

216 


mr 

01.2204 
E6,1704 

01.2205 

01 .22 06 
rn ,2707 

F 7 , 1 777 
01,7210 
01,2211 
-vTvmrz 

F7, 1451 
01,2213 
01,7214 
01,2215 
b 7,1672 
" 01 , 22T'6 
3) 1 ,221 7 
3517 


03014 1 
52066 0 
77777 0 


17 00 0 

EBANK= AOG 
2CAT)R P3E-HUNT 


7545/ 0 

07711 t 
77777 0 


4v5TS^nT DEC 


^3r 


74254 1 
27710 I 
13000 0 

02457 0 
54067 1 
76105 1 


EBANK= END-’=7 
-^CAOR VO 7 FT ASK 


4,55SP0T DCT 


13 000 


EBANK= RTINIT 
2CAOR P65.1 


277 1 




TTTSl 2r5 


LAST 216 


LAST 

rusT 


215 

2T4^ 


F TTTST TTP 

1 

1 


LAST 215 


REF 

RFF 


0 2 473 — 
024231 
024 23 7' 

024232 - ’’EE 

0 24^23 

024234 n-F 
024735 REF 
024? 3 5 ?EF 


1 

1 

1 


* 1 42 3 

0 1 ,2221 
01.2222 

01.2223 

E6 , 1423“ 

01.2224 

01.2225 

01.2226 
07 , 1412 
01, 2227 

0 1 . 2230 

01.2231 
E6 , 1474 

01 .2232 
01 .RPR 3 
0132234 

E/y. 146 6 

0 1,2235 
01 ,2736 
01 , 22 3 7 
E6 ,1444 

01 ,-?240- 


4.57S?nT-GENAOR P40TMP 

E3ANK= P40TMP 

ri GO^ 


77777 

P A -CrrrFF 


7TT77 0" 4 •61 SPH T DC T 

EBANK= 


75157 O — ^ 

27711 0 

77777 0 4;“63SPnT OCl 


-2CADR IGNITION 


75003 0 
27711 0 
00012 1 


EPANK 

-2CADR 


PAG TOFF 
OOSPSOFF 


4.65SPnT DEC 10 

63ANK= TIG 


T5203"T 

27710 1 

77777 0 


74336 1 
27711 0 


4.67SP0T DEC 


-0 


-2CAOR V07TTASK 


00372 1 — 4; 7 1S PnT D e c 


230 


74321 1 

27m o 


e8ANK= OARDATRl 
2CAnP V07TRCS 


TEC I HUMTEST ITERATION. 


4.51SPnT nCT 77777 

E&ANK= BODYS 

-2CADR ATFRTASK 


PROTECT EOAI ATTITUDE 
FRROP DISPLAY TM Pll 


77 


rr 

1 

i 


T 


2T6 


01 , 224-^1 

01,2242 
- '4 , 1 4 5 6 
yi i ,'224 r 
0 1,P244 


43 04 0 

2Tn-T 0 

7 77 -7 7 0 


0 4.73SPOT DEC -0 

E8ANK= V97VCNTR 
- 2 CADR V ^ t P TASK 


74242 ”0 
P7711 0 


4.75SP0T DEC -ft 

FSANK = DA P OATRl 

- 2 CArP> S-PSOFF 07 



265 



(FOR PCS DA PON) 


gap: ASSF^BLf REVISION nP' 'AcX' WnGRAM CHMAMCH BY NATi^“T0'21lT3-05I 10; 2 8 APR, 1 , 1 ^ 6 ^ "TTITyA T D ;TJ7^ FWTE 2rr 

IT” ST ART TA^L^'S tJSFR’S PAGE NH. 7 EO" S3 


024236 
02473 7 PFF 



LAST 

TAST 


215 

TITT 


CriV22^ 
E6, 1423 
'Ol'.TR^IS 


777TT“a 


4^. 77 SPOT DEC 

EBANK = 


0 


fblhb 1 


-2CADP TTG-O 


0247 33 
P0247 ANY 


0T*2Z4T 277 ir 0 


N!D7F GROUP 4,000 RESTART VALUES SHOULD GD HERE 


02 44 


0245 

RFF 

Xy246~^ 

RFL 

0246 

RFF 

0247 



■ 3FE 

0249 

RFF 

0247 

REF 

02b0 " 


025 1 

RFF 

0252 

PFF 

026^2 

"3 rF 

02 53 


02 54 

3FF 1 

0255^ RFF 

0255 





T 

1 


1 

1 


7 

1 

1 


702‘=i6 


2 


ANY'^^TTRE 


LAST 

X'AST 


02ST 
02 5^ 
D259” 

0259 

0260 
0261 

D26T 

0262 

0263 

02 64 

0265 
02 6 5 

0266 
0267 
0233 
0263 
0260 

■02771“ 

027T“ 

0271 

0272 

0273 

0274 
0274‘ 

02 75 
02 76 


PFF 

RFF 


11 

3 


LAST 

TAST 


T»'TT“ 

P^FF 

RFF 


T2 

1 

1 




nr c 

• ' L_ t 

P EF 
TFF 

PFF 


1 

I 

5 

T 


RTF 


REF 


■(S 

1 

1 


RFF 

REE 

TFF 


7 

T 


P f-F 


LAST 117 


XAST ZTE 


01*2250 

E7*1431 
01,225 I 

01 *2232 

01*2253 

E6*I661 

01*7254 

01.2255 

01.2256 


32000 0 5,2 SPOT nCT 


113236' TF 

76067"r 
00310 0 


3 2 OD 0 
FBANK= OVCNTR 
2CADR NORML I 7 .^ 


LAST 217 


217 

2TT 


•X 43 1 
01,2257 
01,2260 

01 ,2261 
E6, 1661 
01,2262 

01,2263 


74472 0 

01711 I 
20000 ■ 0 

03 104 I 
76067 1 
00310 0 


DEC 200 

FBANK= AOG 

■2CADR REREA0AC 


ETTSFOT nCT 


20000 


e^ank= dvcntr 

2CA17R SERVICER 


74472 0 
0i7rrT 


DEC 200 
EBANK= AtTG 
2CADR REREADAC 


ElTVFAT RTSTART TAIUFS SHnUXD GO HERE 


217 

2TT“ 


TTTST 2T7 


LAST 21 


LAST 217 


XTm 2TT 


LAST Tir 


LA5T 217 


01 , 22 64 
E 6 * 1661 
TJrrT265- 
01,^266 
01,226T 
EE.IFST" 
01,2270 
01 ,22TT 
ni.22T2 

F5,T67T 
01 * 2273 
01, 2 2T4 ' 
01 ,2275 
25,1671 
01 , 7276 
01,2277 
01,2300“ 
E 5, 1671" 

01>T301 
T2302 
01,2303 

E6 , nrri 
0X, 2304 

01 t T GTT 

0 ] , P *^ 06 
F:5 , 1 y 1 


00310 0 5,3SP0T 


DEC 200 
EBANK= AOG 


0 

01711 1 
7TT77 0 



6. 5 S PUT 


75026 1 
01711 1 
20 000 0 


nCT 77777 

EBANK^ A H G 

2CA0R RE 005. 5 


5.7 5P'D7 


02456 1 


20000 — 

EBAMK= XS^I 
2CA0R RSTGTSl 


66065 1 

77777 0 


751 75 0 
11712 0 
20 a'^O 0 


5.llSPnT OCT TT777 

^qank= XSM 

-2CA0R ALLOOPl 


5vl3SPnT OCT 


20000 



02527 0 
66065 1 
20000 0 


2CA0R WTtlSTNT 


S.I SSPO T n CT 


20000 


FRANKS XSM 


0 1 024- 1 

A606 5 r 
20000 0 


5. 17 SPOT OCT 20000 

FBANK- XSM 



GAPT ASSE^LF W OP A fUT W T jG P A M COM AN!CHF'"RY' MASA--2021 1 r^-0 5 1 


TUrZW~T^. 1*1^69 CTITO TU 


rjZ9 F7VCT ZT& 


t RESTART TABT^G 


USE*?»S RAGE NO. 8 E7 S3 


0277 RFF “ 1 01*2 307 057IT 0 2CAn7 GFOSTRT^f — 

0277 REF 1 01*7310 D406R 0 

0 278 OTT^TTT 22000 I F^TF^'TOl DCT 27000 

0270 pjrp 9 LAST 217 F5*TF71 EFATinc= XSH _ _ - 

02P.0 ^EF 1 '1)1*2312 02F36 0 TCAOR AlFLTl 

02W’ " inFF" " 1 “ - 01,2313 5FTTF5T — 

0281 ~~ 01*2314 77777 0 S.ZIFPOT TJCT 77777~ 

0282 REF 10 LAST 218 F5,1B71 FBANK= XSM ' 

0787 GI,?1TS fblbl 0 -^CATTR S'FFCSTS 

0283 "REF 1 01,7316 117T7 or 

0224 ”““" 01,2317^ 2000110 5.2SSPaT OCT 20a00 

D 783" FFF 11 DTST 21H ^3,16^ EBANK= XSM 

— ^0286 PFF 1 ^^ 01*2320 03335 1 ZCAOP RESTFST3 

““0236 REF 1 ■*" 01,2321 660 6S 1 

“30237 “ ““ 01,2 3 27 20000 O T.~2TSPTTT OCT 20000" ’ “““ 

02^^^ REF 12 I.AST — 218 7511671 EBANK= XSM 

0287 REF 1 01,2323 03303 1 2CADR RrESTAIFR 

‘023‘^ IFF " I “ — 01 ,7374 66 065 1 

0230 01,2325 OOOOO 1 5.31SPOT DEC 0 

“ 0201 ” 01,2326 OOOOO 1 DEC 0 

— 0202 01,232 7 OOOOO I ITEC 0 

02^' ■ 0142330“ 70000 O 5.33SPnT OCT 20000 

0204 RTF 13“ LAST 713 — 03,1671 ”EBANK= XS3 

07^^3 tee r 01 , 7331 0 33 60 1 2CA0R RFSCHNG 

■“^0235 REF I 01,7332 66065 I 

“ 0296 01*7333 00000 1 5.3 53^07 DEC 0 

(J29T ^ 0 I * Z 334 OOOOO 1 TDFC 0 

0297 01,7335 00000~T 

0298 OT,7335 77777 0“ 5.37S POT OCT 77777 — = 

0770— ^TEF ri FAST 717 E6, 1661 — EBANK^^ "AHO — — 

0300 RFF 1 01,733 7 74744 O *2CA0R CMEKAVEG = 

' 0300 7FF 1 01.2340 01711 1 

rjrni 01 ,2341 7 7 777 0 54;41SP0 T O C T~ TT 7T T — — T O fi POTECT P R - EPEAD AT T!G"30A 

" 0307" REF 8 LAST 7T7 ' ^'7,1431 EBANK= DVCNTR TIG-15 T + 60 

- 0303“ PEE 1 0 1,2342 75076 1 -2CA0R FREREAO 

0303 "7-EF I — -31,2343 OITIO 0 — ___ — “ 

70304^ ^^iY GRGO^ 5.000 RESTART VALUES SHOULD GO HEllF 


“ 0395 — — “ — 0 1 , 3 44 77777 — 0 6. ZSPDT OCT ““77777 USED 3Y P4D"AfT0R Gf-Mf3"DR- TST TO f^FPOS •N 

0300 “REF 4 LAST 177 176,1476 EBAWK^ AK FNGltlF UNTIL TVCDAPON 

" 0307 REF I 01,2345 76536 0 **^2CAOR PRE40.6 

(7TTT7 tFF 1 01,2345 37711 1 — — 


0308 01,2347 00144 0 DEC 100 

0307 tfF 7 nrST 173 ■^7, 1650 fBANK= TTOGO 

— 0310“ 7,FF 1 01:,7 550 74517 1 -2CADR CLOKTASK 

- 0310 7EF 1 01*2^51 27710 1 


P 03 1 L 




6.000 rFSTA^7 VALUES SHDUtD 00 HE-RF 


Gap 


RFVISION 055 01^ A.GC PkoG^^AM 



I^Y NASA 20'21 11 3-051 


10:28 APR. 1 .1969 CUmW .02^ i^AGh 21^ 


L PFSTAPT TABLFS 


U$f=R*S PAGE 9^ FO S3 


0 31Z' 

0313 

0314 
0314 
031^ 
031 6 
0317 
0317 
0"3 18' 
OllTT 
03ZO 


PFF 




I 


PEF 

PEF 


14 

"T 


I 

1 


LAST 

IjAST 


216 




0IV2352 
F7,l2fr2 
cn ,T3 6 3 

01. 2354 
01 .7355 
F3 , W()6 

0 1 . 23 5 6 
01,7357 

TTT7 



01 .2361 
OT,T352 


44 0 B ,3 SPOT OtC 


745 I T T 

27710 1 
30000 1 


03573 

56063 

00000 

noooo 

ooooo 


0 

1 

T 


lOTT 


EBANK= TTG 
ZCAUP CLOKI ASK 


6 . 5 SFOT 


BITS P D f 


OCT 30000 
■FBANK= TFPH^M 

2CADR TlfTFOTDR 


PROTECT INCREMENTING 
P2 7 NU P DA T E PROGRAM^ 


OF TIME2,T1MF1 BY 


Tier 

OCT 

OCT 


IT 

0 

0 


0371 jrpF 2 LAST 112 ni7TT63 76052 1 F.llSPOT-GENAOR CM/GYMDT PROTECT TASK TO READ COUS. 

0322 REF 3 LAST 219 — E6^il725— — E8ANK- CM/GY^OT FOR ENTRY OAR — 

0TZ3 I 07,2364 7^3 43' T -2tADR R E A O GYMB 

“'0323 PF*= ^ ,2365 4571 l—l-- 

0374 T)l,2366 00000 1 6.r3$PnT DEC 0 ‘ — 

0325“ (TT,'2367 001’ 00 I — ' DEC — 0 "" — 

■0325 01,237 0 OOOOO 1“^ OEt ' 0 




ASSEMGLF '^rVTSIPN OSS PRL’GRA'M'nMANCHE BY NASA 2021T1"J-Ty51 


10 : 28 "APP 


T6V COW AID 




RF5TART TABIFS“ 


-10 rcr S 3 


00330 Pl^OGPAM UFSCRIPTinN: MbWPHASF“ DATE: T1 'NHV t9&6 — 

R031? ?^00: I ASSEWBLYT SUNBURST REV 

P70T^ ^OD' RY: “CWP3 LLH; SECTIUN: PHASE TABLE MAINTENANCE — 

R0336 FUNCTTHNAI DESCRIPTinN: “ '' ^ — _ — 

R0337 NFWPUASE IS THE WTCX ^^TAY TO mKF~7r NON VARIABLE PHASE CHANGE. IT INCLUDES THE OPTION Of SETTING 

TBASE OF THF GROUP. IE TB'ASF'IS TO" BE St! . -CrTIMFll IS STORED IN THE TBASE TABLE AS POttOWS: 


P03A1 ^ (L-1) TBASEO 

— m TBAS'Er' TIT GRnuo=n — 

R0r3A3 — (L+I)-^ ^ ^ ~~ 

R 0 3 A A LLT2 > TB A5 ET (IE G ROU P =2^r~ 

“RT)3'A5 

P03A“o ( L4-6) TRASEAMT GPOUP = Ar “ 

P03A7 (L+T) 

-“"ROB A3 ( L+R) TBASET (IF -GROUP^Sl — 


R03A9 IM ANY CASEt THE NEGATIVE nf THE PHASEt EOLLOWED" ( IN THE NEXT REGISTER) BY THE PHASEt IS STORED IN THE 

R03TT PHASE TARUF’AS FOLLOWS? 

R035 3 (L) -PHASE 1 (IF GROUPED 

PD3Pn — rXTLT'PHASEl 

R035A — {L+3) -PHASE? (IT^- GROUP =2) 

R03SR (L+B) tmAScR “ 

P0356 — — — — — ^ 

R0357 — — (L-i-7) PHASE'A ^ 

R0353 ( 1>R) -THASE5 IIP GROUP -5t — 

RDBTG — — — (L + v1 ohaS^S _ =_ 


P0350 

RTTPrr 


CALLING SEOUENCL: 


R03T? 

AOTSS 

A 0 3 6 A 
A076P 


R0366 

A0367 

A03SB 
A 03 6? 

R03T0' 

R03i'l 


YPLF IS' FOR PLATING 


IN T O GROU P 


11 IF TBASE IS NOT TO BE SET 


R0372 


TUSTB 


? ) U 


SUBROUTINES CALLEOT 'MONE 


NORN At EXIT NOOE: AT L+> OF OALl ING SEOUENCE 


ALAP^ OR abort ex !TSt N OtE 


ou tp ut; PHAS E T ABLE "ff NO T 



L lP nATE D 



— r=T- 

^ 

C A 

TC 

OCT 

FIVE 

NENPHASE 


t. 


L-t-l 

UUT}tj 3 

IS Tn Bf StT: 

L-1 

— ^ — 

CS 

FIVE 


t. 

t +1 

TC 

OC T 

00003 ' 


P03TA 


FRA SABLE IN.TT I ALT ZATIUN^OEO, U: NON! 


ITKT: ATsTWrF"^rvtSI0N 05^ (IF 1 n-O'il 


lOiZB TTTTS^ COMA TD 


TTZV PTHTE ZZT 


RESTART TABLES 


nSER^S PACE NO. 11 



R 0 T 75 


nEBRTS: A,L,TE1^PG 


PUTTS 

0373 
037 ^ 
03 80 


:^^■4^■*WARNING=^'** 



IS TO \^b PLACED ITJ" I XEO-F DTED AND UMSWT TCHEO ERASABLE 



411 4 
WTU 
4114 


BtnCK 02 

btILUC FFrAGi 

BANK 


UTTT 


0333 



T 


$S/PHA5E 


4TT4 0 0004 0 M3VPHASE INHINT 


0333 


REF 14 LAST 202~ 


zTTTS 54 0 01 1 


TS 


SAVE FOR FURTHER USE 


0384 

■0335 

0376 

'CnET 

0333 

XJT^h 

03^0 

03 ^ 


TT 


EF TO CTTST P72 


REF 20 LAST 221 


REF 


1 


41TB- 50 tr02""O 

4117 3 0000 1 

4120 24 002 0 

4T21 6r OOOO" 1 

4122 54 061 1 



-cr 

CA 0 

INCR 0 
OnUBLP 



GROUP NUMBER 


OBTAIN THE RETURN AOOPESS 



Tm 


TS 


TEMPO 


INDEXING 


EF IS X AST 22T 


4123 

4124 
5 


10 nor 1 

I 41 33 TT 

1 


LCS 

TCP 




+ 7 

-»'6 


NOf THE DELTA T WAS POSITIVE 


0392 

PEE 53 

LAST 

20 3 

4126 

24 

000 

1 

NUEAZ+in INCR 

A 

SET TB/ 

SSE and STORE PHASE CORRECl 

0393 

7FF 16 

LAST 

221 

4127 

54 

001 

1 

TS 

L 

-- - - 



03*^4 


REE 


LAST 132" 


4130 4 0025 1 


CS 


TIME I 


SET T8ASE 


0395 

REE 

2 LAST 

22r 

'V15I 

3tr 0 61 "0 

MDX 

. . ... 

TPMPG 

03 36 

'REF“ 

1 


^13 2 

55*051 0 

TS 

TB A SEl 


039T 

REF 

17 

LAST 

0 3 9H 

R bF 

3 

' LAST 

03'=^ 

PEE 

4 

LAST 


221 

22T 

201 


41 33 
4134 


4 OOOl 1 
50 061 0 


4135 52 



0 


CS 

Frnx“ 

OXCH 


L 

TEMPG 

-PHASE I -2 


NriW PUT THE PHASE IN THE RIGHT TABLE LOC 


U 4 U 0 

0401 


Fr 21 LAST 221 


4T3B 

4127 


0 0003 1 
0 0002 0 


RECINT — 
"TE 0 


EETURN TO CALLER 




7 



PF A';c C OMAMCHb BV NASA Z O^^llii-Obl 


nrrznrprr; — i . i 969 — cd waid — — 2 Tt 


L SXTTARK 


OSrR*<: PAGE NO. t eo S3 


ROOOl PROGRAM namF - SXTHARK DATT^ 5^ APITIL 1967 

R0002 PROGRAM TOOTFIED BY 25PT2T3 PROGTRAIMMERS LOG SECTION SXTMARK 

ROOO 3 ' 'Nn'JAnr?^^TTi^LAN30N TTi AO') nnCUMFNTAnON assembly SUNDISK rev. 116 


ROOO'V 

PTjirrre 

R0007 
R 0 0 09 


FUNCTIONAL description- — 

~SXTff&RK~ IS CALLED FROM 1 NT ERNAL "RnU I INE S WHICH MAY KbOUlRE SfAR O R LANDHA T7IC NAPK I-N G S BY T HE AS T R O NAU T . IF — 
T'TF MARK SYSTEM TS Nor IN USt, SXTMAPK RESERVES ^^VAC TIRTrA FOR MARKING AND FiEQtJt^TS EXECUTION OF THE MKV8S1 
ROUTINE VIA THE EXECUTIVE JOB PRIORITY LIST. R21 USES THIS ROUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE 
rp;FD~;~~l> YES, SXTFARK wEfURNS TO RZl lU PERFORM IIS OWN 'W ARK REQUES T S VIA T H E V S l F LASH. 


~ R 0013 “ CALLING EEOUFNCE- 

ROTTn; 

R 0015 CAF (NO. MARir“PEOUFSTS''TN TITS 1-3 OF A) 

ROOIB TC BANKCALL 

R 0017 aSOR SXTMARK 


ROOIB NORMAL EXIT MODE- 
“PDOIO SSJRFTiJRTr 

ROnOO AlARM OP ADOPT EXIT MnoE- 
TT(KJ?T “■■ABOPT 


R0tr2E ntlTPinr- 


K0n23 1) marxSTAT CONT A I NS MAR K V A LUE I B IT S T 4-1 2 I AN D VAC 

R002A R) QPRFT = VAC ARTA POTNTER VALUE 

P0025 3) 1ST WOFO OF RESERVED VAC AREA SET TO +0 

■ROOTG A» PR 1 032 ' PT'AC ED IN A R E G I ST ER — 


R007T EPASARte INIT I At 17 ATI nN= 

RTTOZH D BITS 1-J OF A = MO. M-ARKS "REOUESTED — 

~Ra029 2) BITS 2,0 OF EXTVPACT =0 

ROOOn B) A VAC APFA MUST BE AVAILABLE (WORD I = ADDRESS OF VAC AREA) 


R003I" OERR-IS- 

P0032 A.Q.L.RUPTRFGI ,MAPKSTAr,0PRET,BIT2 OF EXTVBACT 


0033 13,2036 BANK 13 

0039 REF 1 07,2000 SETLOC SXTMARkE 

OTTT5 07, 20 (72 B*NK 


0036 RfF 5 LAST 13? F.7,1 725 - 

0037 PTF 1 


EBANK= MRKBUFI 
(TOUNT O T/ SX T I* 




003B 





~ 0Yr?O02 

0 0004 

0 

Ou 59 


1 5 

rJTST 

160 

07 1 200 3 

54 070 

1 

004 0 

r r 

n 

LAST 

1 B-7 

0-7 , > 0 04^ 

- 3 -6 ? 1 1 

0 

004 ! 



L AST 

192 ' 

OTTTrnr^ 

7 10 44 

1 

0042 

— Rf:f 

54 

LAST 

?21 

- 07,?n06 

lO-OT^O 

0 

0093 

- 

> * 

1 

-- - - - 

-- 

0-7 . too 7 

0 20 1 3 

1 


SXTMAPK INHINT 

TS— R tt PTREGl 


NUHBEff- 



-CAF S^IX - BIT2 = MARKING SYSTEM IN USE 

MA SK FXTVBACT B IT S- - EX T EN D Ee V E RB I N PROG R ESS 

CCS A - - 

TC MKABORT — SET THE-^EFORE ABORT 


GAPl ASSrMRLE '^PVISinN 055 Oh t’korjPAM CGWANI'CHP "SY NA«;A 202111H-Obl 10:28 APH. 1,1969 aJMftID 7079 — PIUE — Z73 


SXTMARK - USE !? • S PTC^-MO . Z E7 S3 


0044 PTF ■ 19 LAST 169 07 , OTIT 3 50T6 O CAE BIT? NOT^T 

0045 REP 5 CAST 222 0T,7(ni 27’044'r-- AOS EXTVBACT SET IT, RESET IN ENOMARK 

0046 CTEF I 0/, 2012 O' 2019 1 Ttr FI ARK O K TE S, FI ND VAC AREA 


0047 REF " 1 07,2013 0 TT55 1 MKABttRT TC 


O0'4T 07,2014 01211 I OCT 

0040 REF 3 LAST 197' 07,2015 10 400 1 NARKOK CCS 

0050 REF 1 “07,2016 0 2031 1 TC 

0TT5T REF 2 — TASl 191 rr7;7'0T7 10 454 0 CCS 

^ 005? REF ? LAST 223 “ 07,2020 0 2031 1 TC 

- 0053 ref 2 L&ST 191 07,2021 10 530 0 CCS 

0057 REF 1 LirST 273 07,2022 — 0 2031 1 TC 

■ 0055 RTF 2 LAST 191 07,2023 10 604 1 CCS 

- 0056 REF 4 LAST 223 07,2024 0 2031 1 TC 

DUST REF Zr 'OSl 191 07 , 202 5 10 6 60 11 CCS ' 

0058 REF 5 13 ST 223 07,7026 0 2031 1 TC 

0059 REF 2 LAST 223 07,2027 0 7755 1 TC 

~ 0060 07,2030 01207 0 OCT 

“ 0061 R't-R 2 LAST 205 07,2031 6 5016 0 MKVACFNO AO 

mrrr — rtf ? “ cast — 192 07, 203? — 55*330 1 rs 

- 0063“ REF 55 LAST 222 07,2933 50 TTOO'T — INDEX 

0054 RET “I “ 0Tr2D3F SR TS 


0056 REF 20 LAST 20S OR, 2035 3 5021 1 CAE 

0066 REF 3 LAST 223 07,2036 51*330 0 INDEX 

CJ7 ; 2 037 53*777 0 TS 


B A 1 LOUT 
DT7TT 

VACIUSE 

MKVACFNO 

VAC2USE 

WKVACFND 

VAC3USE 

MKVAC F NO 

VAC4IJSE 

MKVACFNO 

VAC5USE 

MKVACFNO 

BAILOUT 

0120 7 

TWO 

HARKSTAT 

A 

OPRET 


ZERO 

MARKSTAT 
0-^1 


FIND VAC ARFA 


AOORESS OF VAC AREA 


STOPE NEXT AVAILABLE MARK SLOT 


SHOW VAC AREA OCCUPIED 


0065 “ REF 1 07,7060 0 5364“Cr’ TC CHECKMM BACKU® MARK ROUTINE USES SXTMARK 

nT, 2041 00065 1 MM 53 

0079 07.7042 1 2044 1 ^ TCF *7 

0071 “PEE ? LAST 205 07,7043 1 4675 0 TCF SWRETURN 

0077 RTF^ — 7 — LAST 273 07.20 44 D 53 64 0 TC CHECKMM — 

0073 07,2045 00066 1 MM 54 

“ — 0074 “ 07,2046 1 2050 1 TCF +2" 

0075 REF 3 “FAST “273 0 7,2 0 47 1 46 75 0 TCF" SWRETURN 

0076 REF 13 LAST 191 07,2050 3 5004 0 CAF BIT12 OTSIREO NUMBER OF MARKS IN 12-14 

0077 07,2051 0 0006 1 EXTEND 

“ “ D07B RTF 16 CAiSF “ 777 OR ,2052 — T 0 07 0 1 RUPTREGl 

007Q REF 18 LAST 221 07,2053 56 001 0 XCH 1 “ ' 

0080 REF 4 LAST 223 07*2054 27*330 I AOS MARKSTAT ^ 


0031 RTF 1 07. “205 5 3 76-6 7 1 - CAF PRI'D32 ENTER MARK JOB 

0082 -RTF 3 LAST 136 07,2056 0 5134 1 TC NOVAC - 

0 0 33 RTF 5 CAST 27T 1539 68ANK= M ARKSTAT 

0084 RTF 1 “ 07,-295 7 02347 -0 2CAD‘< MKVB51 

0084 RTF 1 07,7069 16962 I 

0 0.3 5 97 .2 0 61 0 0003 1 R Ft IN T 

0086 •’FF 4 LAST 223 07,27)62 1 4676 0 TCF SWRETURN SAME AS MfTOEFXIT 




0^f> OF A';c P^OHRAM ■C0MA'V!CHE"BY NAS’r’20 21ll3-0bl 


10S;^B AMK. r,TT6^ COMAID 707^ PTCOE ?Z4" 


SXTMAf^K 


S ^AGE NO. 


E7 S3 


R0087 f5c?GGRAM NAME - MKREIHA5 ■ DATE- 5 At^RTL T9GT 

R003R PROG'^AM MODIETED BY 2SB/'’78 PROGT^AMHERS LUG "SECT I ON S XT MARK 

n o 0:5 9 ^WD"lTr^T~“MEVANSnN TO AUiT'TTDCUMENTAT lUN ASSTM BEY' 'SON D r S K RbV, 116 


POOPO FUNCTIONAL DESCRTETTUN- “ “ 

^0^1 MKITETETS IS "EXECUTED BY INTERNAL ROUVI NE ' S T O "R E LEASE THE MARK SYS TE M T O MAK E IT A Y A T L ABL E T O O T H E R I NT E RNAL 

R0093 SYSTFI^ RnUTIN»=S. TT^ ALSU CITEARS THE CUAPSE OFT ICS FLAG BIT AND OTSABLES THE GET TCS ERROR COUNTEE* 


R"0G9 S “" CALLING" SEQUENCE- 


ROO^S TC HAMKCALL 

RXraCT CTUR “srKRELEATS" 


P0P93 NORMAL EXIT MODE- 

TTTOW — S’VnTETURN 

POlOO ALARM UR ABORT EXIT MnOF- NOME 


ROlOl 
R0102 
■ROTOU 
ROlOA 
T?01 05 
R0106 


R0107 ERASABLE INI T I AL I 7 ATimi- HONE 


nUTPOT- 

1) BTT9 OPTMUOFS SET TO 0 

3) 1ST WORD UP VAC AtTEA^-SET TO VTtC TU S IGN lEY AVAT L Atil L ITY . 

—AT MARKSTArUrtEARED — 

'57 BIT2 CHANNEL 12 SET TO 0 


R0103 OEBRIS* " 

R0109 ATMaRKSTATvBTT9 nPT*iOUeSr)PTrnfr,f3rT2 CHANNEt 12 


Olio RTE“ 21 LAST 223 07.2U&T 3-'5021 t mkRELEAS CAF 


out PEE 6 LAST 223 0T,206^'^ 57*330 tT XCH 

■ ~011TT t ■ — — — — -HT, 2063 7 5045 1 MASK — 

0112 — TEE 66 LAST 223 07t2065 1 0 000 O CCS 

" 0113 REF 67 LAST 2?A U7t7067 50 OOO t fNOEX 

01337 — 07 f 2 070 54 000 0 TS 

0115 07,2071 0 0004 0 MKRIEES -fNHlNT 

0116 ^FE 16 LAST 153 07,2072 4 5007 I CS 

0137 RET^ " ^31 C A^ST TUT OTmm T TT5T "0 MASK 

OllB PEE 32 LAST 224 07,2074 55*331 0 TS 


0119 ■ -■REF 6 C7LS1 203 07,2075 3 7716 0 CA 

0120 3PF 37 aVST 203 3)7,2076 55* 303 1 TS 


ZERO SHOW MARK SYSTEM NOW AVAILABLE 

MARKSTAT 

L 0 W9 

A 

A 

tr- — — ~ — — — 

QIT9 COARSE OPTICS RETURN FLAG. 


OPTMOOES 

NFGONE — _ — 

OPT T NO KILL COARS OPTICS 


- - - 0X21. 

F’.FF — 

-TTT 

LAST 

223 

07, “’077 

0122^ 





0 T # ? 1 0 0 

0123 

- p ef - 

20 

LAST 

134 


0124 




- - 


0125 

O c p- 


LAST 

223 

0T,?f03 


4 50r6 1 CS BTT2 D t S ABlE OPTICS - ERRO R COUNT E R 

0 0006 -3^ E X IE MO “= — = ^ 

03 012 1 WA'Ml CHAN12 =— 


U 0003 1- PELiNT 

0 4675 1 - TC SWRETORN 


ASSFMlLP l^PVISTnN {:)f>5 OP *'^OGRAt^'CnMAN)CHF BY NASA 2021113-051 


TTjrzwTVKi — rrrw? — cumti^td — rcrz'? — ptoi! — zzs 


SXT^TaKK 


UST.n^ S~~P /tGF“Wn . 


FT S3 


P0T25 

P0127 

PDIZB 

RO\ 2 ^ 

■P 0130 

R013?. 


PR *373R A HA R K RUFT ~ 

PROGRAM HODIFTFO RY 25R/27B'^FRnGR7lMMERV 
MlT-rRY- R. MELAMSUN ’TD^Al)!) 0UCUMEN1AI ION 



LOG STCTTDN SXTMARK 


ASSbMBLY SUNDISK REVV 1T& 


FUNCTIONAL OESCRrPTTON-’ 


WRTnrUFT STORES XDOS. OP TTU‘3"7'N^ U ME AMD TR"AW5FFRS CONrPnL"TO THE' MARKTTV MARK FT 
HITS IN CHANNEL 16 APF SET AS RFOUIRFT). 



WI ^ 3 

R 0 IT 4 


CALLING SbQJENCF 


RnirriNP entered via kryruftz when * mar ic-r ej ect 


nSKY KEYS OEPRESSEO BY THE OPERATOR 


~RTir 3 E 

R0137 


NURY AE nEJTTT MO OF- ~~ 

MARKITf MKRFJECT OR POSTJU^P ROltTINES (MARK*HAKK REJECT OR OSKY CODE) 


WTT^r 

R 013 O 


ALA!Y OH ABORT EJTTT MODE- 
ALARM AND RESUME 


FIJI 40 

R014] 

P014? 


DUTPUT- — — 

PUPTSTOP + *=^ = CDUT. RUPTSTOR^B 

RTI'^TREGO = CDU7, RUPTZTtrR4-6 = 

PtjptSTTIR AND SAHPTTM- = TIME 2 


= COtlS, RUPTSTTOe? = CDUY, 

CDUX, KUPTSrOR+1 AND SAMPTIME^l 


=TIME 1 , 


R 01 YA 

TTOTAET 

P 0146 

RDIAT 


ERASABLE TNTT T AL ITATtON- ” — “ 

"CTRTE,CDUS,CDUY,n)U^' tCDUX.T IMF2 .TTYEITCHANNEL 16 BITS 6fT OP 


DE3RIS- 

AtDFUFT,p 



t SAMPTTMF;SAHPTIHF+1 tRUPTSTOR TO RUPTSTDR+6 



TOR+A 



01 4 

RFF 

2 

LAST 

333 

07,2104 

— 01^0 

FEE 

3 

LAs 1 

1 b M 

OR , 2103 

01 31 

EEF“ 

1 



07 ,2106 

0132 

fee 

6 

LASr 

172 

07,2107 


SA 016 1 
3 0036 T 


MARK^UPT TS 


1 

T 


■OTET 
013 A 
0153 
013 3 
0137 
0133 
TTT5Sr 
0 1 30 
0131 
0162 


FEE 

REF 

REF 

FEE 

REF 

RPF 

FEF 

REF 

FEE 


T“ 

1 

1 

T 

1 

2 


“EAST xTT^ 


LAST 172 


6 LAST ITE 

r 


OTo 

orsF 

OISE 


REF 

FEE 


2 LAST ZZ3 
^ 


(' 7 ,2110 

07, '’111 
07, '’lia 
HT,2113 

07.2114 

07.2115 
07 , 2TT 6' 

07, ’ll 7 
0 ) 1,2120 
07,2121 

rr? , 2 1 22 

07 vTt 23 

07, 21 24 


54 362 
3 00Z6 
54 360 "0 

3 0033 1 
54 357 1 
3 0034 n 

54 361 1 

3 003 2 0 
54 363 0 

0 0006 1 
3 0025 0 
5 2 3 5 6 0 

O 0006 1 
3 033 6 1 
52 014 O 


TS 

CA 

TS 

CA 

TS 

TS 

CA 


BANKRUPT 

CDU1 — 

MX C DU T 
CPUS 

MKcnns — 

CDUY 

MKCnUY 

CDtrz — — 

MKCnu? 

COUX 


STORF COUS AND OPTICS NOW 


EXTEND 


T 1 M E 2 


GET TIME 


nxcH — 

-EXTEND 



MKT2TI 


toctrr 



FDR NOUN 6 5 , 


0166 

<rb 


LAST 

221 

0167 

REE 

- 

LAST 

13^ 

016'? 

:< Ef 

22 

LAST 

l'R7 



5'6 flop O 
5 4 r )I2 ~~ 0 


07 i 21 2 7 3 5012 I 


XCH- 
TS — 

C AF 


Q R UPT 

3 f T6 


SEE ^ARK--0E YKREJFCT 


Cap: AS-ie'i'^LL 05-“ 

t STTMARK" 


0169 

0170 


3 

L AST 

IB 9 

OTTT 


~58 ‘ 

CAST ■ 


01T2 

HFF 

1 








on's 

TF 

rs LAST 

TW" 

0174 





0175 

RFF 

4 

LAST 

226 


OTT^ TFF“ "Tg — Dm 275 


QirT- PEF r 






0178 T F F 

2 

L AST 

"XRS 

017<^ 




01^0 REF 

5 

LAST 

726 




M C'lMAMCH L ' BY MAS5"j r 0211 IH-Ubl 


OTVZl^TT” 0 0006' 1 EXTEWO 

07, 213X 02 "OTS 1 XAND NAVKEYIN 

717, 2 13 2 rO OOO' 0 CX5 75 

0TV2m “O' 2^T0 1 ■ TC WSRKTT ‘ 


U7,213A 3 5011 1 

07.2135 O' 0T)05‘ 1 

07.2136 O7“016 1 

07.2137 10 000 0 

07,21^0 0 2301 1 


0 7, 2141 3' A362 1 ITEYOALl OSE MET 37 

07,7142 0 0005 1 — EXTEMO 

07.2143 02 016 1 RAND NAVKEYIN 


XllF BTT7 

“EXTEND"'" 

RAMO NAVKFYIN 

XTrS B 

"TC" NEREJECr 


DTTT 

0132 
“ 0 1 T3 

0154 

" 0185 

0137 


07T2T44 0 0006 1 E X TE ND 

OX, 2145 1 2150 0 RZF +3 

REF 6 LAST 201 07.2146 0 4701 0 — TC POSTJUMP 

TEF r “ T7,2147 17702 1 C75Tm KEYCHM — 

RFF 12 LAST 198 07,2150 0 5650 I +3 TC ALARM 

07.2151 00113 I OC1 rrr — ■ — 

RET IP LAST 169 07 , ?15? -0“53OT X — TC RESUME 


10!28 APR. 17X759 CT7HA ID 7079 RTTCE 220 


USER’S PAGE NOT - — 5 — EX S 3 


ITS A KARX 


NOT A MA RK, SEE I F MKREJfcCf 


ITS A HARK REJECT 


"NOT MARK 


"MK R 



IF NO IN8ITS 



ALARM IF NO INPITS 


1 , It/69 — CO’^ A tO 


TTffT’l niN OS5 'If: A^L PHUtJP A»r COMAMCHl: NASA i 1 L j-05 1 


tO ; 2B A P R. 




FAGF 



1^ 01^^ 



ROT -10 

RDlOl 
R0192 
ROT 14 


SXT'^VRK 


U Sr P’S P A“G^“ TO . 


^7 S3 


PROGRAM NAMF - MARKCrm 


DATE- IP SEPT IPBT^ 


t’ROGRAM MOOIFTFD RY 2SH/'2/B PRUGM A MNlbR S ^ 
MnO ^^.Y-^. 4^AN5DN Tnr ATrr'DflCDMERTATTnN 


LOG ACTION SXTMARK 

ASSEMBLY SUNDTSK-R FV. 116 



DE sr/RT P7 rriM 


MARKCONT TS USED TO PERFORM A SPECTAL mRK FUNCTION FOR P21V TO EXECUTE A 
TO PERFORM A MARK OF A STAR OR LAND SIGHTING BASED UPON FLASHING V-N^ 


SPECTAt DT SPLAY OF OPTICS AND TIME OR 


Rni9S CALI TNG SEOUENCE- 

R0TO6 FROM MAPKDTF 


ROT 17 “ NORMAL EXIT MOOE- 
P0193 TASKOVEPT 


ROI 19 ALARM OR ABORT VXIT NODE- 

R0200 ALARM AMD TASKOV*^^ 


R02D1 

R020’^ 

R02n3 

R0204 
R02QS 
RDPOT 
R020B 
R 0? 09 
H'UTVn- 
R0211 
R07I2 
R0213 


nUTPUT- 

n FOR 


' FR ANK^FB AFK7 ““ — 

MRKBUFl TO MRKBljFlFE = TIMER .TTMEl , CDUY *nPT ICX . CDUZ .OPT I CSV • CDUX OF CURRENT R21 
MRKBUFE TO mttkB^JERfG CONT a rNG“ PR EV l OUS R21 MARK VALUES. 

7T F m SPECTAT TVISPLAY JOP- 

PUPTREGI AND“!^ KBtrFT ^ CDUS . RUPTREGT—AFrn MPKRt fFl ^-1 - CDUT. 

RUPfPEGT AND MPKBUEl +? = T I ME 2 . P1tPTREG4 AND MRK6UF1 +3 = TI MET 
FDR NUPRTAT MARKING- ’’ 


MARK FUNCTION 



nFCREMENT BTTS14-L2- OF Mft(>KSTAT FY- F. 

BITIQ MARKSTAT SFT TT 1 , I NCR EMFNT OPRET BY 7t 

STOKE TIME2*T IMF.l .CDLTY. EDUS * GDUZ ♦CDUT AMO CDUX IN VAC + 1 


nrFAtPFT 


R0214 EPASABLF TU I T I AL t Z AT I ON- 

RTDTTS IT T OR 1171- 

R0216 B IT14 OF STAT<^+2 =1 . MRXRUFl TO Mi^KBUFl + 6* ITEMRt, RUPTREG3. 

R021T PUPrSTOR TO RUPTSrOR+6 EXCEPT RUPTSTOR+4 

RT 2 IF Tn“FTy“ SPECTAT DTSPrAY 'TOB- — — — — 

R0219 BTT14 OF STATE-i-? =O.MARKSTAT =+ 0 , PUPTRE 01 ♦ RUPTREG2.i<UPTR FG3 

R022n RUPTRFG4 .PUPTSOOP ,RUPTSTOR+l ,RUPTST0R+3,RUPTST0R+5, 

T077T ^TT7 OF STAT--t-*5 TVER’ Ft AG^' » THRU" MR K RUE 1+3 

R0272 3) t= OR NORMAL MARKING- — — " 

R0223 BIT14 OF ST ATF4-? -0 , MAPXS TAT =V AC ADDRESS tT-REG» ITEMPl , RUPTREG3 t 

RO 274 -- ^U PT S TO R TO R T J PTSTnR ^-B ' T XCEPT RUPTSTQR-t-4 


R022rv 


R02?6 

R0227 

R022B 


^0 


P02::. 

R02 3 1 


)EMRIS- 


1) FOR R21- 

A . TTEMP 1 iMRKSUF I . MRXmiF2 
P \ FOF SRECrIAL DISPLAY TfTB- 


ATR11RTTr FGl»RU R TRO=G?.rM r RfRrO - '^f^UPT R EG4, M1 >-AC TO v t f>ACr5 

3) pnt» normal MAKKI MG- —— 


A.MARKSTAT, 1TliMOi,Nf>i>FT,VAr.>l TO VAC -*“7 OF VAC A*>FA IN USE 


GAl>: 655 HF IGC Pi^GRAM CHMAMCHE BY MASA" ?0 2ri I 3-OSl lOi ZB APR, 1 , 1^69 COWAIU raZ9“~P7n7E Z2B 

L S XT MAR K ““ NGv -f- $3 


02 ^? 

REF 

24 

LAST 

1^2 

07,7153 

3 5D02 

0 

0233 

REF 

30 

LAST 

185 

07,2154' 

7 0076 

1 

02 J'V 





07.2155 

0 0006 

1 

0236 

PFF 

1 



■07,7156“ 

1 2170 

1 

0236 

REF 

7 

LAST 

222 

07,7157 

3 6211 

0 

0737“ 

'p:ef“ 

T 


"7W 

07 , 2160 

0 56 0 6 

1 

0233 

^ EIF^ 

6 

LAST 

222 

07.2161 

01725 

0 

0239 

REF 

5 

LAST 

213 

07 ,21 62 

01 734 

0 


MARKCDNT CAF BIT14 

MASK STATF +2 

FKTEm 

BTF WARKFT 
MARKTTI CH^F SIX 
fX GFTJTRATq 

AmitSr HRKBtTFl 
AOPFS MFKBUF2 


RZl MARK (SPECIAL MARKING FOR R21) 


NOT SET THFREFrrRE REGULAR MARKING 
SFECTAL FOR ir21 

TRANSFER MRKBUFl TO MR-KBtJF? 


0240 

R'FF 

R 

LAST 

2ZTr 

0241 

RFF 

3 

LAST 

228“ 


PvF F 


■ XTrsT 

22 5' 

0243 

REF 

7 

LAST 

?2F* 


T)Tr?163 3 6211 0 ~ CAF SIX TRANSFER CtlRRFNT MARK OATA TO MARKBUFl 

OTfZrS^ 0 5606 1 — ^ TC GFNTRAN 

07,2166 003 56 1 A ORES MKT2T1 

OT#2166 01725 0 ADRES MRK3UF1 


02A4 RFF'" 7? LAST” 164 0 / ,216 I" XT? 4 0 TTF TASKOVER 


0245 REF T LAST 224 07,2170 

iyZA~b TFF“ 1 " ^ or; 2T7T" 


II’330 1 MARKET CCS MARKSTAT 

0 2225 0 — TC MARK 2 


SEE IF MARKS CALLED FOR 



0755 REF 3 LAST 223 07,2172 3 5016 0 CAF TWO 

*0255 R2F 6~ LAST ~273 07,2173 rTn4'4-T ^ASK EXTVBACT 

02S7 tr7,21T4 0 0006 1 EXTEW 

025R — 07,^75 3:^21 7“0 — SZF MARKFT3 


0259 2*^^ — 14 L A ST 273^ 07,2176 ’6004 0 

0260 RFF 31 XAST 22E ~a7,217T 7 OlOrTT 

0261 • 07,22 00 0 0006 r“ 

25252“ — RTF* 2 TirST 22B 07,2201 1 2217 0 

0267 -RFF 2 LAST 200 07,2702 3 5061 0~“ 

0264 RTF 3“ LAST 223 07,2203 CT 3T34~t 

■ 07 65 RFF LKSl 22FE E7 , 1725 

0 765 ctEF 1 — OT , 2 2 04"“ 0 242 6 O 

“0265 REF 1 “ 0'7,2705 76067 1 


02661 REF 9 LAST 22?r' 177,2206 3 62 1 1 O 

02662 RFF 4 LAST 223 -0-7,2207 O 5606 I 

^*0265 3 1_TST “223 — 07,2710 — 0trT55“1r“ 

02664 ^EF 6 LAST 175 O’, 2211 01674 0 

02655 REF 10 LAST 223 07,2212 3 6211 0 - 

X2565 RFF 5 L7LST 723 0 7,22X3 0 5506 "T 

07667 “REF 5 LAST 228 07,7214 00356 1 - 

07665 — KFF- 0 LAST “228 07,2215 — 0I725"0 

■ 0 253 fee 6 TAVI 223 07,22X6 1 5324 0 — 

025R ^ET^ 13 L AST 226 — 07 , 221 7 tF 5650 1 

— 0260 0*7,-2220 — tTOl22 0 

— 02“^O TEE 5 LFVr — 225 0022271 1 5374 0 

- 0071 RFF 14 LAST -223““ 07r2222 0 5650 1 

027? — — - 07 ♦ 72 2 3 DO 1 1^4 —0“ 

- 02 73 RFF 7 DASI 223 0X7222’? 1 5324 0 


• C AF BtT 1 2 

MASK STATE +5 

- EXTEND 

CAF PP 105 

TC NLA VAC 

E BANK^ MRKBU F l 
2CADR MARKDISP 


CAF SIX 

TC GFNTRAN 

— A D RFS M KT2T1 

ADRES MARKDOWN 
CAF SIX 

TC GENT RA N - 

AORES ' MKT2T1 

ADRFS M1K8UF1 

^rCF TA S K tT V FR- 

MARKET3 TC “ ALAiRM 

nCT 122 

TCF TA S KOVER 

ll4AtM TC ALARM" 

DCT 114 

TCF TASKOVER 


IS MARKING SYSTEM IN USE (BIT2) 


MARKING NOT CALLED 


V 59 FLaG 


T F V S X FLAG NOT SET- M ARK UNCALTEO FDR 
CALlBR/tTlON MARK (SET) FOR P73 
SPECIAL DISPLAY JOB 


TRANSFER *^ARK DATA TO MARKDOWN 


TRANSFER MARK DA T A TO M RKBU F l FO R 
SPECIAL -DISPLAY OF SHAFT AND TRUNNION 
IE X 5 P ACTI^^fG 


»^ARKfA‘C NOT called FHR 


MARK NOT WAHTeO 










• 


• -r-rr^ 


^rrr 


k . ♦ •r 












;a 


o 


ASSEMBLE REVISION 05S OF ^f'^t CnMAMCHF BY NASA 



SXTMARX 


P0?7 4 


STORT^^^ARK DAT/T ITT'MKVAC AND mCRET^ENT POINTER 


T57T^ 

0271 


TFF 


‘ V 


0270 

02SO 


PFf 



T 

1 

B 


15 

~sr 



om — TZ 


LAST 

XA^ 


166 

77V 


xyrr 

07.7226 

07 .7227 

07.2230 

07.2231 

07.2232 
07 , 2 2 T 3 


6 7 /TX 1 

n~ OTTO S T 
6 2222 1 
5 5 » 33 0 ■ 1 
4 OOOO 0 

7 5006 0 
2/* 330 1 


MARK2 


D 

FXTEND 
37 ME 
T5 

TOM 

MASK 

inrs 


Tznr 

114ALM 

MARKSTAl 


n 272 


LAST 22 4 


77, 2234 7 5046 1 


0233 

■REF ~ 

“nf — LAST 

“705 

“0T772T5"' 

■54 051 

“T 

0234 

R E F ■ 

60 

XT' ST 

226 

07,223') 

50 000 

1 

02 05 ' 

fv cF 

2 

LAST 

223 

07,223 7 

“^6 052 

0 

0736" 

PEE 

12 

T A3T“ 

"705 

07 , 2240 

54 062 

1 

TTZBT 

■ 

3 

LAST 

163 

"07 ,"224 1 

6 ? 023 

0 

02? 4 

RFF 

15 

1. AS T 

22^ 

07,2242 

50 061 

0 

02d? 

K EE 

3 

LAST 

~Z7V 

DT, 2 243 

54 052 


02 70 



- 


07,2244 

0 0006 

1 

” ' o?Tr 

■ TEF " 

6 

TAST 

27 3 

07 ,2245 

T 0 3 56 

i 

029? 

REF 

1 3 

LAST 

229 

07 ,2246 

50 062 

0 

0273 





07 , 22 47" 

6 2 O OlT 

1 

cr??4 

REF 

7 

L AST 

22 5 

OT f Z Z 3 0 

3 03 57 

0 

0295 

REF 

14 

LAST 

22 ? 

07, 22 SI" 

50 062 

0 

" 02 96 

- . - 




07,2252 

54 002 

1 

OTOT" 

TEF 

? 

L AST 

223 

97,2253' 

3 0360 

1 

0275 

pFE 

1 5 

LAST 

22? 

07,2254 

50 062 

0 

027? 





07,22 5 5 

5 4 003 

0 

U 3 DO 

^EF 

2 

LAST 

22 5 

07 , 22 56 

3 0361 

0 


VAC ST 07 


MASK 
TS 

TMDEX 

XCH 

TS 

AO 

INOEX 

TS 

EXTEMO 

HCS 

INOEX 


3IT10 

TMTRXSTffT 

L nW7 
I TE M P l — 
A 

qPRET 

SF V E N 
T T E Mt> I 
QPRFT 


DXCM 

CA 

INDEX 

TS 


MKT2TX 

ITFMP 2 

0 

MK-TOtnr 

ITEMP2 

9 


T)TOr 
0702 
TOTfTT 
0 3 T4 
0315 

0TO6 
03 07 
03 OR 


16 LAST 227 


— RXF“ 7“ 

■7FF 17 


TTFF 

rff 


9 


XAST ~273 
LAST 22? 

I AST — 72T 
LAST 22? 


07,2257 
07 , 7 T 60 
07 ,2761 
07^*2262 
07,2263 
0TV7Z5'4 
07,9265 
0'^,2266 


50 062 0 
54 004 1 
3 0367 0 
^0 0 62 0 
54 005 0 


'3 03 63 T 

50 062 0 
54 006 O 


INDEX 

TS 

“CA 

INDEX 

TS 

TOA 

INDEX 

TS 

1 NOEX 
TS 


ITXMP2 

3 

MKCDU7 

ITEMP2 

4 

MKXDUT 

ITEMP2 

5 

Mrs 

rTeMP 2 

6 


0 3 0 
0^10 
03IT 


RFF 1 

3FF 10 LAST 22? 


0 7,22 67 

07.^270 

0 7 ,22 7 1 

07,-2272 


7671 
13 30 


0313- 


8 

LAST - 

228 - 

07,2273 

(T3T4 

K EF 

2 

LAS f 223 

OT , 2 27 4 

-0315 

REF 

4 

LAST 


0 7.7275 

0316"" 

t > p 

1 t 

LAST 

279 

X330 

0 317 

CJ Pp 

1 



07, 2776 

--03 1 7 

R - F - 

1 


— 

- 09,2277 

031 

> L F 

9 

LAST 


07,23 00 


3 
7 

0 0 006 

1 2274 
1 5324 


0 

1 

r 

0 

o 


CAF 

MASK 

■EXTE ND 


PR 1034 
MARKSTAT 


O 

TCF 


0 5 t 34 1 


TX 

E B A NK 


024 22 
1 6062- 
1 5324 


T 

I 

0 



TCF 


+ 2 

TASKOVFR 
2 Rir r 32 — 
NOVAC 
MARKSTAT 
MKV ^ B 0 

TASKOVER 



:28 APR 


TTTT6? — TOMATO TOT? PAGE 22? 


-NO. 


8 


F7 S3 


STE IF MARKS W ANTE0-RFOUCF MARKS 


MARK NOT WANTED- ALARM 


SET BTTIO TO ENABLE REJECT 


PICK UP MARK SLOT-POINTER 

■NT 




INCREMENT pointer 



IF Alt MARKS made FLASH VB50 



GAP: ASSEMBLE PFV I ST O'J 5 nf AGC CnMAMrq|="BY "NASA 20 21TI'3“0'*=;T 105:^3 APR. TTTTF'l CHflAIO .029 PAGE — 2^ 


L SXTiv^RK i)SER* S PAGE NO. 9 E7 S3 


R031O program NA^F - ^KTR EJECT ^ — DATE- ^ APR IL GPRBT 

P0320 PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK 

R 0'37r ■■ TO ADD OOTUHEN T ATTON — ZTSSEMHLY SUNOISK REV. 1 15 


R0322 FUMCTIONAL DESCRIPTION- “ ^ ^ 

fTTTT?! POUTTNE O^ITOWS OPERATOR TO REJECT MARK MADE PRiUR 10 ACCEPTANCE AND ALLOWS A NEW MARK TO 


R032^ CALLING SFOUFNCE- 

RT) 3 FROM MARKRUPI IF B I W OF CHANNEL 16 IS 1. 


R0377 NORMAt “EXIT M-HDE- 
RTTTTR RTSD'MF 


R0329 ALARM OR ABORT EXIT MODE- 

~r:uttt aearm and pesuml 


R0331 OUTPUT- 

^ R 0332 ITT^OR "1T2T- 

R0333 MRK3UF1 SET TO -I 

R033A 2) FOR NORMAL MARKIMG- 

R DTTE PT Tl D TTARTCSTAT =0, INCREMENT NO, MARTS BY 1. 


R03T^ ERASABLE I NITTAL ITATTH^t- 

RTT337 II FOR R 2 I 

R03^^ wiTl^ PE 5TATP+2 TO 1 

R0339 2) FOR NORMAL MARKING- 

RT}3^(3 BTT14 HT STATF+2 SFI — m 0 , M ARKSTAT , qPRET 



R03A1 DEPOTS- . ^ . 

■R03Zf'2 n FnR"R21- 

RORAO A tyJ’ARKSTAT f EG AATK 

R034^^ ^ ^OP NORMAL MARKING- 

ITUTTd 35,MAPK7TATt TTEMPl ,QPRET 


03^6 -R:EF' 25 LAST 228 07,2301 3 50B2 0 MXRFJFCT CAF 


0377 “REF 32 ~ TTTVT ZZB 07,2302 T 00 T B 1 mSK 

“ 03^3 “ 07,2303 0 0006 I EXTEND 

03A^ REF 1 07,230A 1 2310 0 BZF 

B35T)”"^TF r ZAST 07.2305 'B-TTIB-O CA 

“ 0351 REF 10 LAST 228 07,2306 55» 725 1 — ' TS 

^ 035? REF IR LAST 326 07.3307 0 53333: — ^ T€ 

■ 03 72 REF 12 LAST 229 07 ,73 10 11*330 I MRKREJCT CCS 

- 0357 R^F 1 0 7, ?3^tr 0““231^ I TC 

- 0355 TcF 15 LAST 223 - 07.2312 0 5t»50 1 TC 

0337 07 . 2R 13 0011 2 0 HtT 

“1)357 ^FF — 20- LAST 230 ' 07,2314 0 5333-1“: TC — 


0353 RFF 17 LAST 279 OT, 7315 4 5006 O 2EJFCT2 03 — 

0357 REF 13 LAST 230 - 07 ,R 0 l<. 7 I MASK 

0350 RTF 14 LAST 230 07.2 31'^ 57*330-0 XCH 


81 T14 


MRKREJCT 


MRX8UE1 
RE S UMf 
-M- AP -KST AT 
R€JECT2 

ALARM - 

117 

RESUME 


B1 TIC 

MARKET AT 
MARKS! AT 


R7 1 M ARK t SPEC! At M ARKING F OR 



NOT SET THEREFOKE REGULAR REJECT 

-1 ( FOR R ? 2 I 

-O IN TIME IS FLAG TO R2? SIGNIFYING A 
REJECTED MARK- — 


MARKS NOT BEING ACCEPTED 




IrATT 


REJECT, and SET BITIO TO ZERO TO 
SHOW MARK -REJECT 


TUTTJn^ 


REVISION 0S5 nv ^T,TrPVrjGRAM'-r:nMANCRF BY-’NASA 20?lin-05T 


1 , ITb^ CMMATD TUT^ PTSTT^ ^Tr 


^XT>TARK 


U SFR“*^ PAG I: NO . 10 


E7 S3 


03^1 17 LAST 73 0 07,?370 T 500^ ^ MASK BTTia 

0362” ^EF 61 LABI 229 07,2321 10 OOO O CCS A 

U3F3 RTF 1 OTTZTTT 0 2326 I rX RFJECT3 


0364 16 LAST 230 D7,?323 0 5650 1 TC AtARM OONT ACCEPT TWO REJECTS TOGETHER 

^ 0TT7TZ4 OOllO 1 OCT m) 

0366 ” REF 21 LAST 230 07,7375 0 5333 T TC PFSOMF 


0757 7 L F 3 L A'Sl 2T9 07,232'6 3 5046 0 RFTFCT3 CAF CUW9 

035^ FEF 15 LAST 230 07,2327 7 1370 T MASK MAFKSTAT 

0359 REF 16 LAST 229 07,2330 54 061 1 TS ITEMPl 

0370 TFT — “4” L AST Z7T 0 7 . 23 31 4 5023 1 ^ TS SEVEN 

03TI TTEF 17 LAST 231 O'?' .2337“ 50 761 O INDFX ITFMPl 

0372 FFF 4 LAST 229 07,2333 26 052 1 ADS O^RFT 


OFCREMFNT 



NEW POINTER 


0373 REF ~t5~~LAST 773 “07.7334 3 5004 0 CAF 8TTT2 INCREMENT MARKS WANTED AND TF FIELD 

037'+ ref V6““LAST 231 07,7335 6 1730 D AD MARKSTAT IS NOW NON-ZERO, CHANGE TO \/551 TO 

037 5 T[FF IT “T7S1 27T 07 , 2336 57*330 0 ^ KCTI MARKSTAT T NOT C ATT Mt 3R ^ MARKS WANTEtT" — 

0373 PFF 2 LAST 229 07.7337 T-T571 1 MASK PRin?4 INDICATE MORE MARKS WANTED 

0377 PEF 62 LAST 231 07,7340 10 000 0 CCS A — ^ 

”^03 73 7 FF 77 1 A ST 77T 07 ,2 34 1 “ TT 5333 I TT RESUME 

0379 7FF “7 LAST 727 07,^342 3 7567 7“ CAE RRI037 

'0330 RFF 7 LAST 72 9 7Tr2343 0 5134 7"^^ — ' TC NOVAC 

"03 31 RTF 37 TTVST 271 1770 ETONr= m R KSTAT — 

0332 REF 7 LAST 223 0772344 023473T- ““ — “ 2CAnP MKVB51 

0332 07,2345 16062 3 “ 

^ 03 93 REF 27 FTTST — 27r"~”0T727T5' 0^5737“1 TC RESUME 





rriE' Rr VIST O'N 055 TTf-'l^r M'"' 1 GRAM Cil^AMCHI: BY NASA' 20^1 1 1 3-U5 i 


I ZB ffPR. rn.'^ 69 COMAID ,029 



L 


R 03.^4 


r:oT !55 

R03>36 

R 03 e 7 


ROB 3 3 



R0390 



R 03^3 
RD 3 9 3 


SXTMARK 


PROGRAM DESCRTPTTON MKVR51 AND MKVB^O 


XU T N'OT^B AIEN FRT' D A"! E-7-T 5-7r7" 3^100-0 

PURPOSE' FLASH V5IN70 ,V5TH43, OR V51 TO RFQUFST' MARICTTLG 

ANfD V50A[RF~P'I=1 5 TO REQUEST TERMTNArr MARKING 


CALLING SEQUENCE AS JOB" WITHIN 5XTMARK 


EXIT 



K 1Jpn^j RTCEl"Pr UL V33, V34 CACTSES GOTOPOOH V 'ENT ER 
RECYCLES THE DTSPtAY — 



- ' SYTMARIT AnTOMATIXALLY CHANGES FROM CALLING MKVBSl T0"’^VR50 WHEN 

SUFFICIENT MARTS TTAVE BEEN MADE. A NO THE REVERSE WHEN A MARK 
REJECT REDUCES THE NUMBER MADE BELOW THAT REQUIRED 


P 0394 


SUBROVJTINES CAO-ED^ EANKC all* GOMARK2* GaODENO,ENDMART.WAlTL TST 



7SnEARMriJR“ARnR'T“MODtS - NONE 


PAGE 


11 


E7 S3 


R03 9B E’^ A SABLE USED-VERBFFG , MAPKSTAT* QPRET * OSPT EMI 


R 03’^7 


nuT^iiT markstat~vac address 


R0393 



QPRET= 

0401 



7 

LAST 

3402 

REE 

1 


T)4T7T 

- reF~ 

1 


0404 

^PT 

B 

L^ST 

0405 

RFF 

I 



XFrns 

040T 

0403 


TTFF 


REE 


~T 

1 

1 


MO.MARKS 


203 


232 


07,2347 

^ 7 v'’T 5 D 

07 ,2351 

0 2 
a 7 r 2 T 5 T 
07,2 354 

nr * 23 S 5 

07.2356 


0 46 62 
205 60 

r 


0 


1 

O 

T 




?357 or 

r 2370 0 
1 2416 1 


MKV851 


TC 

CAD^ 


TC 

CADR 

T CP 

TCF 

TCF 


BANKCALL 
Kl. EENFX 

TBTt 

BANKCALL 

GnMARK 4 — 


tTEAR DISPLAY FOR MARK VE*^B 



ENTANSWR 

MK vesx 


D I S P LA Y M-ARK - VB51 


V B T R- T ER Mt NATE — 

V33-PROCFFO-MARKTNG DONE 
ENTEP-RECYCLE T6 INITIAL MARK DISPLAY 


040R —REF 3 LAST 199 07, '^357 0 5536 1 TERMSXT TC CLFARMRX XLEAR MARK ACT I V I TY . 

~Tr4U^7F KEE X — L AST 233 07. 23 50 0" 5364 *0 TC CHFCKM M — 

0410 07,3361 00003 1 MM 0^ 

07,2362 1 2364 0 TCF 4-? 

041-2 RET 1 - ■'"OTV^TSl 0 23 66 0 TC TEPMP0 3 

0414 REF 7 last 226 07,2364 0 4701 0 TC PUSTJUMP — 

04145- REF 1 07,2363 30205 0 — CADR TERM52 — — — — — 


“OAIFB" REF~‘ 2 LAST 203 0T.3T66 O 5546 0 TERMP03 TC UPTLAG 

04147 -^>»:E 1 - 07, '>367 00032 0 ADRES TRM03ELG 

041 5 REE 4 CAST 23T 0 7 . 2 3 T 0 3 5 0 46 0 EN T ANSWR CAE LW O R UT VAC Afy> !M M ARKSTAT A N D NO, OF 

0416 ref 10 last 23 -t 0 7r2371 7 1330 L — — 'MASK MARKS! AT — MARKS MADE IN OPR ET BEFORE LEAVING 

0417 - REE“- 20 LAST 232 07 ,2-37 2 —55 • 3 30 I — TS MARKSTAT SXTMARK 

-04X3 * 0 T . 23T3 4 GOO D- 0 COM — 

0419" ' OFF 21 l ast 232 0-7,2 5 74 5) • 330 0 INDEX MAHKSTAT 

0420 - ^’^E 5 LAST ^231: 07, >375 6 0052 0 AO QPPFT — — 
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OARDISP 

CREW71ANO 

OnLOA O LV 

GOLflADLV 



GOTORZO 
AL INTI ME 



G5TnR21 
FNATMA 
;tr L ^T AOLV 
V60 
V51 
VC1 


V63 

VB64 

C K OPTVB — 
ATTACHEO- 
V6 7 

C T Pn K rr N — 

VER56^ 

V7mjPOAT 

T T TtT FOAT 

V7 2 OR OAT 
V73UPOAT 
ONFOUMP — 


L F T F I G ON 


VERB^40 IS IN MPAC 
FAN AS 6EF0RE. 


V840 ZERO (USED WITH NOUN 20 ONLY). 

VB41 COARSE ALIGN (USED WITH NOUN 20 OR 



V842 FINE ALIGN I MU 

V843 LOAD IMU ATTITUDE ERROR METERS 

VB44 S E T SUR F ACE FLAG 

VB45 RESET surface FLAG 
VB46 ESTABLISH G+C CONTROL. 

LM STATE VECTOR INTO CM 



VB4B LOAD A/P DATA. 

V8 49 START AUTOMATIC ATTITUDE MAN'=UVER 

P ERFO R M — = — 



VB51 RLFASE MARK 

V352 SET OFFSET NO. FOR P22 

PERFO RM CQAS M ARK 



V54 5^TART -RZ5 (R21- BACKUP) 
VB55 ALIGN TTMF 

TRACKING (P20 


V5T START R21 REND" TRACK SIGHT MARK ROUT 
VB5R ENABLE AUTOMATIC ATTITUDE MANEUVER 

VB59 PLE AS-E C A l IBRATF 

VB60 SET CPHIX (N17) EQUAL TO CDU 
VB61 SELECT MODE I 


V B 6 2 SELECT M ODE II, ER R OR WRT N22 — 

VB63 SEtFCT MODE III. ERROR WRT N17 
VB64 CALCULATE, 01 SPLAY S-BAND ANT ANGLES 
V 65 f O P TI C AL V E RI F ICATION 

66 ATTACHED. MOVE THIS TO OTHER STATE 



Vft67 WMATRIX MONITOR 

V86Q CS M STROKE TEST ON. 

V8 69 CAUSE RESTART 
VB70 UPDATE LIFTOEE TIME. 

VB T t t )NTV E RS 4 t ♦ i P DATE B LOCK ADOR E S Sv 


VB72 UNIVERSAL UPDATE - SINGLE ADDRESS. 
VB73 UPDATE AGC TIME (OCTAL). 

VB74 — INITI ALI 7E — DOW 
— — FOR -ERASABLE DU'^P • 



VB75 SET LIFTOFF FLAG. 


T5p1 ASSE^VhLE 



^JCCOMANCHF BY NASA 20 21 1 1 3-0 '? I 


10:2a APR. 1.1969 — CUTOTU 


TTZ9 FTZtlTF — ^3T 


1. 


EXTFNfO'FO VE^'HS 


trSF1?^5 PAGE Na, 


E5 SA 


00A9 

00^ 

0050 ■ 

0051 

0Tn2“ 

005a ' 

0054 

0 0 55^ 

0056 
005T 
T)05 o 

0059 

0060 
TJTJ6T' 
CTO 52 
005T 
0564“ 

0065 

0065 

OO^T“ 

0065“ 

006’^ 

WJITT 


P"FF 

^FF 


FF 


^xz 


REF 

rjTTfr 

^FF 

ref 

RF5- 
F 



REF 

REF 

FFF“ 

RHP 

^FF 

RTF’ 

RFF 

REF 


n 



FFF 

RTF 

'RTF 


1 

1 

T 

1 

1 


1 

1 

2 

1 

1 

I 

1 

1 

T 

1 

1 



1 

3 

T 

5 

F 


OrST ZTT 


'4a67TJi46 

43,2047 

FTTrOFTT 

43,^F51 

43 .2052 

43.2053 

43.7054 

43 . 7055 

43.2056 

43.2057 
43,2050 
43, Z06T 

4373062 
43, RO 63 


0“3DT5 0 
0 3020 0 
0'2'4OF3' 

0 2120 0 
0 2713 0 


0 2 716 " O' 

0 2562 1 
0'25 6"^ 1 
0 7T20 0 
0 2601 T 
0 2646 1 
0~3TJ23~0 

0 3027 1 
0 2745 0 


LAST 237 


LAST 

Ll^ST 

FAST 


23 6 


23T 


43.2073 
43 ,"70T4 
43,2076 


XT 


0 2r?0”0 

0 2275- 0 


TC 

TC 

TC 

TC 


TC 


TC 

TC 

TC 

TC 

TC 

TC 

TC 


4 3,2064 

“0“ 

3T7fZ 

ZT6? 

-A. h— m 

“D 

TC 

ir 

4372065 

0 

0 

TC 

^3 . 20 6 6 

0 

2360 

0 

TC 

4 3,20 67 

0 

2765 

1 

TC 

A 3 f ? OT 0 

0 

3126 

1 

TC 

43,2071 

0 

2120 

0 

TC 


TC 

TC 

TC 


6ETPPFLG 

FFSETPRF 

CHAZFrJGC 

A L^ ZENO 
FFMVFC“ 
XFWFC 

VB2FESF 

V33PFRF 

aLm/enh 

VaSPFPF “ 

V06PFRF 

SETVHFLG' 

RESFTVHF 

VBSPERF 

V90PERF 

G^SHOSUM 

systest 

WWATRXNG 
VERB 94 

AL’^/FMH 

VERR96“ 

GOIDAOLV 

ALM/FMD 

GOLOAOLV 



VBT6 SET PREFERRED ATTITUDE FLAG 
V877T?FSFT t’TEFERREO ATT. FLAG 
CHANGE GYPOCnWPASS 
V79 SPTARF 

V680 UPDATE LF?^ STATE VECTOP 
VB81 UPDATE CSW 



VB82 REOUFST ORBIT RARAW DISPLAY (RBOJ 
VB83 RANOEV RANGE RATE, +X AXIS (R31J 
VB4 SPARE 


VBBB TrANGE. RANGE PxATE, SLOS 
VBB6 BACKUP MARK REJECT 
VB8T SE 


(R34y 



V888 RESET VHP RANGE FLAG 

V39-ALIGN X OR PRF CSM AXIS TO LOS (R63) 

VB91 TEMf> FOR HYBRID AND STG. 

V892 OPERATE IMU PERFORMANCE TEST 
VB93 CLEAR 



V394 DO R64 
V395 SPARE 
VB96 SE 



STOP TNTEG'* AT ION 
V9T PLEASE PERFORM EMGTME-FAIL (R41) 
VB98 SPARE 
VB 9 9 P L E AS E Ff TA ' SL 



R0071 


END Of EXTENDED VF^B FAN 


0072 

REF 

7 

t AST 

“22B 

VI, 2076 

11 *066 

1 

TtS'TXACT CCS 

EXTVBACT 

0071 

— PTF' 

TT 

L A S 1 

737 

4 . 2 0 77 

0 2120 

0 

TC 

-A 

ALM/LND 

ODTOT 

lEF 

2 

LAST 

“157 

43,21 on 

3 0100 

0 

-A 

CA 

EE AG WR 04 

00737 

R F F 

1 



43 ,2101 

7 2123 

1 

MASK 

GC 2 4 1 0 0 

FT733r 

■■'■RCF' 

6^ 

LAST 

- 2T5 

4-5.2102 

10 000 

0 

CCS 

A 

00734 


6 

LAST 

237 

43 , 2T03 

0 2 T 20 

TT 

TC 

At M/E NO 

0074 ' 

RFF 


“TASF 

ZOT 

VI V2 1 06 

3 '4112 

1 

C AF 

0CT24 

0075 

REF 

>3 

LAST 

237 

tl,210S 

55’ 044 

1 

SETXTACT TS 

EXTVBACT 

♦ 

A0076 










00 r? 

REE 

75 

LAST 

215 

<ri, 2 106 

3 0007 

0 

CA 

0 

007 5“ 

“REF 

26 

LAST 

23 6 

4 3 . 2Tt)T 

54 15*^ 

I 

TS 

MR AC Fl 











0083 


4 

1 AST 

22 8 

43 ,2T to 

4 50 1 6 

1 

>x. 

C3 

T Wu 

00R4 

REF" 

r 



43 .FI 1 1 

0 41 TO 

0 

T C 

NVStJB 



ARE PRIGS USING OSKY 



AND 5 


NO. SET FLAG TO 
SYSTEM BUSY 


SHOW EXT VERS DISPLAY 


BLANK EVERYTHING EXCEPT MM AND VERB 


0055 

0036 


PFF 7 T “FAST 237 


4 3 , 21T2 

43,2tTT 


0 7 113 0 

0 0T55-1T 


TC 


tT 

MPAC +l 


OO F 7 F OF — —7 FTST FTT 43. 7TT4 0""4'^OTr 1 XACTALM TC FALTON 

00^5 FEE 1 43,211.5 0 5534 0 TC ENO’^XT 


TURN ON OPFB A TO R- E R RO R LIG H T. - — - - 

RELEASE AND EXT. VERB DISPLAY SYS. 


GAD 


'^SSP'-’BLE ReVISION 05S up AGC PROGRAM COMANCHE I^Y NASA 



1 n-npi r 


VTF^JOh''i 



'00:W lEF 2 LAST 2T7 5534' TcRfTEXTV EQUALS ENDEXT " 

GOTO DCF - last 23R 4S34 ETTOEXTVB EQUALS ENOFXT 

« 

00?T D-EF 23 LAST 234 43, 2T14 3"5071 I XAUTO CAP ZFPO 

009D OFF I 43,2117 OEIOS"! TC SFTXTACT 


GO'S! “REP 3 LAST 237 43,2120 0 4400 1 ALM/EMD TC FALTON 

0094 REF R LAST 232 43,2121 0 4701 0 GOPIN TC POST JUMP 

“ OTS^ REF 2 nrsn TTR 43.2122 ZT 772 ~n CTOR PT^BRNCH 


00055 " “ ■ ■4T.'21"25 “'24100 0 01524100 OCT' 24100 


I'OiZIT'AT'R . 1,1069 — CUMAIU 7029 PAOE 


US-^P ES P AGE N O. ”3 E5 S4 “ 



MARK 


AND EXT. VERB DISPLAY SYS. 


TURU tJN OPERATOR ERROR LIGHT 


'GAP: ASSt^'-'BlIFl^EVI'IinN OSE> nF^""4GC PPOG^AM C'JMAN(.;H6“RY"nK'5A' •^02H1'4-(>SI 10!^8 4PH. r ; 1^69 — C O WA in nJ29 


L EXTFMO'ED VITRBS “ USEP'S-PARH NO. A f5 S4 


POO'^‘f VBZERT) VFPB' AO DESCPIPTTTTN — 

R 00-77 ZERO 

BCrOF5 1. REUUIRI-: NHUM ZO' (ICOU ANGLES) 

RCrO^v ' 2. T7EQHTRE AVAIL ABILITY OF EXT VERB DISPLAY SYSTEM — 

““ POTOO ?. IF ETTMER OF ABOVE CONDITIONS NOT PRESENT. TURN ON OPERATOR ERROR LIGHT AMO GO TO PINBRNCH. 

PIJTIZ A. SET EXT VERB DISPLAY ACTIVE ELAG. 

ROIOT ^ 5. EXECUTE I MUZ EPO (ZERO IWJ COU ANGLES). - 

” ROlOA 6. EXECUTE T MUST ACL I ALLOW TTME FOR DATA TPAMSFERT. — 

RD WE 7; RtCfcASE EXT. VERB DISPLAY 'SYSTEM. 


0106 REF 1 AT,212A n 2106 I VBZtRO TC OPTINERT 

DTOT REF T AO'; 21 2 5 Cr-21ET"T IT I MU ZE R O K 

0106 ~EEF 7 LAST TTT — 43,2126 0 2120 0 "^TC" ALM/ENO 

AO 109 


R ET URN H E R E IF N O UN = I C O UIZ I D 
RETiJRN HERE IF NOUN = OCOOtVl) 

(NOT IN USE YET) 


DITO' RPF 1 AT . 212 7 0 227in~ IMUZEPOK TC CKMOOCAO KEYBOARD REDDEST FOR ISS COU ZERO 

OllOT 'BEE 9 LAST E72 ^A3,?L30 0 A662 T ^ TC 6ANKCALL 

Om REF I ” 43,2131 16577 U CAUR EHUZERO — 


0112 REF 10 LAST 239 A3. 2132 0 45^62 1 TC EANKCALL STALL 

D 13 3 tee 1 A3TTTTT 17577 1 CA0R 1 MUST ALL 

OITA A3,2TT4 0^2T3B 1 TC +) 


crrTB etef r 43 , 2135 — u 2121 1 — nr gomtn 


0116 RFF A LAST 237 43,2136 A 4112 0 OpyiNcRT CS 0CT2A 

(TTTT REF 2 CTST 19 2' A3,">1 '37 6 1002 'T ST) NOUNREG 

OUT" ' A3,E1A0 0 0006 1 EXTEND 

0119 REF 1 43,2141 1 2476 1 BZP XACTOO IF = 20. 


0T2E" REF EE LAST 237 43,2142 24 002 0 - TNCP 0 

0121 REF 1 “ ' 43,2143 6 2147 1 TO OPIMOIFF -71 

“ 017 T ' 43", 2144 U OUCnS I EXTEND 

0123 REF 2 LAST 239 -'.3;^.45 1 2476 1 f)7F XACTOO 

■ 01 24 REF~ 3" ■ L A ST — 233) 43,2 1 46 rr 21 'ZTr '"0 TC fft7»Z30Vn ILLEGAL. 

0125 4'3.21 47 77670 0 nPIMOIFF DEC -71 


G A?«;F«PLt: P'^VtSlON 055 OF K&r PROGRAM COMAMCHF RY N4SA J021 llB-OSl lUt7.8 APR. TTr^FEPT — CDMA ID TUT^ PTTGf 2^0 


C EXTF>JDtTrVFRB‘S DSFTt*G PAGE W. 5 E5 S4 


P0126 VBCnARK VrpR 41 DESCRIPTION 

R0t27 ~ COURSE AL TGN I Wr OP' OPTICS 

TfDTT^ V. REOUIRc NOUN "ZD OP NOUN 91 GR'TURN ON UPbKAlUR bHRUK 

ROIP" 2. PTOUrRir“EXT VERB DISPLAY SYS AVATLABTE OR TURN TW OPERATOR ERROR LIGHT AND GO TO PINBPMCH. 

R0131 CASE T NOON 20 nCDO ANGLESJ 

R0TT2 3. STT E-^T V'-RB I'ISPLAV ACT I VF ' FLAG'; 

R0133 4. DISPLAY FLASHING T25.'N22 ( LDAOTIEir 1C0U ANGLES ) . 

P01 ?4 ' rESPONSES 

TTDTTS A. TERMINATE 

pon^ ivrtlease ext v erb^ o rs pl ay systfn^ — — 

P013T ' “"BV' "0000000 

RU1T5 1. DISPLAY FLASHING V2S.N23 (LOAD DELTA ICDU ANGLES). 

R0I40 ' RESPONSES ' 

R0141 A. TRPMINATE 

170142 1. RFLbASE fcXI VERB DIS P LAY SVS T EM. 

ROLAT ' 6. PRTTCEEO 

R0144 t. EXECUTE ICnPK2. 

170TA5 C. ENTER 

R014E ■ I. INCRE'IFNT COU ANGLES 

R0147 2. EXECUTE IC0PK2. 

■ROTAS G Ei'TEP 

R0T4T 1. EXECUTE ICORK?", ' 


ROrSO TCORKr — — — — 

ROlbl r.' 'RF-n'TSPL AY VERB 41 . 

R0152 2. EXECUTE' IMUCOARS IIMU COARSE AtTGN ) . 

ROIST . 3. EXi^CUTE IMttSTALL TALLOS TINE FOR DATA TRANSFER). 

■P01B4 4. RELEASE EXT VERB DISPLAY SYSTEN. 

ROISS CASE 7 NOUN 91 I OCDU ANGLESl 

R01S6 3. (R EDI 1 1 E 'TP T I CS “SWITCH' TO BE AT CTHPUTER OP TURN ON OPERATOR ERROR AND ALARM 1 1 B > AND (REQUIRE 

ROIS’ D P TT CS AVA T LARLL ANU D I S P LAY F LASH I NG V24 , N9 2. . « . L O AD N E W OP T I CS ANGL E S. ...OR TURN ON ALARM 11 

'TLOINO ANT “RELEASP EXT VERO ntSPLAY SYSTEM). ' - - 

"ROlGr 6. RESPONSES T0“V29,N92. - 

R0162 K ~. — IE a HI NATE 

R0rf>3 release RXT VERB DISPLAY SYSTEM 

R01o4 ■ B. PRfjCEL-D PP ENTER “ 

'“'ROTES frmTSPTnnr'"V«FtG se t sw itc h to I NDICATF- COURSE ALIGN OPTICS WORKING. 

P0167 REl f-ASE EXT VERB OISPL'T SYST'-M. 


U1S8 ' 

01 *-9 
0170 
POTT 

0 1 T?' 

01T2 1 
01 M 

0174 

0173“ 

“0174 

0177 


— REF 2~'L'AST 2T9 4 ~r ; ~2r S tl 0 21 3 6 1 VBCOARK TC OP/ I NERT 

PEF 1 43.2131 OdET 1 TC IMUCOARX RETURN HERE IF NOUN = ICOU(20) 

REF 1 T+3.Et5P 0 2175 O — TC CPTCOARK RETURN HERE IF NOUN = OCOIKRl) 

RETURN TO L + 1 IF ‘NOUN 20 - TO L + 2 IF NOUN 91. 

H"E 2 LAST — 2TP '43'.“2153 U'“22T1 1 rMUCOA.RK TC“ CtSMNflCAO COARSE ALIGN FROM KEYBOARD 

AEF 1 -43.2154 O' 2075 1 TC TFSTXACT 

— EEF 1 43. 2155 3 2173 0 CTF VNLODCDlJ CALL — FOR TMFTAO LOAD — — 

— REP 11 LAST 2?.o 4Tr2156 0'4652 1 TC EANKCAt L 

- 4EF L 43,T1r57 20 561 1 CAOR GOXOSPF 

7EF“ 1 43.2160 0 5534 0 TC TER M R XTV 

4^.>T'6l 1 2162 I TCF +1 


•» %• 






' 

4 



» 




























GAP : 

ASSiMBLF R'^VTSIIN 

055 

HF .'>GC PROGRAM COMAMCHF BY 

NASA 2021113-051 ^ 

10:28 APR. 1.1064 CDWAIU .029 

■P AG t 2^1 

^ - 









L 

EXTENDED TTERB S 






USER’S PAGE NT. 6 

E5 S4 


# 








0173 

I 


43 ,2162 

~3 7TT4 1 rrORK2 

CAT 

i^niCDARv 

RE^CISPLAT CO ARSF ALIGN VERBT" 


017^ 

P ^ E i ^ LA ST 

24 0 

43 ♦2163 

0 4662 1 

xc 

0ANXCALL 



013 0 

PEE 1 


43 , 2 1 04 

71TT42 T 

COTR 

h X ! J 6 R H t T 












or^i 

A 1 — 

13 LAST 

rrrrrr — r — 

741 

4* 3 f 6 5 

TT^T TT^mr— 

0 ‘t 6 67 1 

TC 

BA MKCA L L 

CALL MOCE SWITCHING PROG 



0T32^ 43.31 66 16663 0 CTTOR 1 MIX LIARS 


43,7167 0 466? 1 TC 34NKC«LL STALL 

43.31 /U IT57T~[ CTTOT? 1 MUSI ALL 

43T2T71 0“5S34 0 ”“TC EWFXTVl 

43,?1T2““ 0 SS34 IT TC ENCFXTVp. 


01?7 4377173 06??6 I VNLnOCOU VN ? 5?7 

^0133 43.2174 12700 0 IMUCOAPV VN 4100 “ 


0133 


1 A 

LAST 

241 


5^EF 

2' 

LAST 

~7TT 

0135 

REF 

1 



0136 

REF 

7 

Last 

241 





•:4^>T= • SI* 




fl-M -• 


GT^Pl KtV15I l l^! OSb U'F'ra. PHUGRAM tHMANCHF BY NASA 202111 3-0*5 1 ra rz^ "^' ^ rrr96 9 C O< ^A TO 70T9 ?« 


t "XTENnED TFR^S “ UST^ S ?^ AGF NO. T 65 S4 


P0139 TE’^PGRARY ROUTINE TU'l^lTT^^mFT^ THE KEY BO ARU”- 


CA UPICAUP 

TC CKNODCATJ-n: 

TC TPSTXACT 

rAT= E BANK 5 

TS ' ERANK 


m RFF r - "ORT 

“DIG? 

01.9T 

TEE z;; 03T 

’“0IG5 ^EF“1B LAST 

01 9B 


Oi'^7 REF 13 LAST ??4 43.R21T) 11^303 1 CCS GPTINO SEE IF OPTTCS AVAILABLE 

0199“ REF 1 43,??11 0 Z21T 1 TC OPTCl IN USE 

nrn^ RTF Z L A5T"“^4Z 4 5 •72T2~“ D ' ?"2 17 1 — tC riTT C T IN tJ SE 

0?00 REF 3 LAST ?4Z 43*2?13 0 Z?17 1 TC OPTCl IN USE 

rrZUT RTF 19 CAST ZAZ A3V??T4 0 5 650 1 Tt 7r1 , A r*^ " O PT ICS “ReSE RVFO (nPTIND=-Q) 

OZO? 4^-.T?r3 ~ OtriTT 0 “ nCT —00117 — 

0Z33 REF 4 LAST zrr 43rZZr6 tr TC ENtlFXT 


VERB-NOUN TO LOAD OPTiCS CDUS- 


PRtGCEEO 


0204 i?PF 1 437Z?tT TEZBr-O OPTCl -CAE VNL^^OCOU 

0205 REF 15 LAST ?41 4372220“ 0 466-p“t TC BANKCALL 

LTTSI TWO 43, 2721 Z05BT 1 CAOP G OX D SP F 

0207 REF 7 LAST 240 4T» 2222 O 5534 0 TC — TEP^^EXTV 

0?0\T — 0 2 224 1 TC +1 


ToT 


TTrZZTZ 11 '3 14 I 



43,2203 
43 ,7Z04 
* ZZ 0 5 


0 Z2T0 a 
O ZZOB 1 
■0~4'400 1 


TC 

TC 

TC 


235 “ 42,220 6 0 5650 1 

43,2207 00115 1 


nCT 


SWSAWPLE 

+5 

FI 



FALTDN 
AL ARH 
00115 


SWITCH AT COMPUTER “ 
NOT ON COMPUTER 

AND ALARM- 


0190 ‘ 
OlvOOl 
010002 
OT9T5T“ 
Ol'O? PEF 



2 

3 

2 


LATT 192 
LAST 
LAST 



240 



43,7X76“ 

4372ITT 

43, 2200 


T 1323 1 

“0 ZZ77 1 
TT 2077) I 
■T"5056 1 



8 LAST 204 43,2201 54 0D3 0 


02032 

r pp - 

2 

LAST’ 

95 

43,2?24 

3 ITTT 0 

CA 

STrC 

02054 

7EF 

3 

LAST 

167 

43 72?2 5 

55*1:61 1 

TS 

OESQPTS 

QTOBTr 

P. EE 

7 

1. A 5 T 

95 

4 ^ , 2 2 2 1) 

"3 1775 0 

CA 

« 

— PTXC 

0209 8 

S-EF 

4 

L'iST 

16B 

43 ,222T 

5 5 »14t) 0 

TS 

OESOPTT 

0 207 

REE 

r 



4372230 

3 2174 1 

CAF 

OPTCHARV 

0210 

PEF 

X 6 

T-AST 

2 4? 

43,2231 

0 466? 1 

TC 

BANKCALL 

0711 

PEF 

7 

LAST 

241 

43.22 32 

21042 1 

CADR 

EXOSPPf T 


RE-0 1 SPLAY OUR OWN VERB 


0 2TZ '’FF IT L A51 Z34 437ZZ33 3 ECIT 1 CAE ONE 

0213 ^FF 19 LAST 242 43,2234 95*303 1 TS UPTlNtr SET-COARS WORKING 


UZT4 TFF 3 tASI Z4T 43T223E 0 5 534 0 TC ENHE X TVB 

0215 REF 4 LAST 242 4372236 “0 5534 O ~ TC EWEXTVB 


TrZTE 

021 7 



2 L AST 241 


43, 2 23 7 06 1 34 - ' t VNIOOCOU VN 24^^^ 

4 2,^124 FOtfALS IMUCOAPV 


DIFFERENT N^:»UNS. 


GW~: ASSFMGiLp P’V! 5 inN 055 OF hac PROGRAM CnWANCHh BY NASA :^ 02 UIJ- 0‘>1 


AtJR. mT6'9 — COHA I D VXrZ^ PACE 2A3 


n: 


XT^MT^ED^TETTBS 




E5 S4 


“TTOFTAIFK T)FS€RTPTTn>l 

POpyQ FIAIE ALIGFT ■ " ^ ^ 

PQ22v 1 IV^TFErDUrRE' tx r Vt^y UIS^^LAY avai lable ANU set busy FLA'G or turn on oper error and GP 1 

R0222“ 2V DTSFF^r Ft VZSsN^lVV. •tOAD^O^ /^NGtESr. . . ~ 

R0221 RESPG^SFS ^ ^ 

R7T T7^ A. IFRiyilNATb 

R0225 1. ’RTL'^ASF"FXT VER^ DTSPLAY SYSTEM* 

R02?6 B* f^RGCFED OR ENTER 

7 1. Rt-nTSPLAY VERB A2 

R022 3 2V^XRCMTE TMUFINF t TMU F I \/F At tCfsT MOtTE^ SWITCHING) . 

R022R 3. EXECtITE IWHSTALL lALtHW FOR DATA TRANSFER) “ 

RU730 — “ ' ■ ■ "A ."'"FAT LEU' — 

R0231 T. REtFASE ‘^XT VE'^B DISPLAY SYSTEM, — ^ 

R0232 F. GDOO 

RXrZTT 1. EXECUTE TMUPUtS^ fTORDUE TRIGS). _________ 

Fa2Y^ " ' EXECHTE IMUSTALt AND RELEASE EXT VERB DISPLAY SYSTEM. — 


0736 

^ FF 

— 4" 

t/rsT 

747 

"43 ,724n- 

0 2271“ 


TMUFTNEK TC 

0?35T: 

REF 

3 

L AST 

242 

43 , 2 1 

0 2076 

1 

TC 

023 7 

REF 

1 



4 3 ,2 24 7 

3 2267 

0 

C^F 

D73W~ 

REF 

“XT' 

"X A ST 

"242“ 

4 3 , 2 2 4 5 

0 4662 

1 



TC 

023Sf” 

■*=’TF 

3 

L AST 

2 42 

43,2744 

7 05 6 1 

1 

C ADR 


02AD PFF 3“ LIVST — 2^2 ?^45~ D 35TA'~0 TC 


0 2AT — “ A3, 22 A 6 D 22 47-1 TC 


024? 

- R6F 

1 

— - 

- 

A3, 77 4 7 

3 7270 0 

CAF 

mTpT 

REF 

13 

“XAST 

243 

4Tr775Tr“ 

0 4662 1 

TC 

0?44 

RFF 

3 

LAST 

242 

43,2751 

21047^ 1 

CADR 


CKMOOCAD 

TESTXACT 

VNLODGYR 

BANKCALL 

GOXOSPF 

TERMEXTV 


IMUFTNEV 


EXDSPPPT 



F TNE ALTGN W IT H GTR tr TDRmtTNG 
CALL FOR LDAO OF GYRO COMMANDS 


P R OCEE D W IT H O U T A L O AD 


RE-DISPLAY OtJR OWN VERB 


0245 sFF TD HTST 242 4 ’i. 2252 3 4662 1 TC BANKCALL CAtC MODE SWI TCH PPOG 

0246 RFF 1 43,2253 17073 D CADR IMIfRIME 


0747 PTHF 20 — XTTST 24T 4i,22 54 0 466 2 1 Tt - FANKC FtT 

024T" REF 3 LAST ^1 43,2253 17577 1 CADR IMOSTALL 

0249 REF 5 LAST 242 43,3756 0 5534 0 TC FNDEXTVB 


0250 R*=F 1 42,2257 3 2266 1 fINEK2 CAE LGYR08TN 

0251 REF 21 LAST 243 43,22 60 0 466? I TC BANKCALL 

0252" "“RFF I 43 ,"226T 17206 0 CADR I MU PULSE 


02‘33 REF 22 LAST 243-^^43,7262 0 4662 1 TC BANKCALL 

— 02 5 4 — REE 4 LAST 243 43V2253 13577 1 CADR rMUSTAtt 

0255 RF5 5 LAST 2^43 43^22 6^4 D-55 34 0 TC ENDFXTVB 

0256 REF 7 last 243 43,2265 0 5"'34 0 TC ENDFXTVB 


0257 REE 5 LAST 236 43.2766 02757 f) LGYROBIN FCADR OGC 

0255 4 3, ■>26 / 06335 1 VNLODGYR VN 2593 

0 257 AT, 2 2 TO ITAO rr O 1 MU E fNEV VM TTDC- 


02591 RFF 4 LAST 8 1 47,22''>1 3 1322 0 CKMOOCAO CA MHOFCAOH 


PINBALL L^FT COMMANDS IN OGC REGIST5RS 


WAIT FOR 7ULSES TO GET OUT. 


FINE - ALIG N VER B 



* 


- — - - — - - 


GAP : 

“ASSE3BLF REVTSTON 055 DF PP OGP Av'" ' C JMAMCHb BY NV'SA 2021113-051 

nrr?T 

? APR. 14 1969 COMA ID r02^ P-ATTF 

Z44 







C" I XT jNDFO "VERTS ' ” !)SER*S RASE NO. 9 E5 $9 


02 S9? 


02 593 

RFF 

2 

02 59 4 

9EF 

o 


ft 02 60 
ft 0261 


ftOZ 57 

R0260 

ft 026 ''t 


R02^ 



R 02 67 

- - 

- 

' 0269 

PEE"“ 

~r 

0270 

0271 

REF 

I 

02 T>’ 

“iTEF 


027^ 

REF 

9 

0274 

REF 

1 

0275^ 

E rE ■ 

T 


ft0276 


93,227? 0 0006 1 EXTEND " 

LAST 16S 63.2273 1 6711 1 BZF TCO 

LA ST" “779 90, 2274 0 2120 O TC ' ' ALM/tND SUHtBUUY IS USINL, HOUECAOft SO EXT! 

OOLOADLV VERB 50 OESCftTPTTnfT“ ' " 

ANtiTTHEft' PLEASE 

iDj thing verbs ■ — — 

PI EASE PERPOFM, i^ARK, CALIBRATE. ETC. 

1. PPPSSING ENTER HM OSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMEO. AND THE PROGRAM OOFS THE 

SAME KECACL AS A CUHPLfcl'bU LOAD. 

2. TlTE'TXFDJTinN OE A "VERB 37 ( PROCEED WITHOUT DATA) INDICATES THE RFOUESTEO ACTION IS NOT DFS IREO 


43 ; 2275 tr"4447 1 GOLUADLV TC F X TT SH OFF 

4"3, 2276 3 4715 0 CAF PI MSUP8T “ 

43r2277 0 0006 1 EXTEND 

UAST 196 43T23TT0 01 007 I WRITE SUPERBNK T ORN ON F F 7 

LAST 2T8 43,2301 0 4701 0 TC POSTJUMP 

40. 2000 SBANK= PINSUPER 

43 , 2 30 2 62001 ~l CATIR EOirOLVl 

V60 VERB 60 


0277 43.230? O 0006 I V6D 


0273 "7 ef 4 LAST 235 43,2304 3 0 033 T 
027'3 REE“ 1 43?2705 53»334 ir 


DZHO 

-rrpp ~ 

“4 

TAST 

22 5 

”"43,2306 

3 00 34 

3T 

0231 

^FF 

2 

LAST 

244 

" 43,2307 

6 5 * 3 35 

1 

0232 

REF 

2 

LAST 

239 

43.2310 

0 2121 

1 


EXTEND 

OCA cot IX 

3 X C H CRH I X — 

"CA CT7U7 — ' — 

TS CPHIX +2 

TC GOP IN 


TO PpRSe-NT ATTITUDE 


R 02S3 V61 VERB -&T 


0234 — ttfE 5 'CAST 202 

0235" - REE " 1 

0736 REE 3 — ETTST 744 


43, "2311 0 5560 T V61 TC OOWNFLAG SET NFEOLFLG TO 0 ( EL AGWftOO ,‘3 1 T9 ) , “HASE 

43.2312 00006 t ADRES NEEOLFLG PLANE A/P FALLOWING ERROR OISPLAYED - 

4 3,2313 0 2121 1 TC G OPI N 


RTJ73T 


VERB 62 


0283 

0799 

0200 

02707 



TEE 

K tr'T- 

TFF 


079CT4 


R 


4 

T 


LAST 

TATST 

LAST 


232 


TU 7 W 5 


0290 c 


02^07 


REF 


5 

T 


02^0r 


■VB3“ 

LAS 1 

r 


43,2314 0 SS46 0 V^2 

43 , 731*5 00006 1 


24^^ 


LAST 244 


43 ^r 2 3 1 6 
4 T72 3 I T • 

43T222t) O 2127 1 


VERB 63 


2'V4 


43.2322 


0 5546 t) 

■ 00220 r 


43,2321 0 5546 O 


no 00 0 1 


6 LAST 244 43,-^32 3 0 5560 1 


TC 


tlPFCAG 
N F f nt 



TC 


TC 


UP^f LAC 
tvr22nR^4l T 


TC -WftAC 

AOr?FS Nfrf DLFLO 


TC 


OOWNFLAG 


SFT NFFOLFLG TO I ( FL AGHRDO , 8 I T9 ) , 
Ttr TAt ATTtTUOE ERROR 01 


SFT N220RN17 TO^ 1 ( FL AGHR0<3 , B f T6 ) , 

COMPUTE - TOTAL ATTITUOF FRROR Wft f- 


SFT MFfBtrFLG TO I < FL AGWR DO ♦ 8 I T^ ) * 
TOTAL ATT ^ tTUD E DISPL 


SFT N?2^4<^N17 TO 0 < FL AGWHDO , 3 I T6 , 


gap: ASSE^'^BL!^ -^FVISION O^b 

riP \'jC f*PnT!ri5-AM ct'^ANCriP 

~ET~m^i^ 2021113-051 

ID": '78 APR. 1,1^69 — CUMAIU 

PTJUE Z55 






L EXTE^IOFO VFPBS 



0SFR • S P AtTE NO • 1 0 

E5 5 4 






OT^WT~ Z LAST 2^ 

mZ2Ti T 

~mKES W22m^lT 

COWUTE TOTAL ASTROMAOT 

ATTTTTJITE EP<»OR 

(y2909T RPF 5 LAST PA-A 

43 , 5 0 ZI21 1 

TC~ GOPTN 




t 


GAP : ASSEMBLP ‘<LVISUJfM M»- cc;c PKUGRA^ CUMAriCHt by“NASA ;^0 i 1 1 'H-Ub 1 lOl APR. m‘^'69 C O MAI D .02 9 P AG! : 

L ~ EXTEMmrn verbs - ~~ * user's page i^ov ii e5 s4 


PO?n ALINTIME VCPB" 55 ^ DF5CPTPTTUN 

P02O2 1. 5FT TXT V^’^5 niSmTAY BUSY FLAG. 

R OJm “ ~2~r niSPLAY f=LASHlNG V2b,N24 ( L JAD'DLL T A T IME PUR AGL LLULK. 

^^0294 ^ 3. RFOUT^F FX5CaT10N“DF^^^Y^ ' — ^ 

R0295 4. An'n“T7FrTA TTT^F. FTC^rVED 'FHnFnFJPUT RFGTSTFR. TO THE COHPUTER TT«E. 

^0247 5."'RElCASc TXT VERB DISPLAY SYSIbH 


02 7B 


RFF 


CQUN'»‘ 04/P33 


02^5 


4 


L AST ZAT 4T . Z32 6 0 Z076 T ArTTm^ TC 


TESTXACT 


'0 500 

03ijr 

030? 



03TT4 
0^05 
DIETS"' 

0307 

0308 
DBTIO- 

0310 

03lt 

DTr2 — 

031 7r~ 
0314 

03T5 — 


P~EF 

^EF 

REF 



IFF 

REF 

on=F 

REF 
EF 


REF 

■RTF 


"T 

23 

1 

“T 

6 

T 

2B 

1 


74 

7^ 

19 

7 


LAST 243 


Il^ST 

LAST 


747 

246 


LAST 7T7 


EAST 


LAST 
LAST 
LAST 
L A ST 
TTST 


73 8 
74F 

223 


745 


TTTTTTTF 

43.2330 

43.2331 
4377T37 

43.2333 

43. 2334 
7777335' 

^3.2336 
4 3,233 7 
4372340 

43,2141“ 
43, 2342 
43 ,73 4 3 

43723 44 

43.2345 

43.2346 


0 4662 1 
20561 1 
7 5534 D“ 

0 5534 0 
4 2356 1 
6 0154 1 

0 0006 1 

1 2341 1 
3'5534 0 

0 troD4 a 

3 3021 t 
54 156 1 

54 001“ 1 
52 025 1 
52 155 1 


■CAE 

TC 

CAOR 

TX 

TC 

CS 

TTO 

F XTENH 


YNLODDT 

BAT>rKCALL 
GOr^APKF 
EMUr-X I — 

ENO^XT 
DEC23 
MFTC 

IJODATTME 
END EXT 


LTPITATIHE TNHIMT 

C AF 2eR0' 

H P AC 


TS 

-0XCH 

DXCH 


t 

TIMF2 
MP fl C 


TFWMINAI F 

PROCEED 

DATA IN OR PESEOtJENCE(UNL IKELY) 



GO AHFAD WITH UPDATE ONLY fF RECALL 

CD A T A I N); — 



DETTA TIME fS TN OSPTEMl, +1. 


N EEDCP F OR T P 
Z ERO T1 C 2 WH ! L E AL I GN I NG 


0316 

0317 

"REF 

REF 

2 

LAST 

- 76 

43 , 2347 


0 

-- ^ 


OXCtt 

0SPTEM2 +l 

INCREMENT 


31 

LAST 

7 46 

43 ,735 0 

20 T55 

1 


OAS 

MP AC 





« 











03T3 

REF 

1 



43 • 2 351 

0 T 226 

0 


TC 

T P A GR E F 

FORCE SIGN 

agreement. 

0T19 

"FEF 

37 

EAST 

246 

43, ?^52 

52 155 

1 


OXCH 

HP AC 

NEW CLOCK. 


0 3 0 

“REF 

a 

L A S 1 

24 6 

43 ,2353 

■ 70 025 

1 


HAS 

— TTM52 



0 32 1 





43 .2354 

0 0003 

1 


w t:i. iNT 



0372 

RFF 

8 

LAST 

246 

43 , 23 65 

0 -3 5 i 4 

0 

tlPOTMFND 

TC 

AM 

ENOfXT 




0323 





4 3 * ? 3 5 6 

00023 

1 

DEC 2 3 

3TFC 

23 

\T73 


0324 

— 

— - - - - 



43,2ii>7 

06230 

0 

VNLODOT 

VN 

2^?4 

V25N24 FOR 

LOAD DELTA TTHF 


gap: ASSE’^igL E ^FVrSIQN 0*55 OP AgC PBOGHAM COMANCHE BY MA SA~?('> ?ll 1 ?-05 1 10:28 APf;. mOfiO CUMAID 702^5 P7PTE 2^T — 

L EKTENCTElT'lffRQS - OS^P.^S PAGE NO. T2 E5 


P03.2G SYSTFST DEGCRIPTinN 

R032G“ OPPi^ATE^SFCECTFO GYSTEW TEST 

T^THTT TTHFOTTrirF:"" P 0(1 U'< PiUJ- (IR lUPN ON (IPtNAIDK tMkHR. 

P03?B“ 2. TLTPN^TTFF TJAP IF IT IS 007 ^ 

R037T 3. OISPtAY FLASHING V21,N01 (LOAD TEST NUNRFP 1 THRU 17» . 

R^033G 2?. TIF'nNr "NIPY OF (ESI NUMBER. SLHFUULb IStLLLI WITH PRIORITY 20. 

R0337 TSEIFCT ^ 

R0333 I. IF LOAOFn TEST NUMBER IS VALTOt GO TtT THAT TEST ROUTINE. OTHERWISE TURN ON OPERATOR ERROR AND 

R DT 33 Prl->>rAT LOAD REIJUFST'DISPLA V . (NH. 3 AHLiVb) 


033S RFF 2 EAST 70? F5,Tz>25 — EBANK= QPIACE 


0337 


RTF 


COUNT 04/^FXTVR 


T 


jyjj 

0 3^^? 
03534 
033 ^ 

03^88 
033^ 


0340 
037r^ 
0 3 43 
0344 
0 345 
034b 


TTEF 
3EF 
*? "F 


RFF 

3FF 


T?FF 

3?FF 

^ HF 
3EF 

"^rpp 

RFF 


T 

9 

2 


4575550 a" "Z75'n' T SYSTbSI TC 


1 

1 


1 

T 


3 

1 

T 


LAST 

L^ST 


AST 

LAST 


201 

1B4 


TK3 



43,2T61 

43*2562 

4572563 

43t?364 

43,7365 

45,2366 

45,2567 

45*35T0 

43,2371 

^*^,1425 
3 0 * 200 0 
4573372 
43 ,25TT 


3 0075 or 
7 5004 1 
TT 0 0 0 6 1 
1 2367 0 
0 5721 0 
01521 0 


O 2734 t) 

5 5002-0- 


7^ 


07002 

66065 


T 

1 


V^2CnOT 


tA 

MASK 

EXTETO 

BTE 



OCT 

TC 

CAF 

TC 

FBANK= 

6BANK= 

or 


CHKPOnH 
FLA GWTOl 
N^'POIBIT 


VPPCONT 

pnoDon 

T52T: — 

eXOAPOFF 
«P T rT20 
ETNOVAC 
QPLACE 
I ^^! ISUPFP 

Etrn 


IS NOOnPOl FLAGP1T ON? (SET BY Pll) 


IF IT»S NOT YET SET, CONTINUE 
IT*S ON, SFND NOOn ALARM FOR POT 


TUPsN OAP OFF IT IT»S ON 


0346 


TEF 


1451 245 


4 3 ,-Z3T4 0 ZlZl 1 


TC 


C O PTTT 


“TrOTTT ^EOI) AOD'TSELtC! — A^E NnYf TN’ SYSTbM T'*S1 . 


0343 ref 2 LAST 236 T^ 246: 214 214^ COUNTS $t.2EXTVB 

R 0349 CICOP’VB" VFS^‘3 65 OHSCPTPTTnN ' 

R0350 OPTICAL VEPTFrCATTON FOt? RRELAUNCH. 

P0351 1. SCHEDULF GCO^PVEn* OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17, 


0553 ■ RFF 4 LAST 232 43,2375 0 5364 O CKtlPTVB 

0354 43,23T6 00002 0 

0355 RTF TO CTTST 244 43,23T7 0~ 2120 0 

0356 45,2400 0-0004 0 

035T 2EF 5 LAST 1^3 45*245)1 5 5070 0 

0553 RTF ^ LAST' ■ ^47 43, 2402 0“ 5T4T~0 

0559 REF 4 OTST 247 F5 , 1425 — 

0360“ RFF T LAST "215 “43-, 2 403 02000 n 

U360 43 , 2404 66065 1 — 

0361 7 LAST 247 43,^405 0 2121 I 


TC CHECK MM 

MM 02 

TC A t M TE N O 

INHINT 

CAF PR 1016 

Tt FTT VOyA O 

EBANK= OPLACF 
2CAtm COMRVFR 


TC GOP IN 


1 W11N0FR“ IF 



PPE LAUNCH IS RUNNING 


PRFL AUNCH -Q£>T ICAL VERIFICATION 



STANOARO LFAfllN TO GCOMOVER, 


GA^: AS5F:*^8LE ? E V I S I^Niy55nFAGn~I51^1jC?^ 



NITSA 2021113-05r 


tXTFNftrn VERBS 


V 78.... TO CHAMGE GYPOCnw^SSS AZI«^UTH 

~QT^3 EFF S 'CATT ?¥7 48,2406 0 S364 0 LHAZFIJGL 1C CHbLKMM 

03631 43,740T 00007 0 - - q2 — 

03632 REF 11 LAST 747 43,2410 0 2120 0 TC ALM/FNO 


10128 APR. r, 1069 CUMAIU 7027 ETHTE 


rjSER'S PAGE 7107 — E5 S4 


rs TT PRELAIJNCH 


WO - npFRA TOR ERROR 


0^64 

^ cF 

4 

4 

LAST 

247 

43 ,2411 

3 5070 
0 5147 

0 

0 

CAP 

PR ini 6 

PRELAimCH A 

036.'? 

F F 

< 'a ■ 

L AST 

247 

43, 2412 

TC 

FI NOV AC 


0366 

0167 

3^ F F 

14 



LAS r 

~2Tir~ 

F 6 , 1 6 n 



1 15 ANk = 

T5^ 


P K F 

2. 

TJ^ST 


41^, 2413 

03 7 42 

0 

2CATTTt‘' 

AT^VTHCt51 ■ 


03oT 





43 , 2 4T 4 

66 065 

1 





l^EF 

3 

LAST 

— pjrj 

43, 2416 

0 5412 

0 

TC 

PHASCHNG 


0 367 





~41 ,2416 

001 74 

0 

ncT 

001 74 


0370 

FF 

B 

LAST 

247 

43 , 2417 

0 2121 

1 

TC 

GOPIM 






aGC PROG'-UM CflMAMCKir by '20211 L 


TTnrrrnrFPr; — rrrrs^ — cr n°iAT^ 


trr9 — pin^ 


r 


EXT FM OFT) VERBS 


USFP t^ A( 7 E TO 


14 


E 5 S 4 


P 0 B7 1 

R037? 

W373' 

R03T5 
R037T 
R 0 3TG^ 
R03PO 

R03ai 

W5BT" 

R 03 


TMUATTCK 


TEBB 


n^ESCRTPTTTTM 
METERS 


AND ZEPO TCOU 


rr /. 


LOAD ATT TTUrrE TRP HE 

1. REQUIRE MRUGRAM 00' AC I 1 Vb , COA'^St ALIGN ENABL E'BTT" OFF 

2 . TFGUTrr RET RELEASE OR LIFTOFF HAS OCaTRRFn REgUTRE FXT VERB DISPLAY AVAILABLE AMD SET BUSY 

FLAG. OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. 

'Tl 'Tt3TDVE CnAR'SE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE 

DISPLAY FLASHING V25.N22 ( LOAD NEW TCOU ANGLES). ' 

S. UPON PROCEED OR ENTER RESPOMSEt TNITIALITE CURRENT OAC AND 
TPANSFFR'EDADtn VALUES fU REGTSlbRSt ANU SENU LOMHANDS. 

S. TP HUSYT-LAG SET. RESET TT TO RFLEASE “ETT VER8 DISPL 


4 


CDMMAND VALUES » ENABLE ERROR COUNTERS 


T5T3S RTF 


FAST ZAT 


43,7420 0 7730 1 1 MUATTCK TC 


n3T6 

rmTT 

07 33 
03 39 
U 3 W 

03-1 


07 93 


REF 


1 


RTF 

'RTF 

^EF 

RTF 

REF 


21 

66 


LAST 2r4 
LAST 237 
I ATI 74T 


43.2421 

43 .2422 

43,T423^ 

'43.2424 


3 2477 
0 0006 


02 

10 


012 

000 


T 

T 

0 

0 




1 

S 

1 


TAFT 7AF 


F3F5 

0396 

"0F9T 

03 9 7 


TEF 72 CAFT 747T 


43,7426 

tztTTZATT 

4 3 . Z4T0 
7rrr24 3 1 
"43 . 743 2 


0 2465 1 
D'20T6 1 

4 5033^ 
O 0006 1 
03 012 1 


REF 


\ *. 

REF 

REF 


2 

74 : 

4 

1 


LAST 


240 
246 
FAST 2 43 



04U'0 

0401 

0402 


RE 
REF 


9 


LAST 703 
LAST 242 


43.2433 

43.2434 

43.2435 

r+^,743 6 

4 3;‘74 37 

434 2 4 40 
43,2441 


3 2173 O 
ir4662 T 
20561 T 

1 246? r 

0 R440"Tr 

3 5057 0 
54 003 0 


04 0 3 

04114 

0405 


1 FF 


LAST 21T 


E6, 1476 


RTF 

REF 


25 ^XAS^T TATT 

1 


43,2442 0 4662” 1 

43, 244 3 - 42443 I 


“04D6' 

0407 

040 

0410 

0411 

0412 

0413 
04T4 

0415 


REF 

REF 


TS 

1 


TTAST "749- 


43.^444 

43,7445 


0 4662 1 
424 67^-r 


RTF 



CTST 73T 


LArST 
I AST 


234 

249 



47 ,24 

43 • 244 7 
T6,1476 
43.7450 

43.7451' 
TO, 345 2“ 
4 “ ^ - . 2 4 53 


3 5 016 Q 

0^745 1 


02455 1 
66T0Yi TT 
O 7465 7r 
T 5 534 1 


r A 

EXTEND 

RANO 

CCS 


CHKPODR 

0CTAL30 

CHAM12 

A 


TC 

TC 

CS 

EXTEND 
WANTJ — 


ALM/END 

CKLFTBTS 

TESTXACT 

0CT50 



CAF 

TCT” 

CAOR 



TCT 

CAF 

TS 


VNLODCDU 

BANRCALL 

GPXOSPF 

TP.MATTCK 

TT— — 

EBANK6 

FRANK 


EBANK:= AK 


Ttr“ 

CADR 


BANKCALL 
NEEDLE 11 


CADR 


NEEDLER2 


CAT 


TWO 

WAT TL tST 
EBANK= AK 
7CATTP ATTCKl 


TRMATTOK TC 


CKLFTBTS 



^?FF 


LAST 740 


47 , ->454 O 212* 1 


TC 


GOP! N 


CHECK IF IMU ZERO AND IMU COARSE ARE ON 



Z F^o m 


IS IT before or AFTER LIFTOFF 

A FTER 

REMOVE COARSE AND ECTR ENABLE 


$FT E6 FOR NEFOLES 


t NI TI AL 

COMMANO VALUES 



E NABL 


RROR COUNTERS 


4 MS M I N. 


IS IT 
AFTE R 


BFfOR*" OR-AFRER LIFTOFF 


GAPl ASSEMBLE REVISIHN 05^ ASC P^OG^^AM CHMANCHE BY NASA 2021ll3-0bl 


imZB APR. 1,1969 rows I D 


^79 PAGE — ZSO 


T--XrEMi9cm7FRT^ 


US 


15 


E6 


0416 

0417 

7.EF 

5 

LAST 

79 

43,7455 
4^, •’456 

0 0006 T ATTCirr 

3' 1 1 56 1 

EXTE'TD 

DCA 

TH^TAD 

0413 

KEF 

7 

TTi^ 

249 

43 . 2437 

53*477 0 

■■ oiniH 

A K 

0‘t 1 

■RFF 

6 

LA*;! 

250 

1 24-60 

31'^ 157 TT 

CTSTE 

THETAD +2 

042 0 

REF 

3 

LAST 

250 

43,2461 

55*^500 T 

TS ■ 

AK F2 










04^1 

R FF~ 

16 

LAST 

234 

43. 7452 

C 4T4 a 0 

TC 

TBNKCALL 

0422 

?? EF 

1 



43,7463 

474T6 I 

CAOP 

NEEDLES 


TRANSFFR LaAHEn VALUES TtT DESH^EO REGS. 


SENUS COMMANDS LIMITED TO M-.- 384 PULSES 
AND LEAVES ERROR COUNTERS ENABLED. 


0423 


REF 11 LAST “'235' 43.2454 0 53 24 T: 


TC 


TASKOVER 




4 3,2^65 


0434- 


0435 

0^37 

0433 


0439 
044 D 
TJ43T 

0441 

0447 


0475 

0425 

? EF 
REF 

3 

67 

LAST 

LAST 

187 

249 

'*3 ,7 4 66 
43.2467 

042 7 

R EF 

27 

LAST 


43. 3 4 7 0 

042R 

0429 

REF 

12 

LAST 

lero 

43.2471 

43.2472 

04 TO 

9 EF 

4 

L AST 


4 , 2 47 3 

0431 

PEE 

68 

LAST 

250“ 

43,2474 

0432 

TEE 

2 

1 AST 

135 

43,2475 

04332*- 


73“ 

1 A3T 

75D-" 

4 J , / 4 7 5 


T^FF 


3 

6 


nrsT — 2w 

LAST 24*r 


3 SOI 3 0 
7 Dim 0 
10 000 0 


CKLFTBT5 CAE 

MASK 

CCS 


GRRBKB IT 

FL AGW^nS 
A 


HAS LIFTOFF OCCURRED 


0 0002 0 

3 5013 0 
0 0006 1 
02 030 0 

loono 0 

1 6705 1 

■0 "aD07 0 


TC 0 

OAF BITS 

EXTEND 

RAND CHAN3 0 


CCS 

TCF 



PEE 

REF 

■REF 

E.FF 


5 

2 

T 

1 

3 


EAST 

LAST 


243 

TO" 


LAST 


03 


437 2477 
43 . 2500 
4^ iZ50T 
43.7502 
'4 3 , ’ 50 3 

43,7504 
3441720 
4^,2505 
43 , 2505 
4 3 -.35 07 


00030 1 
0 2730 I 

n- 70 75 3 


nCT4L30 
VB64 


0 0004 0 
3 5004 O 

0 5147 0 


OCT 

TC 

TC 

INHirvLT 


03652 0 

6430 4 0 
O 5717 0 


TTAE 

TC 

FBANK= 
2C ADR 


TC 


A 

04-1 

o— 


30 


CHKPOOH 

TESTX ACT 


p p 1 04 
F I NOV AC 
RHOSB 


ENDOF JOB 


TFS 



O EM A N O' 

IF 01 SPLAT SYS. NOT RtlSY,MAKE IT BUSY 



C At C . f DTSP t AT S 



R0443 ENATMA VERB- 53 TIESCRIPTrON 

R0444 ENABLE AiJ-T'i3ATIC ATTITUDE MANEUVER 


R0443 

P0447 


VERBSR RESETS STIKFLAG TO ENABLE P6l TO PERFORM AUTOMATIC 
IVITY. 


TRACKING MANEtIVERS, AETE^* INTFRUPTIONS BY RHC ACT 




0443 prp 7 last 244 43.2510 0 5560 1 ON4TMA TC DOWNELAG RESET STTKELAG. 

0449 ~REF 2 LAST tOO 43,25T1 000 20 t) " AORES STIKFtAG BIT 14 FLAG I 

0450 TEE lO CTTST 239 43 ,3517 0 2121 1 TO GOrPTN — = 




GAPi ASStHSLF KfVTSlON 055 0!= PROGOaM COMANCHI:; AY MASA 2021113-051 


io:i!S APP. — rrvTF^ — cTTOnn — — fthtf — zrr 


rXTFND'Fn- VERBS 


trSFR' S P AtTE W. 


16 


E6 S4 


P0451 


~ ^ ~W0~4T^ 

R 0 4 5 4 

P04S^ 


04^6 

REF 

04ST ■ 
0453* 

RlF 

045 ^ 


04^ 0 

R b b 

0451 

0463 

K EF 

D|=F 

04-64 

RTF~ 

0455 

0465 

REF 

REF 


0466 RTF 


V FPB 


STROKE TtST SETUP/ENABLE 

T. SET EXTTTR3 nrSPlJAy BUSY FLAG 
2. SCHEDULE STRKTSTl WITH PRTDRITY 
T; RtLEASt EXT VERB DISPLAY. 


? LAST 105 E6n625 

“E LTST rrr~ AETTm o — sirukun 

4 LAST 197 43.2514 7 4105 0 

43’,' 25r5 0 01106 T 

T 3 EAST 249 zn;25T6 5"2r20”0 

4 LAST 19 7 -43.T5T7 -5 4T71 0 

6 LAST 231 43,?5P0 0 5134 1 

~2 CAT! niE E5 ,1574 

1 43r2521 03501 0 

1 43,2522 40106 I 

11 LAST 250 45,2 523 O' 2121 I. 



EBANK= T5TVC0T 
CS ETTGWRDS 

MASY nCT60000 
EXTEND 

BZHF AL H /E N D 

CAE PRTT)30“" 

TC NOVAC 

EBANK= STROKEP 

2CADP STRKTSTl 
TC GTTPTTI 


V5B PERMITTED ONLY OURIMG TVC 


W OT T VC..,. FLASH OP E RROR L I GH T 

JOB PFOUFST, TO SET UP STROKE TEST 

INCLUDING INITIALIZATIONS 


R 0467 SnSBL TSH VERB 46" DESC'-T PTION 

R0463‘ ESTABLISTT G X N AUTOPILOT CONTEnL 

R0469 r. SETS UP TTTHER ~RCS, EWTRYV OR SATURN 

U0470 2. IE TV C 'TS ON, SE T S UP CSM/LM S WTT Ctf-nV E R 

R04T1 ' FROM HIGH BW TO LOWTiW 


0473 pee 5 LAST 749 43,2524 3 5057 0 STABLISH CAE EBANK6 V4<r = SET EBANK TO E6 

0474 REF 10 LAST 249 "4T,'2575 54 003 0 TS EBANK 


FLAGWP06 TEST FOR TVC 

OCT60n0O 


<-2 


0473 T “REF T2 LAST 2T6 4 3, 25 32 31*466 I — ' CAE D APOATRl TE ST F OR CSM/LM 

04782 REE 26 LAST 230 43.7533 7 5002 1 MASK BIT14 ' - — 

04733 45,2534 0 0006 1 EXTEND 

047 BA 43,2535 6 2540 1 BTWE T3 


0475 REF 10 last 249 45,^2556”” 0 4701 0 TC POSTJUMP CSM/LM. SO PERFORM MB TO LB SWiTCH-nvER 

0470 ftEF 1 43,2537 3535T51 CADP PR ESW TC H 


^ 04BD1 5EE~ — 14 last 251 43 ?25NO~ 17-2720” 0 +3 TC ALM/pmD CSM-. SO ALARM AND EXIT 


04-30 2- PEE 11 LAST ?51 '’•3.2541 0 4 701 O *■« “ TC PosTJUMP SET-UP PCS, ENTRY, OR SATURN-STICK OAP 

04B1-” PEE 1 43,-2542 65606”T “CA-OR- OAPFIG 


0455 

04 

0477 

0478 


EE 


6 LAST 251 
5 LAST 751 


43.252 6 4 

43,2527 7 

43'. 25 30 0 


0102 O 
41 05 0“ 
0005 1 


CS 

MASK 



43,2551 ^6 2541 0 


BZMF 


R AP : ASSE'-'eLF pfvisION o5 t i''F ARC PUnRKAM CiJMAMCHE BVWASA 202111 i-USl 


TTHTB' AT’K. r, r969 — COMATD 7979 P AG T' 7 5 2 


L 


EXTENJOFn VERW" 


USER'S PAGE NO. IT 


F6 SA 


P04S2 ' CREWS'ANU V/FfifT 49 DESCRIPTION 

R040T START AUTOMATIC ATTITUDE MANEUVER 

■S0464 ‘ ■ r.'^P'=OUlft' PROGRAM 00 ACTIVE. 

R04f5 2. SET EXT VERB DISPLAY BUSY FLAG. 

R04B6 ‘ T. SCHEDULE R57DISP~WITH PRIORITY 10. 

ro 4T,T ^.-’RTL'ASE EXT VERH'DISPLAY. 


R049S 

R049T 

R0492 

~Pr(J4GT“- 

R 0494 
R049S 

■■■R0496 

^R 04Ta- ‘ 
R0499 


P62DISP - 

r.~ 01 SPLAY FLASHING V06 .Trr2~TDEC 1 HAL "U I S PL AY N EW ICUU ANGLES T. U P ON I MME DI A TE R F T UPU i SGT -U P GR O U P 
4' FOP ■RESTACRT OF DISPI AY SECRJENCE. 

A. TtP.MlNATL — 

17 GO TO GOTOPOnH. 

B . PR OCEFD 

r. SFI lAXlSFLG TO INDICAIE MANEUVER IS S PECl FI ED BY '3 AX 1 S. 

77 EXECUTE PeOGGH (ATTITUDE MANEUVER). 

3. 2ER0 GROUP 4 “rENO R62). " 

crrTRm — — “ 


ROSni 1 . REPEAT FLASHING V 06 ,N 2 ?. 


-0502 off 4 ^AST 250 43.254R — D“2730 1 CRFWMANU TC CHK PO OH 


0503' REF 7 LA5r -259 45,2544 0“29T5-T TC TESTXACT 


05051 RFF 1 -45,-2545 5-5003 1 

05032 REF 6 LAST 250 4372544 0 5147 O 





1 

— 1155 



0*505 

n EF 

1 

4 Of 2 5 4 T 

02370 0 


0505 

REF 

1 

43 *2550 

5 5Tn2 r 


0 5 06 

4 k_ ' 

” 4” L AI5 i 2 50 

4 t 4.' 5 5 1 

~U 5217 O’ 


■C‘AF PR 1010 

TC FI NOV AC 

E BANK= C P H I 

3G40P R62niSP 


rC E ND OF J O B 


TTSFT 



ITN 'TOB nF”7rGC PR'J(;t^.AM CUM'ANCHb "BY ' ZO'Zl i I i-Ob i 


roTTmrFR 


TrrTH^? — ctn^nrnr 


TJ2’9 — rarre 


"XT HIDE n VF^S 


USER PAGE NH* 18 


E6 


P051 T 
P0514 


OAPDTSP 


VF^ F ^ 4 P 


OFSCRIPT TTTN 



P051 S 
R0S17 
PG5IF 
R05?0 
R05P1 

R:oy2R 

R0523 

R0575 


LOAD AUrnPT UQT^DATA TRTTJTTNF ROIT 

0. CHECKEAIL ANO RbTUKN IE TVC. 

1. R E OU I P E TXT TERB- TT I S P L AY AVATIABLE AMTT S^T BUSY FLAG. 

2. XDTJFR—pRTGRTTY TO in. ' 


4. 

5. 


TTFSPLAY Tl aSH INIT ■VG4.fT'4B"'TnT5FLAY' AUTnPir GT CONFIGUR 

UPON PPnCETU PESPOAJSEt EXECUTE S41.R. — — 

niSPLAY Ft ASHING V06tm7 (DISPLAY CSM WGT . , LHH WGT.) 
UPE'N PHDCEbU RbSPUNSt EXtCOTE 540.14. 



0577 

0578 


“REF 

7EF 

^EF 


3 

7 

6 


"05717 

■053T 

0537 


PEE 15 LAST 


251 


0533 
05331 
053T7 
0 5^3 
0537 


PEE 

REE 

TTEF 


A 

27 

T 


LAST 

LAST 


24^3 



053 9 


PEE 


3 

0541 


R 
REE 


5 

IT 



“75T 
LAST 251 


“054T5 

REF 

—T 

LAST 

257 

054 L 6 

~REF ■ 

1 








0542 

"REE 

I 



0E43 

R EF 

?8 

LAST 

2 5 3 

0544 

PEE™ 

5 

LAST 

249 

0545 

0546 

PEE 

10 

L AST 

249^ 

0547 ~ 

“FEE 

T 



0 547 1 

REF 

13 

LAST 

253:“ 


RFF TT 



■ 054 - 73 — 

■fTEF 

05^ 74 

E F 

0 ^ 5 

05476 
0548 ■ 

REE 

FEE 

REF- 

0545 

^ LT 

055 0 

•? Ef 


6T CA3 T 
1 

LTTST 

1 

79 
“1 


1 


7tr7 

250 


750 


LAST 253 


43t2554 0 0006 1 

^3,^3 55 F2557 1 

43.7556 0 2120 0 


EXTEND 


^7 

A13I/EN0 


43,2557 
43.7550 
43.2 5tSl 

47,2DD0 
47E73 DO 
4 7.20'DO 


0 2076 1 
0 4662 1 
640U0 0 


TC 

TC 

CATFR 


TESTXACT 
BAN KC ALL 
DAPDTSPl 


BANK 42 
SETtPDC EXTV3S 

BANK — 

CntINT 24/R03 


42.2000 

42.2001 



OOT 


0 DAPDTSPl CAE 

O TS 


A1NK B 
E3ANK 


4 2 . 2002 T 5003 1 

47.2003 3r 5 210 1 



TC 


PR rUCHNG 


T7 


rOTER 

42,7005 

42.2006 


3'70ET T 

0 4657 1 
20561 1 


unNOUNRFXAF 

TC — 

C A DR 


BANKCALL 

GDXnSPE 


42,2007 
42.2010 
42 .2DTT 


0 5534 0 
0 2012 0 
TJ 2004 T 


TC 

TC 

TC 


ENDEXT 

♦ 2 


4 7, 20 1 2r 
42. 2nT3' 
4‘^'r7) 1 4 

42. 2015 

42.2016 

47, 20 IT 

4“2,2O20 


3 1466 1 
7- -5 014 0 
10 000 0 
1 2054 0 
Cr'5560 1 
00217 tf 
0 4 6 62^1 


CA 

3TASK 

CCS 

rcE 


CTAPDATPl 

3 TT4 

A 

-M A X I N 


-MAXHUT 


AORES 

TC 

C A O R 


HAX03FLG 
3 ANKC ALT 
S 4 t . 2 


42T2022 - 3 20 60 t>flNfnjN4 


V06N47 


7. DISPLAY FLASHING vn6,N4R (OTSPLAY PITCH TRtN, YAW TRIMJ 

R. UPON PROCEED RESPONSE^ RELEASE EXTENDED VERB DESPLAY SYSTEM 

247' TO Z533 TDO 3Z3^ C mFi r »~ ' Sr/ FXT VB 

LAST 2*^1 ^372552 4 0TO7 D DAPOISP CS ELAGWP06 — 

LAST 751 43^~.T553 7 A1 05 0 MASK UCT60000 


FAST 


TVC - 10. CS YIELDS 01. 3ZMF 
RETURN IF TVC 


O CONTINVJE 



“ — Rt 

DAPDATRI 0AP0ATR2 

GOXDSP ROUTINES USED FOR EXTENOED VERBS 


FXT. VBS GO TO FNDEXT, NOT ENOOPJOB 


R1 


R7 


f? 


' <' 



GAP: 

ASSE’T'iLE RE 

VTS t EPi 

055 

■■riF"Ar,c ‘>»or,RAM c'I'^anchf B' 









X 

F X T ETN D 1 r D 

VER3S“ 






~0551 

REF 30 

LAST 

753 

4 :?. 202 3 

0 466? 

1 


0552 

P EF 6 

LAST 

?53 

47, 20? 4 

20561 

1 


0553 

REF 11 

LAST 

253 

47.2T)25 

0 5534 

0 


0 55 A 




47, ‘2 076 

0 2039 

0 


05 55 




42,2027 

0 2022 

■ 0 “ 


0555 

0\ RFF 14 

LAST 

253 

42 , 2030 

31*466 

1 


0555 

OP'IEF 5 

LAST 

2 51 

42,203T‘ 

7 4371 

1 



T 2 , ?T )3 ? or 0(106 I 


05550A RTF 
0555 OF 


^555 06 R'^F 
05550T 
055508 RTF 

*:• < I 


05 T ? 5 zr 


LAST 75-^^ 



05551 RTF 17 LAST 
0555R RTF 2 LAST 


25 Tr 

198 


AT? , 7^03 5 I 3056 
^r 2 TT 35 5 DaOO 

A.2.2035 7 4371 

53*2036 0 0006 

52,2037 1 29^6 

42*2040 n~UTTU5 

42,2051 0 4750 

42,2042 13366 


0 

0 

T 

1 

0 

TT 

0 

0 


TC 

CADR 


BANKCALL 

GnXOSPF 


TC 

TC 

TU 


ENOEXT 


MASK 

EXTEND 

B7F 

COM 

MASK 

EXTEND 

B7.F 

TNHINT 

TC 

CAOR 


D0NrJUN5/ 

OAPDATRl 

FR1C330 


D 0 MntrN 45 


. f ■ . .. ■■ ■* ■ ■ 1 .« ■ ■■ i m I I . . . . . 

TCT538 APR, r,1969 COMAIIJ 


PRIOBO 


OONOUN40 


IBNKCALL 

MASSPROP 


USER'S PAGF NO 


19 


XT29 PT^CE 255' 


F6 S4 


LFM WGT 


BLANK 


DO MASS PROPERTTES CALCULATION ONLY IF 
CONFIG = l(CSM), 2(CSM/LMy, 6(CSM/LMA) 


SKIP IF cr* 5 


SKIP IF 3, 7 


UPDATE IXX* lAVG* lAVG/TLX 


055525 

0556 REF 31 LAST 254 

"D557 ^vFF T 


42*2043 0 0003 1 

42,2044 0 4662 1 

42* 2045 4D500 0 


REL INT 

TC RANKCALL 

C ADR ""- 950715 — ’ CO MPUTE R C S 


-0553 TEE 1 52F2D-46 3 52trrT- 1 D0NCrUN53 C AF VD64P Rl R2 R3 

13559 S: EF" 32 Cim 255 57V 204 7 O’ 4662 1 TT BANKCALL PTRTM YTPTM ~ 3LAN K 

0560 " RTF 7 LAST 254 52*7050 70561 1 " CADR GOXOSPF 


05 61 REF LAST" 355 42,705 1 0“5 534 0 TC ENDEXT 

0562 REF 13 LAST 254 42,7052 0 5534 0 TC ENDEX f 

0563 REF 3 LAST 254 42T7053 0 70 45 1 — TC DaNrUN43 


1J565 37EF 6 LAST 244 47, 2054 0-5556 0 5AXTN TC U^FLAG 

0565 REF 7“LAST 253 47*2055 00217 0 AORES MAXOBFLG 

TJ566 ^’FE — "I” 4777056 0~ 202 0 1 TC MA XH UT 


05661 52,7057 01460 1 V064B VN 0643 

"1T5 o o n — — ^^2* '^ 06 0 014 5 T~T> — V n 6N4T VN 0 647 

056612 ■ 42.2061 01056 0 V04N46 VN 0446 

05662 43,256? BANK 43 

~0556’4' “RTE “ 2 L AST ■ '23 6 43,2000 SET L C C E X TVERBS 

05665 ^ 43,256P BANK 


~ 0570 
R0571 
30572 


TT 


R 0574 

R 05 75 
R0576 
R 05'^7 

2 05 7^1 
R 05 7<3 


FF 


4 LAST 253 
V 8 7 r»eRF 


IT 7535 

VE5B 


0 


TTPE 


C O UN T S 



OE^CRIPTIDN 


r. IF Ave 


BEQUEST TF BIT PARAMETERS OISPLAY IR30) 

IS" nrr: — 

FLA5H niSPLAY V042T06-, R2~1N0LCATE5 W SMI P» S “S T A T?^ VFCTtlR IS 

TO BEMPOAT<=D. I N I T I A L CHOI CE TS THIS (R2* 1 ) . ASTRONAUT 

CAN" CHANG E T n nT : -! P K SH T^ Py V ? 75 X ^ - * NHf R E X NOT FQ 1, 

SFIECTFD state VECTOR UPDATEO BY THISPREC DTHPRECL. 

CALLS SR-30.1 tWHiCH r.ALLS TFFCtONNU + TFFRP/RM TO CALfULATE 


GAP 


ASSEMbIf PwnGRAM C^^MAMCHF NASA 202lin-n‘>l 


10:25 APP 


I , 1060 CUMATD 


17 T 9 — rarr^ — 255 




f .6 54 


P0580 RPF^ TPFRTGFT RADTDSl r ( APnGFF AFI1U5 ) t HPFT?^ (FERTGFE 

R 05B1 HEIGHT “ABDVF L AfF^ICH P AF OR LUNAR “L ANDTNG S ITET', HAFtT ( APOGTF ' 

‘R0532 FREIGHT ■AS""A'BnVF \ . 1 PER ( FI'ME' TO PERTGF^fT* — rFF TTlMF TU 

R0583 TNTFPSECT 300 ITFT ABOV O^ 35KET ABOVE LANOTNG SITEr. 

R0504 FL AGLT WOMTTOP 3nEN44 (HA^O, HPERG TFEI.TFF IS -5EHS^S IE IT WAS 

WS3S MnT^CDRRJTABUFV OTHLRW 1 SE"T T rArCRE-^FNTS ' QLIEE 'F'ER' SECOND. 

R05B6 ASTRTINAIJT HA’S 3PTTGN TO MONITOR TPEP BY KEYING FN M 3? E. 

R058T DISPLAY I S TN HMS . LS NEGATIVE (AS WAS TEFI* AND INCREMENTS 

T0513 OTlCE P(=R Sf^COND ")NLY IF TfF OISPETT? WAS -S0M59S. 


R0589 IF AVERAGE G IS O^n 

R 05GT5 CALLS SR30.1 "EVERY IWII SECS. ST Alt VECTOR IS ALWAYS 

R059T EOR THIS" VEHICt F. VB2"T)CrES~NTrr OTSTUPB STATE VECTOR. RESULTS 

— R0592 OE SR30.1 ARE RAPO, RPER , HAPO, HPER» TPER, TEE. 

flash MUNI I MR V nSNA'4 T H AFOr HPTD^ V 

* 90504 TE M^nOE TG FIl , THEN CALt OELRSPL SO ASTPHNAUT CAN MONITOR 

R0595 PESULTS BY NSOF'. SPLASH COM Pt.l TATI ON OONE ONCE PER TWO SECS. 


R059S1 addendum; HAPO AND HPER SH"RJLn BE CHANGFO TO-READ HAPOX AND HPE^’X 

- pl)5'95P AB OVE" re marks ;" — 

05^6 REF - 9 CAST 253 43425E2 TJ 2076 1 VB^PERE TC TESTXACT 

“^” 05 97 REE 1 43^,7555 3 50 63 1 CAE P^TO"^ 

0598 PEE 2 LAS! 253 43, 0 5210 1 TC PRTOrHNG 

^ 0509 PFF 12 LAST* 251 * 43,2553^ 0 4T01 O — - POSTJUMP- 

^ 0600 REF 1 43,3556 ~ 4B332"3: * ^ CADR V82CALL 


IN THE 


^^3^7 V82CALL MUST NOT BE A F (NOV AC JOB. 


R 0601 VB33PERF VE^B 83 ElESCRIPriON 

R0602 — REQUEST" RENOFTVnUS PARAMETER DISPLAY TR3tT 

■ 3?060T *1. SET EXT VERB DISPLAY BUSY FLAG. 

ROCOA 2. SCHEDULE V33CALL WITH PPIURITY 10. 

R 0505 ^ AT. D 1 5P L AY ~ ” 

R06a6"^ RT R3NGP 

R060T R2 7ANGE -RATE — 

" 9050^ R3 TEfETA ■ — — _ — 


0609 REF 10 last 255 ^43,2567 0 2076 1 VBBPERF 

“0 6 43V25T0 0 0004 0 

0611 PEF 2 t AST 203 43,-2571 4 0105 T 

0612 RcE~ 1 - 43,25 7 2 7 5014 0 

0 5T3 ?TEE T — LAST 255 43,2573 25-~10 5 1 

0614 REF ^ EAST 325 43t35/4 3 5051 0 

0616 REF 7 LAST 25t 43 r2575 0 51 34 1 

0616 FTEE LTrST 2TTP E4, 1770 

0617 REF 1 — — 43,2576 07000 0 

— 061? 1 43 ^ 35 - 77 ^“ -6^2tl64 1 - 

06 1 3 STEF 5 CA ST- -752 4 3- , -? 6 OB 0 521? 0 


TC Tf'SfXACT 


INHINT 

CS Ft AG WR 09 


MASK R31FLBLT 

AITS FLAGWRP9 

r.AF PRIU5 

TC NrWAC 



2CA0R R31GALL 


TC 


SET— R3-1 -Ft AG-BIT 4 FL AGWRD9 


FNOOFJf l B 


GAP 


ASSFMBLF pc VI SION 0 5'=^ 01- 



POGflAM CnnSWCHE BY MASA 70 21 1 K-i-'Jb 1 


ToTzsnrpp 


TTTTE’? — CCIWATD TTTTT '^TOTE 736 


L FXT^fJDEO VFTTRT 


USEP»^ PAGr^fTOi 21 €6 S4 


0619 
062 0 

REF 

11 

LAST 

255 

43,7601 

tr 

2073 

0004 

1 

V 35 PERT TC 

TESTXACT 




43,2602 

0 

0 

JNHIHT 

062X 

“T'P F 

2 

L 4ST 

2 5 ^ 

43.2003 

4 

5014 

0 

CS 

K31ELH n 

0672 

REF 

4 

LAST 

253 

45,^604 

7 

0105 

1 

MASK 

TLAGWRD9 

06 23 

K EE 

5 

LAST 

256 

43 , 2 605 

54 

1 05 

1 

TS 

FL AGWR 09 

062 4 

'■ "RTF 

2 

LAST 

? 3 Y 

43 ♦ 2606 

0 

25^4 

0 

T C 

“\r83PERF '♦•S 


KESEV R31 FLAG TO rNOTCATE R34 


/ 


asSL''HLe KhVISlON OS? f'f- 4i;i. LUHANCHI: by NASA 


lU:/!8 APK. 1 , 1969 — XHUrATO .029 



0SF9*5 OAXF NO. 22 


E6 


P06^^ GOTriR?! \rp5Tr — 

'!0626 GrrT0R23- VERS 5Tf - Of EC^IPTION ' 

Sir I III* MA)<K1MG HIP tr22(PEN? T ^^ ' ACK UA i a VH II H 

R067B 1.^ SET EXT VERB DTSPLSY BUSY ELAX 

R0629 ?. TF RENO (P20 RUNNTNG1 + TRACK (TRACK INtT ALtOWEO) FLAGS ARE S^T, 

RTT6 3 0 SCHEDULE R'21 OP i WUH PR t llR IT V 16. OT H EP W 1 5 E T U R N O N ALA R M A06 

R0631 3. RELEASE EXT VE-3 mS°LAY SYSTEM 

063R EFF 9 LAST 253 43,269? 0 5560 1 GnTnR21 TC OOWNFLAG CLEAR R23fLG 


Xr633“ REF I 43,2610 0002 S U AURES R23FL& ETT 9 FLAG 1 

0634 43,2611 0 2614 0 TC“ -*=3 — 


0635 REF 7 LAST 254 43,26T2^ (7 5546 0 GnTORTE TC UEFLAG SET R23FtG 

XIBTE REE 2 ■ LAST 257 43,2513 000 2 5 0 ADRES R2 3 F LG B IT R F LAG 1 

0637 REF 12 LAST 256 43,7614 0-2076 1 TC TESTXACT 

0636^ REF 3 LAST 203 42,2615 3 0074 1 CA FLAGWPOO VQ 57 ONNACCEPT ABLE UNLESS BOTH 

0539 RFT=“ 4 EAST 2TT2 43T25T5 T 5011 0 — — MASK R N D V Z B ir R E N DE ZV O US AN D T RACK FLA GS ttFT 

0640 - 43,2617 0 0006 I EXTEND 

0641 REF- 1 4372620 12643 0 CZF R22ALARM 


0642 FfF 10 LAST 247 43,2621 3 GO 75 0 CA FLAGWROl 

0643 RFF 1 43.26R2 7 5013- 1 MASK TRACKBIT 

iJ5'+4 43T2523 0 0005 1 EXTEND 

0545 2EF 2 LAST 257 43,2626 — L 2643 0 -BZF- R22ALARM 


0545 REF n CTIST 257 43.2625 ? 007 5 0 CA FLAGWROl 

0643 —ref 1 43,2626 7 5007 1 (TASK R?3BtT- 

064ff‘- - - ‘ 43,2637 0 0006 1 - EXTEND 

054 7 REF I 4 3,3630 1 2636 1 RTF REGS 21 

0650 REF 5 LAST’ -243 43,2631 3 5070 0 CAF PR1016 

0653 rlF B last 255 43,2632 D 5134 1 TC NDVAC 

0553 REF — T2 CAST .2 3 4 — E3,1725 ESANK= MRKBOFI 

0554- "REE- 1 43,2633 02470 0 2CADR R23CSM 

0654 RRF 1 43,2534 76067 1 


0655 233= f, last 255 4 3.253'5 0 5217 0 TC ENDDFjnB 

0655 REF 6 LAST 267 43 ,2636 -T 5070^0- RFGR 2 1 CAF PPrni6 

0650 ref R LAST 25T 43.2637 0 5134 1 TC NOVAC 

0659 REE IT LAST- 25T ETTTT25 EBANK= WRKBIJFI 

0660 fee 1 43,2640 02466 I RCADP R21CSM " 

0660 REF 1 43,2641 76067 I 

D5-5T REE 7 — EAST 257 43, 2642 0 5217 0 TC E ND GE J OW 

0662 RFF 20 LAST 24? 43,3643 0 9650 1 R22ALARfETC ALARM 

0663 4 3,2644 0G4G6 0 OCT 00406 

06f^4 REF rs EAST 254 43, 2645 0 5534 0 TC ENDEXT — 


TE ST R 2 3FLG 


VERB K7 VAS SELFCTEO ANO NF I THFR REND 
NOP TRACK FLAG WERE ON. 




^i> w . • )« -*•*■ ♦. -I . 

” ■'f' •,'>■•' ► , , L . ' r' 

■■■ ~ .-» ’3. . - . • ‘ » >: ' 




: - - '' ■-' .(f- >j'V-'V'- ■■■' »s \ 3 -->'- "■.■'.■■* ■''• ■ ■ ■'■ ■'■- ■• ' 

J &>>;!.' il‘nv it'i? ;j t:Lj ». i i ^VV . (t i -. i... . . 'M . H .! ■ ■ _■ 





-»h, 


GAP: 


r~w 


P 066 S 

R0666 

■?ro 6 ^ 

0 A 6 3 
0669 

nr^TD 

067] 
0672 
06 73 


6 XTENUET 7 VER^.'y 


VERB 86 DESCRTPTTDl^ — 

V86 IS TO 223 AS MARIC'R'EJECT TS TO R2I 
IS" ■ TH F”MARK' 'REJECT 



FEE 

14 

L AST 

257 

F77TT2B- 

: F 

1 



43 f 2646 

TTET 

12 

LAST 

75T ■ 

4S,26A7 

K EF 

8 

LAST 

230 

43 ,2650 

REF 

15 

LAST 

258 

43.2651 


1?' 

ALmK * 

~7ST 

43.76S2 


T 5060 t; 


V^BPERF 


WT 

3 7716 
55»725 



T 

0 

1 

T 


EBANK^ TlR KBUFr 
OAF" EBAmr 
TCUF EBANK 


€A 

TS 

TC 


NEGONE 
MRKOUFl 
GdPIM — 


10t28 APR. If 196^ COMA 11) 7U7^ PTCF 



USFR^S PAGE NO. 2 3 


E6 S4 


FOR RPTCTKE BACKUP t^ARK I NG' ROUTlNt I 


BACKUP MARK REJECT CP231 






4 ’ 


.V 












• % j 



-TW 



'« 


V 


w 


CTF 




05^ nF^anL PRll'^,^a^-(:'JMlN(.Hfc HY NASA ^'Ui! 1 1 1 J-ns 1 


10 : 2 a APR. 1, 19 S'? Ct 


029 P A C- . F 



EXTFNT7F0 V'^RBS 


OSFP'S PAGE NO. 24 


E7 S4 


P06W TRACKTP'M ' ' DESCPIPTION 

RO690 TER'^rNATE TRACKING (P20) 

""R 0691 IT icNonro^wr-) ri-nueevuus. i»ack. and upua t e hags. 

R0692”” 2. PFOaiRE P20 MOT “RtTNNTNG ATONE OR GO TO GOTOPOOH (REQUEST PROGRAW 001. 

R05R4 T. REQUIRE 22 PUNNING OR GO TO PINRRNCH. 

: rrcr505 +'. if IMIT IRATlUiroiCrNNIMG. SIALL until it IS' CONPLEIEO, — F HEN zero ' gr o ups 2 an d 3 TO KILL R2 T T R22. 

R069T IT KNOCK DTTWN RENDEZVOUS, R22r*l?21, TRACK, UPDATE, AND TARGl FLAGS. — 

RD699 4. GO TO~FNFNA t SOFTWARE PESTART1 . 

RDTOTl RTIERENCE 

ROTCn “P20 RENDEZVOUS NAVIGATION. " 

R0702 R 21 “RENDEZVOUS ' TRACK I NG SIGHTING MARIC. — — 

RETOB ■ ’R?? RENDEZVOUS F RACK I MG DA T A PRI I CESSING. 


0704 PEE S LAST 25T 40 , 2653 ■ ■ 2 SO 11 I TRACKTRN CK PNDVZRIT IS REND FLAG UN 

0TGS REE 9 TTAET 751 43.2^54 Z 0074 0 MASK FLAGWRDO 

0706 43;2o55 O“0O0E 1 EXTEND 

0707 REF 13 LAST 233 43,2656 1 2121“0“ 3ZF GOP I N NO 


0703 REF 10 LAST 257 43,2657 0 5560 1 TC ODWNFLAG 

070~ PEE 1 43,2060 “OOOtO 0 ADRFS ENO'/ZFIG 


0710 REF"’ 2 LAST 257 =3,2661 3 50T3 0 CA TpACKBIT IS TRACK FLAG ON 

0711 REF 12 LAST 25T- 43.2662^E OOrr^t MASK FLAGWROl 

■ 43,2663 0 0006 1 Ei C TE N n 

0713 ref 14 LAST 259 43,2564 T 21 21 0 BZF GOPIN NO 


0714 ppp n LAST 259 43,2665 0"'5550 1 TC OO W NF L A G '" 

0715 REF 1 ^43,2666 00031 0 AORES TpACKFLG" 


0/15 1 RET r2 TAET 259 43". ? 567 — 0 5560 1 TC OO WN E L RG" 

"07157 REE 1 4-P,F670 00027 1 ADRES UPDATFLG 


"TTnor REE — T3 CAET 755 43, 2671 0 5560 1 TC DOW^ j F tR G 

0717 PEF 2 LAST 20E 43.26TE " 0000 7 0 ACRES INUSE 


" 071T3 REF "7 LAST 253 4T",E673 3" 5057 0 EAT eBANK5 ““ 

07174 RFF 13 LAST 253 43.2674 54 002 o TS E6ANK 

071749 " 43 , 2675 0 0004 0— TNHINT 

07175 REF 3 LAST 203 43,2676“ 0 45’& 1 TC STOPRATE 


07 TT 7 REF 9 dTST 755 43,2677 T 7716 ' 0 ' — EAF NEOrTNE 

0717 3 “REF — 20“ LAST 242 43-,2702" 55*303 I TS OPTIMO 


"071'"' — REF Z — LTTST 199 " — 4372701 0 ' 6006“T 

0 71P - 43i2702 -77624“ 1 

0720 T.EF 3 LAST 210^ "47,2703 274R2"0 

0 2 21 43. 2 7 04 T77 7 6 1 


0222 2FF 1 43,2705 O 53 72 I TC ?RHSCHNG 


CALL 

INTSTALL OOMT INTERRUPT INTEGRATION 


A<,<[2MaLP PEVtSrON 03b CHMANLHE BY NASA ’^021 1 1 :i-Ob 1 


ITH'ZB APP 


1,1^69 COHAiO 


ryrw 





L EXTFNDEO VEPBS 


USER'S PAGE NO. 25 E 7 S4 


0??3 43,?.“^06 00002 0 HCT 2 KILL GKOU^ 2 in HALT P20 ACTIVITY 

072^ ^T,?70T 00001 0 OCT 1 ALSO KILL GROUP 1 


0725 ” 43r2T10 ~Tr 0004 O CLEANOUT TNHINT 

0726 REF 13 LAST 255 43,27X1 O 4701 0 TC PnSTJUHP 

r72r““R“E F 2 last 180 40172712 rZ^5T“0 OUm E71E7TS CAUSE RESTART 


WJyjZE TEWETT VTFP'Pi 3 0 — — DESrRTTn’TON 

R07?'‘ “ UPOATF LE?^ STATE VECTOR " — 

R0730 RF5FT VFHU^FLG TO 0 


0731 REF 14 LAST 43", 2713 0 5570 1 LEMVFC TC DOWNFLAG — = 

0732 REF 1 4372714 00025 0 ADRES VEHUPFLG VEHUPFLG OiTWN INDICATES LEM 


00733 " REF 15 LAST 25P 43,2715 1 2121 0 


TCF GOPTN 



R0734 CSMVEC VERB R1 DESCRIPTION 

P0735 UPDATE CS^-’ STATE VECTOR 

RDT36 SET V-HUPFLG fTn — ^ 


0757^ tff H LAST 25 " 43 , 2 TTS — “0 5545-tT CSMVEC TC UPFLAG 

073B ref 2 — LTTST TSD 43,2717 noo^'S 0 ACRES VEHUPFLG — VEHUPFLtT tfP INDICATES CM. 


07333 REF 16 LAST 260 4^^,2720 1 212175 — “TCF GOPtN 


- P074P DNFDUNP VERB 74 OEStrBtRT I ON 

R0750 - rtmiATTZr P^r^N-TEtrMrrRY PROG^RAM FOR HRASABL^E^ Memory dump. 

“110751 1. SET EXT VERB UISPLAT BUSY FLAG7 

R0757 2. ITPLACT'YURRFT'JT OOWNLIST WITH ERASABLE ME10RY. — 

P0753 3. RELFASR-FXT VPRB DISPLAY. 


0754 onto — EBANK= 10 

0756 RTF 1 43,2721 3 2724 1 ONEDUMP CAF LDNDUMPI 

0757 RFT 2 LAST — HO 43,7722 54 335 0 TS DNTMGnTC 

0758 REF H LAST P60 43,2723 0 2121 I TC GOPTN 


QTT^n I7TF 2 LTTST 2315 43, 2721 VT4 EQUALS DNEDUWP 

0760 R5F 1 43,7724 03722 0 LDNOUMPI PFMAOR UNOUMPl 


R0761 — -^^LFTELGiDN VERl 75 — f>£SCR!PTrON 

R07":2 SET lIFT-fTPR flag — — 

RD7o3 1. S ET U ^ GGP3K F LG, GU I D ANC E "R E FE r E NC E REL E ASE BACK-U P FLAG. 

R0 754~^“ 2. RFTIJPrN VH~ — — — 


0 765 

— PTF“ 

R 

LAST 25D 

1377775 — 

0 5 56 6 

0 

076^ 

REF 

1 

— -- — _ . 


OO I 25 

t 

0 75 7 

REF 

IB 

LAST 26-0 — 

4372727 

0 2 L2 1 

I 


L RT FL G rN TC URF L AG Ve 75 ~ SET LI F TOFF FLAG BIT 

A OPES — GRRBKFLG BIT 5 FLAG 5 — 

TC GOPTM 


GAPl ASSF'^I'LE r’eVISION OSb nt= 4r,c BV NASA 202111^-061 nTTTFTPTr: TTTW? COMA in TUTSI — PTSTTT:^ ZSl 


L ‘EXTEMD'Fn l/FP B S — — ^ pg 5 ^ 


076 <5 iT]=F *5 LAST 201 ^43T2T3T> 3 “TO 1 1 (T CHICPnOH CA l»r!0!TE(r 

0769 ^ 43,2731 0 0006 3 tXTHMD 

07775 fUFF 3 Dfn 7 ^ 43. ;’ 732 1 6711 1 57T TTCI 

0771 TEF 16 LAST 233 43,2733 1 2T20‘T" TCF ALM/ENO 


” 0777 43,2 734 0 0006 1 EXDAFUEI- EXTbNU 

0773 FFF 1 43,7735 3 2744 1 ■004 “ TDtECAlTR SET T5 TO IDLE. 

0774 7EF 4 LA'^T 1ST 43,2736 53'313 0 DXCH T5L0C 

^ 0773 TEF 7 CATST 253 43.2 737 4 410b 0 CS OCTSOOOO 

' 0776 "REF 3 LAST ”253 43 ;7740 7 OlOT 0 WAS X ~~ FLAnWR06 TTESET TTAPBTTS t AND 2. 

0777 REF “T LAST 26T 43,2741 -54 102 0 TS FLAGWRD6 

”75773" RTF' “20 CTTST 23T5 43,2 74 2 rrTTOUTTT TC O'" 


- 0777 REF 11 LAST 217 E6",1423 ESAWK^ PACTOFF 

0783 RFF 3 LffST 205 43,2743 03153 0 1 DU EC ADR 2CAriR FFIDLOC 

3730 47,7744 " 12T06 0 


ASSE*13Lt: kPVisiUN Obb (IF \'\i: tUMANtHfc BY NASA ;!U^ill?-U5l 10!28 APt(. 1 ,1969 CO WA TD l^KTT^ PWTE 2S2 


L FXTE>'ir)rD VPRPS ' “ USER'S PASE NO. 27 EO S4 


POrU’ VEPS RP OESCRIPTFON P’ENOITZVnOS FINAL ATTITUDE ROUTTNr tR63l 


R07a2 r^frFTrRY~v¥R'~;T 9'q~e!\iT~R oijaiNr, poo. prio lo usbi). ca ' lct t la t es and — 

R0733 DISPLAYS FINAL G T’*(BAL ' A N GUFS TO P IJI NT TS m 4rX AXIS OP PREFERRED AXIS 
R07T4 (UNTT{Z)C0S55 DEG + UNTTIX ISTNS5 DEGI AT CM. 


R0785 1 . FEY IN V 89 F ONLY IF IN PROG DO. IF NOT IN POO. DPERATOP FFRTJP AND 

R07SS EXIT R53. OTHERWISE CONTINUE. - 


R0787 Z. IF IN POO, DO IWJ STATUS CHECK IF.ORSOTH) . IF IMtr ON-ANO ’ ITS 
R0738 ORTFNTATION KNOWN TD COC, CONTINUE. 


R0789 3. FLASH DISPLAY V DA N OS . R7 INDICATES WHICH SPACECRAFT AXIS IS TO 

R07D0 3E POINTED AT LM. INITIAL CHOICE IS PREFPRPED AXIS. (R2=l). 

TI079T ATnOTEfSOT CAN CHANGE TO (+XI AXIS"IR2 NOr= U BY Y 22 'F Z E. CONTINUE 
RD7P2 AFTER KEYING IN PROCEED. — 


~TI07o3 ■ A. SET PREFERR ED "AT T I TUB!: '^EAG '"ACC nRDTNG TO^OFTTOir OES I RED . SE T FLAG 
R07PA for preferred AXIS. RESET FLAG FOR X AXIS. — ’ 


RD7PE S. COPFFNT TTTIE TS“STORED MTD' P63CnMP IS CALLED 


~F079E ^ RF3CDMP JOET"' 


R07'7 UPDATES CSM OSNTTCFrSTATE VECTORS USING CONIC EOUATTONS 


R'OTTR CTLCULAIbS 8H I H P RE F ERR El) AND X AX I S T RACK I N I' . A IT FR O M CSH T O LN. 


R079R ■ DESI'’FD GTMEAL ANGLES AS TNtrTCATED BY PREFERRED ATTITUDE FLAG 

PTJEtro ARE STORbLl EMK LAIbR KSDCSN CALL. 


"ROBOl S. FLASH DISPLAY V OS NIC ANO AWAIT RESPONSF. 


R080Z T. RECYCLF- RETURN TO STEP 5. 

R08D3 “ TERMINATE- EXIT P67- ROUTINE 

R OBDA PROCEED- PsESET"3AXTSFCG "AND CALL 


0805 REF“ 5 “CAST 3232 0 2730 1 VB9PE»F — TC C HKP lUH D EM AND POO 

0606 REF 13 LAST 257 " 43,2796' 0 2076 1 TC TESTXACT 

0807 ■43.2747 t) 0004 0" ' ~ INHINT 

DE773 pee 3 ETTST 253 S3; 7750 3 5 003 1 CAE PPt m O 

0805 " TTEF 7^ L AST 232 43".'275T 0 5147 0 TC F INOVAC 

0810 “R"EF 2 last 90 E4.I715 EOANK= P2ITIME 

DTm RTF 1 — — 4372752 — D3 7 T 2 0 ZCAD* V 59 CALL 

0811: REL I "4"3.'2753 70064 t ~ 

0812 REF 3 LAST 257 43,-2754 15217 1 — TCF FNODFJOB 


08X3 REF 15 LAST — 260 0”5560 I WMATRXNG TC -DOWNFLAG RESET RFNDHFLG 

0814 REF 2 LAST "210 4<,7A56 00131 ) ADRES" RENDWFLG 


GA»^: ASSFMBLF P^-VISIQN 055 nr- ^GC P^nGPvAM COMAMCMt BY NASA ^02111^-0^)1 


raT7ir"ST5^T; rrms^ — cumaid — — pthjf — zb3 


FXTFMDED VERBS 


trSFR'S^ATTE NO. 28 


fO SA 


08164 

' REF 1 6 

LAST 

26? 

43,2757 

0 5560 r 

08166 

REF 2 

LAST 

210 

« . 2760 

00066 1 

ETSTT" 

“FTET r=” 

LAST 

260 

43, 2 761 

0 2 1 2l T 


TC 

A0RE5 

TC 


“DIDWNFLAG 
npHWFL AG 

GUPl N 


RESET {TRBVTFt AG^ 


C318 


081 T 
0820 
T)T21 
0322 
0823 


0-82T 

0825 

0876 

0827 


0S28 

08?^ 

0830 

0831 

15832“ 

0h3T" 

0834 

0835" 

033^ 

0837 

DFTTT 
0 83T6 


REF 


REF 

REF 



PFF 

REF 

TTFF' 

FF 


REF 


T3 


EFF 


REF 

RTF' 

REF 

TEF 


^EF 
•<F 


REF 

REF 


RFF 


1 


43 • 2 TFT 


GOSHOSUM equals SHOWSUM 


6 

14 


} 

2 

1 

3 

1 

3 

T 


LAST 

262 

43.2752 

0 2730 

1 

LAST 

262 

43,2763 

0 2076 

1 



43,27F‘4' 

3 5 01 ^ 

L 

1 AST 

8? 

43,2765 

55' 376 

0 


- 

^3,2766 

3-5021 

1 


SnnwSUM 


TC 

TC 

TTF 


“TTS3 TFT 


I AST^ 192 


T3T2TFT 

43r2TT0 
43,2771 
43.2 n2 


55''36T 0 

3 3T47 0 
5F* 3 61-0 
0 3524 L 


CAF 

"TS“ 

XA 

TS 

TC— 


C UK POnH 
TESTXACT 
■5TT 

SKEEP6 
S^i-ZERt} ~ 

SMOOE 

SELFADRS 

SFLFRET 

STSHGSUM 




LAST 


~7 

1 

33 

~T 

33 

8 


a? 

ITZ 


LAST 246 


LAST 
L AST 


254 

^X4 



1 

2 


FAST 

LAST 


Z6T 

82 


43,2 
4T,2774" 
43,2778 
43 ,2 77 6 
43,2777 
43,3000 
43,3nor 

43. 3002 

43 .3003 

43.3004 

43.3005 


23 '372 0 
‘23' 373 1 
3 3246 1 
54 156 1 


SHTSPLAY LXCH 

— — — accH 


UGKILL 


T RTHT— O' 


cr'46B2 r 


-"205 61 1 
0 300 5"T 


0 B TTTF 
0 27 76 

3-3247 

43,3006 55' 371 


1 

0 


CA 

TS 

tr — 

TC~ 

CAOR 

TC 

TC 

TC 


U 

T 


TS 


SKFFPP 

SKFPP3 

APRS! 
MPAC +2 

VNCOM 

BANKCALL 

Goxnspf 

NXTBNK 

MOKtLL 

SFtFAnRS 

SKFFPl 


OFTET 


RTT^ TF 



2TT 


4T3TTT1T7 0 5534 0 


0339 


43,-3010 


01201 0 vncoN 


TX 


VN 


ENDEXT 


501 


0840 

0841 

REF 

■3 

LAST 

263 

43 .30 1 1 

43.3012 

3 

0 

-1376 r 
OOOT 1 

0842“ 


2“ 

LAST 

793 

43, 3013 

1 

" 33-40 T 

0843 

RFF 

2 

LAST 

263 

43 ,3014 

0 

3524 1 


EWSUYS CA SKEFP6 

EXTEND 



TC 


STSHOSUM 


F SHOWSUF OPTION 

^ — _ — 

^ TURN 0 
♦ 



» E N TE R R OPE CHK 


F bnk no for nsp 

» BUGGER WORD FOR -rrS2 

♦" 0301 

iif 






^-P O PF CHK, S TART SE tF C K IC AGAl - N, 
F START SMOWSUM AGAIN. 


2 03 53 


VB T6 



n PR 


0854 

08T5 

0856 


•^EF 

RTF 


REF 


10 

T 


LAST 260 


43 , 30 1 5 
Tmtrrr 


LAST 263“ 43t2 



0 5546 
“00X22 


T 


CF“2t21 1 


SFTPRFLG TC 


TO 


OPFtAG 



GOPIN 


err TO — Ftr 




y 


R0357 


YB 77 RF-SLT PR^fFeiFEO ATTTTUDf FLAG • dRtVF TX ^‘X-AXTS 


ATT. 


”0X9 3 — 



L ^ S 1 

2 53 ~ 

■■'FT, 30 7 U 

0 83 ^ 

REF 

2 

LAST 

26 3 - 

- 43,3071 

0860 

HEP 

21 

LAST 

26 3 

43,3022 


D " T 5 6 0 — t R E SETP PF TC OOWNFLAG 

00120 1 AQPES PRFTRKAT BIT lO F t A G 5 

0 2121 1 TC GOP I N 



ASSE*>1BLE REVISION 055 OF AGC 





■)MANCHF BY NASA 202im-0bl 



:28 APH. r.l 969 OTTOTa 


TTZ 9 — ZW 


"XTFMDFrr'VEWBS' 


TISEP'S OAfiE NO. 29 


EO S4 


R0861 


Ve 87 SET VH"^' RANGE FLAG - ALLOWS P22 TO ACCEPT RANGE DATA. 


t)aK2 ‘T TA3T' 2 S AJnrOTl fT 600 A I SFTVRFTG 

0868 48,8024 TTAIA G 

0864 REF 2 LAST 2G0 48,5075 04466"! 

0M5 7 EF 77 03T ZS'T ' 43.3026 D 71 2 1 1 


TC tNI PREI 

SET^ EXIT 

VHERFUAG 

TT GOPIN 


ROHS'i VET IffB RESET VHF RANGE FLAG - bllJPS ACCbPIANCE OF RANGE DATA. 


0867 REF 4 LAST 2 S 4‘ “ 43 . 8527 0 6006 1 TFSETVHF TC IMTPRET 

0868 48,808 0 77414 0 CTETTR EXTT 

0869 REF 3 LAST 264 43,3031 04666 0 VTHFPFLAG 

03695 REF 1 43.5032 5 5631 0 TC TRFAILOF TRACKER FAIL LIGHT 


0370 REF 23 LAST 264 43,5033 0 2121 T TC GOPIN 


R0871 V ERR' 66. VEHICLES ARE ATTACHED.- HOVE THIS VEHICLE STATE VECTOR T^i 
R0B72 ' OTHER VEHICLE STATE VECTOR. 


R0878 USE SUBROUTINE GE^JTTAN. 



“REF 

0875 

REF 

0876 

REF 

o^TTrr 

'7FF 

03767 

REF 

08762 

REF 

03768 

K tiL 


T F 3 , I 5 54 EBANK= RFECTHIS 

4 LAST 262 43,5034 3 5005 1 ATTACHED CAF opjoio 

8 LAST 262 48,5035 0 5147 0 TC FINOVAC 

2 LAST 2"54 '53,1554 e BANK= ' RR E C TTTTS 

1 43,3036 03041 1 7CADR ATTACHIT 

1 4373087 667 03 5 


■ L5ST 262 4573040 0 5217 0 



0R77 REF 5 LAST 264 43,3041 0 6006 1 ATTACHIT TC INTPRET 

0.878’ 437 8042 77624 1 CA77 

0877' REF 4 LAS! 259 43,8043 27442 -0 INTSTALL 

08771 43,8044 - 48714 Q-"' “SET RON 

08T^2 7EE"'“ 7 45.-3545 04064 ' t HO ONOTH 

08793 REF 1 48,8046 04308 0 MGONTHIS 

08774 43,8047 67052 1 +8 

— 'GSTTR- - — 43,60 5 0 77 674 T — CL E A R 

03776 REF 2 LAST 264 43,8051 04264 0 MOONOTH 


0380 


43^8052 


777767 


EXIT 


oHin — 

OB 3 2 

0BB3 

HEF 

“6 

3 

LAST 

LAST 


4T; 30 53 

3 3100' 

"0 — 

1 

t 

OTF 

nCT51 


PEF 

264 

43 »306 4 
43.3065 

0 5o06 
015 54 

TC 

A ORES 

G r NTR AN 

RRECTHIS 

OUR STATE VECTOR INTO OTHER VIA GENTRAN 

0Bh4 

kbF 

T 



H 3 ♦ ^-056 

016 26 

1 

AOKFS 

RP FC in^H 


08JAS 

“TTHB'ZTBB" 






0 "0003 

■p' 6004 

t 

-t — 

TACMrX IT-Pf;HNT 
TC 



“TTFF 

~R — 

VA^T 

26 4 

4 3 t J *j 5 f 

43V 3060 

INT^RFT 



088457 

083459 


REE 


I 


43,8061 

O - 5 * 7 V^ 5 


I 

? 6 7 31 a 


CALL 


UPOATf: VN, ^^-OTHER, V-nTH^R 


PTOACS’^ 


GAC': assemble R C V T nolvj “O 5 5 nr AG'C" CGMAMCHE‘"ErY NASA 2021 113 - 0^1 


Tnf2'8 APR. COMA I U P7^T;E 26*>" 


EXTENDED VERBS 


USER* 


30 


E3 SA 


0 ^ e 6 1 

0 834^63 

"O'BT^T 

0 3 34 6T 
088469 

0 8*3471 


0835 

08 87 
088 3 


^EF 


r\ 

TT'Er 


2 

T 


LAST 


89 


RFF 


43,7ni6T 

43,3064 

43,3068 

’43',“3TT66 
43,3067 
"43, 3^0 7 0 


4!>i'3^ U 


ML l_ 




’TOTTT 

776 24 
202 63 
77776 


1 

tr 

I 

1 

T 


CALL 


PPHOY 

SVDWNL 

SVDW2 


r 


PEF 



0Tf39 


0890 


RFF 
EF 
7 


1 

“T 

7 

14 

I 


43,3071 


LAST 
L A ST 


233 

260 


* 9 ^ 

4373 07 3 

733074 

4373TJ73 


3 3101 1 

33 


RTF 


1731 733 


>3,3976 
4 A, 307 7 


120 1 

34 TJ32' T" 
n 4701 XT 
734 37 T 


77634 0 
2T272 0 


TXTT” 

CAF 

INDEX 


tcpinad 

FlXLiJC 


TC 


CAUK 


TOST JUMP 

TNTWAKE 


TC«5IN 


pTB 


0R92 

OO'^ 


T 


43.3100 

43.3101 


00051 0 
67076 1 


^CT51 

TCPTNAD 


ncT 

CAOR 


5T 

TCPTTV 


R 089302 VERT 47 MOVE LM STATE VECTOR INTO CM STATE VICTOR. 


039394 

089305 


n 


PEF’ 


5 L AST 
9^ LAST 


334 

TTVT 



3 5003 1 CRTnCMS\r 
0 314737 


0 87306 ■■ 

089307 

089307 

"REF 

REF 

REF 

^ - 

1 

1 

LAS! 

“234“ 

P3 , 1554 

-73107“ 

56103 

T 

0 

■■ - - 

43 ,3 IT) 4 
43,31.08 

087308 

REF 

10 

LAST 

264 

43, 5 1 0 b 

3) 5217 

u 

059309 

PEF ^ 

7 

LAST 


“ 43,3107 

0 6006 

1 

039TT 





43,3119 

77624 

T 

08931 2 

o^p- 

5 

LAST 

26 4 

43 , 31 1 1 

27443 

0 

' 089314 





43,3112 

43014 

0 

059316 

REP 

2 

T A S i 

~~7m 

43,^113 

0406 3 

TT 

059315 

9EF 

3 

LAST 

2 64 

43,>1 14 

04304 

r 

08932 





41,3115 

67120 

0 

0893 22 





4 3,31 ! 6 

^ /6 1 4 

X 

OSJSZ'i 

REF 

3 

L AST 

255 

434 3117 

0 426 3 

1 

089325 





43,3120 

77776 

1 

08733 

8EF 

2 

LAST 

264 

<>3 .3121 

3 3100 

0 

059332 

3EF 

7 

LAST 

264 

43 , 3 1 22 

0 5605 

1 


FBANK= 

2CADR 


p'^tnio 
f I NDVAC 
p p f ttmt 

LMTiXM- - 


LMinCM 


TC 


TC 


EfsronFjOB 


I NTPPET 



SET 


ttJTSTALL 

BON" 

■TOT 



MOUNUTH 


CCCAR 


EXIT 


MOnNTHl S 


CAP 

TC“ 


on T 5 1 
GENTR AN 


089334' 

03T33S 


RTF 


TATST 


RTF 3 TAST 


26 4 

265 


tr 


333 


4 : ■ , 

43,3 124 


7X626 1 

71:334 1 



AORPS RRFCTHI S 


0898 3 3' 3 E F 


31 


43,3125 



T ACHEX 


R 0894 


VERB 94 DO R 


VT3 



A"TD T CK :ft> 7 N R 2 3 


0895 
0 3 76 


^CF 

r»fr f: 


1 

6 


LAST 236 


43v 31 26 
43,7T127 


? 51375 I 

7 0103 t 


VERP94 


CAf 

mask 


V 94 RLB IT 
PI Af;W R-D 9 



LM STATE VECTOR INTO CM VIA O 



IS V94FLAG3FT- 




ASSEMBLa PTiVISION 05!’> OF AGG P^Oi^Ri^'A 



NASA :>021Tr^-0M 


10:28 APP 


1,19 69 CnTOTTT 


1TZ9 P7\TT^ 



U3FR»5 l^AGF NO. 31 — " — £3 S4 


08 97 

08^9 


k'-F 17 LAST 761 


A^3,31 30 
4T,3131 


0 01106 1 
1 2120 1 


EXTFW 

3ZF ALM/EMU 


NO - nocRAjrjR ERROR 


0 8 T'T 

0900 


^5EF 
R FF 


IR 

I 



^63 


AT3TT2 0 5560 1 
A3,3T^T DO 21 3 1 


TC DOWNFLAG 

AOR'ES V94FLAG 


0901 

0907 


REF 


LAST 248 


43 , 31 34 
43,3135 


0 5364 XT 
00027 1 


TC 

MM 


CHECK MM 


TS IT P73 


OODH" 

- -- 00 04 

Trtrr 

‘ ■ i* r 

TO 

r 

tirrr — 755 — 

-» -Ar Jil ■ - - ^ 

3136 

~U <?120 

~rr~ 

■ ' ■ TC 

iVCW/FND 

NO"- OPERATOR ERROR 


4 

L AST 2 43 

43 ,3137 

tr 5412 
00112 

0 

TC 

PHA SCHNG 


0905 




43 ,3140 

0 

“OCT 

112 

SET GROUP 2 TO tX) R64 


RFF 









0906 

1 


43 ,31 41 

0 27TCr 

0 

TC 

C tF AN n UT 

CAUSE RESTART 

1090 7 ■ 



VOOPFRF — 

yy-AM on 



— nRSr R T PTI ON 




R090S 

R0909 

Tiaoiir 

R0911 
R0Q12 
HD 9 1 3 " 
9 0914 
R 09 15 


REQUEST RENO^ 7 vnus nUT-TTF-RL ANF-^O ISPL AY ( R3 6 ) 
1. SET1=XT VERB OTSPLAY BUSY FLAG. ““ 
21“SCHFDULb ’‘IS CALL WIIH PMIURTTY 10 — 

A. DISPLAY — ^ — 

TTMP Of event - HOURS , «TNUTES • 


SECDMOS 

M 


"‘OUr-GF-PLANE ■p'OSmON - 
YnOT nUT-OE^PLANF^EtTJCITY - FEET/SFCrmO 
P5l ANGIE BTW OF SIGHT AND FORWARD 


R091b ■ 




0917 

REF 

15 

LAST 

■ ~ 0913 

REF 

2 

LAST 

09?n 


ID 

nrsT 

0920 5 

RET 

1 

- 

0921 

REF 

7 

LAST 

“ 0972 

REF 

1 


0922 

REE 

1 


09?3 

^FF 

M 

LAST 

■ R0924, 

V E PI B 

"96 

SETT 

0930 

FEE 

11 

LAST 

“1T93T 

REF 

T 


09^15 

REF 

12 

LAST 

a9T[6’ 

'TEF 

""T" 


0932 

REF 

25 

LAST 

0933 

7 EF 

15 

LAST 


25T 


755 


' n^'-'C T lUN VEC T O R TN H O R I Z O N T AL P LAN E - DEGR EE S 

4343142 0 2076 1 V^OPFRF TC TFSTXACT 

43V'3I43 3 5063 1 CAF PPI07 

■4313144 Cr-51"47' D — — 


R36.V90 


9tr 


424700 0 
E4,l 726- 
43,3145 


26*^ 




43 


• 31 46 
,7141 


07164 0 
40104 0 
5217 1 


SBANK 

EBANK 

2CADR 


TCF 


R36LW1 
RPASS36 
736 

ENOOf JOB 


6 3 


26^, 


J 


74 6 
265 


JJTST' 

0949 

DO 50“ 

095T 

0959 

09571 


OTFF 

REF 

Gtef 

HcF 
• E f‘ 


T 


5 LAST 


43 ,3 150 

4333T51 

43.31 52 

43 .3153 

43.3154 
42V3155 
43",1155 


0 554 6 D 
O072T TT 


VEPB96 


TC 


UPFLAG 



AG“ 


OUfTFLAG WILL CAUSE INTEGRATION TO EXIT 

T I M ESTEP - - 


0 5546 
00204 




3 

-0 4701 


0 

T 

I 

0 


TOOTT 0 


TC 

ACRES 

CAF 

TC 

C A D R 


UPFLAG 

V960N F LG 

ZERO 

)MP 


3rrr 


GO TQ POO 


213 

266 


19 

“T 


lAST 2 66 


E 541751 
43,3157 
43t3 1 60' 
43T316T 
"FI 


T3T67 


0 5364 0 
00026—0-^ 
0 21 70 43 - 

3 3 7 D0- 0 


V 


EBANK= LANOMARK 

CHECK 

77- 

ALH/FND- 
LANDRANK 


T S P22 OPERATING 


MM 

1C 


NO 


09527 REF 14 LAST 759 


49 


U6 3 - 5^! aa3 -4!r 


DAF 

TS 


-rBANK 


C.Ao 


a$se«blp KFvisinN 055 nf -v'.c ■c>por,c>.A;-i chmanche ry nasa " 202111 ■j-osi 


10J2S APR' 


T7TW1 — COHftIL) 


V2V PAGE — ZST 


L "XT r\'r)Fn' VERBS 


0*551 ■R"EF 1 LAST ?66 53,^T5A 5 '5065 0 CS PPIOT 

0954 REF" 6 LAST ?66 43,1155 7 1751 1 MASK LAMDMAPK 

0955 7 CTTST ZST 43.3166 55'751 1 TS LANDMARK 

0956 I’FF 75 LAST 233 43,5167 3 1330 0 CA ^“'"MARKSTAT 

0957' 955 1 ^ 43,3150 54 071 0 TS SR 

0954 RSR 2 "TTfST 757 4573751 3 002 1 1 OS S5 

0959 " 'peF 3 LAST 26T " 43,3172 3 0021 1 CA Sp 

0960“ REF 4 LAST 267“ 43,3173 7 5063 0 MASK 5R1D7 ^ 

■ 09601 ““REF 70 IXST 25T~ — 43, 3174 4 0000 0 CTS A 

0951 2EF 4 LAST 255 43,3175 6 5061 O AO PR 105 

0962 REF 3 LAST 267 43.3176 “T?'* 751 1 ADS “tTCNDHARK 

““0T63 RTF' “25— TAST 2B4 43, ’177 0“2I2l 1 TC GOPTN 

■ 09631 555 9 1 AST 267 43 ,'3 200 “132 751 0 L AN06A5K FCArOR- IrAAIOMARK 

R 2000 ■ “ ■ 


US5P*S PAGE MQ. — 32 E5 S4 


YES SET BITS l?,ll,10“OF LANO«ARK = 

BITS-14,13,12 OF MARKSTAT AFTER 

S U HT l T H E M F ROM 5 TO G ET O FF SE T 

— WARK NO. — 


^ 20 oar 

VEPB 

-67 

ASTRONA^n OTSatlXY HE 

W 

watrtx 












■7aoo7 ■ 

M EF 



266 

43 * 3 2 0 1 

0 

2076 1 V67 

TC 

TESTX ACT 

2001 

RFF 

5 

L A 

267 

43 » ^ 2 0 2 

3 

5061 TT 

C AE 

PR 1 05 

20m 

REF 

11 

LAST 

266 

43,3203 

n 

5147 0 

TC 

Ft NOV AC 


2004 R5F 4 LA5T 93 95.1400 E3ANK= W 


2005 T’EF 1 43,3204 05536 1 2CAOF. V67CALL 


200 5 

RTF 1 — 

47r32t}5“ 

6aia5-cr 



20TT6 

KET- 12 LASK 

2 66 4T » 3 2 U 6 

0 5217 0 

TC 

^NDHE JOB 

■ R 2007 

VB 44. SET 

SUPFACTE^EIAG. 





2003 FFf 13 CAST 255 4377207 0 5546 ‘0 SETSIJRF TC OPEL AG — 

2009 2 FF “7“ LAST 210 43 ,371 0 “ OOl 77 0 AORES SDPFFLAG 

2010 REF 75 LAST 767 4373211 1 2121 0 TCF GOPIN 


52011 


V3 45 


RESET SU'-FAC^ PLAG. 


“2012 
2013 
“ 2014 


REF 19 LAST 756 43,3212 0-5560 1 RESISRF TC OOWMFLAG 

REP 3 LAST 267 43,3713 001 77 0 AORES SUREELAG 

-“RTF- 26“ t 8 S5 “ 257 43 , 3 214 1 7121 0 TCP GOPTO 


GAP 


ASSh-'^BtJ! REVISI 



Of AGi: CGMAMCHEH-CY NASA^ 20 ;^i 1 1 i-Obl 


ior2i“APH, — rrrrs^ — cm 


L 


PINBALL MOUN TAaCTiS 


USER’S PAGE m. 


I 


PIOOO 


THE FOLLOWrNG RFFFPS TO THE UMDIJN TABLES 


RIOOI COMPONENT CODE NUMBER . TNTFRPRFT ATirTT 


R 1 001 CRTO C)rr — — l C'lMPUNbNI 

P1003 0000] " 1 CnMPTTNFNT ' 

R1004 00010 3 COMPONENT 

“RT 0‘T5 X"! X0(X BTT4 = 1. DECIMAL ONLY 

RIOOS IXXXX ==- ^ 

■^.1007 END OF COMPONENT TODE^IT^BFPS 


RIOOS SF ROUTINE COIOE NUMT3EP: INTERPRETATION 


HI 009 OOOOO OCTAL ONLY - — 

RIOIO 00001 STRAIGHT pRACTTONAL 

R 1 0 n 0 OOTO “C 01 J CTEGRTEES I XTXTXXT — 

R1012 00011 ARITHMETIC SF 

R1013 00100 ARITH OPl OMKMULT BY RFXP14 AT ENO) INISTpAIGHT) 

R 10T4— 0 OITT ^ARTTH TP^2 ' ~0U T ( STR A IGHT ) rOTS L 7 A T EN D I 

RiniS 00110 Y OPTICS OEGR'^rS t XX .XXX MAX 

RIOIF OOirt ^^RITH DP3 “ OUT f-SL TAT -ETmi ^IN ( STRAIGMT)- 

TTOTO 010 OTT WOL E HQ T .PS I N RTt "WH O L E mNU TE S (MOD 6 Or " I N KZ, 
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SPARE COMPONENT 
COU DEG 

O P TICS O FG 


92 SPARE COMPONENT 

93 0P0EG(9ny 
^ "OPOf GI9Q ) 

93 OPOeG(^O) 

94 COU OFG 

Y " -f ) P T I C S D E G - 

94 SPARE 

95 COU OFG 


M/S 
DP4' 
OP 4 
0P3 

DP3 
DP 3 

--- j-jp^ 

0P3 
0P3 
—“OP 3 
0P3 
0P3 
0F3 
DP3 
0P3 

0P3 

DP4 

-OP4 

0P4 

COU 

— YOP7 

OPFRAC 
OPfRAC 
D»FR AC 
0P3 

— 0F3 
OPl 
DPI 
0P3 

np4 

CDU 

YQPT 

CDU 

YO PT 

DP3 

-OP3 

DP3 

COU 

YOPT 

COU 


GAP 


ASSF v.RLE PEVTSrriN ‘IF AGC PROGRA 



'1MANCHF PiV NASA 20;>lin-051 


10:29 APP 


mWP CTJWATD 7U2^ PTOTF 



PTWAI 



FABLES 


USER'S PAGE MO. 16 


EO SA 



2568 

■?515T 

Z57rr 
2 3T1 

2572 
2578 
2574 
75 
2 5 76 
2577 




2 579 
2580 
8727717 


- qrp-- 

3 

LAST 

— » frp 

4 

LAST 

REF 

4 

“LAST 

REP' 

5 

LTTST 

R EF^ 

6 

LAST 

RFF 

12' 

UAST" 

REF 

13 

LAST 

^ REF 

14 

LAST 

TrF 

4 

1. 4 ST 

REF 

5 

LAST 

^ EE 

6 

1 AST 

REP 



K t F 

1 


R EE 

1 



282 

283 



283 

283 

277 

283 

283 

T 


283 


42.3031 

42.3032 
7273033 
A.2,3034 
42,3035 
‘42,3036 

42,5037 

42.3040 

42.3041 
4 2^3042 
4 2 ,“3 043 
42,3044 

4 2i 374 5 
,30 46 


01045 T 

01046 1 

01047 0 
111050 O' 

01051 1 

01052 1 
02320 1 

0232’ 0 
02324 0 


OBTBT- 

3 

ECADR 

03724 

0 

ECADR 

0 1 3 3 3 

0 

be AUK 

01334 

1 

TCAim 

01335 

0 

ECAOP 


bCAOP 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADP 

ECADR 


kAXIS +1 
PRAXIS 
CPHIX 
CPHIX +1 
CPHIX +2 
OSPI tMi 


DSPTEMl 

7SPTFM1 

■TJS-PTEM2 

nSPTEW2 

t)SPTEEI2 

WWPOS 

WWVEt 

WV^PT 


+ 1 
+2 


+ 1 


75 

95 
77 

96 

96 
7T 

97 

97 
77 

98 

98 
77 

99 
99 


CDU 

CDU 

CDTT 


OEG 

DEG 

OEIT 


CDU OEG 
CDU OEG 
WHOLE 

WHOLE^ 
WHOLE 
WHOLE 


•F 

WHOLE 

PnS9 

VFL4 

WHOLE 


COU 

cou 

trotr 

cou 

cou 


ARTH 

ARTH 

ARTH 

ERAC 

ARTH 


0P2 

ARTH 


273”nF 


A28Dn 


i m - SF R H U TT M ES 


2801 



2803 

2 30 A 
2BD5“ 
2806^ 
2 807 

2709" 

2 BO 9 
2P 10 
261 1 

25 IT ■ 
2813 


2321 
232 
T5Z3 


2827 

2373 

2820 

2*13D 

2^ U 




42,3047 
427 



42,3051 

42iOD32 


42,3053 

42,3 054 

42.3055 

42.3056 

42.3057 
42 , 3 06 0 
4273TT6T 

42.3062 

42.3063 
42; 3064 
42 .3 065 
42,3066 
42; 3057 

42 .3070 

42.3071 

42. 3072 

4273DT3 

42,30 7 4 

42,3075 

427^0 7 6 

42 ,3077 
42T3T0D 

4 2 , 310 1 

-43 , 3102 


16351 1 
TTO rAT' 0 

1634T rr 
16532 0 
22347 


RUTMXTA8 


24454 

00000 


T 

1 
1 
T 

00143 1 
0634 7 I 
T234T T 

00512 T 



24344 

24344 
24503 I 
00512 1 

00007 0 
16347 0 
T634T 0 


24503 


t 

3 


42,310 3 

4T, 3 104 
4T,~3l 0 5 


22 507 
16505 
’ 0410 

1 635 2 

9A*ifyr 

2 4512 

2425’ 
00 000 


0 

0 

XT 

1 

0 

T 

1 

1 


OCT 

3CT 

ncT 

OCT 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

TTirr' 

OCT 

OCT 


OCT 
OC T 
OCT 

OC r 

OCT 

onr 

or. T 

OCT 



OCT 

r 


f 


OCT 

“OCT 

nCT 


16351 

00142 

16347 
15 512 


T4454 
00000 
“Otr 


00143 

06347 

00512 

00012 

24344 

24344 

24503 


00007 
16347 
1634 7 
24503 
06512 


22507 

16505 

20410 

1635? 

24507 

2451 2 

24252 

00000 


-r c. ^ T I ^ 

^3 OP^. 0P4 




m D P 3, 0P3t W/S 

. M/S. DPA 
OCT 



AS 21 
A6 OCT 
A T AR T 

ft«TH. ARTH 


ftR I THl 




ARTH 

M7^ 



DP 3 , 
OP 3. 


51 0P4. 

52 nP4 
63" TTPt; 

54 DPI. 

55 ARTH» 

56 OP 4 -. "OPT 

57 0P3 

58 0P3, 0P3 

59 OPT . 0 P 3 


DP 4~ 
OP4 
0P4 , 0P4 


OP 3 
OPT- 


^ T 1-# r' j ♦ lyr j 9 

60 ARTH, OP4, 0P4 

A. 1 rvoA rko A 


61 DP4, 

62 D P 4. 

63 0 P 3 , 

64 DP 2. 

65 HMS, 

66 0P4, 

67 OP3, 

68 0P4. 

69 0P4, 

70 OCT. 


0P4, 

OP4, 

OP 4, 
OP 4 . 
H M S* 
OPT, 
0P4. 
0P4. 

OP2, 

OCT. 


ARTH 



H/S 
OP 3 
-HHT 

DP3 

OP4 

-OP4r 

nP4 

OCT 


G AP 


ASSEMBLE Rc:vi-st(1>;i“05< Ur' iGC" pR AM CONHMCHP"HY"NASA 20'ZI 1 1. 3-05 1 


10: 2B APR, mW? CUMAIO TOZ^ 


2B3? 

2833 


2834 
2838 
2 336 



2^38 

2S'39 

28W 

2841 

284'’ 



2844 
2 84 5 
7F416 
2'a47 
2 84 B 
2849 


2850 


28 51 



^883 

2884 



2'^55 
2887 
77188 
2 35^ 
28G0 


R731 




PTN'R ALL TmP'J T5FL FS“ 


42.3106 

42.3107 

4T7TTT0' 


42 , 31 IT 
47V3nT 


477TTTT 

42.3114 

42.3115 
4Z,TT16^ 


,3117 

47. 3120 

42.3121 

42.3122 

42.3123 

47.3124 

42.3125 

42.3126 
47T3T7T 

42.3130 

42.3131 

47,3 133 
4373134 
47V8 T 35 

42.3136 

42.31 37 

42. 3140 

47 . 31 4 1 
47 ,3 147 


00000 1 
063 52 0 
24507 0 

12~5I2 T 
>7 n 

T 
1 
1 
T 

24511 1 
16347 0 
18347 


000 00 

ooooo 


163 47 
163 47 
T634T 

245 12 
00302 


0 

0 

0 

0 



103 47 
24344 

003 0? 
1634T 


0 

XT 

0 

1 

u 

0 

O 


0030? 0^ 

04102 0 
041 02 tr 
06T43 1 


06343 tr 
06247-3 


END HF RUl MX \ AB 


USSR’S PAGF NO. IT 


EO S4 


OCT 


TKTr 

ncT 

OCT 

T7UT 

OCT 

OCT 

TICT 

OCT 

rrCT 

TTTT 

ncT 

OCT 

ncT 

OCT 

ncT 


OCT 

ncT 

rrcT 

OCT 

OCT 


“OCT 

TICT 

OCT 

OC T 

OCT 

OCT 



0 

06352 
24 5 0 7 

T7512 

22447 

~0 

0 

0 ^ 
"3 

24511 
16347 
16347 

1 634 7 
16347 
16347 

24512 
00302 
32 655 

10347 
743 44 
00302 

“00 302 
16347 
00 3 37 

04102 

04102 


06043 

06247 


T1 

72 

T7 

74 

75 
TE 

77 

78 


ncT, 

0P4* 


OCT, 

0P3, 


0P3, UP4, 

074, OP 4. 
DP3, M/S. 
SPARE 

S PARE ^ 
SPA RE 


OCT 

ARTH 

DP4 

DP2 

M/S 




35 cao 

36 COU 


98 

99 


APTH 
OP 3 , 


CCHJ, COU 
cotf. COU 
ARTHf ARTH 
fRAC, ARTH 
nP2. ARTH 


ZHTT 




FT 




FAST 


34 


3377 



: AS'SI^MBLE: ^EVISTON 



A"GT"npnGkAM (■ I’^ANCHb PY 74 aS A'TU?! 10-05 1 


lOJ T5 XPP, 1* 19 69 CnKTTD .^ 2 ^ PAGF Z55 


CSM GfaMFTRY 


USER’S PAGE MO 


EO S? 


COOT ??VPTraro rank ^2Z 

000? REF 1 23,7000 SETLOC CnMGEOMl 

0003 ' ZTTTUm BISTMK 


P 000^+ 



THI S ROUTTNE O^AKES THF SHAFT AMD TPUUNTaN AHGLES AS READ RY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A 
~VErTOP~ PEF'^TFNCEmO'HHt* NAVIGATION RASE LU^mUlNATb SYSTEM ANIJ CO INC I DENT' WITH THE 


TOHT 


UNIT 



ROOHE THE INPUTS ARE 1) THE SEXTANT SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE 
“l^TTOn TAPirL77H:"”ARcA’; n THE CnMPLFMFNV nF~rHE BAST ADDRESS OF THE MARK VAC AREA' IS STORED SP AT LOCATION TOITR 

R0012 JOB VAC AREA, ' — “ — 


•RTinTl THE~TTUTPUT~TS~A HTarF ^ ^ JNT T- V ECT'a P IN NAV T G ' A TTnN BASE Cnn P D T NA T ES AND S TOR ED A T LO C A TI ON 32 0 OF THE VAC -AREA. THE 
P0015 OUTPUT TS~AT50 TVATLABLE AT MPAC. — — 


T)OTC> PFF 1 


CnUNT 23/GEOw 


0 OIT 

001 3 
00] ^ 

REF 

oa?o 


00 21" 

7 EF 

00^2 

0073 


0024 


00?‘5 


' 0'067S " 

7EF 




7 EAST 


^ 7^ , 21700 zrrm“n sxtnb 

23 t 2001 00006 1 

73*7002 4S513 1 ^ 

23771X03 AT 4 34 1 

23*2004 4607733 

73,7003 77556 3: 

23,2005 566 06 1 

23.2007 00004 0 

23,2010 41434 1 

7FS TTTTOTT 45 513 T 


5.1 

CDULOGIC 

RTE PUSH 

SXTtOGTC 
3tN- SL 1 

3.1 

RTB PUSH 

— CDULOGIC 


0027 ■ 73.7^12 4134-6 0 — COS OMP 

0023 23,2013 00003 I 2 

' 33070'" REF" 1 23 .7014 140 41 1 STOOL ST ARM 

0030 — — 23. '^015 “ 4T356 1 STN DMP — 

0031 73,7016 77676 0 ST ADR 

0032 REF 2 LAST 285 23.2017 63734 1 STOOL STARM <-2 


PUSHDOWN 00 , 02 t 04ftlTD-19DT f 37D^ 363r - 

TRUNNION = TA 


PD2 = S T NC T 
SHAFT ^ SA 
Pn4 = SA 


cost SAISINtTAI 


SIN( SAISINtTA) 


0033 " 73,7020 7 7 746 1 COS 

0034 REF 3 LAST 235 23,2021 24045 0 STOVL STAPM -1-4 

0035 " ■ REF 4“ LAST 28 ^ 23.2022 00041 1 — STARM STARM = 3?0 

— 0036 23,7073 765213) MXV VSLl ~ 

0037 "REF" 1 23,2074^ 063 07 0 NR1N87 

Crn3R — 7 3 ,70 2 5 0 0041 1 STO R E 370 — 

003P 77616 0 RVO ”” 


004 0 REF 

0041 " 3EF 
0047 7FF 

0043 REF 

0044 3FF 


1 “ 23.7077 3 7373 I SXTtnGIC CAF lOOEGS- 

34 LAST “763 73,7070 76 lER-f)- A1XS- Mt>AC 

“1 23,2031 3 3 0 03 t CAR QUARTER 

1 23t;3)3 7 O 7756“1-- TC SHORTER 

I - 2 3,vr033 0 60v=^O I TC 0AN7IG 


CORRECT FUR 14.775 DEGREE Off SET 


GAO 


a^ti^mble p..-viS[nM'7j*^g; A'gc-progk am chmamchf by nasa j-obi 


APk. n" T 9F9 COMA ID 





USER’S oaGF NO. 2 FO S3 


R0045 CALCSXA COMPUTES THE SEXTANT SHAFT ANH TRUNMinN ANGtTTS R^QXTTRFO TO POSITION THE OPTICS SUCH THAT A STAR LINF- 

R00<^7 OF-SIGHT LIES ALONG THE 3TAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF- 

R00A9 EREnCFD irTTTTF URTILS CHOkUlNAlt SYS) EM. !N AnUfrffJMTT StIS UP I HKbt UIVIT^” VECTORS UbFlNING THFX.Y. TTHTT AXES 
ROOST REFFRFNCEn TO TH^ OPT ITS CnORTT NATE SYSJ^W. 


ROOT? ^ THE INPUTS 0\PT D' 'THE S TAT VEC TOR PhEERRFD JO PR ESENI St AH T E MEMB E R COURD T NAT E 5 STORED AT STAR. 2t SA N E ANGLE 

R00S4 INPUT AS =«'SMNB=?=. I.E. SINES AND COST^TFS OF THF COrj ANGLES. TN THE ORDER Y 2 X. AT SINCOU AND COSCOll. A CALL 
R0056 TO CDUTPTG WILL PROVIDE THIS TUPUT. 


ROOST THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNIGN ANGLES STUREO DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART 
ROOST EOUAL TO ZERO IS — — - - — 


006 0 


0062 REF 3 LAST TIS 

0063 

I — 

0065 

0066 REF 1 

006 7 RTF ZT CXST ZSS 

006R REE T ' - — 

0 0 6 P R:EE 2 t A ST P3 

0 OTT) PFE r 

0071 REE 2 LAST ST 

007? ref 1 — - — 

0073 RTF *7 orST S3 

0074 ^EF 


73.2034 

23.2036 

23.2036 

23.2037 

tstutto 

23.2041 

23.2042 
23 . 2 T4 3 

23.2044 
73,3045 
7 3.2 046 
73,7047 
23,2050 
73.2T551 
73,2^57 


77220 1 
00034 IT 
02766 1 
77624 X 


47644 1 
76521 0 
06260 0 



CALCS XA f TA VLOAD 

2St) 

STAR 

CALL 


MXV VSLl 

NB2NP1 

HIUNTTX 
STOVL XNBI 


15331 1 

26563 0 

15327 0 
3BS71- 1 
460*^6^ 


TUNI TY 
STOVL YN81 — 

HI UNIir 

SS T CALL Z NBl 

SXTANGl 


PUSHDOWN 00-260, 280, 30D, 32D-360 



I 


CTFT ^FVISIMNJ 0 ^^ ATC PP CHM /VNCHh "BY^ASA ^U 1 1 i i-U*? i rT}T78 1,19 69 CrmTCT— ^"OT^? 78T 


L rSM "FDMtTRY USFR'S '’AGE NO. 3 TO S 3 


R007F SXTAW, COMPUTTS THE SrXTAm SHAFT AND TPUNNION ANGIES EEOUIPED TO POSITION THE OETTCS SUCH THAT A STAR LTNE-OF- 
R0077 SIGHT LIES ALONG THE" STA R VECTOR. = 


ROOTR T]TE INPUTS 1 ) THE” STA P VECTOR REFERRED TO ANY CnOFOTNATE SYSTEM STORED AT STAR. 2 t THE NAVIGATION BASE 

ROOr.O~ COOROTNATES REFEEREO 'TO THE SAME COOr^DINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STORED AT XNB , YNB , AND 
F 07 T 8 E 7 NTT. — — ~ 


R OOT 3 


THE OUTPUTS ARE THE SEXTANT SHAFT A'lO TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECT I VELY . 


(LOW ORDER PART 



00T7 

OOR 3 


0090 

ooor 

OOO? 

0003 

0094 

00 T 3 

00^6 

TTOTor 

GIFT 

OO^T 

0100 


PEF 



REF 


REF 


RTF 


REF 


1 


1 

? 

3 

1 


3 

3 

T 


LAST 

LAST 


OIGI IFF 


LAST 

FAST 


LAST 286 


LAST 2 B 6 


281 

TEE 


Z3,Z053 

33 . T 0 S 4 
23 ,?nS 5 
T3T2TT5E 
23,2057 
23 , 2060 
2 T;ZD 6 I 


23,2062 
2372063 

Z 372 064 

TRT 23 , 2065 


47020 0 STTANG 



2 3.206 f 

23.2070 

23.2071 
2 2 . 207 2 


0 

45662 1 
64375 1 
02714 I 
06260 D 
77772 “O’ ■ 

26555 0 
02722 1 

76521 0 

a 626 tm“ 
T 6 EE 3 ~a~ 
02730 I 

76522 tr- 
062 60 0 
0257 TrTr“ 


VtOAD 


VSLl 

STHVL 


sravL 


MXV 


STHTTF 


lEO, IBO. 220 


T 5 D 

TRANSPl 

"MTV 

XNB 

NB 2 NB 1 


ERFF WRT NB? 


XNBl 

YNP 

vsn — 

NB 2 NB 1 

YNBl 



VSLl 

NB 2 MB 1 

TNBl 


0102 237207 3 4 7034 0 RTB RTB — 

DTCB REF 2 CTTSI 237 2 3.7 074 45662 I TTANSFl 

01 CFr~ — REF 1 23,20 75 ■ ^5626 1 TRANSP 2 


010 5 23,2076 47375 0 SXTANGl VtTTTD VTT 

OlO: ^EF~ 4 LAST 28 T ' 23,2077 0 E 5 T 1 0 ZNBl 

0107 REF 5 LAST 225 23,2100 02766 1 STAR 

OITTB ■ ■ ■ " 23 , 7 T 01 726001 “' BOV 

OlOO 73.7102 46103 1 +1 ~ 

0110 23,2103 40056 D UNIT BOV 

OITT RTFF 73.2104 — 46 r 45 0 rN 6 =SI — 

0112 PEE 1 23 . 21 D 5 — 00027 1 STORE PDA PDA = UNITtZNB X S) 


— jyxn 23,2106 5 T 441 1 DDT D CO MP 

0114 RFF“ 7 ^ — 237 23 . 21:07 02555 0 XNBl _ 

0115 RCF 1 ? 3 ,^tTtr 24023 0 STOVL STNTH SIN<SA) = pQA . -XNB 

CrTTo REF ~ 2 — LIST 2 R 7 ' — 23 , 111 1700271 PDA — 


011 7 ~ 23 r 2 tT 2 “ ^ 77 " 6 FT 1 DOT 

0 TT 3 “REF TUSI 2 H 7 7 31 2 13 07563 0 tmt 

OlF^ OFF' 1 73,2114 34021 0 STTALL T;OSTH COStSA) ^ PDA . YNB 

0120 opf 1 23,115 '' 47256-0 APCTHIG 


;AP: A^SFMbLE ReVISION 0^)^ OF A^‘ COMAMCH I' 3Y ^4A SA 1 13-OS I 


iOi7H A 


r.l96P CO^AIU 7U7^ FJBnrE 2BB- 


L 


01 ?1 
0122 
6\23 

01 2 h 

0125 

012’5^ 

0127 

0123 



0131 

0172 

01T3 

0134 

0135 

OTT^ 

0137 

0138 
"0139 

0140 

0141 
0142' 
014^ 
0144 

TT 


0X4^^ 

0146 

0147 
0l"43 

0147 

0150 

TTTTT 

0T5^? 


€5^^ GFD^^ETKY 


PFF 


7Eh 


REF 


REF 


REF 

35XF 


2FF 

REF 


XEF 


4 

6 


2 

1 


2 

4 


t 

1 


23 • on 6 

23.2117 



LAST 287 


23,2120 
23,2T2r 
"23 , 2 1 2 2 



5 LAST 2R 


2^ 


-> f 

737 


LAST 738 


LAST 238 
LAST 232 


J 7 ^ 

2^ ,2124 

2125 

2126 

2127 
2130 
2TTT 

2132 

2133 
TTITT 

2135 

2136 
2T3T 


23, 

23, 

237 

237 


f 

237 

23, 

23, 

2T7 

23, 

23, 


LAST 23 3 


2 140 
2141 
2T42 
23,21^4:1 


TT*. 





LAST 


— ^372745 

RFF 

OFF 

1 

5 


23 . 2 1 46 

23.2147 

REF 

1 



23,2 1 50 

PEF 


LAST 

28R 

23 , 21 51 





23,2152 

FT 

3 

LAS! 

i!9H 

2 3 , 1 5 J 





23 ,2154 


77634 

45546 



T) 2 766 
776 00 


0 

1 

T 

1 

1 


^"124 1 

72441 0 
02571 0 

111 2b r 

62 440 0 
4614? 1 
45200 


46142 
06331 
776 34 


r 

1 

0 

u 


45546 1 
07776 0 
T7614 T 
01630 0 
00034 0 
7 


0143mr 
0003 4 
77745 1 


06325 
16774 
063 2 7 

02776 

77514 

01630 


0 

1 

T 

0 


USFP»S FAOF NO 


FO S3 


RTB 


5TUVL 


ROV 


DOT 


TOTS 

BMN 


RTTV 


RTB 

STORE 
CtT 


sxt alarm SE T GH 


7NH=S1 


I) LOAD 


lSTa2S 
R75T 

STAR 


T1 

SLl 

ZMBl 


SL2 

SXTALARM 

T7SD 

SXTALARW 

20nEG“ — 


iSToes 

PAC 


CULTFl AG 
250 


— 2 7 ODE G 

STOOL SAC 

200EGS 

STORE PAC 
CLRGD 


O 


00034 0 


CULTFLAG 

— 


TRUNNION ANGLE NEGATIVE 


TRUNNION ANGLE GREATER THAN 90 DEGREES 


CULTFLAG 

230 


FOR FLIGHT USE, CULTFLAG IS ON IF 
T RUNION I S G R EA TE R THAN ' T O DE G 


A LARM 



THIS 


SUBROUT INF. ALARM WILL RE SET BY M^I 


GTTP: ASSfMBLt VI S TCTN 0^5 Ut- agc l^kUGRA'^ Ci)‘'^4^iCHb BY 202ill'6~05l APH. 1 , 1969 COKATD 707^5 PAGF — 2S9 


L GSM GFOMPTRY " “ ^ USFR’S PAGE NO. 5 EO S3 


P0133 THFSF TWO nOUTT NFS CnMpuTF'THE ACTtmU 'ST ATE VEtTOF FO’? LM-r CSM BY AOOI NG 

P01T4 THE CONI vG R,V AND THE O ATI GN5R *V. THE STATE VECTORS APE CONVERTEO TO 

P DT5T PTTTRS B-29 AND i^TEKS/CSEC H-7 ’AND S I ‘JREU APPROPR I A I ELY IN RN.VN DR 

P01E6^ ^-OTHER , V-OTHEP FO^ DOWNtTNK. THE ROUTINES NAPES ART SWITCHED IN THE 
R015T OTHPR VEHICLES COMPUTER. ' 


INPUT 

R0159 STATE VECTOR TN TENPOPARY STORAOR AREA 

^ “R U I a: 1" TFETATir TFCTOR' IS SCALED PUS B:^rAND VEL B5 

ROIST SET X2 TO +2 ~ ' 

R016P IF STATE VECTOR IS SCALEO ROS B2E AND VE1_ B7 

irOTE3 'Eb T X2 HJ D 


■ R0164 OUTPUT — 

RUTEE R(T) IN RTJV VTTO — TTERO ; T IN PIP TIME 

“ ROlvSB OP - - — ^ — — 

R016T R(T) IN R-OTHERt VITJ IN V-OTHER (T IS DEFtNEO BY T-OTHFPI 


01E3 23,21S5 = 

01 FT R EF r ■ 1 OV?ODD“ 

OITO ~ l^tOTOT 

OEF I — — 

0177 TTTTTZTT zfEA lA I 

“01721 REF 1 10,2240 n475B 1 

01722 10,2241 20242 1 

0TT73 10-,7>Z42 53775 T 

0173 RFF- 7 last 35“ 10,^243 01521 0 

0174 “ 10,7244 57605 0 

0175 ' r'Cr,274 5 53655 1 

0176 “ PFF“ 2 LAST “55“ 10,2245 01535 71 

0T77 10,7247 57576 1 

“0TT3 REF 4 ~C7LST ITT 1012750 25171 I 

~0179““ RFF 2 LAST B5 10,“7751 0152TT?“ 

0130 10,2252 53257 1 


SVUWNl 


BANK 23 

SblLOC CawGE 0 H 2 

“BANK “ “ 

COUNT lO/GEOM 

BOF ” RVO 

AVENIOSW 
+ 1 

vuoffD — vsr^ * 

TOELTAV 
0 -7,2 

VAD ™ VSL^ 

RCV 

0,2 

STOVL RN ■■ 

^ TNUV 

VSL=^^ VAO 


— 0T71“~ “ TO, Z2'53 57602 1 "tT -47 

0132' REF 2 LAST 35 10,2254 0154'^ 1 VCV 

- 0133 10,2255 77657 0 VSL^ 

““ 0134 775-5 57576 1 Trr2~“ 

0135 REF 4 LAST 171 10,2257 1517/ I STOOL VN 

“ 01R6 REE 3 LAST 272 10,2260 01517 O TET 

0T37 REE 3 LTTST TTl 10,2261 012 05 1 STORE PTPT1 

““ OIBE rO-,P762 77616 0 RVQ 



S W=l = A VETOPT n D O I NG W-MA TR IX IN T Etl" 


01 R 9 
0190 

0T7T 

0199 

0101 



REF 3 


— ' 10,2760 53775 T SVOWN2 VLUAtT VSL* 

LAST -267 10,2264 01521 0“ TUFLTAV 

1 ^ , -22 6 5 5 T6 0 * ^~ 0 0 " , 2 

10,2266 53655 1 VAO VSL’*' 

I A S T 239^- 10-^ 226 7 0 1 5 3 5 0 R C V 


I 


I 


GAP 


/^SSLMRLt R V ITTDNIT? G 0'^ iGC PP-nGRAM C'VMAN'CHt 'TVY 'NASA ’> 1 1 .^-0b i 


US^a AMP. U IVfeV) C 'O' q A I D 70?^ PTStJE ^90 




0SeR^5 PAGE Nai- - 6 PO S3 


01^? 4 
0195 

REF 

4 


1 0 , ? 2T0 

57576 

1 

1 

srnvL 

0.2 

R-OTHFR 

LAST 172 

10.2271 

25722 

0 1 ^ 

REF 

3 

LAST 289 

I0,??7? 

01527 0 


“TNUV 

01 "V 




10. 2213 

532 57 

1 

V S 

VAD 

01 ■>8 




10,2274 

5T60? 

1 


0 -4,2 

0199 



LAST 2'fi9‘ 

10,2275 

01543 

I 


~vrw 

0200 




10.2276 

77657 

0 



0201 




iaV2?77 

57576 

1 


0.2 

0^207 


4 

LAST IT2 

TTJ, 23071“ 

01 no 

1 

STaRF 

■"T^TITHtR 

0^03 




10,2301 

77616 

0 ' “ 

RVO 



GTST51 4SSE^1BLF PE VIS ItW ' n'J': HF Ar;t CUHANCHb «V“N'ASA ^IJ^U1J-U51 10:28 APB. 1,1 9- 6 9 C O MA I P ra?9 PAGt 291 


t~~ CS'^ GTOWETRY ' " — tJSER^S- PAGE NH. 7 EO S3 

— ^ ^ ^ — - ■ - - I ■ M'M MM m umm ■ ■ ■ \mmt ■■ ■■ ■ i - — - - i ■ ■ i m wm !■■ ■— ■jm_m . , __■ j_ _ _■ _ , _ - _ _ . 

PC20'^ TUB ROUTT NF TO CH^PUTF THFTTATITR AC XOG-TJF C T^PftC t«PAC +1 ) • 

R 0“2Tr5 FNTRTl CATI — 

" R02O7; “ ■ roG ■ — — — 

ROT07 FU Wn U T TN'F R'FTIJFN R I T H ^nnOG IM np ^PAC. — 

R020S EBANK IS ARBITRARY., ~ ~ 


0209 14,2000 

“*071 ir~"“irEF TTTTTJTK) 

“ 0211 2317:I55-- 

0217 RFF 2 LAST 235“ Tn 7^: 100 I09F 


OT2T3 — 7X77155 443 01 0 LOG 

0214 RFF 35 LAST 2B5 23*2156 00160 0 

“0215 F FF “ ~r“ 2T , 21 5 7 062T7~0 — 

0216 23,2160 77776 1 


“02 IT REF I 2 3,2161 CT TT7T 7 


021B “ OOOO^ 0 - 

""■02T9 2 3,2163 00000 1 

0217 73,216T- llOOno 1 — 

0220 23,2165 01001 I “ 

-TT270 2 3, ’166 PR 6T5“1“ ” 

02^1 73,2T67 00376 0 

0221 73,7170 07310 1 

— 0772 23,7171 00541 1 

— 0777 23,2172 16735 1““ 


0773 RFF--" 70 TATI 200 23, 2173 3 5021 1 

0224 RHF 36 LAST 291 “73V2174 54 i56 1 

0225 23,7175 0 0005 1 

0226 "Ttr 1 23, 2176 — 3 2214 1 

0227 REF 37 LAST 291 73,2TT7 52 155 1 

0228 REF 33 LAST 291 73,7700 52 160 I 

0779 2337701 4 OOOO 0 

0230 REF 2 LAST 285 2'',2202 0 72 36 I 


HANK 14 

SETLOC PnWFLTT2 

BANK 

COUNT 23/GFnM 


NORX BOSU 

MPAC +3 


EXIT 


TC POLY 

OFC 2 

TOFF 0 


2nFC .031335467“ 


70FC .0130145859 




CAP rvRn 
TS MPAC +2 

EXTEND 

TJCA- CLDG ? /S 

DXCH M°AC 
OXCH MP/»C +3 


TC -- SHOPT«P 


GENERATES LOG BY SHIFTING ARG 
UNTIL IT LIES BETWEEN .5 ANOl. 

T H E LOG OF T HIS P A R T IS P^O UN O ANtT THE 
LOG OE THE SHIETED PART IS COMPUTED 



(N-1, SUPPLIED BY SMER7.HI 
IN MPAC +3. 


LOAD POSITIVE SHIFT COUNT I N -A". - 
MULTIPLY BY SHIFT COUNT. 


~ 02T 1 RTF '3 9 LAST 79T B2 1B6 I DXCN MPAC +1 

OrB2 TFf - Atl L^ST ?9t ?3,-t20A tSB 1 OXCH MPAC — 

02-?r BFF 41 I AST 5? 160 1 OXCH MPAC +B 

“0214 RETf ZfT CT^VI 29T rTT^TOG 20 1 SB 1 PAS MPAC 

02"!^ PEE “8 “LAST 2&S ?'iVZTO"f — 0 “6006 T — TC INTP^FT — PESULT IN MPAC. MPAC +1 


02 36 - — ?"r , -?2tt> T T61 6- 1> RVO 


021T “ 2-iv2:m“ M771 1 NEARLYl -?OEC 

“023 7~ 2 '3 . ’ 7 1 2 iTTT ’’ — 1 


4‘<)9999990 


gap: as semble t>5VIS [T“(T^'> (IF \t'C PPllGUAH CHHANCHF BY NASA 20211 1'i-Obl 10J28 APR. 1 , IVStJ — cn WB T P — 702^5 PHTTE — 292 

V C5>T GEDMFT'RY — tJSEP'S PAGE NO. 8 EO S3 

0233 ~ 2372213 OOT^Z 1 CL0G2/32 2DEC .9216603494 

0233 ^ 2372214 34414 1 “ 


TTW 


aS'^'^nFir'ftt'VTS rn'N"'ObV"'W PKOI^kAM tumANCHI- my N^^SA 2UZ1TT3-U51 


1 U 22 B APR, r* 1 9 69 COWATD 70?^? PTOT 



L 


P 02 T9 
P 02 ^‘T 



»■ ■*» 


RO?^^ 

R0246' 

R 

R0250 

RC 2 ^ 

■R 1 CJT 5 T 

P0255 

RO?!j?S 

1^0757 

R 02 T 8 

R0259 

RUZ 6 fT 

inr 25 i 

R0262 


G^T^FTRY 


USEP^S PAGE NO, 


EO S3 


EA^H“RDTATm 



OP EARRDT2) 


date: ' 

LOG SFCTinN: 


15 FEB 67 

POWERED FLIGHT SUBROS 


'SU^PntlTI NE N AME: 
won NO: N +1 ' 

wno BT: ENTRY GROUP { BA 1 RNSFATHhP ) — ^ 

FUNCTT O^^AlmF SCRIPT I nw : THIS ROUTIMF PROJECTS TOE INITIAL EARTH TARGET VECTOR RTINIT AHEAD THROUGH 

THEFSTIMATED TTMIFOE EL IGHT, INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR RTINIT INTO EASTERLY 
NORMAL CHMPMNFNIS RTF ATT 



AND RTNORW ."“TNTTTAl AND SUBSEQUENT 

ABOUT THE (EULII UNIT POLAR AXIS UNITW THROUGH THE ANGLF WIE DTEAROT - TO OBTAIN THE ROTATED 
TARGET VECTOP- . ALL VECTORS EXCEPT UNITW ARE HALF UNIT. ' — 

THF^ELUJATIUNS ARE 


WHFPTE 


RT 

or 


PTrriT + RTNORM (COSIWI) 
TITF DTEARDI 


I J ^ RTEAST STiN(WT) 


RTINIT ^ TNTTTAL TARGET VECTP''? 


RTEAST =■ UNTTW^PTINTT 


PTNOKM 


'TPAST^UNITW 


R0263 
R 0765 
^'OTGb 
R026T 
P 02 S 8 
RTTZSD 


FOR CONTlNUnUS UPDATING* ONI.Y OATE ^NTRY TO EARROTl IS REQUIRED. WITH SUBSEOUFNT ENTRIES AT EARR0T2. 
calling sequence: FIRST CALL SUBSEQUENT CALtT 

__ ^yiCAIL DThAT^TT 5TCALL DTEAROT — — 

— FARPOTl EARR0T2 

— "~CrN^ACr ONSPECT ETED C(HPAC) = DTEAROT — " — 

“ — PU5RrOC"= POTTOrV' APBITRARY. 6 LOCATIONS USED.-^^"" — — 


R0270 SUBROUTINES USED: NONF ““ “ 

RU2T1 NO^mL EXIT MODES : FVO _ 

R0272 ALARMS: NONF “ 

R0273 OUTPUT: RTEAST ( -I J .5 trnT VECTOR EAST, COMPNT np RTINIT LEFT BY FIRST CALL 

RDPO^F — ’TNiIRM (-1 ) 75 U»NIT VECTOR NORMLt COMPNT op RTTNT1 LEFT BY ETRST CALT 

R0277 ^ FT {-D .5 ON IT TARGET VrCTOR, ROTATED LEFT BY ALL CALLS 

R02T9 OTEAROT (-28)03 ^AY BE CHANGED BY EARPOTZ. IF OVER 1 DAY 

R 0 2¥D FRATAHTF 1 N 1 I 1 AL TTATIUN KEOUIREU! ~~ 

R0281 ““ UNITW (0)^ — “ tJMTT POL ATt- V F C T 0 R PAD LOAOED 

R0233 '?TTNTT (-1) .5 UNIT INITIAL TARGET VECTOR LEFT BY ENTRY 

RD2 8 5 “ D TF ARTO — 7-737 TTS TTO-^-^F FLIGHT — — — tEFT BY CAtLER 

P0727 DEBRIS: QPRFT, POL+O ... PDL+5 




ASSEMBLb KEVISIflN 05^ aJMANCHh 'W NA SA .^0 ^^l 1 i i-Ob i 


TOT 78" A PK. nr? 6 9 COMA 10 707^ 


C GFOMETRY 


USFR»S PAGE NO. 10 


PO 


5 

J 


0289 


REF 


1 > L AST 



rrrnnrr 


bBANK= HI IMIT 


0290 73,2215 ^^7375 a^lTAROOTl VLOAO VXV ^ - - 

0291 RFF T LAST 23,2216 0 1 7 1 A I [TMTTW FULL UN I I — V E C T OR 

0292 REF* A LAST 20A 23,2277 03A‘52' 1 RTTNTT “ .5 UNIT 

0293 REF 2 LAST 113 23,2220 03A60 0 STORE RTEAST .5 U^4IT 


0294 





^■>,2221 

77635 

1 

0 2 95 

RFF" 

A' 

L AST 

294 

23,2222 

07774 

1 ^ 


P EF 

2 

C3FT ■ 

11^ 

23.222 3 ■ 

17466 

TT* 

02^7 

REF 

2 

LAST 

178 

”23.2274 

03506 

1 


VXV 

tJNITW FULL UNIT 

STOOL RTNTiKM .3 UN IT — 

— DTEAROT t-23» CS 


0298 23,2235 562UA 7 tAKRill2 BOVB CTOV 

02'59 REF 1 2372226 57352 1 ‘ TCOANZ IG RESET OVFIMD, IF ON 

0300 REF 1 23,2227 06256 0 l/WIE 

0307“ “ 23, '’230 ' ^TTADO 0 TOV PUSH 

0302 RFF 1 23,2231 A62A5 0 OVERADAY 

0303 23,2232 A53A6 .1 COS DSU 

7J30A “RFF I 23,2233 15333 0 H I O P HAL E 

0305 23,-2234 63367 3) VXSC POOL XCM M PUSH LIST 

0306 RFF 3 LAST 294 23,2235 03466 rj- PTNOK" .5 UNIT 

“^307 23.2236 74356 7 STM VXS C 

0305 REF 3 LAST 294 -23,"2237 03460 0 RTEAST .5 UNIT 

0309 - 73,2240 76453-1 VAO VSL) — 

0310 Z3T2247 53455 0 VffTT UN IT I NSURE THA T S T IS « UNlT «i 

0311 REF 5 LAST 294^ — 23,2242 03452 T RTINIT .5 UNIT 

0312 “RTF 2"“LAST 118 2372243 0347A 3 STO^E rt .5 UNIT TARGET VECTOR 


0313 23,“2244 77616 0 RVO 


0314 23,2245 75345 1 n V E PA n AY ~DtTnm — S IGN 


0375 

0316 

RFF“ 

■RFF 

2 “ 

3 

1 AST " 
LAST 

294 
29 4 

Z3.2246 

27.2247 

06256 

08606“ 

0 

T 


I/WIE 

DTEAROT 

0 i 7 





7372330 

776 21 

"I 

B D SU 


0317 

PFF 

4 

LAST 

29^4 

22,2251 

036 0b 

1 

- 

DTEAROT 

031* 

7Er 

5 

LAST 

294 

23.225? 

0 36 06 

1 

STORE 

DTEAROT 


0320 23,2253 77650 1 GOTO 

0337 23,2254 46225 0 FARROTa 


A0322 WIE 20EC .1901487997 

0323 25,2255 01015 1 1/WIE 20tC 8616410 

0323 23,2 2 56 34 7 3 2 0 

1036 “ 23',2?57 155 73^- N82Mei 20EC +.9431756920 B-1 

1056 >3,2?60 71346 0 

7037 23TR-267 0 0 0 00 ' 1 0 

703 7 2^,226? OOOOt)- 1 

1035 23,2263 57311 1 20EC -.5376381241 B-1 

7033 2'^ , 7 2 64 653 07 0 



GAP 


ASSE'"'G|.P REVISION 055 UP AGL PkOGRA'* CiMAmCHE BY NA<;A 2021113- 



10:28 APR. 1 .1'36<3 CUMSTD TWZW — PTfTIt — 7^ 


L CS^T.FnwETFT? 


USER'S PAGE NO. 11 E7 S3 


1 039 


1 

T040 


"2T.726S 


Z3.2266 


23,2267 


ooino 

00000 

20000 


T TERINFLT 2T)EC 

1 ^ 

0“ 


XALFNELI 2DEI. 


1040’ 

1041 



73 , 227 0 

000 00 

1 




? ^ * 2 ? T 1 

00000 

1 

20EC 

104T 



23 f ?2 72 

00000 

~T~ 



0 


10 'i2 
104:2 
1043 

1043 

1044 
1044 


23.2273 10464 0 2DEC ♦.5376331241 B-1 

23.2274 124 10 1 _____ 

23.2275 OOtrOO 1 20ec 0 

2^.2276 00000 1 

23, 22 I / 15373 1 2TJE1: T~ . 3 431 75 6920 B-I 

23,2300 11346 0 



' 1045 ■' ■■23,3301 15373 1 NB1NB2 20EC ♦.0431 756920 8-1 

"'1043 23,2302 11346 O — ^ 

r047. ~ — 23, '33 03 00000 1 2trEC 0 

1046 “ 23,2304 00000 1 

1047 23,2305 10464 0 ?OEt +.5376381241 8-1 

1047 23T7306 124 10 1 

104S 23,2'3rr7 OOOnO 1 20FC— 0 

1043 23T23T0 000^00 1 

"3044 23,2311 2 0000"0 TXrT. '.3 

1049 ■ ■ “23 .■2312 00000 1 

1050 ■ 23,2313 00000 1 20EC 0 

TOSO 23, 2314 OOOTTO"1~ 


1051 23, "2315 67313 1 20EC -.5376331241 B-1 

1051 23,2316 — 65 307 0 

105? “ 23 ,?31 7 00000 -t 2trEC 0“ 

1052 23,2320 00000 1" 

, '^321 15373 1 2DEC ♦".S431756920 B-1 

1053 — 23,2322 11346 O — 


GA^ ASSe^^.^^Lt"pT\/t<;idN 05S /;f AGl Pf^OGl<TM‘'CTMANlCRt' ^BY NASA 2021HH-0'S1 10:28 At»P. 1,1969 — CUMAID .02 9 PAGE 29B 


T CS'^ GC-OMETRY ’ ^ tfSHR’S PAGE NO. 12 ET S3 


1054 23,23?3 0T020 I' lODFGS- DEC 3600 


\ 055 “ TTTTTI^ 60000 1 2 700EG OUl 60000 SHAFT 270 DEGREES 2S COMP. 

1056 00000 1 OCT 00000 


105^7 2TT2TZ6 61 T ACT 0 — 20CrFGS- DFC -07T09 

1053 “ “ 23,2327 7TTTT 0 DEC -OOOOO 


rT30 

1060 



23,2331 


07020 1 
OOOOO 1 


2 0L)EG- 


OEU 

DEC 


03600 

OOOOO 




U* 



tM 0(^5 Pf IG. Am C^^ymCHh BY NASA ;>»02 1 1 1 i-O I 


TD:78 APf-'. 1,1969 COMATH PAGH' 297 


L 


T MU CO>^PrN5ATT nN o 


U5FR»9 PAGF NO 


FO S3 


onni 

0001 ni PEF 
0T)T5I'07 
000? PXF 


01 00 


OllZ 

OllMO 


01 10 

01 1 
Oil) 
011^ 
Oil" 


nr: 


01" F 


rr 


FF 


I 


? LAST 


F 


FF 


1 

IT 


T 


T 


iV 







0-7,7 /ff,j 

06 ,7000 
TTFTTZFrT 
E3 , 1T60 


On, 3262 

0.*7T7F3 


TTS* 326 6 

06 ,37 66 
06 •326 7 
36 , 3 273 


3 3516 0 
"56 003 1 


1 /P T P A 


06,3264 54 163 1 


Trr4TT"0 
1 3271 1 
1 3271 1 
1'3T07 0 


r 

IMUCOUP 


BANK 

SFTLOr 
379TK 

FBATIK^ N3DX 


CAF 

3(01 


TXT 

TCF 

rcF 

TCF 


FOUNT — rnsTTCtm^ 


LGCPMP 

FBANK 

MHOS 


GTXP'IFOJ' 

+3 
+ 2 

TPIGl 


SAVE FBANK OF CALLING PROGRAM 


BYPASS TF G 



RETURN 


01131 
AOII 32 
Oil- 
0120 


01 71 

0172 

0173 

0124 

0125 
01 TT 


06,-^2 71 0 0004 0 


TNHINT 


oi: 


•?T 

_ t 


REF 

•^FF 


RFF 

"’EP 

FFF 


1 


4 LAST 


70 


FFF 5 LAST 297 

OFF T 


5 LAST 297 
1 


RFF 20 LAST — 74X 


06. 3272 

06.3273 

06,3774 
b,2?TS 


T6 ,37 76 

06 ,3277 
06 ,3300 
33.3303 

06 ,3302 


^ 5015 0 
54 132 0 


50 
3 

0 0006 


0173 





373,2303 " 

0 1 2 ' 

D PF 


LAST 

2Z5 

06 ,2304 

ono 

^FF 

7 

LAST 

?o7 

06,3305 

T)T^r 


7 

L A 3 

■ 79T‘ ' 

OFVTTTS 

012? 

'1 E F 

23 

LAST 


06, 3 307 

01 33 





06 , 3 3 13" 


2 F 

24 

L AST 

297 

06,2311 

0125 

Ofl 


L AST 

2 9 7 

06 ,3212 

0136 

3FF 

3 

T AST 

■^PT 

3T'-. ,33 13 

013 7 

REF 

9 

L AS T 

297 

06.33 14 

37333- 

7FF 

T 



06 , 3215 

0i3Sr 





0 , 3 2 1 0 

0140 

^ FF 

> 

LAST 

7 7 

06 .T?!? 

TUTIT" 





373733777 

0 1 ? 

^ ■rr rZ fZ 

' L. r 

73 

LTST 

234 

os. T^?l 

014^ 

PFf 

to 

LAST 

297 

06, 322? 

03~44 

■^FF 


L 

797 

06 , 33 73 

or^s 

KEF 

u 

LAST 

,?<5 7 

9 ' ,9224 


1 
r 

T 

5 013? 1 

7 1 1 62 1 

F4 "333 T 


3 0001 O 
33303703" 
7 501? 0 

50 132 1 

55' 163 a 


i/pypAi 


3 0007 0 


7 ‘^312 0 
50 132 I 
71336337 

50 -332 I 

3 4 52 t 


0 000^ 1 
7 10 1 

X 0006 1 
7 5017 0 
50 132 1 
' 153 - O 

10 137 0 


CAF 

TS 


INOFX 

CA 

EXTEND 


INDEX 

MP 




P 


3Uf +2 


BUF f? 
PIPASCF 


BUF 
OELVX 

3 


CA L 

EXTEND — 

^P BrT6 

INDEX BUF +2 
TS OELVX XL 



INDEX 

trs 

EXTEND 

EXTE N T 

MP 

T K«DE X 




BIT6 
BUF <-7 
0 33 V X" 

BUF +2 



l/oiPADT 


CCS 


Bill 
BtJF ^2 
OELV X 

BUF 4-2 


ASSURE CDMPLFTE CONPENSATION Of DELV'S 

FOR DnWNLTNKV _ — 

PIPAZ, PIPAY, PTPAX 


(P.P.M.) X 2{-9) 


(PPI X 2(+l4) NOW (PIPA PULSES) X 21+5) 
SAV E KAJOR P AR T 


MINOR PART 


SCALE ?(+"') 


SHIFT R IGHT 9 



StTMED 23^347 


MAJOR PART 


SCALE 2(4-9) 


SHIFT RIGHT 9 


( P IP A T ) > ( P TPTfTTSFFt 


( PIPA PULSES) / T f S t XXt-xr 
(CS) X 7(+8) NOW (PIPA PULSES) X 2(4-0)* 
SCALE ?f+14) SHIFT RIGHT 14 * 

(PfPAT) ^ (PIPAD t S F F) - 

PIPA2, PIPAY, PIPAX 





API ASS'rMRLL- R'^VTS ION 05“^ OF AG 



rA-rcnMANCHE by NAKA 20211ia-0bl 


l(r;28 APP. 1. 1969 



TT2^ 


I HU COHPENSATinN t ack AGP 


tfSE8‘S PAGE NCI. 


0 l4o 

0147 

^Ef 

~ 

1 

tm 


0n,33'25 

■ "s^rmr a 

AD NEGl 


RFF 

1 


06 * ^32 6 

1 32 T3 0 

TCF T/°IPAl +1 


Ol^i-8 




06 t 5 3 T 

13 3 30 0 

“RTTT7P 

LESS THAN ZbKfJ IMPOSSIBLE. 

01-^8 ] 




06t T330 

0 0003 1 

RFLTNT 







tt7s:pt 


P014^2 

014') 

“DTSTT' 


r!Lh Hh-VISLON 0!>5'~"^V^ A(;c PPf1G»<lA^^ Ci»MAMLHH BY ’^J ASA ?.0 ^ I T l ' 3-0 5 1 


TT^U COT^PFNSATTO^i ^ ACX AGF 





7 

T2 


LAST 297 



0 6 * 5 33 1 

TTF7T33? 


55»47'7 0 

5A 130 1 


TPIGCDMP T5 
TS 


0151 





06,3333 

0 

0006 

1 

0132 

REF 


1 arsT 

— T^TT— 

06 , i ^ 34 

“4“ 

1161 

"cr 

0153 

REF 

43 

LAST 

2°1 

06, 3335 

52 

1 c:S 

1 ’ 

0 1 4 

IFF 

1 



0 6,333 6 


1463 

i 

0 1 5 5 

3 EF 




“OrSTJTTT ' 

TF 

34T2 

0 

0156 




- - - 

05,3340 

0 

0006 

1 

015/ 

~fff 

1 



OoT3T41 " 


1165 


01*^3 

PEE 

44 

LAST 

299 

06,334? 

52 

155 

1 

01 '*1^ 

^ EE 

1 

— 


06,3343 

4 

1 4 6 6 

0 


TPTGX 


01 oO 


iTEF 


Z~T7rSl 2^ 


T7F 


rr3FT2^ 


GCOMPSW 
3TJT 


EXTFMn 

UCS 

nxcH 

CA 

TC 


OELVX 

MFAC 
AOI AX 
FCUN P S U B 


‘EXTEND 

TTTS 

OXtH 

CS 


DELVY — 
M P AF 
AnSRAX 

GcnnPsuB 



ATnn 171969 C ntot A T O 


USER’S PAGE NO. 


E3 S3 


INOICATP commands 2 PULSES OP LESS 
INDEX C OUN T ER - fRlG X t IRT CYt T R I G? 


rPTPA PULSE! 



(GYRO PULSES) /(PTPA PULSE) X 2(-3) ♦ 

" T AUTT ^ Xl rPT P AX ) CGY R O PULS E S^ ' X-^m F) 


f PTP A P ULSES ) X 2C»1A) 


(GYRO PUl SFS) /(PIPA PULSE) X 2(-3) * 

^ADSRAX) (PIFAT1 L G Y Rt T P U LSFSl X 2H^l^) 


^ 3 


ACl 

A0TF7A 


IT 

j 


AOloO 
A 01 "^.0 6 

A o r? ’17 


EXTEND 

mr5“~~ 

DXCH 

CA 

TX 


DEL V7 

MPAC 

AlOAX 

GCCJMPSUB 


t F tPA ^UL S E S T “X 7 A ) 




(GYRO PULSES) /( PIPA PULSE) X 2(-3) 
-CADOAX) (PIPAD tGTROTmtSFSt X 



om 
0 1 ? 

0163 
01 54 


^EF 3 
7FE I 


tt 


FAST 291 


FAFT P99 


06,3*^45 
3 346 


TT 


i » 


05,3347 

0775333 


4 r^xn 0 

'TT 


up: 


0 0006 
4 TIFT 


rr 


1 

n 


01 d5 
017)6 

R EF 

45 

LAST 

279 

76,3351 

52 155 

1 

0 

EE 

1 



06,3352 

3 1464 

01 6 7 

K EF 

■1 

L AS J 

299 

0/ ; f *5 3 

0 3417 

~rr 

0163 

— 

- 


- ■ 

06,3354 

0 0006 

1 

C179 

^ ef 




0 F,33F 5 

4 TIXT 

“X^ 

c 

h- 

i~4 

o 

REF 

46 

LAST 

2 99 

( ^ 4 J 5 

5? 155 

1 

0171 

REF 

1 



36 ,3357 

4 1467 

1 

0172 

'"PFF 

4 

FAST 

"797“ 

“06 ,3740“ 

77 34X2“ 

“7T^ 


I R T G Y 


CS 

TC“ 


EXTEND 

DCS 


DXCH 

CA 

TX 

EXTEND 

Ties 

DXCH 

XS 

re 


M 0 OX 
UR 


ortm? 

YFAC 
AOl AY 
GCOMPSUB 


DELVZ' 
MPAC 
AD SR AY 


(GYRO PtlLSES) /(CS) X 2(-5) 

-TNBDX) (IJELTAT)“ TGYRn RUtFEFt X 20 14J 


(P I PA P UL 



r X-21 Fi4) 


(GYRO PULSES) /(PIPA PULSE) X 2(-3) + 

- ( ADIAYl tPTR A Yl ( G YRTT F^ULFE S ) X 2(314) 


TFlPF—PtrLSESl X“7t^41 

(GYRO PULSES)/(PIPA PUL 
^ A1TSF crttTMTX tl" t GYR D 


) X 2(-3) ♦ 

FtftFFFI X 2t^l4l 


A01733 

AO IT’’ 4 

AOl "^25 
A01726 
A 0 1 ' 2 7 


01 ^3 


p Tf 
K 


1 


T 


m 


06,33fti 4 IA^>1 I 

■07,3332 Cr" 34 T r 0 


EXTEND 
DC S 
0 XC H 
CA 


CS 

TC 


DELVX"" 
MR A C 
ADO AY 


NBOY 

DRl FTSUB 


444 (PI PA 

444 
444 



X t 4l4) 


(GYRO PULSES)/(PIPA PULSE) 
- ( AOQA Y ) ( PIPAX) ^ tGYR O 


X 2( 



3 ) ♦ 

X 2 (+14) 


(GYRO PULSfS)/(CS) X 2(-5) 
■ t NBD Y ) (D E L TAT) (GYRO Fi 



X 2^f+14) 


01 75 
OTPT 
01 TT 
0 1 


TFTrp- 

'’EF 
f-' i-F 


47 

1 


7*^ 


LAST ^9^ 


0 5 , 336 3 
0^ , 33 64 
06 , 3 1')5 
0 6, ■ \ 6 ^ 


0 O') 0 6 
Til 6 


4^ 


5 2 


155 
3 16 70 


1 

rr 

1 

0 


I R TGZ 


EXTEND 

rres n ttVY 

tlXCH Mi>AC 


C A 


A!>S5‘ A 7 



( PTPA - PLRiSES) X 2 ( 


(GYRO PULSES) /(PIPA PULSE) X 2(-3) 


> 


gap: 


ASSE'-IGLE RFvT 5 tWiT 5 ‘; VGi, 



RAM CiJMANCHt RY NASA ^0^!lirJ-Obl 


10 J 28 AP 


tt 


r. 19 69 (,0WA1U 


xrz^ PAGE 300 


017 ' 


UTUTT 



d 
01 j4 


TOT^TT 

A OT^A^ 
A01345 
A OTW?; 
AOl'/^T 

"Cri^D'' 

0196 


T MU CnMPENSATTD'N ACKAX 
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E3 S3 


E F 


LAST 299 


06,33167 0 3412 0 


GGOMPSUB 


06.33 70 0 0006 I 


EXTEND 


T^E"— r 

REF 6 


LAST 300 


0E7T3T3 

06 , 3374 


J 146b 1 

0 3412 n 


TTA 

TC 


A rrr A 7 

GTOMPSUB 


EXTEND 

DCS 
OXCH 
ITS 

TC 


DEtVX 
M PA C 
AOUAZ 
GGOMPSUB 


K 


T 

3 LAST “299 


Od,3 W5 
06,33T6 


? TA- 62 - 0 
0 3441 0 


or 

TC 


NBPZ 

UPIFTSUB 


rADSRATt(PlPAY) (GYRO PlTtseS) X 2( + 14» 


0181 

■REF 

? 

LAST 

Z99 

OE , 3371 

4 1167 I 

“OCS 

(TEL VZ 

(PIPA PULSES) X 2(+14) 

019? 

‘7 FF 

48 

LAST 

?9D 

0^ f 3372 

3? 155 I 

DXCH 

M P A C 




C G T R O P ULS E $)/ (PtP A P ULS E 
-( AOIAZMotPAZ) (GYRO PULSeS) X 2( + l4) 


CPTPAT 



) X 2 (+ 14 ) 


( GYR O P ULS 
♦ (AOOAZXPIPAX) 



■ 

(GYRO POLSES) X 2(+l4» 


(GYRO 



+tN8DZ) (DELTAT) 


2 t-B) 

(GYRO PULSES) X 2(+14) 




I ■ ■ I MB I I o r ■ -I-'— i- 


t 


T I IH ■■ VIH I 






TTw\' -0'^^ HF y'A: 


TTT^ 




TfW 


CDMflMCHb ~^• Y ~' ^JASa 1 j-OSl 


L THU cr’MPFl'JSATIOri PACirvr.)^ 


01^7 


3 

1 AST 

2^9 

06-3177 

06 ,3"+no 

11 

1 47T“'0 

CCS 

GCOMPSW 

018^ 




1 

3 4-0? 0 " 

TCP 

«■ ' 

dlTT" 

RFF 


1 & ST 

29 7 

06 t .3 40 1 

1 

34 07 TO 

TTF 

TRIGl 











01^1 

RTF 

1 



0 6 f 3 ^ 0 ? 

3 

507? 0 

CAT 

pRin2i 

0 1 

^TTEF 

~T0 

I A ST~ 


06 , 3 40 3 

0 

"STlTiT 

"TC 

NDVAC 

01 

REF 


LAST 

29 9 

F3 • 1 460 



FO ANK= 

NBIDC 

0194 

^ FF 

1 



06-3^0 6 

' ’ "rr -f ‘ rm ■- 

n 

3476 0 

2CAnP 

l/GYRO 


Ol^'A VFF* ~1 »fc, JA03 1 AD 63' I 


■ " 01 95 





06,3406 

0 

0003 

1 

RELINT 

■oroT 

_ — — ^ ^ 

Rt P 

2 

LAST 

29 / 

06 t 340 f 

i 

0I'6J' 

0 1 H 1 b 1 


"T^nnE 

0197 

RFF 

16 

L AST 

?97 

06 f 3 610 

54 

0153 

0 

TS 

F RAN K 

0193 

F FF 

6 

LAST 

224 

04,341 1 

1 

46 7S 

0 

TCP 

SVRPTURN 


019^ 

7FP 

69 

\ AST 

300 

n6,3612 

56 1 56 

1 

GCONPSMR XCH 

MpAC 

02 00 





0 6 f 3 6 1 3 

TT OOW 

1 

FXTFNO 


0201 

p FF 

5 0 

LAST 

301 

06,3614 

7 01 44 

0 

MP 

MPAC 

0207 

■’EE 

16 

LAST 

70 

06,7615 

5? 123 

0 

OXCH 

VBUF 

0203 

9 FF 

51 

LAST 

301 

06,3416 

3 015^’ 

rr 

CA 

MPAC +1 

0 ? 06 





06 ,361 7 

0 Ot»t)6 

1 

FXTENn 


0205 

RTT 

52 

LAST 

301 

06 t 3 620 

7 01 56 

0 

np i^FQL 

0206 

REP 

21 

LAST 

2'=7 

05,3421 

56 OOl 

1 

TS 

L 

0707 

OFF 

27 

LAST 

29 1 

06,3622 

3 50? I 

1 

CAE 

ZF«n 

070P 

RFF 

1 5 

T AST 

301 

' 0'6,T623 

70 T27 

n 

HAS 

w > f 

0709 

7 FF 

16 

LAST 

30 1 

0 6 f 34 24 

3 0127 

0 


VBUF 

02X0 





U 6,3625 

■ 0 0006 

1 

EXTEND 


“ “ 0211 

IFF 

17 

LAST 

233 

06,3626 

7 5006 

1 

MP 

BTT12 

0212 

7FF 

13 

LAST 

209 

06,3627 

50 130 

0 

INDEX 

PUF 

02TT 

REF 

T 

l.AST 

39 

T)6 ,3630 

2P 472~ 

(J 

OAS 

TTCTTHP 

0214 

R 1 9 

17 

LAST 

1 

06,3431 

3 01 23 

1 

CA 

VBUF +1 

091 5 





06,3632 

0 0006 


" FXTFND" 


0 7 16 

REF 

18 

LAST 

301 

0 6,3 63T 

7 50 06 

1 

^p 

BIT12 

0217 

RFF 

22 

LAST 

301 

0 6 , 1 3 6 

56 001 

1 

TS 

L 

... 

0719 


23 

TTTST' 

TOT 

06 , 3635 

3 50 21 

T 

CAP 

rcPD 

0219 

P.FF 

16 

L AST 

301 

06,3636 

50 130 

0 

INDEX 

PUF 

0220 

^Tf 

4 

LAST 

301 

TJ6,7 63 7 

21*472 

0 

OAS 

GCOMP 


'!FF 3A LA3T Z<rr 05,3440 OOOO? 0 TC 0 


0331 
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U3'=R'S PAGE NO. 5 E3 S3 


ARE GYOn COMMANDS GRFATFR THAN 2 PULSES 
YES 

NO 


HIGHER THAN SEP VTCER-LESS THAN PRELAUNCH 


MK F D R RET U R N 


ADIA OP AOSRA COEFFICIENT ARRIVES IN A 
C I H P ACI (PiP A PPtSt^Ot 

(GYRO PULSES) /(PIPA PULSE) X 2(-3) * 

NOW = (GYRO PULSES) X 21+11) ♦ 


MINOR PART PIPA PULSES 



NOW = ( GYRO P UL S ESr x rt +131 * 

PARTIAL RESULT - MAJOR 

SCALE 2(+3) SHIFT RIGHT 3 * 

RESULT = (GYRO PULSES) X ?(+14) 
imTEDT AttrtPTLTr (Tft' Tm-ADSRArtD IPA I ) 

PARTIAL RESULT - MINOR 

SCALE 2(+3) SHIFT RIGHT 3 * 


RESULT = (GYRO PULSES) X 2(+14) 
(AOIAXPIPAI) OR (AOSRA)(PIPAI ) 


ASSE'fBLF FWT'^IOn OF'S OF A'iC. P'H!G i ^A -1 CJMflNCHb ' W NASA 


inJ?M 4F'-'. 1 , 1969 COMA If) 


fJ7<? FATTt 



1 I-I.I 'OUPtNSAT'I'nN PACICA'Gt 


•JSFfris PAGE NO. 


E3 S3 


02l'> 

02 ^ ^ 


1 R 

LAST 

301 

0/. , 3 44 1 

0 0006 

1 

1 

OR I FT SUB EXTFND 


0 • 3 4 4 2 

22 131 

OXCH 

BUP 4-1 

0224 














0T> • 3443 

0 0006 

1 

EXTETTD 


0 2 

o pp 

3 

LAST 


04 y 3 4 44 

7 1074 

1 

HP 

l/PIPADT 

0 ^ 2 o 

2^ . “ F 

53 

"LAST 

jrri 

^ 5 , 3 4 

22 15*^ 

Tn 

nOTFl 

■^PAC +1 

02 





06 y 3446 

0 0006 

1 

’EXTEND 


022R 

^ rr 

i— • 

IB 

LAST 

253 

064 3447 

7 5014 

0 

7V1P 

B I T4 

072 ~ 

^TTF 

TB 

LAST 

TTT2 

06* '‘"450 

50 "T 3 0 

TT" 

rNDEX — 

-BTTF 

02 2 0 

^ EF 

5 

LAST 

301 

T?6 y 345 1 

21’ 472 

Xf 

OAS 

GCOMP 


D2T1‘ PEF 54 

02 3 ? 

0233 PEF 19 

"(J2'34 23 

0235 REF 20 

0236 REF 17 

0237 RFF 6 


“LAST 302 063 3452 3 01 55 0 C7S W P A C Fl 

06.3453 0 0006 I EXTEND 

LAST 302 06,^454 7 5014 0 np rit4 

TUnn 3711 06T3455 54 001 1 TS — C 

LAST 301 06,3436 3 5021 1 CAF ZERO 

LAST 302 06,3457 50 130 0 TNOEX BUF 

I AST 507 06.3460 21'43r7-3) — — ros GCOM P 


CIA) = Area (GYRO PULSES>/(CS) X 2(-5J 
(CS) X 2T+5) NOW (GYRO PULSES) X 2t+3) 
SAV E F UR F RAC TIO NAL C O M PE NSA TI ON 

SCALE 2(*11) SHIFT RIGHT 11 


HtlNBO) (OELTATI (GYRO PULSES) X 2(+14) 

N O W M I N OR F ART 

SCALE 2(+ll) SHIFT RIGHT 11 


ADO IN FRACTIONAL COMPENSATION 
TireoriDE L T A T) ( G Y R O mjL SE S ) X 7tA^lA) 


0233 

REF 

7 

02 39 

p:ff“ 

IB 

0240 

REF 

10 

0241 

7EF 

TA 

02 42" 

0243 

RTF ” 

T 

0244 

^ EF 

20 


LAST 270 06,3461 3 5016 0 0RFTSUS2 CAF 


C4ST “302 36‘,~r46T"-5“0T30“O JTD 

LAST 302 06.3463 56 1 30 O XCH 

LAST 271 316,-3464 50-000 1 INDEX 

LTTST 307 06.346 5 11 » 4 7 1 0 CTCS — 

06.3466 1 3470 0 TCF 

LAST 302 06,3467 0 0131 I TC 


TWO 


BUF 

A 


62 

8)1F +1 


PIPAX, PIPAY, PIPAZ 


AR E G Y RO COMMANDS 1 P UL -Se-0R“01E€1ETE3 

TES 

NO 


0245 

0246 

PEr 

REE 

10 

75 

L AST 
LAST 

2 59 
302 

06t3470 7 7716 

06 y 3471 10 000 

1 

0 

MASK 

CCS 

TI^EGONE 

A 

ABE 

GYRO COM^^ANOS 

GREATER THAN 2 PULSES 

0247 

0243 

R t F 

R c F 

21 

L ftST 

LAST 

3TT1 

302 

06y i472 55*4?f 

06,3473 0 0131 

0 

1 

TS 

TC 

GCOMPSW 

BIJf 

YES 

NO 

SET GCOMPSW 

fiOSf T T VE 


PULSES 


f 





STfFl A5''>EMRLF V !.<; f OM O r"i l|^ 'MiC P*lOGUAM CDMANC Hh tfY NA^A ;j0^11L3-Ubl 10!28 APK. 1. 196 ' ^ — C OHA I D TXTZ^ — PACE — 3t)3 

L T MU TUHPENSATTONTACKAT,'^ " USE'’* S PAGE NO. 7 E3 S3 


02 f9 ■p’FF 2 LAST 297 06TT474~ 3 501 T C 1/GYPO CAP FTTOR PTPAZ. PIPAY. PIPAX 

0250 PEP 22 LAST 302 0653473 54 130 I T5 SUE " ~ 


0251 "TEF 23 7 AST “303 06 ,3476 50 130 0 

0252 PEE 3 LAST 302 06,3477 3 1472 1 

■0233 06,3500 0 0006 1 

0254 PEE 18 LAST 202 06,3501 T“5010 1 

0255 TEE 24 LAST 303 06,3502 50 130 0 

'0?56 Trf F“ 7 CAST 303 OS ',3503 55' 472 D 


INDEX SUE SCALE GYRO COMMANDS EOR IMUPULSE 

CA GCOMP *1 - FRACTIONAL PULSES 

EXTEND 

Mp SITS SHIFT RIGHT 7 — 

INDEX SUP 


0257 RPP 
■0255 PXF 



— 

0259 

0260 


10 


0261 

6 F 

“Tr9 

' 

026? 


26 


0263 


11 


LAST 

CAST 

LAST 


LAST 

LAST 


302 06,3504 3 5021 1 

303 057T5xr5 — 5rrT3rro — 

303 06,3506 57*471 1 

06.3507 0 0006 1 

303 ns ; 3510 7 5010 “I 

303 06,3511 50 130 0 

303 06,3512 21:' 472 O 


CAP ZPRO 

INDEX BOP — 

XCH GCOMP 

EXTEND 

■MP BTTB ■ 

INDEX SUE 
DAS GCOMP 


SET GCOMP = 0 FOR OAS INSTRUCTION 


GYRO PUL 



ADO THESE TO FRACTIONAL PULSES ABOVE 


02 6^ 

RHF 

27 

LAST 

T03 

06 ,3513 

10 130 

1 

CCS 

8UF 

PIPAZ, PIPAY, PIPAX 

0265 


2 

LAST 

298 

06,3514 

6 7T16 

0 

AO 

NEGl 

- 

0266 


2 

TAFT 

301 

0 iS » 3 5 i 5 

“T 

0 

TCF 

1/GYPO +1 


02 6?- 


12 

LAST 

303 

06,3515 

oi4rr 

or LGCHMP 

EC ADP 

GCOMP 

LESS THAN ZERO IMPOSSIBLE 


02 OF 

hr 

— 2r 

LAST 

297 

06,3517 — 

3~T5TF- 

"0 

CAE 

LGCOMP 

026 9 

RFF 

36 

LAST 

263 

06,352t) 

0 4662 

1 

TC 

BANKCALL 

0270 

pff 

2 

LAST 

243 

06,3521 

17706 

0 

CAOR 

IMUPULSF 

02T1 

HEF 

35 

TTiST 

303 

06 , 3527 

0 4662 

T ' 

TC 

BANKCALL 

0277 

RFF 

5 

LAST 

243 

06 ,3523 

1 7577 

1 

CAOR 

I MUST ALL 

0273 

REF 

1 3 

LAST 

267 

06,3524 

1 521 7 

1 

TCF 

FN DOF JOB 


“ 0274 R“EE 3 LAST 303 06.3525 3 5015 0 GCOMPl CAE FOUR 

0275 PEE 28 LAST 303 06^3526 54 150 1 TS BUE 


CALL GYRO TOROUING ROUTINE 


WAIT FOR PULSES TO GET OUT 
TEMPORARY 


PIPAZ. PIPAY, PIPAX 


^ 0276 

REF 

29 

0277 

REF 

173 

0278 



' ~ 0279 

RFF 

70 

0280 

RFF 

30 

OZBl 

■R'FF 

T 4 


LAST 303 “OC.3527 50 130—0 INDEX BUE RESCALE 

LAST 303 05,3530 3 1472 1 CA GCOMP +1 

■ 06,35 31 -tr 0006““! EXTEND 

LAST 303 06,3532 7 5010 1 MP BIT3 SHIFT MINOR PART LEFT 7 - MAJOR PART = 0 

LAST 303 06,3533 50 130 0 INDEX SUE 

L A ST 303 0'6,3534 23 * 4 7 2 t LXCH G COM P -H S TTS A -14 OF M INOR PART W ERE ~=^Q — 


0282 REE 31 LAST 303 06 . 3435 1 0 1 30 1 CCS SUF PIPAZ, '>IPAY, PIPAX 

0 2 83 REF 3 LAST 303 06,3536 6 7716 0 AT) NECt 

0284- FEE — 1— D6T2437 1 3526 1 TCF GCOMPl +1 

0285 06i3540 01436-1 V06N3OS VN 0630 

— — -0286 REF 14 “LA ST 303 06,3541 1“ 521 7 1 TCP E NDUP J O S 



GAP 


L 


^SGFMRI 




FV'IStnM 05 




F AGC PreHGRAM C' 



t3Y^ASA 
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T MU CO^p-NSATTHM paCKAGF 


USFP*S PAGE NO. 


F3 S3 


0237 

D Cp 

5 

LAST 

10? 

06,3542 

1 1 * 47^ 

0 NBOONLY 

CCS 

GCOHPSW 

BYPASS IF GCtJWPSW NEGATTVF 

0286 





06,3543 

1 3546 

1 

TCF 

+ 1 


023 9 

2 E F 




06,1544 

1 3 5 46 

1 

TCF 

+2 


02^0 

iF** 

1 5 

L AST 

301 

Oo , 3 p 45 

1 5217 

1 

TCF 

ENOOF JOB 


029005 





06, 3546 

0 0004 

D 

“TNHTNT 



02 701 

4 FF 

6 

LAST 

200 

06,3547 

10 076 

1 

CCS 

FLAGWRn2 

PREREAD T3RUPT MAY COINCIDE 

0Z90Z 

IFF 

16 

LAST 

304 

06,3550 

\ 5217 

1 

TCF 

FNOOF JOB 




02P0A 


Tf 


FF 17 



^6,3'5 51 

06. 35F2 


T 521 r 1 
1 3551 0 


TCF 

TCF 


FNDHF JOB 

+ 1 


02'^~ 

02P? 

02925 

T)791~ 

0294 

0 2 95 

0296“ 

0297 

0^'^S 

02^9 

0100 

Trim 


P^FF 
^ F F 


IFF 

PFF 

7TF 

p rp 


"PPF 


4 

4 


5 

76 

13 

1 


LAST 

LAST 


LAST 

LAST 

LAST 


10 2 


304 

102 

Z70 


LAST “304 


FF T LAST rOTT 


O 6-7155 1 

06.1554 

06.1555 
■0673356- 
06,3557 
06,1560 
0 

06,1562 

0^,1561 

0633554 

06 . 1565 

06.1566 


6 , 


1“ 0075 
57 » 074 
0 0001 

5 -ooryo 

6 107^^ 

10 oon 

6 5017 

1 3567 
1 35 65 


Tf 

0 

1 

0 

0 

0 

T 

1 


0 

1 5217 1 


0000 o 

4777 1 


NBD2 


rA“ — “ 

XCH 

PFLINT 

roo — 

AO 

CCS 

3D 

TCF 

TCF 


TTMFl 

1/PTPAOT 


1 /PIPAOT 
A 

OfTF — ^ 

MB 03 
+ ? 


orn 



2 (+14) 
PREVIOUS TIME 


CALCULATE ELAPSFO TIME 
Ntr-TTH Et nv c R Ftnw ^ 
RESTORE time DIFFERENCE 
TIME I UVERFLQW 




ANO JU'^P 


E PE N CE = -Ot 


CALCULATE ABSOLUTE OTEFERENC 


Atr 


0302 

0303 
03 04 
0105 



LAST ITT 
LAST 101 


0111 

0319 

0170 

0321 

0322 


IFF 21 


2 

1 


•> - p 

REF 


LAST 

LAST 

LAST 

LAST 


104 

104“ 

300 

^.04 


0 6 ,3567 

TT^ 




, - 70 
06,1571 

0643 6 90 


0 3 1 ) 4 

irrr 

TO- 

TTTTr 

LAST 

“■304 

05 - 73 x 7 3 

0307 

PFF 

55 

- 302 

06,1574 







0307 

"7FF“ 

3rr 

LAST 

“TOX 

05 ,3575 

030P 

- EF 

-n" 

rs 

s •• 

LAST 

304 

0 1 , 15 7 6 

031 0 

r c 

32 

LAST 

303 

06. 1577 

0311 

RFT 

5 

LAST 

101 

0-^, 3 60 0 

0319 

IFF 

1 



06 ,3601 

0311 





06*3602 

0314 

OFF 

20 

LAST 

304 

06, 3603 

03T5~' 


5 5 

LTST 

30^4 

“06715 OX 

0316 

REF 

2 

LAST 

29P 

06,3605 

031 7 

9EF 

9 

LAST 

3 04 

06 ,16 06 


t36 , 1 6 07 
06* 3610 
06', ^>61 1 
O,' , ^612 

0 6 , 3 6 I 3 


0 oao6> 1 

TIOO'S 0 

52 121 0 
0 0trO6 1 
3 0123 1 
52 1 55 1 


3 5021 1 
55*477 0 
54 130 1 


4 1460 0 
o 1617 1 

0 0006 I 
4 0123 0 

1 1461 0 
0 3617 1 


O 0006 I 
4 01 2T 0 


4 1462 1 
0 36 1-7 ] 


N 303 


OXCH 



EXTEND 

HP 

DXCM VBUF 
EXTEND 


TS 

TS 


CS 

TC 


EX TEND 
DCS 

OXC H- 

CA 

TC 


FXTENn 


DXtTt 

CS 

TC 


VBU E 

M R AC 


GCOMPSW 

BUF 


NBOX 

FRi ASSU8 


VBUF 

MPAC 

NBOY 

FBI ASSUB 


VBUF 

M R AC 


N 6 0 Z 

FBI ASSUB 


C(A) = OELTAT 


(CS) X 2(+14) 



OFLTAT NOW SCALED (CS) X 2(+19) 


(NOICATE COMMANDS 2 PULSES OR LESS 
PIPAX, PfPAY, PIPAZ 


(GYRO PULSES) /(CS) X ?(-5) 

-(NBDX) (OtLTAT) (GYRO PULSES) X 2(+14) 


flrTT AT SCALeO (CS) 


2( +l ^)~ 


(GYRO PU1SES)/(CS) X ?(-5) 

-(NBOY ) (DEITAT) (GYRO PULSES) X ?(+14) 


O F t -i^ A T SC/^t - PO ( C S ) X 2 ( + 1 9 ) - 
(GYRO PULSES) /(CS ) X 2 (-5) 

+(N80Zy (OFLTAT) (GYRO PULSES) X 2(+l4) 


lot 23 APR. 1 , 1R69 — CITOTn '.Tf7w~ PSGE 305 


USER'S PAGHNO. 9 E3 S3 


RtF 7 LAST “30A OS.'SSIA ll’ATT 0 CXS TJCDWPSW ARE GYPn COWANt>S”GRSATER THAN 2 PULSES 

REF LAST 303 OS', 3515 1 3A7A 1 “ TCF l/GYRO YES 

~ RFF 19 LTTST 3TT2r 037731 '6 1 5217 1 TCF ENDUFJOB NO 


ASSEMBLE REVISION 055 OE ASC PROGRAM COMANCHE BY NASA''ZTrzn 17-05 1 


T.MU 'COMPENSATTLlTQ^PACKaOE 


TZfP: Rf^VlSinn 0'55 Oh tf'C PIUIGHA^^ CUMANCKE'BT NASA 2U21113-051 









T MU COMPENSATION! P 

ACKAGE 












0 3 ? 6 

REF 35 LAST 301 

06 . 36 17 

5 b D02 

0 

FBIASSUB XCH 

0 

0327 

RFF 33 LAST 304 

06 . 36 20 

5^ 131 

0 

TS 

BUF 4-1 








0323 

RFF 36 LAST 306 

06, 36 2 1 

3 0002 

0 

C A 

Q 


0329 06. T6?? 0 0006 1 — FXTEND * 

^yT3F PTF W 06 1 3623 7 0154 0 wp mpaC 

0331 5EF 34 LAST 306 06,3624 “5a 130 0 TNOHX BUF 

033? PFF 15 LAST 303 06.3625 21*472 0 DAS GCOMP 


?FF 37 LAST“ 306 06,3626 3 0002 0 “CF 0 

06.3627 0 0006 1 FXTFTO 

5 0 “ LASI 306 06.363 0 r 0155 1 MP HP AC +1 

PEF 24 LAST 302 06,3651 54 001 I TS L 

REF 32 LAST 304 06.3632 3 5021 1 CAF ZERO 

RTF 35 “LAST 3776 06 ; 36 3 3 50 130 IT INDEX BUF 

RFF 16 LAST — 306 06,3634 ^♦472 0 OAS GCOMP 


0333 

0334 

03 

0336 

0337 


0339 


10! 23 APR. 1 . 1969 C OMA I O 7 027 P A G E 306 


tlSFR*S PAGE NO. 10 F3 S3 


NBO SCA120 (GYRO PULSF S J / ( CS ) X 2(-5J 


OELTAT SCAtFD tCSI X 2C+19) 


HI (NBOMDEfTAT) (GYRO PULSES7 X 2(4-14) 


NOW FP ACT TONAL PART 


(NRO) (DELTAT) (GYRO PULSES) X 2(4-14) 


0340 TFF 1 


06. '3 63 5' — r“346T“a““ TCF 


"DRFTSUP2 




034 01 
03402 



36 

“1 


LAST 303 


TOV365K 

06,3637 


0~4662 1 

17156 0 



CAOR 


P T PUSf 


(1341 PFF 

0342 

0343 

0344 REF 


LAST 105 — 06. 3640 11*47 7 O 

06 ,5641 1 36 44 0 

06.3642 1 3644 0 

20 CAST 3TT5 06, 36 43 15217 1 


CCS 

TCF 

TCF 

TCF 


+ 3 
4-2 

EnnoFJOB 


0345 RFF 1 06,364A 3 7665 0 CAF PPIOSl 

0546 RTF 6 ' LAST “'504 06,3645 57*074 0 XCFf 1 /TtPAOT 

0347 ~ 06,5646 4 OOOO 0 COM 

034B REF 4 LAST 178 06,3647 6 1246 0 AO PIPTIMEI 4-1 

0549 REF - r— 06TT65O 1 3560 0 — - pCF" NBD2 




f- SECONDS SCALFO (CS) X 2(4-8) 


TIME AT PIPAl =0 


cnsi AS<;cMl^Lfr f^^VISIGN 055 OF A'^,r;' PROGRAM C’lMANCHE BY NASA ri3-05 1 TUrzS~-l^vw^ ni^69 — COWATO rO?9 PAGt TOT" 


I PINBALL GAME BUTTONS AND'XTGHTS USTR^S T>AGF NOr 1 EO S3 


POOOl PROGRAM NAMF - KEYBOARD WD" DISPLAY PROGRAM' "" ' 

R0002 '^OD NO “ 4 DATE - RR APP IL 1067 ' ASSEMBLY - PINOISK REV IT 

RDTIUT MOD BY - ETLENE 

R0n04 LOG SECT! ON “^PINBALL GAME" BUTTONS AND LIGHTS 


RODar FUNCT I GNAL Db SC P I PT I UN- 


~~ ROOin THE KEYBOARD AND OISPLAT SYSTEM PROGRAM OPERATES UNDER EXECUTIVE 

TTDirn XDNTROL 'AMir PROCESSES INEMRMAIION EXCHANGED BETWEEN ! HE AGT AND THE 

R0012 XUYPUTEP OPERATOR. THE INPUTS TO THE PROGRAM ATTE FROM THE KFYBOAROt 

~ ROD 13 FROK. internal PROGRAMSf AND FROM THE UPLINK. 

ROOT^ THE LANGUAGE OF CU»^MUN I C A T lUN WITH THE PROGRAM IS A t^ATR OF WORDS 

“ R0015 KNOWN AS VERB AND NOUAT. EACH OF THESE IS REPRESENTED BY 2 CHARACTER 
ROOIS DECIMAL NUMBER. THE VRR3 CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE 

RDDIT iTDUN'DCUDb iNDlCAIbS TO WHA 1 — (HIS AC I ION IS' APPLIED. NOUNS USUALLY 

^ ROOIB REFER TO A GROUP OF ERASABLE REGISTERS. 


R0020 VTRBS ARE GROUPED I NHI D! SPLATS'," LOADS , TTONTTORS “TOT SFL AYS THAT ARIT 
P0071 UPDATED ONCE PEP SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBSdHESE 

R0022 ARE OUTSIDE OF THE DOMAIN OP PINBALL AND CAN BE ^OUNO UNDER LOG SECTION 

R007B : EXTENDED VERBS :T: " “ 

P00?4 A LIST OF VERBS AND NOUUS IS GIVEN TN^LOG SECTION rASSEMBLY AND 
R0025 OPERATTON INFTJPMATroUiT^— 


R0026 CALLING SEOUENCES- 


P0D'’7 KEYBOARD: “ 

R002B EACH OPPRESSTONOF A '^A I N (NAVTGAT I ON ) KPYBOARO BUTTON ACTIVATES = 

— RDDZ^ I'NTT P R UP T K EYFUPTl ( KF YR U!'-'! 2 1 AND PLACES THE 5 BTTKEY CODE INTO ““ " 

'R00291 XHANNEL 15 (CHANNEL 16). RPYRUPTI (KEYRUPT2) PLACES THE KEY 
R0030 CODE into MPAC. ENTERS AN EXFCUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY 

“RODTr PTOGPAM (AT iCRARTNir, AND EXECUTES A“RESUME“; 

P0032 UPLINK: — “ 

R00B3 FACH WORD RTCEIVED BY"THF UPLINK ACTIVATES INTERRUPT UPRUPT WHICH = 

R0034 PLACES THE 5 BIT KEY CODE INTO '^RAC, ENTERS AN EXECUTIVE REQUEST FOR THE 

R003B KEYBOARD AND DISPLAY PROGRAM ( AT : C HARIN : ) AN 0 EXECUTES A PFSUMP. 


R003 6 
RDOB/ 
ROOB^ 

P 0 OSF 
TO 040 


INTERNAL PROGRAMS : 

INTERNAIr PROGRAMS CALL PINBALL AT ;NVSUR: WITH THE DESIPFO VERB/MOUN 
COOT TN' TT'TLOW 7 BITS P'OR MOW, NEXT — 7 BITS FOR VERB). DETAILS 
0ESCRT3EtrTIfY“PfMARKS CTFtDS JUST BEE-UR E rNVSUB : AND rNVSBWAIT: (SEE 
SYUBUL table for PAGP NUMBERS). 


i>0045 normal exit MNOES"- 


R0046 IP PTNPALL WAS CALLFDBY EXTERNAL ACTION, THERE ARE FOUR EXITS: 

RC046n6 1) ALL BUT (?), LB), AND (A) PXIT niRECTLY TO FMDOFJOB. 


G^AP^ P.FViSinN C)5s OP STX Pl^TTGRAM CC3MANCTrE”W“NASA ^O^TI Fi-O i> 1 10:2H APP. TTTW? — COMAID 702^9 PTOf JnS 


L ’’TNTBALL GA^F “BlJTTa^JS A^n LIGITTS USER*S PAGE NO. 2 EO S3 


R00461 2) extended GO TO THE EXTENDED VERB FAN AG PART OF THE^ 

R004615 PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT I S THE 

R 00 46 2 RFSPONSIBirrT?'“nF THE EXTENDED VERB CALLLD TO EVENTUALLY 

R00463 C HANGE PRIORITY T IF NECESS ARY ) AND DO' AN ENtTOF JOB . 

R004635 ALSO FTNBALL IS A TJDVAC JOB. FBANK SFT FOR COMPTON. 

R 00 TT’VERB 3 7.~CHA1TGE W TROGRAM (MAJUR MUDh I CALLS iTIT! IN THE 
R0046S SERVICE ROUT INFT“^ PART OF THE PTNBALL EXEC JOB WITH PRIG 

R00466 30000. THE NEW PROGRAM CODE (MAJOR MODE I IS LEFT IN A. 

R'OOAET^^ 4] KEY RLLbASE BUTTON CALK !PTNBPNCH: IN THE DISPLAY INTERFAC 

R0046B ROUTTNFS AS P7IRT OF THF PIIMBALL EXEC JtTB WITH PR 10 30000 IF 

R0046 G THE KEY P EL EASF“L TGHT “IS OFF AND t CAORSTOR: I S NOT +0. 


R0047 IR PINBALL WAS CALLED 3Y INTERNAL PROGRAMS* EXIT FROM PTNBALL IS BACK 

R0043 Tn CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CAROS JUST BEFORE 
ITOOAG ■MSTVGUB: APTIT^TNVSBWAI I i ISEF SYMBOL TABLE FDR PAGE NUMBERS). 


ROnSO ALARM^ OR ABORT EXIT MODES- 

ROO^l EXTERNAL INITIATION: 

R005T IF SOME TMPTUPER SEOUENCE OF KEY CODES IS TJETECTEO* THE 

" R0053 ERROR LIGHT IS TURNED ON AND EXIT IS TO ^ENOnEJOB:. 


R00B4“ " I NTbRNAL^ PROGRAM TNIITATTON! 

R0055 TR AN ILLEGAL V/N COMB I NAT ION IS ATTEMPTED* AN ABO^T IS CAUSED 

R0056 (WITH OCTAL 01501). 

R005F1 TF A SECOND ATIFMP"! — TS MADE TO GO TO SLEEP IN PINBALLi AN ABORT IS 

POO'^SB CAUSED (WITH OCT AT 01 2 06 ) . THERE ARE TWO VfAYS TO GO TTT SLEEP IN PINBALL: 
R00563 1) ENDIDLE OB OATAWAIT; - 

R 0 nSFT 2) NVSBWAir, PRRNVBSY, OR MVSURUSY. 


R0057 CONOTTIONS LEADING Tn THE ABOVE ARE DESCRIBED IN FORTHCOMING MfT/IL 
W0XJ5B E-RFPORT DESC^IBTNG KEYBOARD AMT DISPLAY OPERATtON FOR -2TB7 


TUTPUT- 


RvOObD 

RDWr 

R0062 

R0063 


TMFORMATIOM TO BE SFNT TO t HE DISPLAY PANEL IS LEFT IN THE tOSPTAB: 

“BUFFERS ~RFGISTERS tUNOFR-FXTC CONTROL T. rDSPOUT: (A PART OF TBRUPTI 

HANDLES THE ^LACING O^ THE rOSPTAB: INFORMATION I NTtTTIUT^^^UT CHANNEL 10 
IN INTERRUPT. — ^ — ^ ^ 


R0064 RRASABLE INIT lALt Z ^TITTN^ 


R0n6F 

R0066 

R0067 

R006F 


FRE SM S T AR AND RE START I N I T I AL YHF“NECESSA RY F RFG I STEP S FOR 
^IMBALL IN xSTARTSUB:. REGISTERS ARE: DSPTAB BOFFFRr CADRSTQRt 
^ FDR PT . C L P A TT S* D SPL ^ CK * " MON S A Vc4 Mn^rS AVF l ~ . VERBRFG* NOUNREG* OSPLIST 
DSPCOUNT, NOUT. 







4 


¥ 

« 


<7* 


• > . 


I 




5 A? : ASSE*<BLE ^EVISIClN 05‘.' OF ftGC PKOGRA'^ C^'^A^!CH^- BY NASA ZO^ll 1 .-S-Ub 1 lOt '-’B AP'-'. ITW5^ CUHAIU PAGE 70V 

L “ PINBALL GAME “BirTTOMS AMO LIGHTS USER’S PAGF MO. 3 EO S3 

R006'^ A COMPLETE L I ST OF ALL TRE’ PR AS ABUTS “TBOTH ILBSERVEO ANtT TEMROR AR I ES ) FOR 

ROOTO PINBALL TS GIVEN BELOW. - - 


R0071 TIT FOLLOWING ARE OF GENERAL INTEREST- 


ROOT? REMARKS CARDS PRECEDE THE RFFERENCEn SYMBOL DEFINITION. SEE SYMBOL 

R0073 TABLE tq FIND APPROPRIATE PAGE NUMBERS. 


R007A NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL. 

R0075 OF RELATED INTEREST NVSBWAIT 

ITDDTS NVSUBUSV 

R0077 ■ ■ ORENVBSY 


RDtPB ENDTDLT R O U T INE m-’ INIEKNAL PRUGRAMS WISH I NG TO GO T O S t 

R003A AWAITING OPERATORS RFSPONST. 


ROOBST 

R003S7 

R003S2S 

■R0ir357T“ 


R00353 RLANKSU3 ROUTINE'BY WHICH AN““rNTERNAL PROGRAM MAY BLANK ANY 

ROOTBA COMRINAT I L 'N O H I HE DISPLAY REGIS TER S R l. R?. R3. 


R00355 JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE 

frO0356 JAMFROC EER M 1 NA I E I V 3 AT“T!T' PROCEED (V 331 FUNCTION. 


R0036 MONITOR - VGRBS FOR PERIODIC ( 1 PER SEC) OIS“LAY. 


DSP MM RDTJ r I N I- '-By 'WH I C H A N TNTTRTTAL” PROGRAM MAY DISPLAY A D E CIMAL 

PROGRAM CODE ( majDR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS. 
(DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXFC REOUESr 
FOP OSPMMJB WUH'PPT O 3 'CT O D O and R ET URNS TT XAtL EO . T 


R0086t PLEASE PERFORM, Pi EASE MARK SITUATIONS 

R0036? RFMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE 

“IIU03ET THESF STTOATTOMS CAN BE FOUND JUST BEFORE tNYSUBT TSEE' ' 

P0086A SYMBOL TABLE FOR PAGE NUMBER). 

R0037 THE NOUN TABCrrORMAT IS — D ES CR T B EP OM A^ PAGE OF R EM ARK S" OAR-DS OWET 

R003S BEFORE :OSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER). 

R0039 ^ THE NOUN TABL PS THEMSELVES ARE- FO UNP I N -LOB S TC T Itl W ! P I MBAL T -NOON 

R0O391 TABLES:. “ ^ 


RODTO FOR FURTHER DETAILS AftftlLT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM 

BOOBl — PROGRAM. SEE THE MISSION PLAN ANO/OR MIT/IL E-2I29 

“RIKTP7 DESCRIBING KEYB'NLRTI AND DISPLAT OPERAriON FOR ?7S. 


RO I B O 







THR O UGH ' TH E COURTESY OF THE AUT H ORS. 


P 0 1 G 1 


::IT WILL SE PROVED TO THY EAC? THAT THOU HAST MEN ABOUT THEE THAT 


gap: ASS-MPIE REVISION 653 rir"SGC 'pRrjGRAM COMANCHE BY NASA 2021113-051 10:28 AP'^. r.196'1 — COHA 10 — PTCOE — 5T0 


L PIWALL GAME ■ ■BOTTHT^S ANH LIGHTS USER'S PAGE NO. tf eo S 3 


ft 0152 USUALLY TALK OF A NOUN AND 4 VERB. ANXT SUCH ABOHTNABLP WORDS AS NO 
R 01 S 3 CHRISTIAN EAR CAN ENDURE TO HEAR.:: 


ROISA- ■ HENRY 6, ACT 2, SCFNE A 


R 0 I 5 S THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE 


R 0 I 5 S RESERVED FOR PINBAXC EXECUTIVE ACTTON 



ROi ) 

■Roise 

ROl 59 
R0160 
Roisr 

R016P 

RDIS‘3 

ROl 

R 0165 

Rorso 

ROl 5? 
ROl 6 3 

ROITO 


“R-OI-r^ 
ROI^^e 
*5 0135 
R0TR5 

R 0137 
Rt» 1 R3 
“KOTO 9 
-p-ni9a 
R 0 19 T 


DSRtTUMT ER'AS^:' 
OECRRMCH ERASE 
VFPBREG ERASE 
NUnMREG' 

XRE9 


YREG 
ZR EG 
XREGLP 
YR'^GLP 
HTTrwrnrr ^ 


r 

ERASE 
ERASE 
I?R A S F 
ERASE 
ERASE 


nTFPLAY PnSTTTON TNOTCATOR 
+OEC. - DEC* nCT INDICATOR 
VERB CODE 

NOUN CODE — ~ — — — 

R 1 INPUT BUFFER — 

R 2 INPUT BUFFER 
RO INPUT 


YPFGIP 


TREGtP ERAS^ 
XOTF^OUT~= 


TREGLP 


R 0 1 71 

MODREG 

FPASE 

R 01 T 7 

DSP LOCK" 

Ek a S E 

R 0173 

REQRET 

PRASE 

P 0174 

LOAOSTAT 

ERAGC 

ROi Jb 

L L H A S S 

PRASF 

R 0 1 T G 

"NOUT 

ER A S E 

P 0177 

NOUN CADR 

ERASE 

R 0 1 7 3 

MON SAVE 

EP AS E 

R OITO ■ 

"MONSAV^l 

ERASE 

R 0179 5 

VON SAVE 2 

ERASE 

RDTRD 

DSPTAB 

'ERTLS'E' 

ROlPl 

CAORSTOn 

tRASF 

R 0132 

NVQTEM 

ERASE 


LO OART OF XRFG (FOR DEC CONV ONLY> 
LO PART OF YREG (FOR DEC CONV ONLYJ 
T E^^ P F O R D TSFtAr r O F HR S * l * 1 T Nf SFC — 

MUST = LOTEMOUT-l* 

P 1 IRT OF ZPEG tTOP DEC CONV ONLY! 

" DT SP LA T O F H R S* M I N, 

MUST ^ HITEMOUT+I. 

MOOT CODE — 

KETBOARDZ 




RETURN REGISTER FOR tOAO 
STATUS INtUCATOR FOR LOADTST 

PASS TNDTCATOR CLEARS' — 

ACTIVITY COUNTFR FOR OSPTAB 
MACHINE CADR FOR NOUN 
NZV CODE FOR 



T13U 


NVBNKTEM FRASF 


VERBSAVF“ERASE 
USPtlST ERASE 
FXTVBACT PEASE 

■D 5 PTFM 1 ERASE 

-OSPTEM^- ER^ASE 


NOUNCAOR. FOR HONI TOR ( M AT BS ) =MONSAVE 
NVMfINOPT OPTIONS 

O-tO* D I SP LAY PAN E L B UFFE P . ll- I B * 1: RELA Y S 
ENOIDLE STORAGE 

NVSUB STORAGE FOR CALLING ADDRESS 

M US T NVBNK TF M-1 

NVSUB STORAGE FOR CALLING BANK 

MUST = NVOTEM+1 

EDED 



+ 2 


END OF ERASARLES RESERVED FOR 


WATTING REG FOR OSP SYST INTERNAL USE 
EXTENDED VERB ACTIVITY INTERLOCK 

BU F FE R S T O RAGE A R EA t -(M nSTL Y FOR-T TM E )' 

BUFEFfL STORAGE AREA 2 (MOSTLY FOR DEG) 
PINBALL "EXECUTIVE ACTION 


TEMPOP AR r^S 


TOR PIMOALL EXECUTIVE ACTTON 


ROIP? 


6Ap; ASSF-MBLt PbVlSION 055 OF PROGRAM COMANCHE 8Y NASA 2021113-051 n5T2B' APR. TTTW? CIJF^AIU TXTZ^ — P'KTTE — 3TI 

L PT'IPALL BUTTHMS UNn lights ’ USER'S PAGE NTI. S" EO S3 


R 0 VP 3 
R01^4““ 

" DSEXIT 

fxitem = 

TNTB13F 

INT315'+ 

RETURN FOR DSPIN 

RETURN FOR SCALE FACTOR ROUTINE SELECT 

RTTTW 

‘3LANkRFT — 

TOT R1 3 + 

RETURN Euk ZBXTTNK 

R0196 

WROP.ET = 

INTBIT15 

RETURN FOR BBLANK 

^ D1 97 

WDR EHTO = 

INlSlTlb 

return EUR UbKWU 

R 0 1 9 S' 

DEC PET 

INTR1T15 

RETURN FOR puTCOMIOEC LOAO) 

R0199 

21/22REG = 

INTBITIS 

TEMP FOR CHARI N 


R0200 UPDATPET = PDtTSfT RETURN FOR UPDATNN. UPOATVfl 

R020t ‘ CHAP = POLISH TPWP pOR CHARIN 

vru7Tyr~ frtnt ^ polish coun t er fur e rr o r l i gh t rese i 

R0203 OECOUNT = POLISH COUNTER FOR SCALTNG AND DISPLAY (PEC) 


TTDTCrA SGNON = TTTOF ItMU FUK +,- ON 

RO20E NOUNTEM = V3UF COUNTER FOR NIXNOUN FETCH 

^0206 OISTEM = V0UF COUNTER FOR OCTAL DISPLAY VERBS 

^10207 DECTP'^ VWF' COUN T ER 'F OR F E T CH T D E C DI S P LAY V E RBS) 


R0203 

PCTPDP 

R 0210 

R 02 TL 

Rn2T7 

R0213 

R021A 

RD215 
P. 0 2 16 
R0217 

R 02 n 


SGNOFF = VBUF +1 TF^P FOR ON 

'NVTFMO = ■“ VHUF FI 1 tMP FUR NVSUH 

SFTRMPl = VBOF +1 STORAGE- TOR- SF“ CONST HI P ART ( =SFTEMP2-1 ) 

HTTEHIN = VBUF +1 TEHP "FOP LOAD OF HRS, MIN, SEC 

I HUS T = L OT EHlN-l. 

CODE = VBIJR +2 FOR DSPIN 

SFTEMP? = VBUF +2 STORAGE FOR SF CONST LO P ART ( =SFTEMP1+1 ) 

LiTFEHTH VRUF" F2 l ENP -FO R L O AD O F HRS, M I N, SEC 

MUST = HITEMIN+l. 

MIXTFMP = VBUF +3 FOP ‘1 1 XMOUN DATA 

STGNRTT VPOP T3 R ET U R N FO R O M 




R0219 ALSO MIXTFMP+l = VBUF + 4, MIXTEMP+2 = VBUF-fS. 



R0220 ENTRET = OOTINC EXIT. FROM ENTER 

m 

R0271 VfDCNT = TTHTRET C PITNT E R FHR DSPWD 

R022? INREL = INPUT BUFFER SELECTOR ( X»Y,Z, REG ) 

R 0 7*^3 nSPMMTEM = *r^TTTTC rrSTCtrUNT S A - V P- FO R DSF N W 

R0224 wfXRR = MATING INDICATOR FOR MIXED OR NORMAL NOUN 


RTTPZh OSR^L “ = ' -REL ADDRESS FOR DSPIN 

^,0777 TFMT ER'AS'E FXFC TEMP 

R022 3 OSMAG = TE^Ap ~ MAGNITUDE STORE FOR DSPIN 

P022P IDAPfnhM = TEMP MIXNOUN INDIRECT ADDRESS STORAGE 


R0230 TEM3 E^ASF EXEC TEMP 

R0?3r CGLtNT = TEM3 - EUR DS^IN 


GAP': ASSEMBLE R EVTSl OM 6 S 5 OP A(^"Tk'nT;?^A>i* 'XaMAMCHE W'T^A^ A ? 021113 - 0 ^I 



imr^ IflTb^ COMATD 7(J29 PTCE TtZ 


L 


R 0232 

R 0233 

-9T)T3T 

R 0235 

R 0236 

W 2 ‘T 7 

R 0238 


^TNTBALl. BirTTONS 'ANTJ LIGHTS 


PAGE NO. 


EO S 3 


TEMA 
LSTPTR = 

~KEi:wFr'~'= 

FREERET = 
nSPWDRET = 
SE^^SCRTT = 

sephnpft = 


ERASE 


T E M4 



TEM4 

TEM4 

TEWA 


EXEC TEMP 

LIST POINTER FDR GRABIJSY 

FOR RbLUSP 



uPTr 

RETURTT TTJR 
ILETURT^ FOR OSPSIGN 
RETURN FDR SEPS’ET 
RETURN EUR SEPMTT4 


WGZT^ 

R 0240 

R 0 T 4 I 

R 02 A 2 

R02''+3 


R 02 ^^ 
R0245 

R02'f6 

R02Vr 

R02-^8 

R02^9 

RD2SO 


TFME 
"NOUN ADD 



NNADTTM "ERAST 
NNTYOTFM ERASE 
TOAOITEM ERASE 


TENS 


T 0 AD 2 TEM ERASE 


TDAD5TEM ERASE 


RUTMXTEM ERASE 
END OF TFH"PnRARTES 


V / t 


nkto: 


fcXEC TEMP 

TEM® STORAGE FOB NOUN AOOOESS 


I fc»«P 

TEMP 

TENP 

MUST 

TENP 

MUST 
TEMP ■ 
MUST 

TEMP 
EXE CUT 


EUR NOUN ADDRESS I ABLE ENTRY 
FOR NOUN TYPE TABLE ENTRY 
FOR INOIR ADRESS TABLE ENTRYtMiXNN) 
^Il)AU2TEM-l. = IDAD3TEH-2. 

FOR TNOTR ADRESS TABLE ENTRY(MIXNN) 

= 'lOAOlTEM+t , = IDAD3TEM-1. 

FOR TNDIR"ADRESS' TABLE ENTRYfMtXNNT 
= IDADlTEM+2, = IOAD2TEM+1. 

FOR SE ROUT TABLE ENTRY ( MI XNN ONLY! 
IVE ACTION 


R 02 SOT ADOTTTONAl lEMPIIRAPlFS rOR PINBALL E 


R 02502 MPAC* thru MPAC +6 

RD 25 ir 3 ~ 3 UF 7 > 1 . +2 

R 02504 nUF 2 , + 1 , ^2 

R 02 SO 6 ' 

R 02^07 aTDDFWD" " 

R 02 S 0 ^ ENDT 3 F AODITIDNAL TE^ps PINBALL FXEC ACTION 


R02S1 


RESERVED FOR ^INBALt INTERRUPT ACTION 


R:025Z 

R 02 S 3 

A025A 

RDZ55 


0 5FCNT 
UPLOCK 


FR 7 VST 

ERASE 



BTTT - UPLINK TNTFRLUCK (ACTIVATED BY 


PFCEPTinN OF A BAD MFSSAGF IN UPLINK) 


TND OF FP ASABLFS '^ESEPVED FDR PlTTBAtL 



RD2575 


TEMPORARIES EOR PTWALC 



R 0257 ^ KEYTFMPl = WAIT EX IT TEMP FOR KEYRUPTt UPPUPT 

Trcr? 5 T? DS R' D PTF M -^ WATTFXT 1 T^MP FOR OSPHUT 

R 025 F KcYT 3 MP 2 - ^?URT ACtt — = T^ MR FD^ K€ YRUPT t UPRUPT 

PO?oO FMD Of TFMpnPAPIES FOR PINBALL INTC''^PUPT ACTION - 


GADl ASSEMBLE ^^CVISION O S'; AG C t>ROGS AM CO MA^jCHE BY NA^A 2O21LI3-0bI 10;2B APiS. 171969 — CUKAID 7U7^ — PTCt — 3T3 

L '’T^4B ALL GAME RLTTTnNG AAnTLTGHTS USER’S PAGE NO. 7 EO S3 


P026T THE INPUT CODES ASSUMED '"'^TnT THE KEYBOARD ARE. 


R0?B2 0 10000 

E02EA O 01001 

R026B VERB 10001 

0 2o7^~~ ERE OR ESI OOTIT 
R026T KEY RLSE 11001 

R026P B 11010 

ROT.SSI TrOTT 

R0270 ENTER 11100 
R0271 CLEAR 11110 

' PT) ?7'7 NOUN 1 1 ITT 


* 


^U2TT 

ROZT^f 

R0275 

R07Ty 

R0277 

R027B 


R027'^ THF PANEL APPE AR S FrrLLHWS , — 

R0230 MDl Mn2 fMAJETR-WODEI 

R02B11 VUT VD2 rVFR'Bl NTH NEr2 (NOUNJ 

R02B? Rini R1.02 RlDl ^rOA R1D5 tRl) ““ 

R02BB R2D1 R2D2 P.2D3 R2n4 R2n5 (R2) 

R^a2^^ RTor imT2 R^rn rttp; — pot'5" — trti 


OUTPUT FORMAT FUR 01 SPLAY "I’AN'EL . SET OUTO TO AAAABCCCCCODOOD. 

A-S SELECT A RFLAYWORD. THIS OETERMTNES WHICH PAIR OF CHARACTERS ARE 

energized, — - — — 

B~TO^r SPECIAL RELAYS SUCH ATS STG1NS ETC. — 

C-S 5 BIT RELAY COTTE FOR LEFT CHA'R OF '’A IR SELECTED BY RELAYWORD 
0-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELFCTEO BY RELAYWORD. 


R02B5 

■PT72B6 

R0287 

R02SB 


EACH OF THESE TS G TA T EfT A^ 



Q 0 290 
R0291 

R0292 
R0 293 
00294 
R02'^5 
R0296 


■Rmr 


VOl 

NOl 

N02 

RITJT 

Rin? 

PlOl 

TTU4 

^ 105 


2T 

24 

23 


20 

115 

15 

1 4 

13 

12 


TTzm — rr 


OSPCDUNT NtlMBER FOR USE WITHIN COMPUTATION ONLY 

/s;-Li_ are octal =- 


R202 

R203 

RTT)^ 

R205 

R301 

31T172 

R3n3 

R3D4 


10 

7 

6 

5 

4 

~3 

2 

1 

~Tr 


R 0 297 

THCPE- 

IS AN 

RTr29H~ 

osPXAir 

"OTECT 

R0299 

RFL ADO 

— 

90300 

10 

1011 

R 03 nT ' 

9 

1010 

R0302 

P, 

1001 

POBOI 

7 

1 000 


GTS TEP TABLE (OSPTAB) FOR THE OT 


“TTTTTT 


-BrT m - o= -s 


wr 


( 25) 


NOl (21) 



M02 
V1T2- 
N02 
RlOl 


(24) 


( 20 ) 

(US) 


PANEL. 


6 A P : assemble RPVISIO'! 05? OP A(',C PROGRAM COMAMCHE BY 



i- 05 1 


10128 APR. Ftl. 9’5’3 CUHAIO 707T PTKTE 3TT 


oiNBALL GAME ^UTTOT^S “ATTO LIGHTS 


USER'S PAGE NO. 


8 


EO S3 


R0304 6 0111 +PI RITT? tl5) R1D3 (14) 

R0305 S 0110 -PI R1D4 (13) RIDS (12) 

Ro'ao’s 4 01 cTi + P.1 R 7 nii im r 2 D 2 (loi 

R0307 3 0100 R2I)3 (71 R2D4 (BT' 

R030ft ? 0011 R2DS (5) 8301 CAT 

ftOl'O'O 1 DOTO (TT; R3D2 (3) R3U3 T71“ 


R0310 

0 

0001 

-R3 

R30A il) 

R3D5 (0 

ROBll 


0000 

Nn RELAYWriRD 




R0312 THE 5 BTT OUTPUT RBtAY tTOOES AREl 


1(0313 BCANK "“00000“ 
■R0314 0 101 01 

R0315 1 00011 

■ROOTS 2 ITOOr 

R0317 3"" 11011' 

R031P 4 01111 

R03TP 5 liner 

R0320 h 11100 

R0321 7 10011 

■R032 2 3 TllOT 

P0323 9 mil 


R03231 OUTPUT BITS USED BY PlMBAtx: 


RU3232 KEY P E LTAST" L ( GH ) BIT S OF CHANNEL 11 

R0323B VERB/NOUN FLASH - BIT 6 OF CHANNEL 11 

R03234 OPERATOR ERROR LIGHT - BTT T-TTF CHANNEL 11 ' 


> ( 


(T/rP: ASSeM'RLE REVISION OSS OF flGC PKD^,^?AM CMMAMCHf: BY MASA 2U21Ui-()bl — 10! 2R APR. 1,1969 — COWA ID ; 


L PTN<5ALL GAMF — BUTTONS ANO TIGHTS ” IISEP'S PAGE AnT. 9 EO S3 


P032^ start OF EXECUTIVE SECTirnmF PTNEACt 


03? 5 AO, 20 no BANK AT) 

032501 REF 1 AO. 2000 SETLOC PINBALLl 

OS^EOP - AO, 20 0 0 BANK 


03255 REF 


COiJNT AO/PIN 


0330 

0331 


P EF 
P.EF 


1 A 


•7 


LAST 304 
LAST 


4072000 




0332 

REF 

2 

LAST 


40.7007 

03321 
0332 2 

192 

40 .7003 
40,2004 

0 3 3 2 3 

TEF~ 

1 



40427104 

0 3^? 

'ref 

1 


— 

40, “200 6 

03325 

REF 

60 

LAST 

306 

<t0,?007 

0337T5 





40 .2010 

03327 

RFF 

2 

LAST 

315 

40,2011 

033? B 

REF 

1 



40,2012 

OT33 

REF 

61 

LAST 

315 

5^0,2013 

0334 

RTF 

1 



40,2014 

0335 

RFF 

T7 

LAST 

304 

40.7015 


TJ3373“ 

0337 

0333 

0339 ’ 

0340 

0341 

“0343“ 

0343 

0344 
“0345“ 

0345 
0347 
0 348 
034 
0350 

“0351 
035? 
03 53 


REF 

REF 

3EF 

REF 

REF 

TEF 

REF 

REF 


1 

1 

F 

3 

4 

5 

6 
7 


FAST — rrs 


LAST 

LAST 

LAST 

LAST 

LAST 


315 

315 

TTT 

315 

315 


RTF 

REF 
REF 

“RTF 

REF 

RRF 

“RTF 

RFF 

REF 


7 

2 

3 

4 

5 

6 
7 

3 


LAST 

LAST 

LAST 

LAST 

LAST 

L4ST 


315 

315 


L AS T 
LAST 


31 ^ 
315 
TIT 
3 1 
315 


3 5017 1 

0 

54 115 0 
11*042 1 
O 2006 0 

0 2013 1 

4 ?OST 0 
6 0154 1 
0 0006 1 

1 2013 0 
0 4410 0 

154 1 


CHARTN 


5”6" 


403 2016 

40 , ?.ni7 
40,2020 
4TTT20FT 
40,20?2 
40 .2023 
40, 3 024 
40.2025 
40,2012 6 
40, 3027 

40. 2030 

40.2031 
4 or 20 3Z 

40.2033 

40.2034 
40~^ 


50 

tn 

0 

0 

TT" 


1 

1 


ITT 

troo 

2017' 0 

3T41 1 


0 


40 . 2036 

40. 2037 


2076 1 
2076 r 
2076 1 

tr -20*^6 1 
0 2076 1 
0 2 07 6 1 
0 2076 1 
O 2062“ X 
0 2062 T 
O 3341 r 
ry 33'4T“r 

0 3341 1 

0 3341 1 
0 3341 -1 
0 3341 1 

0 2074 0 


0344 - 

— REF 

— r 



— A'O, 2040 
40,-?O41 
40,2042 

0355 

^FF 

' 




0:i 56 

REF 

B 

L AST 

315 

03S7 

Ki: F 

— g- 

LAST' 

315 

40 . 2043 

0153 

TEF 

10 

LAST 

315 

40.-2044 

0359 

’’FF 

n 

LAST 

3 1 6 

40,2045 

“035TJ“ 

RFF" 

T7 

IrAFT^ 

31 5 

^ 0 » ? 0 A G 

0361 

’^EF 

13 

LAST 

■SI 5 

40-, 204 7 

0362 


1 

- 

* - 

At), 2050 



0 33 1 0 0 
0 3341 1 


0 

0 

~xy 

0 

0 


3341 


334T 
3 341 
3 3 66 


1 

1 

1 

I 


CAT 

XCFf 



CHAPTN2 


AO 

BZF 

TC 

1CCH 


IS — 
TMOEX 
TC 

TC 

TC 


TC 

TC 

TC 

TC 

TC 


TC 

TC 

TC 


ONE 

OS FL OC K 
21/22REG 

CADFSTOR 

♦2 



ELRCnOEl 

MPAC 


CHARIN2 

RFLDSPON 

■^PAC 

—CHAR 

A 

CHARALRM 

NUM 

NU W 


NUM 
WtTM 

NUM 
NUM 
89TF 
R9TEST 
CHARALRM 



TC 

TC 

TC 

TC 

TC 

TC 

TC 


CHARALRM 

CHARALRM 

C HARALR M 

CHARAIRM 


TC 

TC 

TC 

TC 

TC 


ERROR 

CHARALRM 

CHARAL R M 

cmaralrm 

CMARALRM 

CH TR At ~R 


CHARALRM 

VHRELOSR 


SLOCK DISPLAY SYST 
MAKE DSP SYST BUSY» 
C( D S P LnCK) FO R E R RO R 



SAVE OLD 



ALL KEYS EXCEPT ER TURN ON KR LITE IF 
CAORSTOR IS FULL. THIS REMINDS OPERATOR 



WHICH ME HAS OBSCURED WITH DISPLAYS OF 
MIS OWN (SEE REMARKS PRECEDING ROUTINE 
V BPE t DSP ). 


0 

1 

7r 

3 

4 
IT 
6 
7 


11 

12 


14 

15 

rc 

IT 

20 

Tt 

22 

23 

24 


26 

2T 

30 

31 



8“ 

o 


0 


ERROR LIGHT RESET 


KEY RELEASE 



GWl ASSEMBLF P^VISfllM 0^5 HF Af",C P^0"GRA'M COMANCHE BYTIASA i I i-Ob 1 10t28 APR. 1 , 1«6'^ — COMA ID rtTZ9 PTHJF 3TS 

L t^INBALL GAf^ BaTTIllSiS AMTT LIGHTS " — ^ USFR«S PAGF TO. ICT ^ EO S4 


0363 HFF 

0364 REF 
03 6 S “TEF 

0366 REF 

0367 PFF 
O^'^ R“GF 


I 

1 

1 

14 

1 


'^ 0^1 


1 


LAST 315 


0 

0 


2310 

2275 



t ^ 

40 •2052 

40 ,Zn 54 0 

4 0, 2 0 55 ' 0 

40,2066 0 2271 1 


3T4I 

23TO 


1 

0 

U 

T 

1 


TC 

TC 

TT 

TC 

TC 


POSGir 

MEGSGN 

tNVERJMP 

CHARALRfT 
Cl E4R 
NUUN 


33 

TZT 

35 

36 
TT 


* — 
ENTER 

CLEAR 

NOUN 


03635 

0369 

0370 

Bcf 

REF 

16 

"""LAST 

266 

1 



0371 

0377 

REF 

3 

LAST 

192 

15375 





0374 

REF 

21 

LAST 

306 

0375 ' 

REF 

22 

LAST 

316 

0376 

7EF 

T 

LAST 

704 

0377 

REF 

1 



0373 

REE 

7B 

LAST 

31 5 

0370 

REF 

0 

L AS T 

1X5“ 

03 BO 

RFF 

15 

LAST 

315 


51077057 000?7 1 

50.?050 0 0 

40,2061 62002 1 


40.2062 

40.2063 

40.2064 

40.2065 
4T),2066 

40.2070 7 1000 1 

40.2071 10 000 0 

4 0,20 72 D 2076 I 

40,2073 crrr^t 1 


10 777 1 
0 2067 I 

0 5217 0 
0 5217 0 


ELRCOOEl DC I 27 

FMTFRJ1TP TC PTISTJUNP 

CADR ENTER 


89TEST CCS OSPCDUNT 

TC *4 * 

nc T 3 — — 

TC ENOOFJOB - BLOCK DATA IN IF OSPCQUNT IS - OR -0 

TC ENDOFJOB -0 

CAP THREE — — 

MASK OFCSRNCH 

CCS A 

TC N01M TF O FC BRNCH I S -f, 8 OP 9 OK 

TC CHARAIRH ^IF DECRRNCM IS +0, REJECT 5 OR 9 


Rooai MUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING 
R0382 WORD AS A FRACTION, KEEPING RESULTS TO DP. 

Rimi TICTTIL RESULTS ARE LFPI — IN XREG, T R F G, " 07 ; z r e G. HT P A PT OF D E C I N X R E G, 
R03A4 YREG, 7REG. THF LOW "PARTS IN XREGLP, YREGLP, OR ZREGLPI — 

R0335 DECBPNCH IS LEFT AT +0 FOR OCTi^ "Tl FOP ♦ OEC, +2 FOR - DEC. 

000336 rF~D 3 PCUUM MAS LFET -, NO MijRfc D A T A Tr~ ACCFP T ED. 


038T REF 33 LAST 306 40,2074 3 5021 I 

0 3 R B PFF 2 LAST ”375 50.2'J7S •54 117 1 

0330 "PEF" 4 LAST 316 40,2076 TO 777 1 

0390 40,2 077 0 2103 1 

03N1 40.2100 0 2103 1 

0392 40,2101 0 2102 0 

0393 REF 23 LAST 316 40,2102 0 5217 0 

03'35“ REF I 4072103 0 2225 0 

0305 RFF 2 LAST 192 40,7104 11*015 0 

0306 RFF 34 LAST 316 40.2105 3"5021 1 

"0307 RFF 3 EAST TTF 40, 2106 55*015—0 

0393 "" 40,2107 O-FllO-O 

03-^9 RFF “3 LAST 316 40.7110 50 117 0 

~0400 RTF 7 — CTTST 105 40.2111 3 • 4 07 2 0 

0401 REF 2 LAST 233 "00.2112 7 4367"0 

0402 RFF 1 40,2113 54 124 1 

0403 **01= 5 FAST 316 40T2TT4 3 0777 0 

0404 RFF 1 4nT?’15 54 147 0 

0405 ’FF 1 40,7116 0 322"'' 0 


CAF ZERO 

— -L ^ ■ ■■ - . . ■ - ■ 

TS C AR 

"^CCS DSPCOUNT 

TC +4 ♦ 

"Tt: ,^3 

TC +1 -BLOCK DATA IN IF OSPCOUNT IS - 

TC EN OOF JOS -0 

-RTC G FTT N RE L 

CCS CLPASS IF CLPASS IS ♦ OR +0. MAKE IT +0 

CAF ZERO 

TC Tl 

INDEX CHAR 

-CAF RELTAB 

MASK LOWS 

TS CODE 

-CA OSPCOUNT — 

TS COUNT 

TC DSP IN 


GAP 


ASSFMBLb~'^P“VIST^M 055 (IF AGC PPOGf^ 


T:GM"AnCHE 8 V NASA 



ri -051 


10; ^?9 APP. I , 1^69 COMAIO 


^TMBALL GAi4E aUTTHNS AMT) LIGHTS 


USFP’S PAGFTTO. 11 


■PT^GF 317 
EO S4 


0405 

2 EF ' 

RFF 

4 

LAST 

316 

316 

0407 

7 

LAST 

0407 * 

RgF 

~7W~ 

L ATT- 

“TT^ 

0 4 0 ? 

REF 




0410 ■ 

PFF 

1 



04 rT~ 

RFF 

2‘ 

LTITT” 

-W 2 “ 

0412 

^3 ncr 

1 



0413 

R EF 

2 

LAST 

317 

OT 1 4 

RET^ 

3 

lAST 

317 

04 1 6 

REF 

4 

L AST 

317 

0416 

o pp 

4 

LAST 

31 6 


(yzr[ 7 - n cp I 


OAIS PEF 2 LAST 317 


041"^ 

REF 

3 

LAST 

317 

D4'20 

REF 

~~E2^ 

"TAST“- 


0421 

REF 

35 

L AST 

3 TET 

0427 

REF 

63 

LAST 

317 

0423 

R F F 

"2 

LAST 

TOT 

0474 


3 

LAST 

2D1 

0425 

REF 

64 

LAST 

317 

04273 

RFF 

5 

LAST^ 

TT7 

0477 

r * 

REF 

65 

LAST 

317 


0A2S REF 2 LAST 317 

0^2^ PTF 6F LTTST 3TT 

0A30 REF 1 

0431 REF 3 LAST 317 

0432 FFF 4 UASI 3TT 

0433 3EF 6 LAST 316 

0434 PFF 4 LAST 317 

~Cr4T7‘ “ ‘TTF I 

0436 

0437 ref 1 

0433 35FF T 


0437 

RFC 

5 

LAST 

31 7 

044 0 

RFF 

'y 

D 

LAST 

317 

0441 

^E F 

BO 

L AST 

TIT 

0447 

RFF 

2 

LAST 

31 7 

04 43 

’^FF 

-T 

f 

LAST 

317 

D444 

TEE 

2 

L A ST 

TT7 

0445 

RFF 

15 

1. AST 

3 1 5 

0445 

P EF 

5 

«/- 

LAST 

317 


-0447 “ 

0443 3EF 1 
0447 REF 1 


A 17400“ 
0451 
045 2 

>FF 

■■TT 

1 

LAST 

317 

0433' 

r? FF 


LAST 

^1 T 

0454 

04'^'^’ 

RFf 

31 

1 AST 

U7 


40,7117 3 6214 0 

40.2120 7 1000 1 

40.2121 10 000 0 

40.2122 0 2133 1 

40.2123 50 137 i 

■ 40,2124 b/*a01 1 

43.2125 54 022 0 

40.2126 4 0022 0 

40,212T“ 4 002? 0 

40.2130 56 022 1 

40.2131 6 0117 0 
40,2112 ”0 2150 1 

40.2133 50 137 1 

40.2134 57*001 1 

“40 , 2T35 54 154 0 

47.2135 3 5021 1 

40,2137 54 155 1 

40T2T'40 3 4377 0 

40.2141 0 7256 1 

40.2142 56 155 0 

40, 2743 “6 U i 1 7 0 
40,2144 54 155 1 

4072745 0 2150 1 

40,2146 27 154 0 

4 0,2147 O' 2156 1 
40,2150 50 137 1 

“4D‘;2T5T 55* 007 7 

40,7152 4 0777 1 

40,2153 50 137 1 

■"477, — F 2216 0 

40.2155 0 0006 1 

40.2156 1 2160 0 

"40 V2 1 57 0“72IT 0 

40,2150 3 6214 0 

40,2161 7 1000 1 

4072752 — 70 00727 

40.2163 0 2155 1 

40.2164 4 0777 1 

"4072775 0 2214 I 

40,7156 4 5017 0 

40.2157 6 01 37 I 

TO, 2170 0 0006 1 

40,2171 6 2164 0 

40,2 1 72 0 7052 I 


40,2173 02223 0 

40, >17 4 3 6214 O 

40,2175 — 7 lonn — 1~ 
40,7176 50 000 1 

40,2177 02) 7? I 


CAF 

MASK 

""COO 

TC 

INDEX 

XCB 

T$ 

CS 

CO 

XCH 

AO 

TO 

DEC TOBIN iriOEX 

XCH 

TS 

CAF 

TS 

— OAF 

TC 

XCH 

AO 

TS 

TC 

TOTS 

TC 

ENDNMTST INDEX 

P5 

CS 

INDEX 

“ — “ TTO 

EXTEND 

BZF 

— 177“ 

FMDNUM CAF 

MASK 

_ — = COO " “ 

TC 

ENOAt L CS 

" TC 

DECENO CS 

AO 


BZMF 

TC 


THREE 

DFC3RNCH 


DEC TOBIN 
I MR EL 
VhKBRbG 

CYL 

OTt 

CYL 

CHAR 

FKUNTTTTr" 

TMREL 

Yt RBRFG 



ZERO 

MPAC +1 

T E N 

SHDRTMP 

MpAC +1 

OTTAF 

MPAC +1 

ENDNMTST 
MPAt " 

DEC END 
INREL 


DSPCOUNT 
IMPEL 
CP ITCON 


ENDNUM 

MORNUM 

THREE 

OECBRNCH 

TS ■ 

OECEMD 

OSPCOUNT 

t ^ nP NUM 

ONF 

INREL 


EM DAL I 
OMP 


AORES ^EC 0^4 

CAF THREE 

- NA S K OECBRNC H 
INDEX A 
TC +0 


W." OCTAL • 7tV + DEC. FT,' - DEC, 

F 

+0 OCTAL 



TO X 2 FX P -14 

lOStrW X 2FXP-28 IN MPAC, MPAC^-l 


NO OF 

T7F MUST BF 



0, DSPCOUNT 



CR ITCON 
CR tTCOM 


BLOCK NUMtN BY RLflCING OSPCOUNT 
NSCaTIVGL Y 


IF IN®EL=0, 1 ( VBPEG.NNPEG) , LEAVE WHOLE 
IF INP'^L = 2. 3. 4(R1,«2.R3). CONVERT TO FRAC 
Mrt tT S U **! X 2E X P-2S IN W PAC T^^M^A€»t BY 
2EXPr A/IOEXPB. GIVFSt SUM/106XP5 » X ?E XP- 14 
IN NPAC. +1 , +2. 


ASSFMBLF RrViSiDN 0^5 OF' \:'C PROGRAM CO! 



NASA 202iri3-0bl 


10i2B~APR, I ,19 69 — CDMATU 


L 


PINBALL v;A^^F BUTTn^ AN^IGHTS 


trSF^^S PAGE NO, 12 


xrz^ FAGf 


EO S4 



0457 

045^ 

0459 

0460 


RFT 


REF 
REF 
Rr. 



KEF 


I 

6T 

68 

69 



L 

LAST 

LAST 

UA^T" 


046 2 
04o“3 

REF 

REF 

1 

70 

LAST 

0464 

'’FF 

T~ 

TTST~ 

0468 

PEF 

5 

L AST 

046 6 

?EF 

2 

LAST 

0467 

n PTP" 


"LXST^ 

0468 

T> frp 

9 

LAST 

046^ ' 

REE 

74 

LAST 



AO, 22r)0 
AO. 2201 

0 2204 0 

0 0006 1 

TC 

EXTEND 

4-DECSGN 

■ 

317 

AO, >202 

4 0 1 56 1 

OTS 

MPAC 


318 

40,2203 

52 155 T 

DXCH 

MPAC 

-Fl 

318 

40 , 2 04 

56 1 56 0 

+DECSCN XCH 

ETPAC 

+2 

TTT 

40,2205 


INIJfcX 

1 NKtL 



40 ,22 06 

T5 • 00^ 0 

T S 

XRrEGLP 


318 

40,2207' 

56 155 0 

XCH 

MPAC 

+ 1 


- CASE 




3T7 

TTT 

318 

316 


40. 2711 

40.2712 

40.2713 


404 2714 
40,2215 


13 7 1 
55*^001 0 
0 2164 0 
TO 77T 1 
84 777 1 
0 5217 0 


WORNU.M 


TNOFX 

TS 

TC 

TITS 

TS 

TC 


TNT? EL 

V ER BR:Et5 
END ALL 
nSPCUUNT 
OSPCDUNT 
ENOaFJOB 


DECKEWENT DSPCOUNT 


0470 

0471 
047? 
04*^^. 
0474 


40.2216 

40.2217 
40T272 0 
40,2721 
40,2222 


0002 ? 1 
00020 0 


00005 1 
00000 1 


CRirroN 


OCT 
OCT 
ICT 

ncT 

OCT 


20 


{DEC IP) 
(DEC 16) 
“TOT 



5 

0 


0475 

04^ 



081 74 0 

O 


DtCON 


20Er 


^-5 ei4 


2EXP14/10EXP8 = .16384 DEC 


R04T6 

R04T7~ 


GETINREL GETS TPrTPTR D AT A P EG REl ADDRESS FOR CURRENT CtDSPCOUNTI AND 
~P UT ITTMT'I INMFL. TT) ' ' V-CTTB^E G , 1 NOMNREG, 



f 


4 ZREG 


0473 

REF 

10 

LAST- 

“TITT 

“40,7225 

50 TTT 

0 

GETINOEL 

04 /O 

K t F 





3 .72 31 

0 

0 


04 ?n 

REF 

8 

L AST 
LAST 

318 

^ u f ? ? 7 

54 13 7 
"0 0DO7 


0471 

RFF 

3 8 

306 

40 , ^230 

0 


0482“ 

— 


- -- 


40,1^231 

0 0004 

0 

INREL T AB 

0433“ 

j . 

■ 



40, 223? 

000U4 

0 

- -- — - - 

T)4 34 





0 f 2 2 3 3 

UUU04 U 


0485 





40,7234 

00004 

t) 


04’’6 




- - - - - _ 

40,2235 

00004 

0 


04 37 





40, 2.236 

U DUO'S 1 


0438 




- ^ — ■ 

40,2237 

0 00 0 3 

1 


048P 





■ 40,2 240 

00003 

X 


■04717 





40V2241 

00003 

1 


04^1 





40 ,“7242 

00003 

1 


0492 

- - 



— - — — - 

40VP243 

— 00007 

0 



TS 

TC 


DSPCOUNT 
T NR E L T 

r NR F L 
0 


<A T 


REG) 


04 *3 

04 '’4 
0475 
0406 

0497 

04 78 





1 


4ti ,T245 
40,2246 


, 2^60 


\ i 


f 2 ^ 1 


00007 0 


00002“ 0- 

00 00? 

tr 6 74^ 0 

00001 0 


OCT 

OCT 

OCT 

OCT 

OCT 

fTCT 

OCT 

OCT 

OCT 

OCT 

OCT 


OCT 

nCT 


TC 

OCT 


4 

4 

-4 — — 

4 

4 

T — 

3 

3 

T 

3 

2 

7 

2 

2 

7 

f CSHOIE 
I 


R305 (OS PC HUNT 
R 304 

■RW3 — — 

R302 — 

R301 
R 


0 ) 
( 1 ) 



(3) 

(4) 


R203 

R20 g 

R201 

R105 

R1 D 4 


= ( 6 ) 
= (7) 



(90) 

( 100 ) 
( IIQ) 


( 120 ) 
( 130) 
( 140 ) 


RIO? ^ 

cm ^ 

NO DSPCOUNT number = 150 
N02 -( 160) 


GAP : ASSPMeLF PFVIStON 0’^5 AGC PP.i^GPAM ClMAMCHF BY NASA 



10:28 APR. ITFTS^ — CTTfWTD rUTV PTOJE 3T^ 


r>r'','FALL GAME BUTTOMS TART7 LIGHTS 


USER'S PAGE NO. 13 


EO S4 


04T!5 40,2252 DOOGl 0 OCT “ 1 MOl =n7D> 

0500 40,2253 OOOOO 1 OCT 0 V02 =(180> 

0501 40,7254 OOOOO ~l OCT D VXTl 


0 502 S FF 75 LAST “ 7T7 40.2255 r“5D2T "I VTRB C7IF TEKO 

0503 REF 6 LAST 318 40,2206 5‘^'Oni 0 TS “ VER8REG 

0504 REF 2 LAST l'^2 40,2257 3 4374 o CAF VOl 

OOOE iCEF^" IT. UAOT 3X5 4TTT2T50 54 717 1 MVCUFI TS DSPCOUN I 

0506 REF 1 40,2261 0 2502 T TC 2BLANK 

0507 REF 16 LAST 317 40,7262 3 5017 1 CAF tJNE 

“USTTB RCT 5" LirST JT? 40.226 3 55*7700 1 TS DECBRNCH 

0500 REF 37 EAST 319 40,2264 3 5021 1 CAT ZPRO 

0510 REF 2 LAST 192 i0,2?&5 55*0T3 0 TS REORET 

05T1 TFT r 40,2266 3~4233 1 CAF E ND T NS T 

0512 REF 1 40,2267 54 T36 1 TS ENTRET 

40517^ - 

0514 REF “25 L7?5T“ 3TR 40,22 70 — O' 521' T 0 TC ENDOFJOB 

0515 REF 38 LAST 319 R-0.2271 3 5021 1 NOUN CAF 7FR0 

0516 PER 7 LAST 270 40,2772 55'002 0 TS NnUNREG^ 

0517 "EF” I 40,2273 “T 4375 1 CAF ITOI 

0513“- REF ^ — I 40,2274 O 2 26 0 O TC MVCOM 


SE T F O R DEC V 



SET FOP FNTPASO 



FIR ST ENT PASO 


OR NVSUR, ENTRET MUST ALREADY 8E SET 
TO TC FNOOFJOR 


A T Ol, O CT 21 ( OF C 1 7 ) 


051 

0570 

7EF 

off 

1 

T 

- 


40, ’2 7 5 
40,2276 

05 2T 

REF 

B 


302 

% 2 2 J1 

052? 

REF 

ry 

-? 

i asr 

-31F 

— ^0t?^2ocr 

0523 

PvFF 

19 

LAST 


-TO fZrOT 


0524 PTTF 6 rS3T 3TO 40.73(72 

0525 ^FF “ 4 LAST 316 40,2303 

0526 REF 39 LAST 319 40,2304 


D527 REF 5 LAST 3T7' 

0523 

052'R REF 25 LAST 319 


0530 

05^1 

0530 

RFF 

RrF 

2 

1 

LAST 

3 IP 

■REF 

REF 

IT 

-L3rST 

310 

1 








0 5 3T 

RFF 

T9" 

ritST“ 

31 P 

Tr535 

5 FF ^ 

— 2r 

' LAST 

31 6 

0536 

'■REF^- 

10 

LAST 

319 

0537 ' 

rff 

1 



0 53 3 

REF 

1 

- - 

- 

053 9- 

REF 

13 

LAST 

319 

TlETtCr 

RFF 

1 



05'+l 

REF" 

40 

LAST 

315- 

05T7 

RFf 

2 

LAST 

3 T 7“ 


40. 2 3TT5' 

40 ,200 6- 
4 0,23OT 


40.2310 

40.2311 

40.2312 

40 . 23 1 3 

40 ; 23 1 4 

4TL,2315 
40,2316 
40 . 23T7 
40,7320 

40 ,3321 

4 0 . 2322 

23 2 3 

40', 2324 


0 2347 0 NEGSGN TC SIGNTFST 

0 2334 1 TC -ON 

3 5016-0 CAT TWO 

50 137 1 BOTHSGN INDEX INREL 

6 5011 1 AD 6IT7 

27*000 1 ADS DFCBRNCH 

11*015 0 F1XCLPA5 CCS CLPASS 

3 5021 1 CAF ZERO 

^*015 0 T5 CCTASS 

0 -2307 1 TC +1 

0 5717 a TC ENOOPJOB 


0 .2347 0 PnSGN 
0 2314 0 

3 501 7 1 

O 2300 O 


22 00 ? 0 — TON trXCfl 0 

0—2225 0 TC GET INREL 

50 137 I INDEX INRFL 

3 2 342 0 (CAF SGN T A6 — 

54 123 0 TS SGNOFF 

6 5017 I AO ONE— 

5 4 122 1 TS SGN O N 

3 5021 I SGNCOM CAF ZERO 

54 124 1 TS CODE 


TC SIGNTEST 

TC +0N 

CAF ONF 

TC BOTHSGN 


SET DEC COMP BIT TO 1 (IN DECBRMCHJ 
BTT 5 EOR Rl, BIT 4 FOR R2, 


IF CLPASS IS + OR +0, MAKE IT +0. 


GA 


p 


ASStMBLE RFVISION IF '\Gr. Pf^OGkA'WCOM AMCHF RY WASA '2021113 



10:28 APR. r,1969 COH’ATD ^TTZ^ PTOE JZtT 


L 


IN BALL GAME BUTTONS AND LTTJHTS 


USHR^S PAGE NO. 14 


EO $4 


0B43 REF 2 LAST 319 40,?TZ5 56T23 1 XCH SGNOFF 

0544 REF 1 40.2326 0 3311 1 TC IIDSPIN 

0T4 5 ■■rf F “ \3 L AST 202 40,2327 3 SOoS 1 ^ cAh Him 

0546 REF 3 LAST 319 40,2330 54 124 1 TS COTJE 

0547 P.FF 2 LAST 319 40,2331 55 122 0 XCN SGNON 

Q54T REF -2 TTD 40,2332 — 0 3311 1 — — — -TITTSPTN 

054P REF 25 LAST 306 40,2333 " 0 0001 0 TC L 

05F0 RFF 40 LAST 319 40,2334 22 002 0 -ON LXCH 0 

05TI~ ~F"EF 3 TTTST 3TT 40,2335 0 22 25 0 TC GETINPEL — 

05'^2 RFF 11 LAST 319 45^2335 50 137 T — ^ rNOFX“ IMPEL 

0553 RFF 2 LAST 319 40.2337 3 2342 0^ CAE SGMTAO -2 

05R4 ~ R ET'™T~TA5T TZD 40, ?T4n 54 122 1 TS SGNON 

0555 RPF 19 LAST 319 40,2341 6 5017 1 AO ONE 

055S REF 3 LAST 320 40.2342 54 123 0 TS SGNOEE 

■055'7 REF I ““4072343 0 2323 1 FC SGNCO^ 


0558 40,2344 00005 1 SGNTA8 HCT 5 -R1 

0550 ■ 404 2345 00003 1 ' ' " ' OCT 3 =1T2 

0560 40,2346 00000 1 OCT 0 -93 



05-^'T 
0567 
56T 

0564 

0565 
"0555'^ 

0567 

0563 

056'9 

05R"Cr 

05 71 
0572 

057^ 

0574 

^0575 

0576 

0577 


PFF 

41 

LAST 

320 

P.5T 

7 

LAS! 

1 T 

“PEF 

"T 

LTTSl 

31 5 

RFF 

S2 

LAST 

31T 

RFF 

27 

LAST 

31P 

“ FF 

T 

UJTvr 

7T3~ 


1 



REF 

1 



R t F' ~ 

2 

LAST 

“320“ 

■R FF 

1 



- R5F 

3 

1 AST 


r? Fp 

2 S 

LAST 

32 0 

n vip 

V f 

12 

LAST 

3 19 


40.2347 


RFF 


n c C 

r ♦ L- 


42 

26 


LAST 

LAST 


320 

320 


431 ,T3 5 0 

40.2351 

40.2352 

40.2353 
7T54 


4TT7 

40, 

407 


22 002 0 
3 6214 O 
7 1000 T 

10 000 O 

O 5217 0 
43'^3 


SIONTEST 


f 

40, 

40 , 
507 

40, 


2355 
23 5 6 
2357 

2360 
23 61 


frryj 

4 0 , 
40, 


2362 

2363 
? 3 64 

2555 

2366 

2 3 67 


4 

0 

4 

O 


4 

0 

XT 

6 

0 

t 

0 

0 


TT 

2363 0 
4354 O 
2363 0 

4335 1 
2 3 63- 0 
52TT5r 


0777 0 

0005 1 


0002 0 
0001 0 


SGNT5T1 


LXCH 

C4F- 


^ASK 


CCS 

TC 


TC 

cs 



cs 

TC 

TX 

AO 

EXTENO 
5 
TC 
TC 


0 

THREE 



ENOOPJOB 

RlOl 

SGNTSTl 

5201 


R301 

SGNTSTl 


EN On E J l lO 
OSPCnUNT 


0 

L 


AttOWS ONLY WHEN OSPCOUNT^R 101 , 

R201, OR R 301. ALLOWS ONLY FIRST OF 




TE tow? BITS OF OECBRNCH NOT= 0, SIGN 
FOR THIS WORD ALREADY 1^. REJECT. 


M O N- ATC H 


Ttt F GAt 


H ATCH FOUND 


SIGN LEGAL 


R05T5 CLEAR BLANKS WH1CH571, R2, 23 IS CtlR^^ENT OR LAST TO BE 01 SPt AYEOI PERT I NE 

RU5 79 NT XRFG, YPFG. ZREG TS CLEARED). SUCCPSSTVF CLEAR'S TAKE CARE OF EACH RX ’ 

iraSPO — 1 / RC UNTIL PI IS done, then- NO FURTHER ACTIW - — — — = 


' PTTSTn FHE STNGLF'Xn.'^PnNENT'TUAn VERBS ALLOW HNCY THE SINGLE RC THAT IS 

R 0552“ - A PPPOP^^ I ^ T F" TO 3F CLE AN V . 


90553 — CLP ASS ^ PASS O', CA5"5r BACKED UP ' — 

R05 34 ' +NZ HI PASS, TAN 5E'- BAOKED UP 

R05R5 -NZ P^SSO, CANNOT •3r- BACX’~0 UP 


G A ' > : ^ S S f- R LF dcvtSIGN HP GC PRfiGRA w ' ANlCHt BY NASA 


10:2R APR. 1,1969 CDM fi 1 D 


PTHTE 3ZT 


^ I N R ^ L L G /\M r Bl ITTPM s ^ N H L I GnT S 


USR'^’S OAGf 1SIO, 15 


BO S4 


05 R 6 

PEF 

13 

L4ST 

32n 

0537 

P FF 

?0 

LAST 

320 


0539 3cF 27 l^AST 321 


05^0 

RFF 

83 

LAST 

320 

OF n - “ 
05 92 

PEE 

12 

~ L AST " 

LAST 

3TF" 
32 0 

05^3 

RFF 

6 

LAST 

31 ? 

0594 


1 



0 5 ’ 5 
0596 






ny97 PTT 13 “IITTST T71 

05GB QF«^ 1 

059G PEF 1 

■ IFF^ T^“ ell's! 37T 

0501 3FF 15 LAST 371 

060^ RFF 2 LAST 371 

0 ?r0 3 ' RFF I 

0604 3EF 3 LAST 319 

0605 '^EF LAST 371 

0F0*6 ITEF ~ I 

n S TTT ■ 

06 REF 7 lAST 31^ 

“cnso^ p-p“ 3-7 last 

0610 PFF 1 

0611 REF 2 LAST 371 

061 2 T FF ■ T7 L AST 3ZT 

0613 PEF 1 

0614 RFF 7 LAST 371 

06T3 RTF”“3r9 LTST 37TT 

“ 061^ — "^FF ^ LAST 370 

Of,]-r opp I 

06 1 " "IFF 2 L A ST 235 

0619 R^F 84 LAST 371 

0670 7FF 44 LAST 321 

0671 RFF LAST 317 

0622 RFF 30 LAST 321 

0623 RFF 45 LAS^ 321 


6 03^370 10 779 1 CLEAFr 

40,7371 6 5017 1 

4T7TTT2 O' 7574' 0 
40,2373 6 5017 1 

6n,23T4 50 000 1 

40 , 2 3 7 5 3r 2 731 0 — - = 

40,2376 54 137 0 

40*7377 II’TJIG 0 

40,7 400 0 7406 T 

40*2^01 “0 7403 1 

40,2402 0 2403 1 

4T)TT403 3'Trrm 

40*2404 0 2430 1 

40,7405 0 2423 0 

40,2 4 ( ITT — 10 1 37 0 "^XTFA SHT 

40 *7-407 54 137 O 

40,7410 0 7430 1 

■4rrr?4n - 3 - TFFro -O 
'VO* G41 2 2 '’013 0 

40,7413 3 0137 1 

40*7414 12 6 0 “' 

40, 2415 0 none, 1 - 

40,2416 27'*0ni 0 

43 . FT 1 7 0 4 6 67 1 — 

40.2420 62340 1 

40.2421 3 0125 1 

4TT77'4r77 ^ ’54 T”T"0 
60,2423 0 2426 0 CiEARl 

4':'*2424 ?5’015 1 

4Tr.'2"475~0 5217 0 


CCS nSPCOUNT 


AO 

TC 

AO- 

IMOEX 

CAF~ 

TS 

CCS 

TC 

TC 

TC 

CT 

TC 

re 


TS 

TC 

XTTF 

AOS 

CA 

-T^ 

F X TF NO 
01 N 

"TC “ 

CAOR 

CA 


TC 

TNCR 

TC“ 


n M E 

ONF 

A 


INRFt 

CLPASS 

CLP ASHI 

+ 1 

INREL 

LFGAITST 
CL FAR 1 

TTRFt 

I nr el 
LEGA t TST 

OniiBLSC F2“ 

REGRET 

TNP^L 


VERBREG 

BANKCALL 

UPOATVB 

NIXTFMP 


CLR5 

CL 2 ASS 

ENonpjnB” 


40,2426 72 007 0 C1R5 LXCH Q 

40.7477 0 24',1 1 TC 5BLANK +2 

40G"743TT -5“T7T5"T3 CFG ALT ST AIT " NFC? " ~ 

40.2431 10 000 0 CCS A 

40.2432 0 0007 0 TC Q 

407^433 Cr“5T4T“0 ^^Tt " CCSFintT ' 

40.2434 0 521/ 0 TC ENDOFjnB 

40.2435 0 0003 0 TC Q 


00 NOT CHANGF OSPCOUNT BECAUSE MAY LATER 

FAIL LEGALIST. 

MUST SET INREL* EVEN FOR HI PASS. 

1 — — — ■ ■ 

IE CLPASS IS +0 OR IT IS PASSO 




7 - 95 ACKS trATA-RETUEST^ 


DECREMENT VERB AND R£-OI$PLAV 


R E STOR E T NP E L ^ 

m 

ONLY TF CLPASS IS + OR +0* 

SET FO P H I GH E R P ASS 7 — 

USES 5PLANK PUT AVOIOS ITS TC GETINREL 


LEGAL INREL G/ 2 

ILLEGAL TNREL= 0*1 
LEGAL INREL = 2 


R0624 

'~KOSZ^ 

R0625 


5BLANK R1 
YTF"F", “OT- 
03 PC HUNT 


ANKS 5 CHAR SRI. 

PLACE nMY + - 


AY WORD n Rl, P2, 
nSPCnUNT-NUMBFR 
IS LLFT SET TO tFFT MOST DSP NtIMB Ff>P PC JUST 


OP R3, IT ALSO ZEROES XPEG» 


TTT 


FT 





BLANKED. 


TJ67T- 

TTTrTr- 

1 . . 1 

r4~ 

L A ST ■ 

3ZT 

40 , 2436 

06 2 8 

OFF 

'•5 

LAST 

??i 

40*743? 

069*; 

RFF 

A 

LAST 

3 GO 

T^O , G44Er 

06 3 9 

* ' * ■ rwt 

41 

"TAFT 

31 2 

4 0, 2 4 1 

06 3 I 

•'’^E 

1'" 

LAST 

'A 'y 1 

4 ' > • G 44 2 

06 39 

EE 

s 

LAS T 

3G] 

4 6 , G V, 


22 0 TT 2 


3 - 5 T 1 7 T 
50 I'/F^ 
56 * 001 


0 

■r 

1 

0 


5m ank 


TS"-^ — 

LXCH 

TC 

CFE 

INDEX 

TS 


NEE D ED EHP BLANKSU8 


Q 

T I NR^E t 
RRO 

INREL 

V^RRREG 


ZERO X, Y, Z REG. 


rr4 P ■; ASSEMBLE REVISION b?^ "if: A^C PROGRAM COM4, ^OCHE“t^?■~WA■SA T0'21 1 1 3-05 1 



— COTOTTJ 



L PTNBTtLL r.AME BUTTON'S" Ti NT) ~ niSHTS tJSEK'S PAGE NC!. 16 EO S4 


063T REF 19 LAST 321 A'0,?A‘A-A — 50 T37 1 TTOEX TNREL 

06^9 REF P^'LAST 318 A0,24A5 55*004 0 TS XREGLP -2 

0635 "ITFF 4~ ITiST’ “370 40,2446 54 124 1 TS CTTOE 

0636 REF 20 LAST 322 4TT, 2447 50 13T 1 TNOEr TNREL ZERO PERTINENT DEC COMP BIT. 

0637 REF 20 LAST 310 40 , 2450 4 501 I 0 CS RIT7 PROTECT OTHERS 

“0'6TT REE““T 057 370“ ■“4tT;T4TI 7 1000 1 TOSK OECERNCH 

“ 063f REF 1 40,2452 7 2501 0 MTTSK BRNCHCON XERO LOW 2 BITS. 

0640 RFF 9 LAST 322 40,7453 55*000 1 TS ‘ TTECBRNCH 

DbTn REF 21 LAST 322 40.2454 — 50 13/ 1 I N DE X TTIREt 

0642 "" “R“FF 1 4072455 3 2471 1 CAE STNBtANK -2 8LA1TK ISOLATEO CHAR SEPARATELY^ 

0643 REE 2 LAST 315- 40,‘2456- 54 143 0 TS COUNT 

REF 2 L AET" ~ 3T75 40.2457 O' 3227 0 TC DSP I N — — — 

0645 PEF 22 LAST 322 40,2460 50 137 1 '5BLANK1 INDEX INREL 

0646 REF 2 LAST 321 40.2461 3 2474 1 CAF DOORLK -2 

" ^06T7 ref 1 5 east 32T 40,2462 54 777 1 n“S D5 P C D UN I 

- 0643 REF 2 LAST 31*7 40,2463 0 2502 1 TC 2BLANK 

- 064'> REF 9 LAST 319 40,2464 4 5016 1 CS TWO 

0650 RTF “ 15 LAST T22 40,2465 36 '777 1 ADS O S PC H UN T 

■ 0651 REF 3 LAST 322 40,2466 0 2502 1 - TC XBtANK 

0652 REF 23 LAST 322 40,2467 50 137 1 INDEX INRFL 

0653 RET" 3 L AST 370 ATT, 2470 3 4331 1 CTrE (0171 =2 

' 0654 — PFE 17 LAST "322 40,2471 54 T7T 1 TS OSPCOUNT SET DSPCOtlNT TO LEFT MOST DSP NUMBER 

“ 0655 REE ‘ 27 - LAST "32tr 40,2472 0 00 0 1 "0" TC 1. OF REG. JUST BLANKED 


0656 

0657 
0653" 
0659 
06 50 
066 I 


40,2473 00016-0^ SI NBLANK OCT 16 

40,2474— 00005 1 OCT 5 

40.2475 00004 0 OCT 4“ 

40.2476 00015 O OOUBLK *1CT 15 

40.-2*77“^ — 00011 1 OCT 11 

40 , "7— aO" 00003 1 OCT 3~ 


DEC 14 


DEC 13 
DEC 9 



0662- - - 40V2501 77774 0 BRNCHCON OCT 77774 


R0667 2:3LANK BLANKS TWO CHAR. PLACE OSP NOnBER OF LEFT CHAR op THE PAIR INTO 

R0664 OSPCOUNT. THIS N'JhCER IS LEFT IN OSPCOUNT 


0665 RFF IS LAST 322 40,2502 3 0777 0 26LANK CA OSPCOUNT 

0666 RTF 4 LAST 267 40,2503 54 021 0 TS SR 

- 0663 40,2505 0 0004 0 INHIMT 

- 066? REF 5 LAST 322 40,2506 50 021 1 INDEX ST - 

0670 REF — “25 — TTTST — m 40.2507 57*023 1 XCfl O SPTAB 

" 0671 40.2510 0 0006 I — FXTEW) 

- 0672 40^2511 6 2513 1 8ZMF +2 - IF OLD CONTENTS -, NOUT OK 

0673 REE 6 EAST 152 40.2512 2 5 * 016 1 mCR NOUT I E OLD CONTENTS T r - M TO N 

0674 40 , •’Tt? 0- 0003 1 RELINT IF -^MQUT OK 

0675 fpf /,7 last 321 40,2514 0 0002 D TC Q 

0575 4 0- ; 7-* n5 0 40 00 " O g tANKCOM O CT 4000 



4 


STfSl ASStMBl,E"'Rr-VI<;ii:)Kl (555 ■>! Jn'VC'PROGRAM COMANCHE BY NASA 2021irJ-051 IDiZS 


L PI^'IBALL BUTTONS “A NTTXTGW S' 


P0677 PNTFF PASS' D T S THT rXTCUTr ■RINCTrON. HTGAEFT TTODTR ENTFRT ARP TTrOAT) ~ 
R067a OATA. THF STG7J OF 'REORFr TTFTERM^TMES THE PASS. FOR PASS O.- FOR HIGHER 
‘ PAT5F7T 


APTT; 1.1969 — COHAID ni79 PAUF 


t • 




trSFR*S NO. IT" ^0 S4 


TOCRTNI^'CrAOPr TO Bh SPrECtFtbD (MCTRS) NUU Nb OESIRF AN fX/iOi T O BF LOADED 
^06R1" WHFN US^D WITH LnAO VERBS. MONT TH^ VERBS. OR DISPLAY VHRRS tFXCEPT 
R06B.B VERB = FIXED T^EMORY DI SPLAY, WHICH REQUIRES AN FCADR J . 


' " 06 ^1.70 DO 

a6P,'BTyi'“REF T ATTPUTKI 

oemnz at, 2000 

UNITES FrFT= 1 — 


BANK 41 

SETLOC PTNBALL2 
fUtNK 

COUNT 41 /PIN — 


05BV ’^EF 1 41,2000 0 354A 1 NVSUBB TC NVSUBl STANDARD LEAD INS. OONT MOVE 

OETBS TEE 1 4Tr2O01 “0 ZTTS 0 COAOLVl TC tOADLV 

AOSaS — STANDARD LEAD INS. 


05 nr 
05PS 

“OSPT 

06 90 
06 

TJ^rDE 

0693 


OTOT 


REF 

REF 



REE 

RTF 

■REE 

RFF 


42 

"2 

2 

4 

T 

2 


LAST 3Zr 


nsrsT 

LAST 

LAST 


BT9 

319 

321 


LAST- 323 


41,2002" 

41 .2003 

41.2004 

41 ,200B 
41,2006 
4 T,' 2007 

4172010 


5021 
7 '42 33 


54 
11’013 
O" 2035 
0 


t> 


1 

0 
1" 

1 
0 
cr 

ry 


ENTER 


CAE 

TS 

"OTP 

TS 

CCS 


TERD 
CL PASS 



ENTRET 

Rf QQFT 



~ 0694 





4172011 

0 2*012 o " 

0E95 

KtF 

T 



41; 2012 

3 2033 0 FNTP/ 

■"0'6O6 

TTEP-- 

5 

LAST 

3?3 

41.3013 

6 1013 1 

0697 





41. 201 4 

0 0006 1 

osToa 

"PEP~ 

X 



1 dUZf 1 

OSD 9 

RFF 

3 

LAST 

320 


3 6214 0 

0700 

REF 

10 

LAST 

3?2 

41,2017 

T l o o o-ir^ 

0701 

REE 

35^ 

CAST 

T2X 

41 , 2020 

xo“TroEr~o 

070? 


— - - — 



41.3021 

0 2033 1 

070^ 

REF 

2 

LAST 

323 

•41,2 022 

0 2027 0 

0T04" 

REF 

TO* 

LUST 

3’72 

41. 2023 

TO 777 I 

0703 

REF 

1 

- 

- - - - — 

417 20 2 4 

tr 23 SI 1 

070S 

PET 

2 

LAST 

323 

41 ,2035 

-O* 73S1 1 


TC 

TC 

CAP 

AD 

EXTEND 

B7P 

CAE 

mask 



41.2026 




-0703" 

REF^ 


LAST 

323 

4t.X02T^ 

0709“ 

PEF 

7 

LAST 

323 

4 1 ,203 0 

0710 

REF 

2 

LAST 

244 

41 « 2031 

0711 

--REF 

R 

L AS T 

32 3 

4 1 72032 







0712“ 

(7 FF 

3 

"trAST 

323 

013 6 

0713 

n cr 

\ — f 

! 

— 

— 

- 41.2033 


4 nci 3 0 
55^013 0 
tr“4T4T 1 
0 10 13 r 


ACCFPTWO CS 

TS 

TC 

TC 


ENTPASO 

MWADPEF 

RE ORE T 


ACCEPT 
THREE 
OECBRNCH 

or 

+ 2 

ACCEPTWO 

GODS P A L M 
GOOSPALM 

Tl 

REQRET 

REORFT 



REORET 


E NTEX M 


FNTRFT 


034"^! 1 MMAD«>FF ADRES MMCHANG +1 


IF Y 
IP ^ 

If - 



NOT PASS 0 


IF t/ 2 CHAR IN FOR MM CODE. ALARM 
AND RFCYCLEtOEC IDE AT MMCHANG+D* 


IE DEC. ALARM IF L/ 5 CHAR IN FOR DATA 
BUT LFAVE REQRFT - AND FLASH ON, SO 
OPERA T OR CAN -S U P PLY NtlMER iCAt 

CHARACTFRS AND CONTINUE. 

OCTAL. ANY NUMBER OF CHAR OK. 


LESS THAN 5 CHAR OECfOSPCOUNT 
LESS THAN 5 CHAR DEC ( OSPCOIJNT 

5 CHAR I N t OSPCQU N T IS - ) 

5 CHAR IN (OSPCnUNT TS -> 

SET REORFT +, 


IS 

IS 




ASSUMES TG RFOMM AT ^MCHANG 
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PmBALL GAMF BOTTHNS "AND LTGHTS 


0714 


OT^O 


P EF 



1 

T 


072? 

0723 


REF 


OTFT" 

07 B:> 

0733 

07F4 

07 ^ 3 ” 

0 T 53 r 

xrrrr 


RE 


"TEF 



REP 


T 

I 

1 


41 »2034 


07X5“ 

REF 

4ir 

LAST 

323 

0716 

REF 

11 

LAST 

32 3 

0717 

REF 

3 

LAST 

- 319 

CTTl? 

REF 

20 

XTA^ 

32 3 

0710 

REF 

9 

LAST 

321 



3 50 ?] 



4I,2n3?r 
4X72037 
■4T720W 

41, 2041“ 
41 72 042 
41,2043 
4T,2044 
~4 1 •2Tr4 5 


0724 





0723 

D pp - 

1 



0725 

REF 

3 

LAST 

271 

(3771 

FEF 

3 

LAST 

~ 7 TTT 

072 



- 


-■ -- - 

0729 





0 T 3 T) 

' R EF “ 

X 



0731 

REF 

3 

LAST 

270 

0732 

^EF 

2 

LAST 

324 

073 T 

REF^ 

3 

tssr ” 

“32 3 

073 4 

REF 

1 



02^3 

^ EF 

1 



07^6 

'TEX' 

X 



0737 

REF 

1 

- 

- 

0738 

REF 

22 

LAST 

189 

UTW 

RFF' 

9 

X 7 AST 

323 ^ 

0740 

RFF 

3 

LAST 

323 

0741 

R EF 

1 


■ 

0742 





074 X 





0744 

REF 

2 

LAST- 

32 4 

0 7^3 

R PF 

I 



0746 

RTF — 

12 

EAST 

324 

074 ^ 

““REF 

1 



XJ 743 

REF 


LAST 

^2 4 

0740 

REF 

21 

LAST 

32 A 

0753 

REF 

3 

LAST 

315 


41 ,2046 
41 72 04X 
41 ,2050 
41,2031 
41 ,2t}52 
41,2033 
4177034 
41 ,2 035 
41,7056 
41,2037 

'^ l ,7060 
41,2031 
41;- 205 Z 

4 1 , 70^63 
41, 2064 
^•-l ,2063 

41,7 06 6 
^ 1 ,203 7 
41 , 7070 

41.2071 

41 .2072 
^T 72 UT 3 


55^000 1 
4 43T4 1 
54 7r7 1 

4 1001 0 
55»041 1 
6 2034 1 

0 0003 I 
6 2133 1 
V 0003 T 

3 2114 1 
52 006 0 
“^O" 


TESTV3 


TE5TNN 


T 

1 

0 


0 2052 
0 2055 
O 2221 
10 143 0 
0 2131 O 
XT '2351 1“ 
0 2034 1 
25 •0X7-0“ 
0 4325 1 
0 2120 O 

3 5001 0 
■53' 015 O' 

4 4233“0~ 
6 0X33 0“ 

TT" 


“RE 0 AO 0 


0 0006 

1 2073 
0 2116 
XT 


0 

o 


41,2074 


230 

1 POOO 1 

^ 4161 O 

« 

41,2 07 5 "4 4374" T 


41,2 



41 ,2077 
41,2100 



54 777 I 
11 •04? X 
O 2 104 0 


4 J , ^ T 02 
41 V2T03 
■4TT2 



41.2105 

41 .2106 
■4lT2r07 

41 , 71-10 

41.2111 

41.2112 


tr 2105 X 
0 2104 0 
O ' 4443“0' 

57*003 0 

0 4317 0 
0 0003 1 
3 2 1X4 1 
52 - 006 O 
■0“ 


USE AO 0 


05ER*S PAGE NO, 18 


EO S4 


00034 0 LOWVERB DEC 


28 


LOWEirX/ERB THAT AVOIDS NOON TEST, 


UTIF 



T 5 

CS 

TS 

TTD 

EXTEN0 

8 TMF 

EXTEND 


TFRO 

DECRRNCH 

vni 

D5PC0UNT 

VER 8 REG 
VERBS A VE 
LOWVERB 


NOUN VERB 



BLOCK FURTHER NUN CHAR, SO THAT STRAY 
XH A R no xrO T GE T I NTO V E RB O R NOUN L TS 
IF VERB IS G/F LfTWVB, SKIP NOUN TEST, 
SAVE VERB FOR POSSIBLE RECYCLE. 
L O WV E RB 


VER 8 FAN 


LODNNLOC 
OXCM Z 
NOEX HIXBR 
TC FO 

TC +2 


CCS 

TC 


HTXNOUN 

NNAOTE*^ 

VER 8 FAN 


TC 

TNCR 
TC — 
TC 
CAF 



REOADO 

NOUNCAOR 


INTNCT 8 S +2 
B XT 15 



CS 
AO 

SZf 

TC 

TC~ 

CCS 

TC 


FNOINST 

ENTPXIT 


INTMCTBS 
R 



TS 

CCS 

“TC 

TC 

TC 

“TC 

XCH 

TC 

E X TEND 

nxCM 




DEC 8 RNCH 

AINCYCLE 

wt 

05 PCOUNT 

CAORSTOR 




USFAOfl 

♦ 

F tA 'S HON 



SETNCAOR 

tnONNLOC 

7 

Vf RBf AN 


VERB G/E LOWVERB 

V E RB Lr ~ LOWVERB — ~ — — — 

SWITCH BANKS TO NOUN TABLE READING 
ROUTINE, 


NORMAL 

NIXED 

NORNAL 

NORMAL If ^ 

T P FO 



SPECIFY MACHINE CAOR IF - 
augment machine CAOR IF -0 

-Sf T^ 3B , 



NOU N A Ofl, 


CLPASS FOR PASSO ONLY 


TEST IF REACHED HERE FROM INTERNAL 
— FROM EXTERNAL 


OR 


EXTERNAL MACH CADR TO BE SPECIFIED 

ETT tR N At M ACH C AO R TO X 3 E S PE CI F tEO 
ALARM AND RECYCLE IF DECIMAL USED 
FOR MCTeS, 

OCTAL USED O K — — ■ 


BLOCK NO^ CHAP IN 


EXTERNAL H CTBS DISPLA Y WlL t -t E A YE Ft ASU 
ON IF END! OLE NOT = ♦ 0 . 


ECADR INTO NOONCAOR. SET EB , NOUNADO 


SWITCH-BANKS TO NOUN TABLE READING 

routine. 


0 731 


Pcf 22 LAS! 374 


0777 


EBANK^ OSPCOUNT 


0762 

0762 


0763 


Gap : ASS^MPLE Vl ^ I HN ' fjP AbO T«?[OGP<AM CTMANCHP BY NASA' 2021 1 1 'i-Ob 1 


P I N P ALL G^MP RlJTTON S AMO LTGTTTG 


jr., — |— 


R cF 


1 

1 


4 1 , zn3 

41.2114 


ozaftz 1 

v 64 roi a 


41,7115 


L OD NTvILTTC 2 C AD P I H D M N T A B 


0 4irG5 


77777 


TO: . 1,1969 CUWAIl) 


USER^S MGP NO. 19 


0 Z 9 — — 375 


E? S4 


0 7 64 

07-iF 

0766 

0T6T 

076 n 
076^ 
077TT 

0772 
07 7T 

077 + 


TFF 

REF 


T 

5 


R-F 

REF 

! 

• 1 

1 

p-M r\) 

1 

TTsrsr 

LAST 

TTB 

324 

"9rTT2TT6 — 

41,2117 

4 1 , 7120 

RFF 

LAST 

23 3 

R K F 

^FF 

10 

4 

LAST 

LAST 

32 4 

324 

41.7121 

41.7122 
41,2T23 

RFF 

7 

CAST 

TZD 

41.7174 

^ FF 

?3 

LAST 

324 

^ X f Z X 2 5 

D pc 
< C • 

2 

LAST 

324 

41,2126 


TTTT 


7 


3 0156^ "O 

0 4317 0 

4 5072 0 
6“100T"T' 

0 0006 1 

1 7133 0 
3 46^5 0 


fNTNlCTBS CA 

TC 

cs 

TO 


54 777 
3 1017 
0 33b ^ 


LAST 32S 41,7130 0 7133 


1 

0 

T 

1 


E X TEND 
BTE 
C AF 
TS 
CA 

TC 

TC 


MPAC “^F7 

SFTNCADR 
FIVE ^ 

VFRBTAN 

P301 

DSPCOUNT 

NOUNCADP 

nSPHCTWn 

VFPBFAN 


TNTmN At MACT 
EC ADR INTO NOUNCAOR. 
NVSUB CALL LEFT CAOR 
CADR TP BE S P EC I FIED 


OONT DISPLAY CAOR IF VB 
VB NOT = 05, 



SET E8, NOUN ADO. 

IN MPAC+2 FOR MACH 


- 05 



0T75 ■ 

0776 

0777 
0773“ 
0779“ 
0730 

07Tr" 

0732 

0723 

073^6 

0735 

07^6 


07 


Ttr 


079 0 
OTTT 
0^72 


REF 


RTF 

22 

TATST 

TZT 

4T, 21 31 

6 5017^ 

1 

RFF 

3 

LAST 

325 

Al, 2132 

0 '*:i 1 3 

0 

PEF 

1 



41 , 7133 

‘t 7145 

1 

R F 

IT 

L AST 

' 3T5~ 

■~^1.2TT’zr 

6 1001 

T“ 

FFF 

36- 

L AST 

373 

41 ,2135 

ID 000 

0 


23 

LAST 

32 5 

41,7136 

6 STTIT 

1 





4T , 71 37 

0“21 41" 

I 

R EF 

1 



41 ,7140 

0 7146 

0 

RFF 

77 

LAST 

325 

41,2141 

54 154 

0 

TFF 

4 

LAST 203 

4T ,'2T47“ 

0 4473 

0 

R FF 

17 

LAST 

315 

41,2143 

0 4701 

0 

RFF 

1 



41,-^144 

6 6 on 0 

1 



REF 


12 

1 

1 


LAST 325 


4T72145 

41,7146 

ATT, 7047 

61 ,7160 


51«001 1 

TrTTTT— IT 

0 A704 0 


VERBFAN 


000 50 I — rsrrcrm 


"AD 

TC 

CS 

AD 

CCS 

AO 

TC 

TC 

TS 

TC 

TC 

CAOR 

iTEtr" 


VBFANOIP INDEX 


T 


TC 


OME 

SFTNCADR 
LST2CUN 
VERBREG ■ 

A 

T2 

VBFANDIP 

MPAC 

PEL DSP ^ 
POST JUMP 
GO^XTVB 
40 


VERBREG 
V^RRTAB 
BANK JUMP 


ECADR INTO NOUNCAOR. SETS EB, NOUNADO 



VERB- 


VERS G/ LST2CON 


VERB L/ LST7C0N 



STS T^ 

G0 TO GOEXTVB WITH V8-40 IN MP^C 


rT ST? V E R B TTXrEN0E-fT-VE 


077 2 

0774 

07 0 3 
0 7 -76“ 

07 97 
0798 
0790“ 

08 00 
0201 
0302 

0 2 9 3 
0704 
7739^ - 
0806 
08 77 


REF 

REF 

REF 

TEF 

REF 

REF 

■RTF 


p "cp 


"RTF 

RFF 

- -f: 

FFF 

REF 

o 


4 

1 

1 

1 

1 

1 

T 

1 


LAST 324 


41 T 2 T"Tir 
41,7152 
41,2153 
, ?154 
41 , R 155 

41 , 2156 


TTmT 


41,2160 



5 

IAS r 

32 5 

41,2 IS 1 

96 

7 A ST 

r J 

4 1,215 7 

1 



A 1 , 2 1 6 T 

1 



4 1 . ? 1 54 

2 

LAST 


■■ 4 7 , 7T ,5'*> 

3 

1 AS"^ 

375 

41 , ?1 56 

4 

LAST 

37S 

1 , > L6 7 


1 


606 77 
623 51 
6 73 5 1 1 

61376 1 
63730 0 
63730 -0 
63? 30 0 
63R ^O 0 


VEPBR^aS — CAtm 

CADR 

CADR 

CA DR- 

C A OR 
C AOP 



CAOP 
C AOP 
CADR 
CADR 
CAt0R 
C A D R 

r ADf?' 

r ADR 


OSPA 

DSPB 

■ - 

DS PC 

OSPAB 

OSPABC 



DSPDP DEC 
GDOSP ALM 



DSPAt ARM 
WNITO^ 

MflN I TOR 
I T ! 


VBOl 

VB0 2 


V804 
VB05 
V B 0 6 

VB07 

VB08 


DISPLAY OCT COMP 1 (Rl) 

OTSPtAY OCT COMP 2 IRl) 

DISPLA Y t ^T C - O M P -T ( -R -1r t° ' 

DISPLAY OCT COMP 1,2 (P1,P2> 

DISPLAY TiCT COMP 1.2.3 IR1,R2,R3I 

d eci m al DfSOLA Y — 



DP DECIMAL DISPLAY (P1,R2) 
SPARE 

E 


V810 
VBl 1 

^tntT 

VBl 3 
VBl 4 


SPARE 

MONITOR OCT COMP 1 (PU 
M ONITOR OCT CO»^ "2 
moNITt-^R OCT COMP 3 IRl) 

MON IT Ok OCT COMP 1.7 (Rl.R?) 


ar9 — PAC 7 E 326 


L 


AP : 

ASSEMBLE R- 

TmruEr'cTss 

OP AGC PR' 

IGRA'-I 


''IN BALL G 

AHE 

buttons 1AND LIGHTS 

— 

0808 

R e F 

5 

LAST 

32 5 

41,2170 

63230 

0 

0804 

P CfT 

6 

LAST 

326 

41.2171 

63230 

0 

0810 

=’EF 

7 

LAST 

326 

^ T , 2172 

^"3270 "O ■ 

0311 

RFF 

7 

LAST 

37 5 

41.2173 

62351 

1 “ 

0312 

RFF 

8 

LAST 

32 6 

41.2TT4 

623 51 

1 

0818 

TFF 

9 

Iw 1 

376“ 

41 ,21 7E 

623 61 


0814 

REF 

1 



41.2176 

67732 

0 

0815 


1 



41,2177 

62743 

0 

1181 6 

RFF 

1 



41,2200 

6276U 

~T~ 

0817 

RTF 

1 



4r.2201 

62703 

1 

0818 

RFF 

1 



41 , 720 2 

67616 

1 

Oslo 


10 

ra^ 

82 6 

f 2^0 5 

623 51 

I — 

0320 

RTF 

1 



41 .2204 

63353 

1 


it: 


TUrZW~WVK-. 1,1969 CD MAID 


C ADR 
CAOR 



TTATJR 
C A DP 
X 


CA0R 

CAtfft 

CABR 


CAOP 

CADR 

CADR 


AOR?l 

0^23 
0R24 
0 3TR 
OR26 
0827 
T 



0829 
0820 
TTH21 
083 7 
0f333 


TFF 

REF 

REF 

REF 

REF 

^?FF 

RTF' 

^EF 

r? cp 


REF 

RF^ 


IT 

12 

1 

1 

i. 

1 

r 

1 

1 

—r 

13 
1 ^ 



LAST 326 


TirST 

LAST 

LAST 


T2T 

32 6 
32 6 


■znV220S 

41 T 2206 
41 t2?07 
4TT22ITT 

41.2211 

41 . 2212 
TTF22T3 

41 ,2214 
41, 7213 

41.2216 


62351 

623 51 
6T466 
HT5TZ 


r 

1 

n 

1 

1 

0 


61364 
613 47 

618 55 0 
63613 


41 ,2217 
41 .2220 


63430 tr 

62351 r 
62351 1 


CADR 

C ADR 

RFQFXLOC CADR 

CTmiT 

CADR 

CADR 

— C A D R 

— ^ CAOR 

CAOR 

. . — ■ . .^■h. 

CAOR 

CAOR 

— - CAOR 


WnNlTOR 

MONITOR 
FUNTTUT 
FOOSPALM 
GODSPALM 
GODS P AT M 
ALOAD 
BL OAO 

CLOAD 

ABLOAD 
ABC LOAD 
GTrn5»’ALM 
DSRfMFM 


GOnSPATH 

GODSPALM 

VRROEXEC 

w L-/ * > X * ir^ L i 

VHP PS GO 
V6PR0C 
VB TPR M — 
VBTSTtTS 
SLaPt 
^ M C H A 

GnospatM 

GODSPALM 


trSTR'S PTSGE'HO^ 20 


EO S4 


VB15 
V316 
VBl f 

VBIR 

VBia 



HON I TOR nCT COMP 
MONITOR OECIMAL 

WONITOR DP DEC nrTTRTT 

SPARE 

SPARE ~ 


.R2,R3r 



VB71 

V322 

VB23 

VB24 

VB25 


I HAD COMP 1 (Rl) 
LOAO COMP ? (R2) 
LOAD 



LOAD COMP 1,2 (R1,R2> 

LOAD COMP 1,2,3 (Rl,R2,R3) 
VB2 R SP A ITE 


VB27 FIXED MFMORY DISPLAY 

THE FOLLOWING VERBS MAKE NO NOUN TEST 

VB23 S P A RF “ “ 

SPARE 


VB2P 

V330 


REOUEST EXECUTIVE 
R EQ U E S T 



VB32 

V833 

V334 

VB3B 

VB36 


RES 

PROCEED WITHOUT DATA 
TE RM I NAT E CURRE N T TEST iTP tOAO PEQ 
TEST LIGHTS 
FRESH START 



VB3B 

VB39 


SPARE 

SPARE 


POP. 3 4 


THE LIST? VERBFAN I”S LOCATPn IN THE FXTENnEO VE»B BANK. 
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10! Z8 APR. r, 1^69 



Tuz^ — 



L 


P I MBALL GA>^r“' ¥lJTTmT5 i\;sin" LIGHTS 


tJ5FR"'T~PAiGH N0. 21 


ETT S 4 


P0P37 

R0I36 

RXRT7 


ITORITT 


■NNAHTAB CGNTATHS” A TTFLATI VT A^T)K^SSW^ I Dmm EL flN ttlW 10 BTTSIV 

TO Inhere 3 cnNSEciiTrvp aoioresses ar?^ storgo i tn roAODTABr. 

MIXK'nUN GblS DATA A^40 SI^TR^^S IN MlTTE'^Ft . 12 . IT SETS MniJNA'DD 
^IXTFMP. 


RFFERRTNG 


OTPO 

OEB-0 

0P41 



OR 43 
0844 

0R4y 

03-^^A 

0847 


PEF ■ 

P EF 

■'4 ^ 

15 

LAST 

3;?4 

~TiTrZ72T 

41.?222 

— la 146 

0 2 226 

~Tr 

0 

1 

LAST 

326 

41 ,2223 

0 2351 





41,2224 

0 2226 

0 

... 




41.2225 

0 27T6 

o 

P F F 

'11 

LAST 

“'2T8 

4r,2226 

4 6211 

1 

PF'^"' 

TT“ 

LAS \ 

32 5 

41,2227 

6 1001' 

L 


MIXNiJUN CCS 

TC 

TC 

rc" 


034M 

■PFF 

034^ 

FFF 

0860 

F cF 

0 8 8 1 


0852 

REF 

0853 

REF 

OP'STT' 

R EF 

0855' 

REF 

A 0855 


AU8S 4 

0 8 o 8 

^FF 

0857 

RFF 

0 S 0 

R £F 

0861 

REF 

0852 

REF 


“G" 

in 

1 

1 

2 


I:A31~ 52b 

L AST“ 


LAST 

LAST 


327 

TTTJ 


41 3 30 
41,2231 
4 1 , 22 32 
41,2733 

41.2234 

41 . 2235 
41 ,223 6 
41 .2237 

‘41,2240 


0 0006 1 
6 2233 1 
2133 1 


IT 

3 5016 0 
54 1 17 1 
B 2260 I 
54 146 0 
50 117 0 


TI XNNl 


T 0I50‘ (J 


B4 122 1 


0163 

0T64 

0^35 


RTF 

HFF 

REF 



1 

87 


TT5 


LAST 325 


4 1 , 
41, 

4TT 

41 I 

4r. 

TH 

41 , 
41, 


xrioF 

0867 

0868 
0867 

0870 

0871 


RFF 


LAST 327 


9FF 

REF 


3 

1 

7 


LAST 


LAST 327 


, 

41 f 

41, 
41 , 
4 1 * 
41, 


2243 

2244 

2246 

2246 

2247 

2250 

2251 
22FZ 

22 53 
22 54 
■22'55 

2256 

2257 



0 3034 0 
0 2261 O 


0 

0 

T 

0 

1 

T 


24 172 

3 0122 
7 4372 

U 43 27 
50 000 
"3 0000 
80 145 
56 000 
'TO 
0 223A 
0 2133 


1«5 1 XNN2 


1 

1 


0 

I 


TC 

rs 

IT) 

EXTEND 

BZNF 


Tt 

CAE 

TS 

ItTJ 

TS 

INDEX 

TTA 

TS 


TC 

TC 


I NCR 
CA 

msK 

TC 

INDEX 


INDEX 

XCM 


TC 

TC 


NNADTEW 

+4 

GODSPALN 
T2 

■F 1 
STX 


VFRBREG 

+ 2 

VEPBFAN 

Twn“ — 

DEC HUM T 

NTXAD 

NnUNAOO 
OECOUNT 
TDADITEM 
NDUNT E M 


SPRUTMIX 

DPTFST 


NOUNTEM 

NODNTEM 

LOKll 

SPTF3 ANK 
A 

D — “ 

NOUNAOO 

0 


NTXNNl 

VERBFAN 


^ IN USE 
4-0 MOT IN 

USE 


USE 


-0 TN USE 


VERB L/E 6 
AVnTD‘l»l 



NHT — D I SPL AY 


NOUNAOD TO ttlXTEMP + K 
GET inAODTAB ENTRY FOR COMPONENT K 

I 

OF NOUN. ^ ^ 

TEST FOR DPIFOR OCT DISPLAY). IF SO, GET 

M I NOR PAR T TTNCm 

GET SF RTJUT number IN A 


N O D P — — 

DP GET ^INDR PART 


ES UB K (NO 0 <») 

SET EBANK, LEAVE 
PICK UP C(ESUBK) 

m 



Ftm DD 



EAORES IN A. 
NOT DP 

TNip- O P M i nm 


PART 


store in MIXTEM + K 


0872 


REF 


LAST 321 


41,2260 0 0126 1 NfXAD 


TC 


MIX TEMP 


R0873— O PTEST ENTERS WT IN A. 

t?a874 RETURNS TGH-l IT OP. 

RDB 75 PETUFnS TO L+2 IF nPr“~ 


087n 

PEF 

np. 

LAST 


4 T , 22-61 

50 000 

It DPTEST 

INDEX 

A 

^ m 



0877 





41,2262 

1 22 63 

0 

T" f* 

+ 1 



OF 75 


48 

LAST 

322 

41.22 53^-^ 

0 ODO 2 

0 

TC 

0 

OCTAL 

only no op 

08^7 

REF 

47 

L AS1 

3 77 

41,2264 

0 000? 

0 

TC 

0 

FRAGT 

NO DP 


"T" 


gap: 


ASSE^MBLF REV IS I '"'N 05 ‘=' OF 



MASA 2021111-051 10:28 AP”. 




P T N R A L L G A 'TC " ■BlJTTrTNS A 'TO crGHTS 


1tSER*S PAGE NO. 22 EO S4 


0880 

REF 

50 

LAST 

3ZT 

0881 

REF 

51 

LAST 

32H 

D842” 

■ iTtF ■■ 

1 



0883 

REF 

7 

LAST 

32 8 

0384 

RFF 

52 

LAST 

32F 

0 8 F 5 

o p p 

3 

TffST” 


08 86 

REF 

53 

LAST 

328 

0R87 

REF 

54 

LAST 

32 8 

0835 

TTFr ^ 

4 

LAST 

32 8 

0 085 1 

REF 

55 

LAST 

328” 


0BR82 REE G6 LAST 328 

OFiTTTJ" RET 5~TA-5T 72T 

0839 REF 57 LAST 328 
OB'^O 


41.2265 0 0002 0 

41.2266 0 0002 0 

4T272F7 1 '2301 0 

41.2270 1 2301 0 

41.2271 0 000? "O 

AT, 227? rT3TJT~D 

41.2273 0 0002 0 

41.2274 0 000? 0 

41,22 15 1 2301 0 

41.2276 0 0002 0 

41.2277 0 0002 0 

41 ,2iOU — 1 2301 U 

41,7301 50 002 0 0PTE5 

41,2302 0 0001 0 

I 


TC 


TUF 


0 

0 


TC 

TTF 

TC 

TC 

TCP 

TC 

TC 

TCF — 
INDEX 
TC 


WTEFTT 

DFTESTl 

0 

DPTESTl 

Q 

0 


DPTESTl 

0 

Q 

DPTESTl 


Q 

1 


OFC TIO DP — — ^ 

A^ITH NO DP 

DPI OUT 

DP20UT 

OPOEG NO Ot> 

DP30UT — 

HNS N O O P 

N/S NO DP 

D P 4 OU T - 

Al^TTHl NO DP 

2INTnUT NO DP TO GET HI PART IN f^PAC 
D PE RAC0 1 — 


RETURN TO t+2 


08^1 ^EF 4 LAST 322 41,2303 3 4333 0 REDDATX CAE RlDl 

08D2 ~RTF 1 ^ 41,2804" — 1 231'0 0 REQCnN — 

0B^3 REF 2 LAST 320 41»2305 3 4334 1 PEOOATY CAE R201 

0P94 REF 2 LAST 328 41,2306 1 2310 0 TCP REQCOM 

— unT? 3 ^ rrsT 325 41,2307 — 3 4335 0 — reqdatz — — rtot “ 

0895 REE 24 LAST 3?S 4 1 ,"23 ITT S4 7^7 f REDCON TS “OSPCOUNT 

0897 - RTF 8R L AST-“ T2B 4T7331T 4 0002 T “ CS 0“ 

— DHF8 RFF ^ — nrSl 323 4T727T2 ^3^13 0 TS R E OR ET — 

0897“ REF 38 1 AST 321 41,2313 0 4662 T “ TC 8ANKCALL 

ORHO «eF 2 LAST 321 41,2314 60437 I CADR S8LANK 

D9TJT RFF 2' TTST 3Z-5- 41,2315 0 4443 o TC E LA S H ON 

ODOT"- REF 2 LAST 324 41,2316 0 0136 tT E NOROD AT TC ENTEXIT 


0903 3 nrSl 3TD 4 1,2 317 — sTHirnm 

11904 OFF 59 LAST 3^8 41,2320 36 002 ” O 

0905 RFF T 41,2321 54 117 1 

0 906 41,2322 0 0006 1 

090 '^ REF 3 LAST 324 41,2323 3 21 14 1 

0908 REF 5 LAST 374 41,2324 52 006 0 

0709 "REE ■ — 5 " LAST 327 4 T ,?325 10 146 0 

0910 ^REF 24 LAST 328 41,2325 6 5017 1 

0911 REF 1 41,2327 1 2832 0 


0^T2 2 " LAST 323 41,2 330 r'2333 1 

0913 ref 3 LAST 328 41,2331 1 2333 1 

0914 FFF 4 LAST 325 41,2332 0 4317 0 


aTLS" 

REF' 

~2 

LASl — 

3 IT 

41, '2333 

'3 43 T 5 T 

0917 

7 EF 

25 

l/tST 

328 

4 1 ,23 3 4 

54 77 r 1 

091 7 

RTF 

9 

LAST 

323 

41,^3 36 - 

" 3 1002 1 


0913 FEE 1 4TT2336 ri 

m 


09! 9 

• • E F 

14 

LAST 

B2 7 

A1^2?.3 7 

55*001 0 

0929 — 

-- — c Pf^ 

1. * 

■'60 

1. ^ S T 

32 8 — 

— 41 ,2340 

56 002 C 

0921 

2EF 

2 

LAST 

328 

41,2341 

54 1171 

0922 

■f? 

S 

LA S T 

32 4 

41 ,^347 

3 4374 0 


UPOATMN 


P UT A D 0 


U P tTATVB 


TS~ N n UNR E G 

XCH 0“ 

TS UPDATRET 


OCA L"‘DNNLOC 

DXCH Z 

CC 3 ^ 4 NAt l T PN " 

AO ONE 

TCF PUTADO 


TCF P UTAD O 

TCP PUTADO -H 

TC SFTNCADR 

CAP Ntrt 

TS D5PC0UNT 

CA N‘53NRFG 

TCP UP D AT 1 


TS '"VERBREi; 
XCi^ 0 

TS UPDAIRET 

CAP VOl 


SWITCH RANKS TO NOUN TABLE READING 
ROUTINE, 


NORMAL 

M 

M CTBS B U N T CHAMG f NOUNADD 

MCTRI OONT CHANGE NOUNADD — 

EC A OR INTO NOUNCAOR. S^TS FR, NOUN A DO, 



ASSEi'^BLF t>EVTSni'J 055 



3r(":'C'i'Ror,c!AM cdmancre'by nasa 2021113-051 


10:28 APR. 1 , 1 169 CUMAIU .029 " f>AGf: J2V 


L or-! BALT. GAMF T5UTT0N5~AMn”LTGHTS 


trsE R * s PA CT wrrr ^3 — eo 


0^23 T;EF 26 L71FT 323^ A:1,^.A7 34 TT7 1 TS aSPCOONT 

0924 “OFF 15 1.A5T 328 41,2344 3 10D1 1 CA VFRBPTfG 

0^23 22F rg DTST 41.23 46 0 4/01 0 — UP0A1 1 IX pmsTJUHP CAM T USE 5WCALL TO G O TO DS P D E CVN.S t WC 

0926 PEF T 41,2346' 61224 1 XTOJR GTIVNIJPOT OPOATVB CAN ITSELF BE CALLED BY SWCALL 

0927 2EF ■ 3 LAST 328 41 ,2347 ^-'(T 01 17 0 TC“ UPDATPET 


09 


Q 

f ^6 


R 





LAST 


41,2350 V 4161 0 GOALMCYC TC ALMCYCLE NEEDED 3ECAUSE BANKJOMP CANT-MANOLE F/F. 


0979 RFF 19 LAST “379^ 41,2351 0 470X 0 GDOSPALM TC POSTJUMP 

09 30 PTF 2 CTLST 329 ■' 41.2 352 61326 I CTOR DSPALARB 




7TXP: ASSEMBLE REVISION' Gbb UF- '5^: "PIHIGKAM CUMAMCHb BY NASA Zar21T13-051 


10!28 APR. 



TtTT^J PAS^ 



C 


P T W P ALL T,AHH ^UTTUNS AMTl^ L I^KTS 


USBR*S PAGE m. 24 


EO S4 


P0931 NOUN TA8LFS' 

R0932 NOUN CODE L/AO, NORMAL ^nUN' CASE. NOUN CUDE G/E’ 4G. MIXED NOUN CASE. 

R 0 oTl M Al^ SE.“NTirADTAB"'C^lNTAINS HME ECADR EUR EACH NUUN. 

ROP?V +0 INDICATES NOUN'NOT USED. - ENTRY INDICATES MACHINE CADRCE OR FI TO 

R093S BE 5*^00 If I ED. -1 IMOTCATE5 CHANNEL TO BE SPEC I El ED, -0 INDICATES AUGMENT 

Of I TCST'F A'CHTN f CAD^ SU PPLT E D . 

R0937 FOR MIXED CASE» NNAOTAB CONTAINS T)NF INDIRECT ADDRESS ( ID ADORED IN LOW 

R 093 3“ I anmrr' and^thf^comfonent ctde numbfp“tn the high 5 bits. — — 


NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNpopRP . 


R09A0 FOP. THE NORMAl CASE, "M-S ARE THE COMPONENT CODE NUMBER. 

RODAl M-S ARE THE SF ROUTINE CODE NUMBER. 

PTJFT2 — ” — P"-S A3L THb Sf CONSTANT CODE NUMBER. 

R0943 MIXED CASE,M-S ARE THE 5E CONSTANT! CODE NUMBER 0 COMPONENT CASE 

TTOPAA N-S~ARE IHL SE CIONSTANTZ CODFOVIUMBER — 

R0945 P-5 ARE THE SF CONSTANTl CODE NUMBER ^ 

R094F N-S ART THE SF CONSTANT? CODE NUMBER ? COMPONENT CASE 

RI)°4T ~ P-3^7ARE“THF SEX UNST ANT 1 CnOE NUMBER 

R0940 P-S ARE THP SF CONSTAIMTI CODF NUMEEIT 1 COMPONENT CASE 


irODW 

RODSn 

R0951 

R09E7^ 


■R0954 TH^Rf TSTOVISn* A 'SCALE" FAT^FOR- EOUTINF NUMBER TABLE( RUTMXTAB' I 
EDD55 CASE ONLY. THERE IS ONE ENTRY PFR M 1X^0 NOUN. THE FORM IS, 
R0DS6 noQOORRRPRSSSSS 

TIUDST Q-S APR THE ^T^'PXaiT INE-B COOr NUMBER 3 COMPONENT CASE 

R09ER S ARE THE SF ROUT INE 2 CODE NUMBER^ - 

R09S9 S-S“ARE THESE ROUT INF 1 CODE MUMBFR ' ^ 

"R 09S0 2-'S"OiRE“ THE' SF 'ROnTTNr ? CD OF NUM0FP 2 COMpnNE^rr”CASE 

ROaSI S-S ARE THE SF ROUT INF 1 CODE NUMBER 



T H ERfl^^ALSH AN INDIPECT ADDRESS T ABL E ( I OAOOTAB I FOR MIXED CASE ONLY 
EACH ENTRY CONTAINS ONE EC ADR . TDADUPFL tS THT PEL ATI VE ADDRESS OF 

THE FIRST OF THESE ‘^NTRTTS. 

THFPr MNt ENTRY IN I HI’S TABLE FOR EACH COMPONENT OF A MTXFD-NOUN — 
THEY ARF LISTED IN O^DFR OF ASCENDING K. 


ROD'S? IN OCTAL DISPLAY AND LOAD (OCT OR OEOI VERBS* EXCLUDE USE Of VERBS WHOSE 

R09o3 COMPONENT NO^'^BER' IS GREATER THAN THE NUMBER OF COMP0^4E NTS IN NOUN. 

'^096^4 rArL“MACHPIE ADDRESS TO BE SPECIFIED' NOUNS ARE 3 COMPONENT.) 


ROP ' 6 7 I N MUL TI -CO MP ON E N T LOA n V E RBS. NO MIXIN G OF OC T AL AMO DECIMAL DATA 

Rn9(TB CnM-pONENT WORITS IS ALLOWED. ALA *?MrE~ VIOL AT ION. — 

R 0969 IN DFCTMAL LOADS OF ■f^.AT'', — 5 Mtl-MERICAL CHARACTERS MUST BF KEYED — tN~ 

R09TO BEEDt?F FACH ^'NTEH. IE N’U. ALARM. 



ASSEMBLE RFVISION OF AT;C PI^or/?^:\FXoM'AKiCMEf BY""NAS4 2021 113-051 HITTB" "A P'R . 1 *1969 — CTITOSTD HJZg 331 


L dtmbALL game BirrTnNS"ANTr L~IlGTTrS — nSEir»rS PA 1 ^B NO. 25 - Ttr S 4 


P 097 T 


0972 

- ppF 

~Lr 9 TT“ 

REF 

0974 

REF 

0975 


0976 “ 

■■ ■ 7 EF' 

ORR'^ 

p EF 

0977 

RFF 


' 5 L- 
'"A 1 

0980 


0981 

REF 


a9^ 
0983 
0 9 8 A 

r. 


TTFF 

REF 

OFF 


T^rX’■^ 


09^8 

0937 

O’TTTO 

09?9 

0990 

(T9^r 

099Z 

0993 

0995 

09^8 

0'99T 

0993 

0999 


REF 

17 FF 

^EF 

REF 

REF 
R^F 
^ EF 


rono 

1 001 
100^ 
TOOT 


R EF 
REF 
■RTF 

■RTF 

o pp 


17 A 


100“5 
TOO 5 
1007 

1003 
im^ 
ini 0 
lOLl 

Ttrrz 


RFF 

REF 

FFF 

REF 

REF 


11 


DISPLAY 
LAST 





3 LAST 327 


36 
35 

7 

37 
“T 

1 

5 


rAST"3G6 


LAST 

LAST 

XSST 


328 

331 

33T 


LAST 331 


LAST 331 


3R 

1 

36 

1 

6 

1 

12 

~2 


LAST 331 


^33" 


LAST 331 


LAST 

FAST 

LAST 


331 

33T 

331 


2 
13 
1 6 
W 

1 

3 



AT* 733 3 
A 1 773 5 A 

A1*2333 
41 *233B 
41,235 / 

4172350 

41.7361 

41.7362 

41.2363 
A^l , 2364 
41 * 73 6 5 

41 723 A6 
4172367 
41,23/0 

41 ,73 71 

41 ,737 2 

41.2373 

41.2374 

41 .2375 
AT773TF 
41 ,7777 
AlTTAErO 
41,7401 

41 .2402 

41 . 2403 

41.2404 

41,74t)3 
AT * 2406 
41,2407 


4 5ai 6 1 
0 2424 1 

1 
1 
T 



50 T 
4 0002 
56 132 

4 5 017 
O 7424 
■50“ 


05 PAB 


0 
1 

145 1 

4 0001 1 

56 131 I 

0 2443 0 DSPA 
O 2466 1 
50 145 1 
4 OITOOT’TI 


5 6 T3tT n 
0 2405 1 
4 5017 0 
0 2437 0 
50 149 1 


DSPCOm 


DSPR 


■4 0001 T 
V 23 T1 31 
4 50 T 6 1 
Tr" 243 T' 


06Ft 


50 145 
4 0002 
0 2371 
4 5016 
6 1001 
TO 


0“ 

1 

1 

a 

1 

i 

O' 


OSPCOM2 


LAST 328 


REF 

REF 

•RTF 


1 

30 

4 

27 

2 

39 

■> 

3 


LAST 
T A ST- 
LAST 
LAST 


331 

37B 


329 
33 1 
T 45 T ■ 33 1 
L 

LAST 331 
LA ST — m 




41,2410 
41, 7411 

■4TT74T7 

4 1 .2413 
41 ,241 4 
4T774T5 

41.241 6 

41.2417 
'43, 2420 

1 , 2 A 2 1 
A1 ,2422 


OOO 

Cr 2413 O 
0 0134 0 
n '7413 0 
122 1 
000 1 
o 


5 4 
50 


0SPcnM3 


4TV242 



TC 

TNOFX 


XCH 



TC 

INDEX 



XTFT 

TC 

TC 

INDEX 
ITS 

XCH 

TC 

rs 

TC 

TNDFX 

trs 

TC 


TC 

INDEX 

CS 



cs 

AO 


TWO 

LUMPIEST 

NOON A 00 
2 

6UF T7 

OOE 

COMP TEST 

■NOUN ADD 

1 

BUF *1 

DECTEST ~ 

TSTFORDP 

NnuNAon 

3 ) 

BUF 

DSPCOM? 

“OSTE 

OCOMPTST 
NO UNA on 

T 

OSPCOMl 
TWO 

DCDMPTST 
NOUNAOO 
2 

DS P C O Ml — 
TWO 


ABC AB 
“I “0 -Kl^ 1^2 
+0 +0 +0 +1 



TN A 
“TN-tT 


TC 


TS 

INDEX 

rAF“ 

TS 

INDEX 


05 PC DM 3 
ENTFX I T 

+1 

01 STEM 

A 


+ 0 *+l.+? INTO niSTEM 


DSPCnUNT 
D I STEM 



DSPnCTWO 
OISTFM 
DSPC 0 M 2 +2 


R1013 
P 1 014" 

I or 6 

1 017 
1022 

1023 

1074 



f> U 

m 

REF 


TEST ALARMS IF CtWPONTNT NUMSER 
than THE HTG 
4 LAST 271 41*7474 

61 LAST -377 

T 


54 129 
41*7475 77 31 t ^7 

AT,’ 247 6 



VEPBftOAO OR OCT DISPLAY) IS 


srirMPt 

GETCOMP 




TF 


1 

o 


LAST 373 


41 ,7477 

4 1 * 2430 


O 43 4"^ 1 
7 62 14 1 


-O- COMP T*^ ST TS- 

O LXCH 

— 

TC 
MASK 


VFPB COMP 


L^^FT*^^ 


NOUN COMO 


TTirn R'v 






RAM BY MASA k’O ’1 1 1 i-Uij 1 


lOSza APR. rTTW9 ClIHAID TCTZ^? F^T^E 



P I NB ALL RAWE ” WrPTNT A^n LIGHTS 


B'S TAGE NO. 26 


FO SA 


“ 102S 

1026 

RFF 

7EF 

5 

91 

LAST 

LAST 

331 

331 

41.2431 

41.2432 

0T23 1 
10 000 0 

10.? 7 

REF 

28 

~nsTr * 

322 

4T ,7433 

0 0001 0 

1025 

0 p F 

3 

LAST 

321 

4I,2Jf34 

0 BTAT 0 

102^ 

^ EE 

1 6 

LAST 

3 2T 

41 ,2435 

0 235T 1 

io?0‘ 

7 b F 


XA3T 

7T? 

41*7436 

0 0001 0 


At) ST'THMPl 

■ CCS A 

nrc “t: 

TC CCSHHIF 

rr GTIDSPALH 

NDCMPIST TC r~ 


^JOUN COW - VEPB COMP 
NOIPT COMP G/ VERB COMP 


NOUN COMP L/ VERB COMP 
NOUN COMP = VERB CO^P 


RTO'^l 

P.1012 

1011 

~T 014 

1015 

1015 


OCTMPTST^lflrLAHMS IF DECIMAL ONLY ITT IBTT^ OFCOMP COOC NUMBER) = 1. 

IF NOT, IT PEPFORHS KCGULAR CQMPT^STl 

REF 6 LAST 312 51.2437 54 121 0 OCOMPTST TS STTEMPl - VERB 

IFF F2 TAFT ATTITAT) 22 002 O — tTTH 0 — — 

REF 2 LAST IIT 41 , 2441 0 2441 0 TC OECTEST 

REF 1 41.2442 0 2426 0 TC CHMPTSTl 


1037 

1 038 

REF 

73 

T030" 

K EF 

2 

1040 

RFF 

27 

1041 

REF 

02 

T. 04^ 


17 

1043 

RFF 

74 


41,2443 0 0006 1 OECTEST EXTEND ALARMS IE DEC ONLY BIT = 1 f 3 1 T4 OF COMP 

LAST 325 41,2444 22 1 56 0 QXCH MPAC +? CODE NUMBER), RETURNS IE NOT. 

LAST ITT 4rTT445 ^ 0 2515 I — TC GETCOMP — — 

LAST 25 1 41,2445 7 5002 1 MASK BTT14 — — 

LAST 332 41,2447 10 000 0 CCS A 

UASl 332 4T, 2450 D 2351 1 TC GOOSPAL^ — — _____ 

LAST 332 41,2451 0 0136 TC MPAC +2 — — 


1044 REF 53 LAST 332 41.7452^ 22 002 0 DCTSTCYC LXCH 0 

1045 'RFF 3 LAST” 332 41,7451 0 2515 I TC GFTCOMP 

" T04F RTF 21"' ITST 'TTT TT77434 7 5003 T mSK BTTT4 

1047 REF 93 LAST 332 41,7455 10 ODD 0 TCS A 

1043 ^EF 3 LAST 329“ 4172456 t) 4161 O TC'” ALMCYCLF 

TW5 FFF'"'"30 LAST 332 41 , '2457 0 0001 0 TC L — - 


^TTUTO NOUN TE ST ' ALARMS TF NH - LIAD B IT t B TT5 O F C O MF C O DE NU IOER T = 1, 


RIOT* IF NOT, IT RETURNS. 


1057 

REF 

64 

LAST 

332 — 

41 ,2460 

22 002 0 

NtlUNTEST LXCH 

0 

17153“ 

"RTF" 

4 

L AST 

3 2 

4 1 f / 4 6 1 

0 2515 T~ 

X G 

G ? TC 'Xf4P 

10*^4 

REF 

94 

LAST 

332 

41 ,7462 

10 OOO 0 

CCS 

A 

1055 

REF 

31 

LAST 

33? 

41,3 463 

0 0001 0 

TC 

L 

T0SK“ 

- r? frp 

32 

L AST 

332 

41 ,2464 

0 ODDI 0 

TC 

L 

1057 

REF 

13 

LAST 

33? 

41 ,2465 

0 7351 1 

TC 

GODSPALM 


ALARMS AND RECYCLES IF DEC ONLY BIT = 1 
( BIT4 OF COMP CODE NUMBER). RETURNS 
IF NO T . US E D BY LOAD VERBS. " 


1053 RFE 65 LAST 317 41:t2465 “22 002^ 0 TSTFORDP LXCH 0 TEST FOR OR. IF SO, GFT MINOR PART ONLY. 

1059 FEE 6 LAST 32B 41,2467 "3 0146 1- CA NNADTEM 

1060 TTFr 27 LAST 331 41 , ?47n 5 5017 — 1 — — TO ONE 1 F NNAOTEM - -1 , — CHANNEL — TfT"BF- 5RECTFTED 

1051 " 4 1 ,2F7 V 0 ODDt> It" EXTEND' 

1062 PEf: ~ I — ^ 2472 i 2507 O BZ F — CHANDSP 

^ 7 05 3 — 4 L AST 3245 41 .7 473 50 140 1 1 N D F ^ MTXBR 

1054 41 ,1F74 247 4 1 TC ' +0 

1065 — 4^1 ,2475 0 2477 1 Tf 


NORMAL 


■kFVl^I0^rT)';'5 ' OF CnMAfCHE'TT’lJA^' A 20211 13-051 


10:2R' It rT^9 rrmiTD rOZ9 PACT 



T> I N B ALL G AKE“ "BUTTONS ANTD LTGHT5 


trSER^S PAGE NO, 27 


EO S 4 


lOSS^' 

1067 

P P p 

RFF 

‘33 

1 

LAST 

33? 

1 06 3 

rr2F“ 

2 

TlfST 

T2T 

ro6 9 

^EF 

34 

L7VST 

333 

1070 

OFF 

R 

LAST 

331 

irrn~ 

'^'EE 

”35 ■ 

UTTST 

3 3 3 

TOT? 

REF 

3 

LAST 

325 

107^ 

R EF 

5 

LAST 

232 


4T7TV76 

41,2477 

^TTZETTG 


, ?5T}1 
41,2702 
TTTTinTT 


crxTarai 

0 302 6 
0 2T61 

xr~rT(Tm 

24 14E 


0 

0 

T7 

0 

1 


0 0001 0 


TC 

TC 

TC 

TC ~ 
INCR 
TC — 


I^TXFD CASE already HANDLED IN MTXNOUN 


SEPUTNOR 
WTFST 


NODNADD 

c 


NO DP 

DP F+1 INTO NOUNAOOfOR MINOR PART 


41,2^14 

41 ,2505 


TTOTT" tr 

7 504S 1 


10^31 
~1073 7 
Tomf- 
TTT5 


RTEF 


REF 


95^ 

TASl 332 

96 

LAST 333 


41,25DF“ 0 OOOS 1 
41 ,25 07 


41 . 2570 
417,2511 


5 00(10 1 

DO DOO 1 
4 OODD 0 


CHANDSP CA 

■ ■ .x ' ^ 

7LASK 

EXTEND 

rND'=X 

-READ 

CS 


"NOUNC ADR 
LOWl 


TOTS' 

TEE" 

— 3 

LAST 

'331 

41,2512” 

I 2 371 1 















T07T ‘ 

FEE" 

2 

L A ST 

'27Xr 

41,2513 ■ 

■ D0T57' 0 CGMPTCK 

1078 

hlf 

7 

LAST 

332 

41,2514 

00146 1 

1 OT'O ■" 

”R7E 

5 

LASE” 

3 3 2 

' 41 725T5 

50 1 40 I GET COMP 

103 0 

REF 

r 



41 ,2516 

^ 2512 0 

1031 

PEF 

97 

LAST 

333 

41 ,25t7 

511 000 1 

1072 “ 





41, Z520 

3"00 00' 1 

103T " 

R EF 

A" 

LAST 

202 

41 ,252 1 

"T 43 64 D 

1004 

REF 

66 

LAST 

332 

41,2522 

0 0002 0 ■ ■ 


CAE 

innEx 


M^ASK 

TC 


10P5 

TOTTT 

I03T- 

102 3 


REF 

■REF 

REF 

REF 


row 

1090 
1001 
00^ 
1 OOI 

100 4 

1005 

1006 



REF 

REF 


REF 

PEF 

■RET 

REF 


5 

—T 

TO 

4 

T 

9 

98 

2 
2 
3 
1 


LAST 

LAST 

LAST 

LAST 

LAST 

LAST 


33T 

331 

327 


333 

73 1 



33 3 
2*7 1 
333 


lO'-T 

REF 

44 

10 OR 

REF 

75 

10oq 

- RFE 

76 

1 TOO 

'>.Ef 

5 

1101 

;< F F 

6 

" 1102 

REF 

28 

1103 

7 F F 

5 

1 1 04" 

"R'EE ' 

3 

— n 05 

OFF 

77 

1106 

' ■> f 

1 


LAST 



LAST 
LAST 
EAST" 

LAST 333 


333 

333 


41 ,25 23 

41.2524 

41.2525 
41,2326 
41', 7 527 

41 .2530 

41 .2531 

41.2532 

41V2533 
41 ,7634 

41T2535' 

61.2536 

41.2537 
41 , 25 40 

41r2E41 

41,2542 

41,1543 

41,7 646 

41 , 2^45“ 
4 TV 


0 2515 
■0‘“43‘45' 

7 6214 
54 117 
54 122 

6 014 5 

50 0 00 
-z 


0000 

50 122 
57* 003 

i xr ~ T22 

0 2577 
3 5021 
54 1 


1 

T 

1 

1 

T 

1 

t 

D 

0 

n 


OEcnsp 


rc 

Ttr“ 

MASK 

TS 


DSPnCG 


AO 

1 NDE X 


INDEX 

XCH 



0 

1 



TC 

DSPnCPUT CAF 
T3 


TS 

1 NDEX 


4 1 ,2^ 4 7 

4-1T25 50 


54 1 54^ O 
0 3047 T 


CAE^ 


TS 

INtlEX 

€5 

T$ 

TO 


TT ~ 

0 

A 

OSPCOMl 



A ORES NNADTEM 


INDEX' MTXOR 



CHMPICK 

A 

HI5 
0 


ADRES NNTYPTEM 


ADRES NNAOTEM 




GET HT 5 HE NNTYPTA 8 (N 0 RM) 0 F NNAOTAB(MIX) 


GE TCOMP 


THREE 

OECUUNT 


NUUNADD 

A 


COMP NtIMBER INTO OECOUNT 

S“T1E DATA- — — — 

OECTEM ICOMP +0. ZCOMP +1, 3C0MP 


DECTEM 

XPFG 

DEC TEM ^ 
DSPDCGET 

7 


CANT USE BUF SINCE DMP USES IT, 


^ t- r\ 

MPAC 
MPAC +2 
OF COUNT 


MORE TO GET 
DISPLAYS DATA 


OECOUMT ICO M P - »0. 2C0 M P 



^ AA 

1 L U" r 



OSPCOUNT 
DEC HUNT 


MPAC 

sfconum 


2X( SF CON NUMB ) IN A 




gap: ASSEMBLF RpvTSIflM 05 t 1 ''^ AGC PROGRAM COMANCHt BY NASA ;J'fr2Tl l'i-051 10ti!y APK. TTTWr — CUHAIi) — TOT^J — PTtGE S7V 


L PT^TRAlTGAH■!^ “BITTrONS (rNTT LIGHTS USER’S PAGE NOi " “ZR' EO SA 


1107 pee 7 LAST 

1108 

“llO') RET 1 

mo RFF 6 LAST 

lin PEF 6 LAST 

“Tl Y2 

1113 REF 1 

lllA REF 2 LAST 

1 ITS 1 


1116 RTF 2 L AST TTSH Rr.‘25‘52 CF 3 0 26 ~0 nSPSFNUR TC S'^RUTNOR 


Tir"’ ' RTF 7 niTSTT TT^T A1,2S63 — 0 2575 1 FIT O E COSPB 

1113 SFF 29 LAST 33'^ 0777 EBANK= OSPCOUNT 


- - II rr REF T 41 ,7S64 02120 TJ — GTSFOUTL 2CA0R GTSEHUT 

1117 REF 1 41,256? 64101 0 


1120 ref 

1121 REF 
n'22 REF 
1123" 

1124 REF 
TTTS RTF 
1126 SEE 


39 LAST 323 41.2666 0 4662 1 OSPOCENO TC BANKCALL ALL SFOUT ROUTINES END HERE 

1 41,2567 61133 I CAOR OSPOECWO 

7 LAST 333 FT, 2570 — 10 117 I "CCS DE C O UN T 

41. "2 571 0 25T3 1 TC +2 

4 LAST y31: 41,2572 n 0136—0 TC ENTEXl T 

T" — USST 33Rr 41 ,2573 ST— rT7“l TS BE C O U NT — — 

1 41.2374 0 2537 1 TC OSPDCPUT MORE TO PI STL AY 


332 41 ,2551 5"4 123^0 " TS STTEHPl 

41.2552 0 0006-1 EXTEND SWITCH BANKS TO SF CONSTANT TABLE 

41.2553 3 2565 0 DCA GI SFUUTL READING ROUTINE. 

328 41,2554 52 006 0 " DXTH Z “ LOADS SETEMPl , SFTEMP2. 

333 4I,25T5 50 140"! INDEX MIXBR 

41,2556 — O' 2556 0 TC TD ^ 

41.2557 0 2562 1 TC OSPSFNOR 

327 41,2560 0 3034 0 TC SERUTMIX 

41,7561 TT 25 7b 1 TC DTC0SP3 


1127 


REF 99 LAST 333 


41,2575 500001 0EC0SP3“ 


1 VFO 2 
1 1 40 3 

1141 — 


ree 

RTF 


1 

T 


4 1 fth 1 4 
41.2615 
TV T \ o 


60636 1 

■606*^3 — r 


1123 

REE 

1 



4r<r35T6 

3 Y600 0 

1 12 9 

RYE 

2 

LAST 

32 5 

41 * 2 577 

0 4704 0 

1130 

oeF 

1 



41 ,7600 

613?^3-t SFOUT A BR 

rm 

R c E 

1 



41,2 1 

62566 0 

1 11^ 

T.HF 

1 



41V2602“ 

603*16 0 

1133 


1 



41 ,76-^)3 

60603 1 

1134 

HEF ' 

1 



41 ,2604 

* '60614 1 

1135 

REF 

1 



41,2605 

60621 1 

1136 

PEE 

1 



41 , 2606 

60524 1 

TTT7 


I 



41 ,T507 

60623 n 

1133 

REE 

1 



41,2610 

*65143 1 

1 130 

RFF 

1 



41,2611 

65216 1 

ir-Ao 

Rb»- 

A 

LAST 

334 

4r,’^6I2 

. ^ ^ m. 

f>06 ? 1 1 


INDEX 
CAf 
TC 


C ADR 
CADR 
CAOR 
C A OR 
CADR 
CAD*?- 
C ADR 
CADR 
CADR 
C ADR 
CAt)R 
CADR 
CA DR 


FNDRTniJT frOUALS 


S1=0UTA8R 

BAN K JUW P 

PREOSP>AL 


OFOOUTSF 

ARTOUTSF 



0«>2nUTSF 

OPDEGOUT 



M/StlUT 
DP2n U T 
ARWTISI" 
? INTOUT 



At.ARM If DfC OISR WITH OCTAL ONLY NWN 


R 1 

R 1 1 43 L r S 


THE fatTOT^T»^r; -TYPICAL -StF POUTmf 
TN MPAC, MP^C^■1. cU0S-4ffTH TC DSPDC 


IT USES MPAC. LEAVES RESU 


gap: assemble revision 055 OF AX PRnGTTCT''C;nMANCHP BY 



SA c*02im-051 


I O': 2 8 APk. r;r969 — CUMAID 




PINBALL GAME ^JrTONS" AW I IGHTS 




LAST 322 


W, ?5I 6 


SHTL nc BX A NK C OIT +X 


TJSXR’^S i^At;X 


29 


FO S4 



TTI 


2nc/nsi 315 TH 3Z7T 






CnuN f 40 /PIN 


Rll 45 
R1T4^ 


DFGTUTSF SCALES BT^ VIE THE T4 HITS PF ANGLF"^ ADPTNG .18 FDR 

NIJMBFFS TN“ I HE NtGATlVfc (AGCJ RANGE. 


1 1 47 

REF 

““ 45 

“T1 s-f! 

K E F 

”7B 

114“c 

REF 

1 

” 1150 



11 '51 

“ TTTF 


1167 

PFF 

1 

R 1 1 5 3 

')P0 

FGOU 


LAST 

TATT 



7TJ 


40 t 25 16 
40t25l f 
40, “23 20 

W , 

■Wr2322 
4r0 , 7 52 3 


3 5071 1 
“3^ 


rF?7 




r 

0 

1 


DEGnUTSF CAF 

r5~ 

~ — TC “ 


a 


7331717 

2566 0 


TT 

TC 


7. ERD 

MPAC ^ 

TTXRANGF 
+ 2 

SFTAUG 

OFGCOH 


BY .45 (IHF 




'T TS ^■’O'DPGREFSr AND ADDS A 20 DEG 



1154 
1X55 
n 55 
1157 



1150 

1 1 5 0 

TXST 

116 2 
1 1 63 
lTo4 
1 155 


3PF 79 LAST 
WF BO FAST — JT5 


REF 

17 

REF I — 

81 LAST 


40 .2 524 
40,2525 


10 134 0 

T 



LAST 303 


53134 
0 2531 1 

0 2540 1 


OPOEGDUT CCS 
XCH 


7T16 0 


40.2526 

40.2527 
40,2530 
40,2551 6 TFOr i 
40,-253r 
40 ,25 3 3 


TC 


54 t3r“0 
0 2536 0 


BTAS CnM 


REF 

REF 

TJ 


L- 

^EF 


23 

82 

14 

2 


LAST 

LAST 

XAST 

LAST 



334 


40 , 2 53 4 

40 .2535 

40.2536 
40,2 


3 5001 O 
26 154 0 
3“WT6'‘0 
0 2517 0 


inr* 

AD 

TS 

TC- 

C4F 

ADS 

CAF 

TC 



^nEF“ 

B3 

LAST 

33 5 

23 5 
334 

11 "rr 
1168 

RFF 
“ REF 

2 

100 

LAST 

LAST 

1169 

RFF 

7 



1170 

■R EF 

4 

LAST 

332 

11^1 

R EF 

24 

LAST 

337 

X 1 T2 





117^ 

REF 

2 

LAST 

335 

11T4 





1175 

REF 

84 

LAST 

335 

1176 

- REF 

1 

— 



40.2540 

40.2541 

40.2542 
407 2543 
40 ,2544 
40,7645 
40,7546 

40,2547 


36 154 1 
6 2602 1 
10 noo 0 

0 2532 1 


NEGOPT 



ACT 

CCS 

TC~ 

TC 

AD 

rtM 

TC 


’35tT 


irrr 

1113 


■PTEF 

REF 


"3 

67 


40 ^ c. 
40,;2551 

47," 25 5 2 

40 , 2 5 


0 0006 I 
5 0 
3 2577 0 
52-7 


TAST 334 

LAST 23-3- — 4tnr2554 0-0002 0 


T NO E X 
DC A 
PXCH 
TC 


1 13 O 


IFF 

F47 


B5 CAST 

68 X4ST 


11-1 


RCF 5<5 


LAST 


23^ 

33 5 
335 


1772 

1103 

11^^ 


40,2555 TO - 754 - O 

40 t 255’6 
40 . 26-57 

60 


EF 


2 4 
86 


LAST 

LAST 


335 
33 5 


, r 

4 A , 25 61 

'^} f} ^ 2 



F r XR A - NGF CC S 

TC 
TC 


TCF 

OS 

MASK 


MPAC“- 
MB AC™ 


^•3 

NFGOPT 

7FG1 

209IAS 

MPAC 


8T715 

M^AC 

Twn — 

DEGOUTSF 51 


MPAC — - 
208 IAS 
A 


CCS MOLE 
ONE 


BI ASCHM 



MBAC ^2 
DEGTA8 


0 


O 

o 


^ 

B T T 1 5 
MPAC 


S E T I NDE X FO R F ULL SCAL E 


NO AUGMENT NEEDED (SFTFMPl AND 2 ARE 0) 



RANGE TS 90 DEG 



CORRECT POR POSSI 
IF NEG NON TFRO 


FITS- AND" 
nVERFLOU 



TEST FOP OVERFLOW 

NO nVFLDW — 

IF OVFXnW 





StmtTACT 1 DECimSF OF 23C11M 


IF NFG RESTORE SUM 
T3 N EG~(r3 PAVE N EG 7 


tOAD5 --^ fTF M PI AND S 
DP AUGMXNTER CONSTANT 



IF M P AC IS ♦ R E T U R N TO 

IF MBAC IS “ RETURN TO L+2 AFTER 
MASKING OUT THE SIGN BIT 


!• 


GTpI ^.EVIsrO'^riT^S' M^r/’PTinGRA'^ COMAMCHE RT NRSA 20'2illJ-0bl 


ioj:^b auk. — rvT^^ — cnwAin — 



NFB ALL GAJ 


BUT TON S A ND C T OHT5 


trSBI^'S PAGE NH. 30 


to S4 


11C5 

1 1 16 

HEF 

PEE 

87 

TO 

L4ST 

L AST 

33 5 

335 

50,2553 

«n,'2564 

1 1 * 7 





40,2565 

1T3B 





40.7566 i 

1 1 0 

REF 

ew 

la:st“ 

33S 

40,2567 

1 1 0 0 

REF 

2 

LAST “ 

335 

itO,TSTO 

Ti-n 

REF 

89 

LAST 

33 6 

40,2571 

1 IT,’’' ' 

“RPF“ - 

4 

LAS1 31.7 

40,2572 ' 

1193 

REF 

q 

L AST^ 

33 5 

40 *2573 

1 1 "^4 

REF 

90^ 

LAST 

33 6 

60, 7574 


P”FF 

1 

- 


4^^ ,25/5 







TT^ 





40,25 Ib 

TIOT 


- - - - 



40.2577 

11 





40,7600 

11 ' c 





40,2601 

12^0 





40,2602 

1201 

REE 

10 

LAST 

33 6 

40,76rr5 

1202 

RFF 

91 

L AST 

33 6 

40 , 260 4 

I2TJ3~‘ 

ITTF 

T 



4 , 2 6 U 6 

120'!t 

KEF 

20 

LAST 

32^0 

40, 2606 

1205 

p EE 

2 

LAST 

334 

40,2607 

12051 

RcF 

11 

LAST 

336 

40,2 510 

1 209? 

PEF 

92 

1 Asr“ 

3 36 


r2T15-3“ 

“TIFF 


L A5 ! 

33 6 

40 , 261 2 

1 2115 

“KEF 

1 



4tr,“2613 








54 


1 54 
00 ? 


0 

0 


TS 

INDEX 



HPAC 
0 “ 
1 


0 0006 Gt 
5 0156 0 

0 
1 
T 


OFGCOM 


155 
0 7? 56 


52 

20 


124 
1 55 


T 

1 

TJ 


0'56O5' I 
03655 1 
16314 0 
3I45T T 


1^4 

52 15 5 
0 443r 


1 

r 

or 


0 47ni-T) 
62565 0 


52 124 
5? 0 55 
0 44TI' 


1 

1 

TT 


0 2615 1 


120 6 

■ REF 

1 



1207 

- REE 

93 

LAST 

33 6 

1203 

REF 

94 

L A ST 

33 6 

1 209 

RER 

95 

LAST 

336 

1210 

REF 

2 

LAST 

33 6 

1711 

t> r fT 

' ^ \ 

2 

LAST 

336 


40.2614 

40 .261 5 

40,2516 

40,2617 

40,?6?0 


0 2621 
56 1 56 
56“ 

54 154 
0 2606 


0 

0 


0 

0 


EXTEND 
1 NDEX" 

DC A 
DXCH 
TC 

DXCH 
OAS 
TC 


TTFTrnni 


ncT 


u 

ncT 

1XT 


16040 1 2 OB I AS OCT 


AP TOUT ST 


scatrrEND 


DXCH 

DXCH 

TC 

TC 

CAO^ 


ATOOTlSf DXCH 

DXCH 


TC 


DPIDHTSF TC 
L14/DHT XCH 

— Xttt 

TS 

TC 


T2T7 


TFF 



53~F 


40 , 25 '’! 

TOTTBIT 


0 

V 


2621 Cr DP2t)UTSF TC 
2606 n TC 


WPAC 

DFGT AS 

NPAC 

SHOPTMP 


T7 


SCOUT END' 


05605 

03656 

16314 


16040 


SFTEMPl 

NPAC 



POSTJUMP 

OSPOCENO 


SFTEMPl 

MPAC 

PRS H PTMF 

LI 4/ OUT 


DP OUT 
»^PAC 
V P AC 


+2 


MPAC 

SCOUTEND 


OfOiUT 

SC O UTEND 


LOADS MULTIPLIER > DOES SHORTMPt AND 
ADOS AUGWENTER, 


ADJUSTED ANGLE IN A 


LOW PART OF 
HI PART OF 


• IB 

• 18 
• 45 
i 45 ~ 


20 OEG BIAS FOR OPTICS 


ASSUMES PniNT AT LEFT Of OP SFCON 


-0« SHORTMP FAILS TIT^TVE^ • 


assumes point between hi and lo parts of 

DP SFCTtN^ SHIFTS RESULTS LEFT 14, BY 
T AK I NG RESULTS PROM MP AC^ Tr M PAC -r2^ 


SCALES MPAC, MPAC 4-1 BY OP SCALF FACTOR 
IN SFTFMPI, SFT=MP2^ THEN SCALE RESULT 
B Y B14, 


SCALES MPAC , MPAC +1 BY OP SCALE FACTOR 


— TTTI 3 TACI 316 4D, 2623 0 2627 0 0P33UTSF TC ' 

1214 '^EF 12 “LAST “327 ’ 40,26 24 3 6211“ O CAE 

1215 2EF “ 1 A0i2625 0 3Dt>0 1 TC 

- 1 21 5 2ET= 4 LA ST 336 40,2626 0 ^CDC -0 TC" 


nP OtJT ~ ASSU M ES — POINT — B E T W E EN BITS 7 -B OF FtlCH 

6TX LEFT BY T, ROUNDS MPAC+2 INTO MPAC+K 

T^LEETN SHIFT LEFT 7, 

SCOUTEND _ 



L '’TNiB4LT“G\MF 5irrTnTiJG^HTrT.Tr,HT5 ~t> SCT * S P AGE "NO. 31 FO S4 


12T65 QA LAST 33T nT52 MPAr+'6“ = WFAC +6 tJSE MPUC +6 INSTTAO OF nVFlNn 


TTTT TFT TT"" TTST TSK TDTTT77 bb OOT 0 OP OUT XCB 0 

1?V3 REF 1 40^7530 54 T6? 0 TS HPaC+?> 

ITT^ REF 1 “ 4n,7T71 0 Zbbb 0 TC READLO GET FREEH DATA FOR BOTH HI AND LO. 

1270 "RTF E'^LTiST TTtE 4TV77FT2 0 f27b 0 TC 1 RAG ’ lFt: MAKE D P DA T A AGRE E 

1271 Rf^F 2 LAST 317 40.2633 0 7052 1 TC^ n*3P 

1222 REF 12 LAST 336 40.2634 00T23 t AORES SFTENPl 

^ 1'2 2 3 ^rEF 2 TSET T37 40,263b 0 0162 1 TT! HPAL-T6 

R12231 THE FOL LOW IN G“RDUTTrrE DISPLAYS TWO COMTTGUOUS SP POSITIVE INTEGERS — 

R12232 AS TWO pn s ITT VF DECIMAL INTEGERS IN RX01-RKD2 AND RX04-RX05 IFXD3 IS 

■ P 12233 FnmNFEITr; ■ THFTNTEGEP "IN THE lOWlR NUMBERED AOORESS TS DISPLAYED IN 

R12234 RXOl-RXnp. - - 


“122 55 TEF "3 — LASI 328 4D, ?636 0 243 7 0 PT W TO U I TC 5B tAMK — 

T273 55 R=F 2 LAST— 319 PD,26 37 0-2314 0 TC“ EON 

12236 REF 97 LAST 33T 40,7640 3 0156 1 CA MPAC 

“12237 REF T 4022643 O 3213 1 TC D S P D F CVN 

122371 PEF 11 LAST 333 40.2542 4 52T4 1 CS THREE 

122372 RE' 9 LAST '<34 40.-2643 50 117 0 INDEX OECDUNT 

T2737T “TEF T L AST 303 40,2644 6 413 3 0 30 RTDl 

122374 PEF 30 LAST 334 40,7645 5<F077“0 — — TS DSPCDUNT 

122375 REF 7 EAST 337 40i7B46 D 2655 O TC READLO 

"1773 T6“RPF“" 9B — FAST 337 40,2647 3 0 1 5 5 0 CA M P AC 4-1 

122377 P-^F ? LAST 337 4072650 AT 3213 1 TC DSODECVN 

12237<' RFE 21 LAST 336 60,2651 0 4701 0 TC POSTJUMP 

T27379“7EF 3 EAST“33T5 40,253? 62570 1 CADR OSP DC F N O 



TURN ON SIGN 



7-ST TNT E G E R tt l KE VERB AND NOUN > 


RXD4 


GET 2fI0 INTEGER 


DISPLAY 2ND INTEGER ILIKF VERB AND NOUNJ 


122 3;-. RFT 3 — CAST 337 4F,7G53 0 2655 0 — DPFRACm — TC READLO DP F RACT I ON T O MP AC,-»1 

172731 PEF 5 LAST 73 S — 40,7654 0 2606 0 TC SGOUTENO 


R1224 REAOi n PICKS UP FRESM~0ATa- FOR-ROTH HI AND LO AND Lf^AVES IT IN 

R1225 moac, MPAC+1. THIS IS NFFOEO FOR TIME DISPLAY. TT ZEROES MPAC+2, BUT 

R1226 T)TTES" NOT 'FOPCETPAGPEPT 


1227 RPP 72 LASV 337 40.2655 56 002 0 READLO 

1773 PEF " “p — LAST Tt 4077350 54 144 1 

1229 REF 7 LAST 334 40,2657 50 140 1 

12 '50 40,76750 0 2660 T 

TTTt PET 1 4 0 , 7 661 0 2675 1 

T 232 P'T to- L AST 337 47J , 2 56 2 ~-5tT 117 0 

— 1233- - ppp 3 LAST 377 40r266 3 3 0150 0 

1234 ■ -TEF 4“ CTTST — 377 407766-4 — 7 437? 1 

- 1735 PEF 2 LAST 327 40.7565 0 4327 0- 

- 12-56 - - 40.2646 0 0005 1 READLOl 

r237 REF 101 CTTST 5T5 4 0 , 2 667 5 0000 1 

123'5 49v2570 3 0001-0 

12*.’! ‘>PF ’79 LASI 337 40.2571 5? 155 1 


XCH g 

TS TEW 

INOFX MIXBR 

TC +0 

TC ROtON O R 

INDEX DFCOUNT — 

CA IDAOITEM GFT IDADOTAB ENTRY FOR COMP K OF NOUN. 

MA SK LOWll -£ - SUB K 

TC SFTES4NK SET FE. LEAVE EADRFS IN A. 

EXTEND MIXED TJORMAL 

INDE X A CI E SU B K I e+ET 

OCA 0 --CKF SUPKI + H- €(£♦!) 

OXCH MPAC 


GAP 


^ S S EMBLE HF ATC" AW “COMA^ GTTF tT7'"MA'sA ■Z02Tri3-0Sl lUl ZE APR7“ 1 ,1'^69 CXIHATO ".02^ rm 


L TTRBALL GAME BUTTTPTS AMTT I. J GHTS USER«$ PAGE NH. 32 E0 54 


1240 PEF 46 last 335 40V2f>T? “ 3 5021 1 CAF rERTT 

1241 '^EF 100 LAST 337 40,:?673 54 l*=i.- T TS XPAC +2 

1242 ^TAST “337 D 0144 0 IT T34~ — 


1243 3EF 10 last "33~ 40*3675 3 0145 1 ^?DLQNrm TA NOUNAOD F 

1244 RTF T 4077676 0“ 2666 0“~ FN^nROLO !X RFADLHl 


1245^“- 

12450T 

124502 


RHF 


2 L AST 3T0 


433X43 
42 1 2 000 
42*31 4T 


B Am 


62 


12455 REF 


1245 

tt^— 

40 


3X4 

"4 Z * 3T 43 

■■"0 46-6 2 

T 

1247 

R*=F 

4 

LAST 

33 7 

42,3144 

60655 

1 

1243 

REF 

3 

LAST 

33 7 

42,3145 

0 7226 

0 

1240 

- FF 

1 



47 TTTTTS 

~0 ‘3T37- 

0 

412'^n 








1251 

'^EF 

3 

LAST 

337 

42,3147 

0 7052 

1 

T252 

REF 

I 



47 ,^150 

03Z04 

1 

1253 

R FF- ' 

4 

LAST 

328 

42*3151 

3 43^5 

0 

1254 

-ff 

31 

LAST 

337 

427315-2 

54 7"^7 

1 

1 255 

7FF 

4T 

LAST 

3 3 8 

42*3153 

"TT 4667 

1 

12 55 

P pf 

7 

LAST 

334 

47 * 3 1 54 

51133 

T 

1257 

IFT 

1 



42,3155 

0 3350 

1 


1 253 
1250 
1260 
1Z5T 

1263 


TFF 
3 EF 
RTF 
■REF 


FEF 


1 

101 

I 

— r 

107 

3 


LAST — f33 


TTrST 3TB 


LAST 

LAST 


33 3 

336 


42*3T5T 
4 2 ^31 57 
42*3160 
42 ;1T6 T 

47 , ^ 15 2 
42*31 6T 


3 3206 0 
56 154 1 
55« 007 3 
3 320 7 1 


56 1 55 
0 4 431 


O 

0 



42*3 164 
4?* 515 5 
47*3156 
42, 3167 
47 * 3 1 70 

42*3171 

4 2 * ? 1 77 
47*3 173 
42*31T4 

42*3175 
4 7 *31 -^ 5 
47 ,- 3 X 77 

X 2 -* 3701 T- 
4 2 * 3 2 0 r - 


3 43 3 4 
54 777 
O' 4662 


1 

1 

r 

1 

1 


61133 
0 0006 
3 3213 1 
52 155 1 
3 1007 1 


4431 D 


3 43 3 3 

54 777 


0 

r 


o 4662 1 
5 1 1 3 3 I 
0”0t35 — (T 


HMSnUT 


SETL OtM>TNB AtL3 
BAMK 


COUNT 42 /PIN 


TC 

C A OR 
TC 

TC — 
TC 

§\ 1 li 

CA<= 
TS 


BANKCALL 

UFAOtO 

T*’A7;PEE 


OMP 


CAOP 

TC 


R3D1 

OSPCnUNT 
'BANXCAtt 
DSPDECWO 
SEP*^! N 
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41 , 2636 " 

52 

006 

0 

5 vO 

LAST 

341 

4 l, 263 T 

3 

5021 

i 


CT 

TC 

EXTEND 
OCA" 
OXCH 
C A f 


STr~ 

ATLOC/OC 


T ES T THA T THE 3 D ATA 
ALL DEC OR ALL OCT. 



A C *- 

AKC 


LnONNLOC 

Z 

ZERO 


SWITCH 
ROUTINE. 
X COMP 



TABtTFE-A-DtND 


1 

12 

79 

2 

13 


L AST 

LAST 

LAST 

LAST 




001 ^ — T 


17 

3 

14 


LAST 
L AST 
LAST 

L AS T 

LA ST 


343 
3 43 
34 T 


“ 23 T 
23 


41 

41 

4T 

41 

41 

RT 

41 

41 


, 2 6 4 7 
. 26 6 0 
72 -T 5 T 


,“2663 
7 2 6 5 4 
,-266 5 
,265 6 


3 6016 0 
0 3075 O 
5 0 14 5 I 
54 002 T. 

4 5023 1 

5 100 R-- r 
0 0006 1 
X 2660 I 


INDEX 

TS 

CAF 

TC 

I NOE X 


TS — 

CS 

■Af) 

EXTFND 

87F 


NOUN A DO 
0 

ONE 

PUT COM 

NOUN A on 
1 

TWO 

PU TCOM 

Nt r UNA D O 

2 

SEVEN 


Y C OM P 


t COMP 


NOUNREG 


IF NOUN 7 HAS JUST BEEN LOAOED. SET 
F1A0- B ITS AS SPECIFIED. — 


+ / 


rrTTE? — CUMA 1 u 


GflPl aSSEMhlf RP\/ 1 $ 10 ^J 05 ^ OP 



!7T^W.Hr -HY NASA 20211 1 'i-Obl 


10 i 28 APR. 


rrzv — TOCT — JW 


PINBALl GAME BlITTHNS TA>in CTGHT'; 


USE't'^S PAGE NO. 38 


EO SA 


145505 REF 

145505 '^rr 




2 

4 

TT 


33 3 


145503 

145509 

14551 ■ 
145511 
145512 


’P ^ 


LAST 
LAST 

LAST 324 


RFF 

PPF 


1 

IS 


LAST '^'+3 


41 f 2 ^) 5 T 
41 •2660 

"■4T, 2661 

41 ,”2 66 2 
4T;Z6 63 
■4r,'2 664 

41 .2665 

41 .2665 


0 2775 V 
n003 0 
F 4320 I 


TX 

CA 


1005 71 
0004 0 

TT0TT6T 



145514 2EF 
T45515 7EF 


1 

16 



344 



14551 7 
14551 B 
T4551“sr 
14552 

145521 


145523 
1 4 56 


2 EF 

■^FF 

TIFF 


PFF 18 LAST 344 


2 LAST 344 

3 '^ 



PFF 


LAST 344 


41 , 266 / 

^.“2670 
41VF671 
"41V267 2 
” 41 ,2675 
41,2674 
41.2676 

41 .2676 

41.2677 

41 .2701 
41 , ^702 


3 
0 
F 

1 2674 1 
50 145 1 

4 0000 0 
7 1004 0 

5 0 1 45 1 
76' 0 00 ■ 0 

0 2701 0 
4 1004 0 
50 145 T 
7 0000 0 
50 145 I 
7700 0 


LOAniV 

SbiNLAUK +1 
TRFG 


ECAOR OF FLAG WORD. 

SFT EBANK, NUUNAUU. 

ZFRO TO RESET BITS. NON-ZERO TO SET BITS 


INHINT 

FXTFRTT 

B 7 .E 
I NOEX 

cs 


BITSOFE 


msK 

TNOEX 
■SFS 

TC 

cs 

INDEX 

MASK 

INDEX 


0 0003 1 
0 2775 0 


BITSOFEl 


RFLINT 

TC 


RTTSOf F 
NOUNADO 
F - 

TRFG 

TJOUNADO 

F 

B I T SOEF 1 
YREG 
NOUNAOD 
F 

NOUN A 00 
0 

LPAOLV 


BITS TO RE PROCESSEn. 



BITS TO 3 E PROCESSED 



1457 
1455 
14 5 O 

146 0 
1461 


R E 


1 > 


REF 

RFF 


30 

5 

2 

5 


LAST 
LAST 
T 


343 

3 AB 

■345 


LAST 

LAST 


343 


41.2703 
4172704 
■ 4 T F 27 0 5 
41 ,2 706 
41, '>70 7 


14671 

TTF^ 

7 “ 

TTTST 

~T!f 3 

“ 4 r. 7 Z 71 U- 

1463 

RFF 

2 

LAST 

34 ^ 

91.271 1 

1464 

PEF 

6 

LAST 

34 4 

41,2712 

1465 

P V-F 

2 

LAST 

"343 

41.2713 

1466 

REF 

7 

LAST 

325 

41 . 2714 

146 T 

PEF 

2 

LAST 


91 , 2715 

1 ^ 6 R 





41 .7716 


REF 

5 

LAST 

343 

41,2717 

14 70 

PEF 

B 

1 AST 

34 3 

41,2720 

1471 

REF 

51 

ITST 

343 

41 . 711 1 

1-^72 

REF 

4 

L AST 

393 

'il .2722 

1 '+ r 3 

PEF 

19 

LAST 

344 

91,2723 

1 4 74 





■ 41 . 2724 ■ 

1475 

REF 

31 

LAST 

344 

41,2725 

I 4 76 ' 

REF 

5 

LAST 

344 

41.2726 

147 J 

RFF 

■ 20 

LAST 

344 

41 ,“>7 27 

147 H 





1 ? T 30 

1479 

PEF 

4 

LAST 

344 

4 ir 2731 

1 4 1 1 — 

RFF 

3 

LAST 

3 A 6 

- 91,2732 

1482 





A 1 r 213 ? 

14^3 

RFF'“ 

6 

L ft S X 

3 

41 * 2 734 

14 :Vv- 

R^F 


LAST 

344 

41 ,2735 

14 35 

r F 

92 

LAST 

344 

41,2736 


4 501 7 O 
0 2424 1 
0'2460 1 

3 300 S I 
0 2337 1 
n 2303 0 


AStOAO 


CS 


COMPTFST 


FT- 

OAF 

TC 



If T ROFO 


V6SR1LD 

UPOATVe 


3 3007 XT 
tr 2337 1“ 
a"?305 0 

4 5022 -F 
0 3011 1 
O 0005-1“ 
3 2114 1 
52 006 0 


PUTXY 


VBSP 2 L 0 

UROATVR 

R^OD A TY 

FIVE 

ALLOC/OC 


0 30 75 0 
50 145 1 
54~ 0 07 - O 
3 5017 1 
0 3 0 75 F 


CAF— 

TC 

TC 

CS 
TC 

E XTENtr 
OCA 
OXCH 

OAF 

TC PUTCC'^ 

INDEX — NOUNAnO 

-0 


1 


TEST THAT THE 2 DATA WORDS LOADED ARE 
ALL DEC OR ALL OCT. 


LOON ML OC 
Z 

ZFR O 


SWITCH BANKS TO NOUN TABLE READING 
ROUTINE. 

CO M P — - 



54 001 1 
0 2115 ^ 


rs- 

CAF 

le 

TS 
TC 


Y COMP 


FUTCON 

NDUNAOD 

1 

LOAOLV 


0 2303 0 
0 0006 1 
3'-TtT4-T- 
52-006 O 

3 50?) 1 


TC 

^XTFNO 
OCA 

DXCH 

CAF 


REODATX 


t f >ONNLnC 

Z 

ZERO — 


SW f T 
ROUTINE. 
X CUMP 


f NG 


■STTm AS''^CT6lE 055 (if 



ClMANr.Hb RY NASA 20211 1 3-( 


PTWA1.L BirrmN'S ^MD“ t T GHTS 



1 4’^ 5 
1437 

14 7T 


I4~7n 


^FF 

RFF 


6 

21 


F AST 
FAST 


344 

344 


41 V 2737 
41,7740 
4TT274T 


0 "3D7"^ 0 
50 145 1 
54 000 0 


PEF 


5 FAST 344 4142742 0 2775 0 



4 1\ 2743 

41 t 2 744 
41,2745 

777415" 
4 1 , 7747 
41 ,2750 
4172751 


4 5017 U 

0 2424 1 
3 5001 0 
55'015 0 
0 23315 O 


BLUAI) 




orsT 


FAST 343 



CAST 
FAST 
lATT- “343 



41, 

41 ,7753 
41 *2754^ 

41 ,2755 
417 T5 6 
41.2757 

41,2760 
417751 
41 ,2T62 
41.2763 


FAST 

rA3T 

FAST 
FAST 
ITTST — 


345 

345 

345 


345 


4177754 

41 ,2765 
41 , 2 756 
41 .2767 

41 .2770 

41.2771 
■^■'7 2 


O 0006 1 
3 2114 1 
52 006 0 
3 5017 1 
"O' 3075 0 

50 145 1 
54 001 1 
0 2775 0 


4 5016 1 
Tl 2424 1 
3 5001 O 
55-»^ai5 0 
“23177 T 


C FH A n 


1 51 6 


41,2773 54 


0 0006 1 
3 2114 1 
52 0 06”Cr 
5016 O' 
77 3075 O 
“50“ 


T45 

002 


1 

T 


151^ 

'7 PF 

T 

» 

LAST 

345 

41.2774 

0 2 775 

0 

1510 

RFF 

53 

LAST 

344 

4 r , 2 77 

3 50 21 

1 

1?!'? 

^ E F -- 

13 

I.AST 

324 

41,2776 

55«ono 

1 

1520 

u f 

54 

TTffST ‘ 

345 

41.2777 

“4^3021“ 

IT 

1521 

E F 

1 

— 


Al.TnoO 

55*014 

1 

- 15215 

RFF 


LAST 

32 5 

4 1 , T OO 1 

-0 4473 

0 

1522 


6 

FAST 

325 — 

41 .300 2 ' 

4 63 7r+ 

1 

1 57 3 

PEE 

37 

FAST 

T41 

41 ,3003 

54 777 

1 

- 15? 4 

PEE 

23 

LAST 

340 

41 .3004 

0 4731 

0 


LOAOF V 


1575 


TTFF 


1 


1526 

1577 

1 677 


41.3005 

41 .3006 

41 .3007 

4 1 7^11 0 


614 54 O 


TC 

I1SIDFX 

TS 

TC 


poTcm 

■MOUNAOO 
"0 

T77AOL3/ 


00025 n 

00026 0 


VBSPIFO 

V3 SP2 FD 


TTS 

TC~ — 
C AF 

TS 

TC 

EXTCNO 

TJCA 

OXCH 

OAF 

TC 

TNOFX 
TS 

TC 


ONF 

CtmpTFST 

BTT15 

CLPASS 

TCOOATT 


rnooNiTC 


ONF 


NOONADO 

1 

LHAOLV 



TC 

CAF 

TS 

TC 

EXTEND 

nCA 

OXCFf — 


Twn 

— CTT3PTCST 
BTT15 
CIPASS 
— R 



TC 


FOONNIOC 
7‘ 

TWO 

ptjTCOM 



TS 

TC 


2 

FOAOFV 


CAF 


ZERO 

OCCBRNCH 


C5 

TS 

TC 

CT 

TS 

TC 


CAc m 


DEC 

OFC 


0002T~1 VBSP3FO OFC 


Ld.AOSTAT 

PT^FOSP 

voi 

DSPCOtlNT 
POST JUMP 

1 ^ -e CAtTST 


21 

27 

23 


10:2H APR. 1 , 1P69 Ctmm 





USE R * S P AGF NO 


37 


PAGE 


EO S4 


SET CIPASS FOR PASSO ONFY 



smr 

ROUT THE. 


T CFPASS FOR PASSO ONFY 


SWITCH 5ANKS TO 
R OO TTN E. 


NOUN TABFE READING 


RELEASE for PRIORITY DISPLAY PROBLEM 

T O BLOCK NU M ERICAL CHARACTER S^ 7ANO 

CFEARS AFTER A COMPLETED LOAD — — 
AFTER eOMPLETEO LOAD. GO TO RfCALTST 
TO SEE IF TH E RE IS ^ECALL 


VB21 = ALOAO 
V8 22 = BLOAO 
V%23 - CLOAO 


pr-F 13 F«ST 340 41.3011 56 117- 1 ALLtlC/OC TS OPCOUNT 

1^30 t<'Fh 14 I. AST 345 1 . 3'''7 2 4 1 OOO I CS 0EC3RMCH 


TESTS that DATA WORDS LOADED ARE EITHER 
ALL DEC O^ ALL OCT. ALARMS IF NOT. 


GAP 


ASSEMaL>^ REVISION 0‘>5 nr'li'C“P'(1iGI5.AM COMANCHE BNT'NASfi ZO^lllB-OSl 


105^8 AHR 


l.l'Jf'i — COHA ID 



1. "TTTOALL 5 A> E BDTTH^) S A^gn LIGHTS 


aSE^*S PAGE WT. <hO EO S4 - 


* 


15 31 
153?. 
133T 

1534 

1535 


154? 

1544 

1545 
T546 

1*^47 


REF 

wr' 

REF 


6 

7 

104 



RFF 



1 

3 


LAST 

LAST 

rATT 

LAST 


3?.2 

346 

~347, 

33^ 



lAST 
LAST 345 


LAST 333 


41 43013 

41.3014 

41.3015 

41.3016 

41.3017 
41,3020 
41 ,30 21 
41,302? 


54 ir?i 
4 0021 
4“ 






41,3023 

4 

LAST 

332 

^,3n?4 

7 6 

LAST 

346 

41 ,3025 





77 

LAST 

346 

,3026 




10 000 
1 3031 
0 0002 
6 or 17 
0 0006 
'3025 


0 416^1 
0 000 ? 


0 

O 

7T 

0 

0 
IT 

0 

1 

T 

0 

0 


ITS 


ITS 



OOQ 


TCF 
TO 

AO 

EXTENO 

BZF 

TC 

TC 


SR 

SR 

SR 

A 

F? 

73 

OECmiNT 


3F2 

ALI^CYCLE 

O 


RFF 


LAST 346 


41.3030 

41.3031 
4177303? 
41 ,3033 


56 
54^14 

3 43 63 
7 0147 
n 43 36 
0 0114 


0 

T 

0 

1 

ir 

0 


SFROTNOR XCH 

rs — 

CAF 

MASK 



TC 


Q 

FXTTFM- 
HID5 - 
NNTYPTEM 
R1GHT5 — 
EX ITEM 


SHIFTED PTRHT 2 

DEC COW BITS IN LOW 
SOME ONES IN LOW 3 
ALL ZEROS. ALL OCT 



DEC COMP = 7 FOR 3C0MP, =6 FOR 2C0MP 
(BUT IT HAS BEEN OECREHENTEO BY CCS) 
MUS T MA T CH 6 FO R 3C n 
ALARM AND RECYCLE, 

ALL~REOUTRED ARE DEC. OK 



GETS SE ROUTINE NUMBER FOR 
C AN3 USE L 



NORMAL CASE 

t 


SF ROUTINE NUMBER IN A 


“ T54:3“ ref TK CAST “"346 41 , 303 4 5B "OO'^'O SFRU T M T X XCH — ~35 — GETS SF ROUT I NF-NUMBE R “FOR— MIX EO CASE— 

1549 REF 3 LAST 34^ 4 1 , 3035 - 54 T14 1 ^ “ TS EX ITEM- 

1550 ^^cF 15 ~ LAST 345 — 41 ,303 6 50 riT tl INDEX OECOUNT 

~ 1551 REF 1 41 73037 3 3066 1 CAF DISPLACE PUT TC GOO, TC RIGHTB, OR TC LEFTS lN-t ‘ 

155^ REF 36 LAST 333 41,3040 54 001 1 TS “ L 

1553 REP 16 . LAST 3^6 41,3041 50 117 0 INDEX DECOUNT — 

1554 T IITST 116 41,304? 3 4T6? 1 CAF" LOWB L0W5, MID5, OP HI5 IN A 

1555 3EF- 2 LAST "“2T0^ '*1,3043 7 0153 “1 MA5K RUTMXTEM GET HIBt M105, OR L0W5 OF RUTMXTAB ENTRY 

1556 REF 37 LAST ~346 41,3344 50 CTOr-O — INDEX L 

nr57 41,3045 0 0000 1 TC— 0 

“R1553 00 TC 'GOQC nEC0UNT=0 ) , TT TC" R1GHT5 1 0EC0UNT=1 ) , 00 TC LEE T5 (■OECOUNT=2 ) • 

1539 REF 4 LAST 34-5" 41,3046 0 0114 0 SFRETl TC EXITEM SF ROUTINE NUMBER IN A 


1560 

1561 
13-6?— 

15 63 
1554 
1555"" 

1 566 

1567 
T553‘ 
1563 
15/0 


'REF 79 LAST 346 41,3047 56 t)0? 0 6EC0NUM XCH 0 

REF 5 LAST 346 41,3050 “54 114 1 TS FXITEM 

"RTF R LAST — T41 — ~ 41,3051 50 140 T~ INDEX MI XBR 

41,3052 0 305? 0 TC +0 

REF 1 41,3053 0 3071 1 TC CONtlMNOR 

"RTF 17 L AST ' 346 41 , 30 54 50 13T "CT" “ ^ INDEX OFCOUNT 

REF 2 LAST 346 41,3955 3 3066 1 CAP DTSPLACE 

RTF 3B LAST 346 41,3056 54“00L 1 — fs ± 

-^TF — ^'IB nrST — 346 41 ,'3057 50 IIT'-O 1 NDEX DEC HUNT 

RPF 4 LAST 346 41,30-60 3-43 62 ! CAE LOW5 

REF^ 4 LAST 34^ 41,3061 7 0147 1 MASK NNTYPTEM 


17571 RTF T9 — T.TTST 346 41 73DB? 50 001' 0 tttOFX — T — 

157? 4tr3-fL63 O 0000 1~— TC 0 

R15 /? no TC GOO ( OECOU^IT -O ) , DO TC R TGHT 5 f OECOUNT= 1 ) , DO TC LEF T5 ( DEGOUNT=? ) 

15 7 4 4 1 ,3 0 5 4 6 0000 1 SFRET DOUBLE 

157- — 6 LAST 346- 41,3065 D 0114 o TC FXITEM 


GETS 2X( SF CONSTANT NUMBER) 


NORMAL NOUN 

MIXED - tnU N — 

PUT TC GOO, TC RIGHTS, OR TC LEFT5 IN L 


?X t 5F-f 7 D * 4 -S-T A NT - NUMB *' R ) IN A 


fTSPl ASScMBLH AtVISION O-ib 0^- ' ASC !>Rl 5CWM CO^M^CHL .^Y 'mSF' 2021 1 1 ^-051 lUS^B 'ftiJR. 1 . l'»6'J — CHMAID TO?’; PATTF — JVT 


L PTNBAUl. '''>AHE“BirrTr)WS AKnrX'lGHT'; USEB»^' PAGE Nn. 41 Bf) S4 


15TV ^EF y ~ 41,3CT(5B 0 3073 Q— OTSPLArF“TC' GOO 

1577 REF 2 LAST 346 41 .3067 0 4336 0 " TC -RIGHTB 

TTTTB TEF 3 [TSET TJT 41,30 TO 0 4345 1 IT LFFT5 


15“^ 

■■ REF 

5 

LAST 

3^6 

4Tt3071 

3 

43 6;? 1 

CONUMNOR CAF 

LOW5 


"TTFF^ 

5 

L. EA O 1 

0 4 6 

41 , “i O 2 


014 7 1 

MASK — 

NNTYPTEM 

1E8I 





41 ,307? 

6 

OOOU I 

DOUBLE 


ISB?- 

RFF 

7 

LAST 

346 

41.3074 

0 

0114 0 

TC 

EX ITEM 


ITORMAL ALWAYS GETS LOW 5 OF 


2Xt ^F CONSTANT NUMBER I tN A 


1533 PEF 19 LAST •346 - 41,3075 ^4 117 1 POTCOM 

r534 PET FO" CAST 346 41 , 3076 56 002 0 

1535 pff 1 41,3077 54 115 O - 

IS”!) REF 55 LAST 345 41,3100 3 5021 1 

1533 RTF 3 — TAST ITT 41,3101 5 4 162 0 

1533 PEF 20 LAST 347 41.3102 50 117 Tn 

1580 TEF 3 LAST 322“ 41,3103 57»006 0 

r 50 TT RTF“ 122 LAST ~34T“ 41731X14 54 155 1 

ITOI rtf 21 LAST 347 41,3105 50 117 0 

“ 1503 ref 5 last 344 41,3106 57*003 0 

“ 15^3 RTF 123 FAST' '343 41 .3107 54 154 0 

1594 REF 10 LAST 346 41, ’HO 50 140 1 

T505 ■ 41,3111 0"-3m“33 “ 


TS 

itcn — 
TS^ 

CAF 

TS 

INOET 

XCM 


INDEX 
XCH 
TS 

INPFX 

TC 


TrOF" R-ET I 41,31 12 0 31 37 1 TC 

“TnS'^T" IF MIXNCHJN, PLACE ADDRESS FDR COMPONENT K INTO NtDONAOO, 
1503 REF 2? LAST 347 41,3113 50 117 0 INDEX 

l'5'OO R FT ' 4 LAST 333 41 . 31 14 ‘ ■3“ 0150 0 CA 

“ 1600 REF 5 LAST 337 41,3115 7 4372 1 MASK, 

“ 1601 REF 6 LAST 344 41.3116 0 4317 0 TC 

1602 zrr,3 ri7 0 - 0 006 1 FXTE N D 


TBtTT 

■ FEr' 

23 

LAST 

347 

41,3120 

60 ITT 

O' 


su 

1604 

REF 

24 

LAST 

345 

4 1 ,312 1 

54 145- 

0 


TS 


REF 

TS 

LAS 1 

3 45 

^ 1 , 5122 

I 1*000 



CCS 

1 606 

R SR 

1 



41,3123 

77 31 T4 

0 


TC 

1607 

P 

1 



41 . 3124 

0 2452 

0 


TC 

1 ^ 03 

^ EF 

3 ' 

LAST 

^334 

41 , 5125 

0 3V37ir 

tn 


TC 

160'^ 

Q 

3 

LAST 

333 

41,3126 

0 2261 

0 


TC 

1610 

REF 

1 



4 1 , 1 27 

0 3155 

0 


TC 


A 1 611 — 

M6t2 “ — 

A 161 3 

1614 RTF 25- LAS T ITT 4 1 7 3 13 0 24 145 1 P UTP P COM INCR 


— 1615 RE** 2 6 LAST 347 41,31 31- 3 01 45 1 CA 

1614- REF 24 LAST 347 41,3132 26117 1 AOS 

— T6T7 FTET 56 LAST — 347 41 731 33 3—5021 — 1 C-AF 

- 1618 PEF 26 LAST 34-* 4 1 ,31 34 50 Tt? 0 INDEX 

1619 41,3135 53* 777 0 TS 

1620 RTF 2“ -FAST l-ET 41 ,3135 0 'Tl'M 5 0 TC 


OECOtlNT 
-0 

OECRET 
ZERO 
MP AC^-S 

trecouNT 

X^ItGLP 


O^CnUNT 

XRFTG 

WTTC 

MI xm 

+ 0 

PUTNOPW 

SFT FRANK RITS 
OF COUNT 


LOWll 

SFTNCAnR 


at COUNT 
NOUN ADD 
D T CT P N C H 
PUTOtCSF 
OCTSTCYC 


OPTtST 

P’JTCOM? 


N OUN A o n 
MOUNAOO 
OfCOUNT 


at COUNT 
0 -I 


NORNAL NOUN 


GfT rnAOOTAB tNTRY FOR COMPONENT K 

ttCAnR)SURK FOR CURRENT COMP OF NOUN 
FCAOR INTO NOUNCAOR. SETS EB t NOUNAOO. 

C ( NOUNAOD) — rt- Ar U PO N Pf TURN — 

PIACF (FSltBK)-K INTO NOUNAOO 


* OFC 
^-0 OCTAL 

TF-ST- r^ O FC BIT = Tr.-^ ff"SOt 

ALARM AND RECYCLE. IF NOT* CONTINUE. 

NO DP 

TEST FOP OP SCAL e-P OR OC O^ 11=^^ 0 . LR RO . 

♦0 mfO major part, set nounaod for 

LOADING OCTAL W0*?0 INTO MINOR PART, 

■OP ( ESUBK)*K»1 OR 

NOUNADD NOW SET FOR MINOR PART 
(eSURK)i-l OR E+1 INTO DECOUNT 
NO l t NAOO SET F O R M INOR P ART — 


ZERO MAJOR PARTLESUBK OR F) 


1C?1 


Qrf 


2 LAST B?4 


^it UBT 0 1 ouTNORM TC 


S^TNADO 


ECAOR FPGM NOUNCAOR. SETS EB, NOUNAOD 


GAP: AS^EMBLe RI^VISIONI 05B OF AGC PROGRAM COMANC Hh BY NASA ^02Iirj-Ubl 


JVT28 5 P R 


1,1V)69 — CnTTOTD 


XJ7^ PWJt — J^fr 


t oiNBALL TTATTF BUTTONS ANT)~LTGKTS 


1622 REF 16 LAST 347' 41.3140' ll^'ROO 1 

1623 PFF 2 LAST 347 41,3141 0 3174 0 

1524 'TTE'F' T "CTiST' 347 4TT3T47 0 2452 0 

1626 REF 3 LAST 334 41,3143 0 302S"0 

1626 REF 4 LAST 347 41,3144 0 2?51“0 

1627 RFF g injTtrr T47 41,314S (Til SI 1 

1623 REF 57 LAST 347 41,3146 3 5021 1 

1629 REF 76 LAST 347 41,3147 54 117 1 

1630 ITT I 41,3150 O' 3130 0 


CCS 

TTEC ERTTCH 

TC 

PUTDFCSF 


TC rJCTSTCYC 

TC STRLFTNOR” 


TC 

DP TEST 

TC 

P 0 fCuM 2 - 

C AF 

ZER 0 

TS 

DECDUNT 

TC 

PUTDPCOM 


1631 RTF B LAST 333 41,3131 3 0146 1 CA NNAOTFM - 

■ 1 63? TTc^F S'? CITST 343 41, 3152 6 5U17 I AO ONE 

1633 41,3153 0 0006 1 EXTEND 

1634 REF 1 41,3154 1 3151 0 BZF CHANLOAO 

r63T.' FrFF'’l'Z4 nf3T 347 51,3155 56 154 1 PUTCOMZ XCFI NFAO 

1636 ' REF B last 347 41.3156 0 0115 I TC DFC'’FT 


-USER'S PAGF NO. 42 EO S4 
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tlKF 

WHOLFCON 

RN D /TST 

59 ^ IN 
5128 T S T 
MP AC ^ 


M ! NCi’^N 


IF ALL 3 WORDS WERE NOT LOADED, ALARM 
X REG, XPEGI P (= HQUR$ » WER E 



INTO MPAC, MPAC+1. 

ROUND OFF TO WHOLE HRS IN MPAC+l. 

F MPAC NO M ZE R O ( 0/16 5 83 7-* 


ALARM IF MPAC NON ZERO (G/ 745 ) 
STORE HOURS CONTRIBUTION 


PUT YREGi YPEGLR INTO MPAC, 



ROUND OFF TO WH OL 
ALARM IF MPAC NON ZERO (G/ 16333 ) 
ALARM If MPAC +1 G/ R 9 MIN 


LEAVES MINUTES CONTRIBUTION IN A,i 


GAPl :S'FTiFLF"RF V I S T 0 M 0^5 OF ' A'Gr 



; T‘ ^ M" nTf^Tsic HF "frrTrs'S7S“2a'7i ht-d-si 


lOS 23 APR. 1\ l'9'6o — COMAiO PAGH 353 


^fvTRAlL GA^E" BUTTT3ArS““A^^rJ TIGHT S 


trSP^’S ^’AGT NO 


47 


EO S4 


I 8 1“7 
181 ■ 





I8?n 

1S21 



1823 
18 74 


182o 


I"87^ 

1B2G 

1830 

Tirrr 


TTFF 

2 ^ 

LAST 

' 35Z " 

42734X6 

?0 12An “ 


DAS 

xnrrEmTr 





■ A7.3 417 

0 0006 1 


EXTENP 






42 . 342 Q 

1 3422 1 


BTf 

FT 

7 EF 

10 

LAST 

352 

A f 3 ^ 2 1 

0 4161 0 


TC 

7\XMLYCLE 

RcF 

3 

LAST 

3AA 

42.35ZZ 

3 1005 0 


CA 

TRctr 

OTTF 

C- 

LATT 

^5 

42 . 1423 

2 3 • 0 1 0 I 


LXLH ZETEnUP 

REF 

155 

L AST 

352 

47,3424 

52 155 1 


trxCfT 

FTP AC 

R *7 F 

1 5 

LAST 

352 

42.3 4 2 E 

0 7052 1 


TC 

DMP 

■RFF 

^ 


352 

42 , 14 26 

03447 CT 


A 0 R E S 

WHOLECON 

RFF 

3 

LAST 

352 

42,34 27 

0 3456 0 


XT 

jm j-fc . 

RND/TST 

R FF 

1 



42 .34 30 

4 3455 1 


TS 

^O.OPSEC 

RcF 


rasT" 

352 

42 . 14 3 i 

0 3474 0 


TC 

S I ZETST 


7 . . 
TEF 


156 


LAST 

LAST 


353 



42. 

42^. 343 3 
42 » 343 4' 

42,243 5 

4273436 

42t343T 

42.3440 

42t3441 

77273447 

42.3443 
42 I 3 4 44 


1 

\ 


124 
20 155 

0 OO'Oe 

1 3437 0 
0 4161 0 
3 5021 1 
54 156 1 
0 7226 0 

X55^ 


trXGH 


HI T?=M IN 
MPAC 


ErZF 

TC 


'52 

50 


T 

1 

T 


RTF 


25 

10 


tA5T 

LAST 


T5U 

348 


42.3445 

42.3446 


145 

otri 

0 4701 0 

52775 0 


TS 

TC 

DTCH 

INDEX 

nxcH 

Tr““ 

CADR 


3-2 

AlMCYCLE 

Z E R O 

MPAC +2 
T^AGREE 

W P AC 

NtlHNAOO 

0 

POSTJUNP 

LOAOLV — “ 


T242 
1843 
1 844 
1 84 5 


r 5 4 7 
T243 


“42T344T 

.3450 

42,3451 

“4273452" 

42.3453 

42. 3454 
“42 .3455 


00005“ 1“ 
03240 1 
00025 0 
3 7100“!“ 
13560 0 
00071 0 
13557 T 


WHOTE 


hrohn 



MINCON 

59MIN 


DOT 

ncT 

OCT 

ncT 

ncT 

OC T 


00006 
032 40 
00025 


13 560 
00073 




ADO IN MINUTES CONTITTBUT I ON 

IF THIS 045 OVERFLOWS. G/ 745HR.30MIN 


PUT ZREG. ZREGLP INTO MPAC. +U 


ROUNO OFF TO >^HOLE CENTI-SEC IN MPAC3*1 
AlAPM IF MPAC NON ZERO (G/163.83 SEC) 



AOn IN 5CC0N0S CONTRIBUTION 
IF THIS OAS OVERFLOWSt 

14.55 S EC 



ALARM AND RFCYCLE 



) ?E XP 14 


1 HOUR IN CENTI-SEC 


I MINUTE !N CENTI-SEC 

59 AS WHOLE 

5 9 9P CEN TI- S E C 


1 r A S T 353" 42 ,34“56 36 156 0 RNTT/ T6T XCTl MPAC ^ " ROUNDS MPAC+2 INTO" MPA 

1B50 42,3457 6 0000 I DOUBLE ALARMS I m^ac NOT 0 

18*^1 160 LAST 353 42.3460 54 1 56 1 TS MPAC +2 

IB5 2 REF — 62 “ rAST“ “153 4? ,3461 3’ 5021 1 CRP M5RO “ 

1351 REE 161 lASr 353 42 .346 2 “E 01 55 0— AD— MPAC 

1354 REE 162 LAST 353 42.3463 54 155 1 TS HPAO >l 

13 35 — R EF 63 "" L AS T 353 4 7, 3464 5 5021 1 CAE “ ZERO ' “““ 

1:356 ■ 3EF 163 LAST 353 42.3465 6 0154 1 ■ Af) MPAC CANT OVELDW ^ 

- 1P87 ocp LAST 353 42,3466 “56 154 1 XCH MPAC 

1 858 '^’TF — 163 EAST 353 4? ,3467 TO 154 0 MPAC T ST CCS MPAC ALARM IF MPAC NON ZERO 

1852 “REF 12 LAST 353 42.3470 0 41610 TC ALMCYCLE AtARM AND RECYCLE. “ 

I860 ^^EF ^19 LAST 352 47 . 3 4^71“ 0002 O TC O 

^rEF"- IM 3_“AST 353 4P , 34 T 2 O' 4 161 0 TC AL MCYCtE ALARM AND RECYCLE. - 

1562 8:-f 90 LIST 353 42t3473 O ODD? 0 TC 0 - — 


roTzmrPK 


GW: ATTi!MftLP 055 OI-THr "Pt<nr,!?AM Cn»HNCHE PV MASA 2021113-051 


1 , CDMAID .0'29 PAGE T54 


PINBALL GAMG " BUTTHMS AND LTGHTS 


USER'S PAGE NO 




FO S'* 


1 SS 3 ref 166 LAST 3S3 42,3474 5A T56 1 ST7FTSr TS NPAX +2" — CALLED HITH - CON IN A 

186't REE 167 LAST 3S4 42'.3475 lO T5S 1 CCS MPAC +1 GET MAG OF MPAC + 1 

TW5 TEE "35 “TAST 42, ■'ATS — 6 5017 1 JTO ONE 

1863 “ '" 42, 3477 1 3501 1 TCF +2 

1367 REF 36 LAST 354" 42,3500 6 5017 1 AO ONE" 

135^3' SEE T6B LA'S! T54 42 ,3501 & 0156 0 AO !5PAX T2 

1339 42;E502' 0 0006 1 EXTEND MAG OF MRAC + l - CON 

1870 42,3503 6 3505 1 RZMF +2 

TE7 1 7rEF~ T4 LTST 35 3 42,3 504 D"4161 0 TC ALMCYCLE HAG OF M P AC-H G/ C O N. ALARM AND 

1372 PEF PI LAST 353 42 .3505 71 0002 0 TC O MAG OF MPAC + 1 L/= CON 


R1373 ALL3DEC TESTS THAT ALL 3"W0RnS ARE LOAOEO IN DEC IFOR HMSINl. 

R1874 ALARM IF NOT. ( TEST THAT 3ITS 3.4,5 OF 0EC6RMCH ARE ALL = 1) 

1375 TEE I 42.3506 4 35T3 T ALL30EC C5 r)CT3 4BA R G ET B IT S 3,4,5 IN A 

~ 3876 REF 17 LAST 348 42,3507 7 1000 1 MASX OEC5RNCH GET BITS 3,4,5 OF OECBRNCH IN A 

1877 ref 2 LAST 354 42,3510 6 3513 0 AO 0CT343AR BITS 3.4,5 OF OECBRNCH MUST ALL = 1 

1R73 RTF TOT" LAST" '350 4'7T35n ID 000 O CCS A 

" 1879 RFF 1 42,3512 0 3516 0 TC F0RCcV?5 

18B0 42.3513 77T43 1 0CT343AR OCT 77743 

rR°r REE T "XAST "354 42,3514 0 3516 0 TC FnRCE V 2 5 — 

1882 REF 92 LAST 354 4273515 0"0002 tr TO 0 


18825 REF 

1882 6 REF 

1882 V REF 

1883 


1 42,3516 4 4113 1 FORCEV25 CS OCTIl FORCE VERB 25 TO BE EXECUTEO BY RECYCLE 

2 LAST 324 4’, 35 17 55*041 t TS VER8SAVE IN CASE OPERATOR EXECUTEO A LOWER LOAD 

15 — LTfST 554 42,3520 — 0 4161 0 TC AfWC Y CLE VERB. AtA RM AND RECYCLE ^ 

42,3521 ENOMMSS EQUALS 


GAt>; A’^SEMaLH :5f:\/I';inN O';!; nt- ^GC P«UGPAH Ll'tflMCHfB'Y MASft ^Ui!1113-()?ii 10i28 AMK. 1, — C O WA I D r(J7^ — PWTE — 359- 


D7NTiATa“f^AT1F ‘ WTTUN^; ^NI?' LIGHTS IISG8»-S'1»AGE NG. 49 EO S'! 


PISGA MnNTTOR ALLaWS"OTHFRTFYGnARD ACTIVITY. IT IS ENDED BY VEBE^ TERMINATE, 

RIRB5 VERB PROCEED WITHOUT DATA-, VERB RESEOUENCEL 

RTRire A'NUTHFP RCINn']P.~D!T AW HVSUB CALL T HA T P ASSES THE DS PLO C X" f PR O V T BED — 
RITB6T THAT THE OPERATOR HAS^ STWEilDW ALLOWED THE ENDTHG OF A MOMITOR WHICH 
R18B62 HE HAS INITIATED THROUGH THE KEYBOARD). 


RlSa? MONITOR ACTION IS SU5PENDETT, BUT NOT ENDED. BY ANY KEYBOARD ACTION, 

RlpoR EXCEPT ERROR LIGHT RESET.- IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED. 

RTETT^ 'TONTTOR SAVES T H ' - ’ NO O N AND APPR I JPR I A I E ~ n i SP L AY V ^^ R B I N H O NSAV E . ' IT SAVES 

Ripqo NOUNCADP IN HONS AVEl. IF NOUN = MACHINE CADR TO BE SPECTFrCD. SIT 15 OF“ 

R189I HONSAVEI is the KILL MONITtIR SIGNAL IKITCER BIT). BTT 14 OF MOMSAVEl 

RTETIT TNOT CAT ES T HE CURREN T MONI Ti'I P WAS EX TE RNALLY I N ITI A TE O ( E XTER NAL 

RnOTE MONITOR BIT). IT TS TURNED OFT SY-RELDSP AND KTLMONON-. - — 


RTR97 — ■ HONSAVE — I Nn j CA TF S IF HON TTOP I S O NH- = nN, -l-O^O FF ) 

R1B'=>3 IF MONSAVR IS ♦. HONITOR-ENTERS NO REOUEST. BUT TURNS KILLER BIT OFF. 
R1BP4 IF MONSAVE IS +0, MOttITOR EMTFRS REDUEST AND TURNS KILLER BIT OFF. 


R13'=>5 WSUB IIP EXTERNAL MOAfT TOR ^IT IS hfE), VB^PROCEED WITHOUT DATA, 
R1S95 V3=PESE0UENCE . AND VB=TERMINATE TURN KILL MONITOR PIT ON. 


R 1 a 9T 
P 1 PET’ 


IF KILLER BIT IS t!N7 MONRED ENTERS NO FURTHER REQUESTS, ZEROS HONSAVE 
\ NO HONSAVEI ITirRNIl<rG-EiPE K I L LER B I T AN D-ETTERNAt -MON I TOR BIT). 


RISO'^ 
I BOO 


NITOR noSENT 
REE 1 


T FO" HATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW 
41, 12^0 SETLOC ENDRUTIN 


19DD5 REF 


i LAST 343 TO 


"ir A 


9: 


26 6 


6 


TWl 

ltT 02 - 

1903 

T 9 Tmr 

1903 ^ 
19033 
1903 ^ 
1903S 
1903 6 
1 903 T' 
1903P 
190331 


Ur’ 

r 


r> crp 

^ % i _ I 


6 

169 


FF 
^ EF 
EF 


3 


19033 ? 
190 V ' 

1 905 


F 


t?FF 
R EF 

REF 

neF 

FFF 


103 

~~T 


ITO 

64 


TTYS 


9 E F 

FFF 


1907 

1903 

TFHF 

1919 

191.1 


FEF 

?FF 


RF<= 


3 
17 

"F 

5 

6 

u 

171 


LAST 

LAST 


LAST 

LAST 


34 3 
354 
3FF 
324 
354 


3 55 



LAST 

LAST 

torsT 

LAST 

LAST 

1. AST 
LAST 
LAST 


1^02 
331 
3FT 
31 7 
355 


41 ,3F3D 
41 ,3231 
41 •3233 
■41”, 32 33 

41 .3234 

41 . 3235 

41 .3236 
41 •3237 
41,3240 

”41 13241 

41 ,3242 
^ 1,3243 
41 , 3 244 
4 1 T 3243 
41 ,3246 
41 •324 7 


4 3237 0 

7 1017 1 
54 155 1 
4 0136 1 
6 4233 1 
10 090 -0 
0 3245 1 
60009 } 

0 3245 1 
"3 — TOO? — O' 
15*^ 1 


0 

tr 


343 
3 55 


“41 ,3 
4 1 , 3 25 r 

9 ^ 2 *5 2 

4 1 , 325 3 
41 • 3254 


3 6 OF 3 
7 loot- 

5 4 022 
00-22 

6 o 2 ? -n 

6 100 ? 1 
54 1 54 0 


0 

o 


INTTOR 


M ON I T 1 



M 0 NIT 2 


MASK 

TS 

trs — 

AD 

CCS 


2 IT 15/14 OCT 

TC 

-A. 

CFF 

ADS 

CAF 

.jug- 


€ AF 
MASK 

TC 

TS 

OS 


AO 

TS 


COUNT 41 /f>IN 



NOUNCAOR 
MPAC +1 


FNOTNST 

A 



60000 
MONI T 2 

B IT ! 4 

MFAC +1 
fFRO 

M OMSAVF? 

LfiWT 

VFRBR=G 
tTF 75 



CYL 

isrt“ 

NOUN'^EG 

MPAC 


TFMP STORAGE 



nm 


E X T f RNAlL Y I 
SET f 31 T 14 FOR MONSAVEl, 


2 F RQ NV H ONOPT OPTIONS 


TEMP STORAGE 


GAP : ASSE:^BIF REVIS10N~0'5*S PROGTiA'MTUM ANCHt BY NASA ;^02111i-nbl 10: 2B Al»”, r; 1 9 COHAIiJ TXTZ^ F^t;F 


L GARB BUTTHTIS LTGmS" ' - USEw»S ^’AGE NO. 50 EO SA 


1912 RFF 65 LAST 355 Al,3Z55 3 5021 I 

lOl i REF 3 LAST 315 A1 .BBSe 55^ 01 2 1 

"Bep last AT,T757 rn042 I 

1915 * A1,326T1 n 3262”! 

1916 REF 1 AT,TZ6T 0 4516 1 

1 91 T 41,3267 O' 0004 0 

I9n REF 2 LAST- 3G2 41*3263 ll»n20 0 

1919 ■ 41*3264 0 3271 O 

- T9^2T5 3tF "37 CTTST 3543 41,3265 r5017 I 

1521 REF 11 LAST — 249 41*3266 0 5245 1 

1922 ^EF 35 Ll^ST 343 07^7 “ 

1523 RBF 1 4T,32'67 03275 1 

1923 REF 1 41,3270 62101 0 

1924 REF 172 LAST 355 41,3271 52 155 1 

1525 P3F 3 LAST 356 4TTT2T2 55^021 T~ 

1926 41*3273 0 0003 1 

1927 9FF 4 LAST 323 41*3274 0 0136 0 


C AF ZTR5 

TS OSPLOCK 

CCT CAD^^STrTR 


30 

F2 

4C 

RELOSPl 

* 

INHINI 

CCb 

MONSAVt 

TC 


CAF 

ONE 

TO 

HAtTL 1ST 


EBANK^ nSPCtltJNT 


2CADR Wn NB EO 


OXCH 

MPAC 

UXC H 

MONS A V F 

-imiNT 

TC 

ENTRFT 


+0 INTO OSPLOCK SO MONITOR CAN RUN. 
flJRN nFF"“KR LTTE IF C ADR STOP ARIT trSRL TST 
ARE BOTH -EMPTY. (LTTE COMES ON IF NFW 
MONITOR IS KEYEO IN OVER OLD MONITOR.) 


IF MONSAVE 


WAS + , 
Vt A G 0 , 


NO RFOUEST 



PLACE MONITOR VERB AND NOUN INTO MONSAVE 
SET UP EXTERNAL MONITOR BIT 


192'^ 

T525 

1930 

1 931 
T5T7 

1933 

1934 


1936 

l'^37 

“T537 

1933 

153P 

"T94TT 

1941 

1541 


1943 

TEAT 

3945 

1945 

1547 


9 rrp 

5EF 


1 


t: 


REF 

REF 


REF 

TOEF 

REF 

■^EE 


1 

Z 


2 

1 

12 

40 

2 


R pp 2 

REF 11 
5EF TT 
PFf 1 
REF=^ 1 
^5TF- 12 


66 

4 

3 

13 



T 


LAST 

LAST 

LAST 


LA5T 

LAST 

LAST 


LAST 356 


355 

35 6 
355 


41 *3275 
41*3276 

43,3277 
43*3300 
4T ,3303 

41,3302 
43, '303 
41,3304 
07 7 7 


0 4414 1 
11*021 1 
0 3303 1 


MONRFQ 


TC 


0330-3 1 

0 3314 1 


41*3305 


4133305 



35 6 


41 1 
41*^ 336 

41*3317 

41 ,3320 


333 4 1 
3320 O 
T 


0 
3 

0 5245 


03275 


LAST 

LAST 

136-^ 

301 

“41,330 7 
41.3310 

3-4371 
0 5134 

LAST 

3 56 

9777 “ 
4 1 * 3 3 1 1 

4 1 , 3 3 1 2 • 

03321 



62101 

LAST 

250 

4373333 

rr 5 324‘ 

LAST 

356 

41,3314 

3 5021 


557-020 

55' 021 



I 


I 

O 


1 

0 5324 1 
■ 001 44" O' 


LnnSAMPT 


+4 

73 

K Tt L MON 
KILL MON 
MO NO F L 
W 



1 


0 


0 


1 



E8ANK= OSPCOUNT 
2CA0R MOMREO 


CAF 

TC 


CMP PR 10 
NOVAC 


2CA-0R MON DO 


TC 


KILLMON CAF 


TASKOVE-R 


ZERO 



MOND E L 


TS 

TC 

ncT 


miNSAVFl 
TASKflVEft 
X^tA 


CALLED BY WAITLIST 
TTWF I - S S WA T CHEO IN BUP T' FOR— N DLW 
IF ILLLLFR BIT = 0, ENTER Pf QUESTS 
IF KILLEP BIT = 0. ENTER REQUESTS 

K ILL ER B I T = t v NO R E O WSTS — 

IF KILLEF BIT = 1. NO RFOUFSTS 



RE Q UEST FOR W ONR E^ 


ENTER EXEC REQUEST FOR WONDO 


ZERO MONSAYE AND TURN KILLER BIT OFF 


TURN OFF KILL MONITOR BIT. 

TURN OFF EXTERNAL MONITOR. BIT. 
FOR - I SEC M ONITOR INT E RVALS 


’XF 5“ — CTtST TT6 '< 1 .3 T7 1 n » 0 2 1 1 MOMOO CC-S M ONSAV E l 

4 1 V iBZZ' “ 0 “B 3 26 0“ TC " +4' 

1950 41,3324 0 3326 0 TC +3 

1 951 XI IrTtSI TXt 41,3324 O-f.2 IT" 0 TC ENDOFJOB 

195?- 2EF 12 LAST 35S 41, 3326 0 5217 0 TC -ENDOFJOB 

1933 '''=F 4 LAST 356 41.3326 11 *012 1 CCS OSPLOCK 


CALLED BY EXEC 

IF KILLER BIT = 0, CONTINUE 
IF KILLER BIT = 0. CONTINUE 

IN CASt-TERMINATE- C4Mf SINCE LAST MONREO 





TN'"OT)b"DT KZr PRGGTW CriMA'NCHIh WY NASA '^021Tl'3-0 




irrms^ coma id 


029 — P/TGH ?57 


1 


^TNBAXT BUTTONS"^ ^^rr~L7 GHTB 


US1rB«^S 


MO, 51 


EO S4 


1954 TEF ' 1 ” 

1955 BEF“ 4 X 7 V ST 355 

““T^FTT" — BFF“" 'T — Dm T 5 X 

“X 95 T 9 EF 1 — “ 

1950 1 ; — 

- I^ET ?TF'~ 5 L AST ^T 57 

1 <^ 5 ? TEF 1 

1963 REF 1 

“ 196 '- TFT 2 EA 91 J 5 T 

1965 RFE 19 LAST 355 

1965 ^EF 1 — 

1967 TFp-' -5 ' LASI J 56 

I 960 — QrF 2 LAST 35 5 

“ 1969 OEF 5 LAST 336 

TTTD 9 XFTT 3 L AST T 35 

' I 9 T 1 off 1 — 


4 T , 337 T 0 3351 0 TC MflNBUST — WSUR IS BUSY - — 

41,3330 3 6043 0 CAF LOWT — 

4 TT 3 T 3 T 7 1020 0 mSK wiHMSAVE — 

41,3333 0 ' 2317 0 ^ TC UFDATNN -X FLAC^ NOUN INTO NOUNREG AND DISPLAY IT 

41 , 333 T 3 4160 1 XAF HID 7 

ATTT 334 7 1 U 2 U 0 " MASK TONSAVF — CHANGE W O NTT O R V E RB TO D I S P LA Y V EP B 

41.3335 6 3347 1 AO MONRFF -DECIO, STARTING IN BITB 

41.3336 54 023 I T$ FTlTTp RIGHT 7 

4 T 7 T 3 T 7 3 ~ 00 'Z 3 0 CA F 770 P 

41.3340 55 » 0 m 0 TS - VFFBREG — 

43.3341 3 3350 1 CAT MONBACK SET RETURN TO PASTEVB AFTER DATA DISPLAY 

4 T 7334 Z 54 136 1 — TS ENTRF 7 

41.3343 -4 3237 0 

41.3344 T 1021 1 MASK MUNSAYFl PUT ECAOR INTO MPAC ^ 2 . INTMCT 8 S WILL 

41 . 3345 54 "136 1 TS M P AC K 2 — D T S P L A Y TT AND SET NOUNCADR, NOUNA CDl—" 

41.3346 0 2046 1 ENOMONOO TC TFSTMN EBANK. 


19T? 


4140 


BLOCK 2 


197301 




4000 

4140 


SETLOr FFT^GR 
BANK — 



19795 9 ? tF “1 


COUNT 02 /PIN 


1773 RTF 

2 

LAST 

357 

4 140 

3 4160 

1 

PASTEVB^ 

CAF 

1 Q 74 

2 ‘ 

LAST 

355 

41 M 

7 1022 

1 


'lASK 

I 975 




■ 4142 ■ 

"0 0006 

1 

'Ift 


EX TEND 

1976 

A 



4 X 43 

1 414 ^ 

1 


BZF 

1977 ^EF 

1 



4 1 44 

0 41 46 

0 


T C 

--- -. . . 

197 '^ REF 

7 

LAST 

357 

l<f 5 

3 10 20 

1 


CA 

TOTTZ PFF-- 

3 

LAST 

357 

4146 

54 023 

1 

PASTEOPT 

TS 

|■ 7 TR 3 t 7 pp 


LAST 

35 7 

4147 

3 0023 

0 


CA 

19733 ? 74 F- 

4 B 

L A b 1 

B ^ 0 

4 \ 50 

0 46 62 

1 


TC 

197833 RFF 

1 

la«;t 

344 ^ 

4 T 31 

"5233 ^ 

1 


CARP 

197335 J^EF 

67 

L 45 T 

35 6 

4152 

3 5021 

1 


CAF 

1 973 3 P RTF 

irr' 

1 AST 

32 B 

^ 1 D :) ^ ’ U 1 :5 

0 


TS 

197.^4 REF 

3 

LAST 

35 7 

4144 

4 102 ? 

0 


CA 


19735 REF 1 4155 0 4271 1 TC 

T 973 4 — 4150 0 4157 0 TC 

19737 RFf 33 LAST 356 41i7 0 0 ENOPASTE TC 


07 

MONSAVEZ 


+2 

PASTEOPT 


EOCP 

ED 09 


UPDATVB -1 
ZERO 

monsavez 

8LAMKSUR 

^rt — 

ENDOFJOB 


NVMONOPT PASTE OPTION 


PASTE PtEASE VERB FOR NVMONOPT 

P AS TE MONIT O R TTER^-^ PASTE -Q-PTtON tS O 

RIGHT 7 

PLACE MONITOR VERB OR PLEASE VERB INTO 
VERB R-FC-^WTin SPLA Y t Tv — " 

ZERO REORET SO THAT PASTED VERBS CAN 
- BE EX FCUTg O BY OPERATOR - , — — - 

PROCESS NVMONOPT BLANK OPTION IF ANY 


1979 


4160 7 7600 0 M! D 7 OCT 3 7600 


19R0 RFF 1 — — u 1,3341 — SETLOC END HONDO 

199 05" PFF" 4 LAST 355 TO 357t 79 743* flHlNT 4l/PI^4 


19r/2 


41 , 3 34 - 0 ^ r 5 2 7 t- o MONREF OCT 75377 -D E CIO, STARTING I 

4-1,3350 04140— 0“ MONBACK AO^ES PASTfVB 


PFf 


1 


TAPI ASSPMbLE PFVlSlTi'N'iB'j nP 'A'oC ('iV'’r,R4H CnMAMCHfBY NASA ?02lH-i-0?l 


PTNBALL GA'IF BlJTTOMS Trrm LIGHTS 


1«B'3 REH 2 LAST 315 AT. 3351 0 A410 0 NIONBIISY TC ~ RTLOSPOH 

1934 RPF 34 LAST 357 41, "3352 0 5217 0 "TC ENDOFJHB 


IDTZ'^rSPF. 1.19 69 CUMirrn TDT^ PSTIE 35B 


USER' S PAGE' NO. 52 ' 60 S4 


TORN KEY RELEASr LIGHT 


R1985 OS^FMEM IS USED TO OISPLAT' TTN OrTAr) ANY FIXED ■REGISTER . 

Pl'TSo TT nrT]5ED'T)ITH3qrilTIT-S737tT;VITNb CADR TO BE SFEEIFIEO. THE ECAUR OF THE 
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363 

362 

40. 3311 
40 , 3 ? 1 r 

RFF 


L- O 1 

363 

40,3313 

REF 

103 

LAST 

762 

40-,'7314 

"REF 

3 

LAST 

36 3 

40,7715 

REF 

2 

LAST 

362 

4u , 5 1 5 


54 141 
7 5016 

rrr 


76-002 
54 114 


1 

0 
-o 
0 

1 

7 


40, 3320 
40, *321 


7 3322 I 
O 4704 0 


IIDSPIN 


40,:*3 17 0-32 27 0 D SP^IC 


TS 

CAE 

77“ 

XCH 

TS 

■TC” 


CAE 

TC 


DSTEt 

T*WO - 


COUNT- 

0“ 

DSEXIT 

Tr S R - T Nt 


OSTIN 

♦ 2 

JUMP 


MUST USE SAME RETURN AS DSPTN 


SO OSPOCTWD OOESNT 



GT^Pl AS$eM8t.f: REVISION 05^ 0F"TGC' PROGPAM COMANCHE BY NASi 20^1113-0*>l 10! 28 APR. 1,196'^ — COHAID — TTfT^ — PATJE 


L PINBALL G Afl'E^ BirnriN S A NT)^t TGI-rrS " USER'S PAGE NO. 58 EO S4 


2203 PEF I AO, 3322 63AIT V FNOSPOCT CAOR OCTBACK 


R220A nSPALARM FINDS TC NVSUETcMD IN ENTRET FtlR NVSUB INITTATFO RHUTTNES. 

R2205 ABORT WITH 0150T. 

3r2T01>““ OSPATARW FTMOS TC ENOOFJOH IN fcNIRtl FOR KFVBUAKU INITIATED ROUTINES. 
R220P on TC FNTPFT. ' 


“2207^ REF T XTrST 3F;T AO, 332 3 A" A37A 1 PFIFOSPAL CS VTTT 

22075 PFF 50 LAST 362 AO, 332 A 5A 777 I TS DSPCOUNT 

2203 OFF 1 AO, 3375 A^3A6 1 OSPALARM C5 NVSRENDL 

■2700 RFF ■ 8 TA'ST 3T5 AO, 3 3 26 — r ~0 1 36 0 Rti ENTFXTT 

2710 AO, 33? 7 0 0006 1 EXTEND 

2211 PFF 16 LAST 316 AO, 3330 1 33A3 1 PZF CHA®ALRM *2 

TZTTT RTF r~~ — AO , 3 3 3 1 A 33A5 1 CS WON A DR IF T H I S I S A^WO NT TB R. KILL ^ 

22117 PFF 9 LAST 36A AO, 3332 6 01 36 0 AO FTJTEXIT 

22113 A0,3333 0 0006 1 FXTENO 

■ 2211 A ■ ■ “ “ A0T333A 1 33 36 -0 BTT T7 — 

22116 PFF 17 LAST 36A AO, 3335 0 33A1 1 TC CHARALRM 

22116 PFF 1 AO, 3336 0 A220 0 TC KILMONON 

■22TrT““REF' ^ LAST — 2A2 AO, 3337 0 A A 00 1 TC FAL TO N 

22118 ■'EF ~2 LAST 35T AO,33AO 0 41 AO O ^TC PASTFV8 PUT MONfTOP, VFRB BACK IN VERBHEG 

-7217“ REF 6 — LAST 364 40,334 1 0 ^40)0-1 — OHARALRM TC FALTON NOT NVSUB INITIATEO. TURN ON OPR ERROR 

221A OFF 2 LAST “747 A0-i3343- 0 5721 0 ^TC POOOf'O 

7217 40, 3344 01501 1 OCT 01501 

'22171 TTEF 3“ -orST 3BA 40,3345 0 ' 41A 0~ 0 -NO N A DR GE r gA DP PA STEV B 

2216 P^FF 1 - 40,3346 0 4216 -0- NVS8FN0L TC NVSUBENO 


772T9 ACMCYCLE TURNS ON CHECK FAIL L IlSHT , REDISPLAYS TH^ ORIGINAL VERB THAT 

R2260 WAS EXECUTED, ANO RECYCLES TO EXECUTE THE ORIGINAI VERB/NOUN COMBINATION 

R2222 fTCTBS. ALSO BY MMCHANG T F “2 NONERtC AL CHARACTERS WFRF NOT PUNCHFP IN 
R2?23 for NM code. 


2224 REF 3 LAST 357 4161 SETLOC-mIO? +1 

222A5 REF 2 LAST 357 TO 357: 17 17* COUNT 02/PIN 


2225 PFF 7 last 364 ' A16T 0 4400 1 ALWCYCLE TC FALTON TURN ON CHECK FAIL LIGHT. 

2728 REF 3 LAST 354 ““ 416-? A lOAI 1 CS VfRBSAVF GFT ORIGINAL VERB THAT WAS EXECUTED 

22 79 RTF — rr — trrsT — ttt atcs — 55 *0 13 n rs » e - dret set fo r-e ntpaso 

2230 REF 49 LAST 357 4164 D 4662 I TC BANKCALL PUTS ORIGINAL VERB INTO VERBREG AND 

2231 RFp LAST 357 41 65 - 673-37 1 CADR UPDATV8 -1 DISPLAYS IT IN VERB LIGHTS. 

2232 TFF 28 LAS T 361 4T6 ' 6 ' “O 4 701 0 TC POSTJU N P 

2233 RFF 2 LAST- -316 ---4 167 6700-2 t ENDAI-H CAUP "EASTER 


''2734 RYrHANG CCSES NOUN OISpI.AY HNTIl ENTff! 
P2215 IT GOES TO NnoROOT WITH THE NEW H N C 


them |T OSES MODE DISP. 
e IN A, BUT NOT DISPLAYED IM 










»*. 






*v 




r.v; 


>^> ■>. 
• » I* T • • # k- * 

• T # 





« • 






"', ' vr 

« . 




( 


,*«> 




^TSPl FTTTREIF SeVI^inN 0‘^'5 r;F AGC PPUG^AM CTMANCHE BY NASA ^O^'lTlT-a^l 


10!28 APR 


I , IV6'9 — COMAIU 


TT?’? PAGE 



PTNTOTL r,AM'= 



r^A'TD VTGHTS 


USPR’5 PAGE" 


EO S4 


pass's wM tights. ■ ' — 

R2T37 TT GEMAJSfDS 2 ■NU'IEPTCAL CHARACTERS BE PUNCHED TM FOR NEVf MN CODE. 

T27TR IE NUT, Tf KECfCLbS'. 


223a— opp 1 ^^1,T■<^30 SETtnC OSP28IT +100 


2?3R5 REF 6 LAST 361 TO 36?: 37 79?* COUNT 41/PlN 


72A7y RTT= 1 +1 , 3A3D 0 3452 1 HMCHANG 

^Z7Jil 

A22 4? 

"ZZ+3 PcF n tSAST 250 41 , 3431 3-5013—0- 

-2Z44 ppF 51 LAST 354 41,3432 6 0777 0 

— ?245 — - 41,3433“ 0 0006 I 

27-45 41 , 3434 - — 1 3435 1 

7247 ' ~EF 16 LAST" 354 41,3435 0 4161 0 

724S PEF 71 LAST 36T 41,3436 3 5021 1 

2 ZIP REF' 17 LAST TSS" 4T ,34 37 5T'a02“l 

2250 REF 1R6 LAST 361 41,3440 54 154 0 

2251 REF 3 LAST 32P 41i3441 3 437= 1 

2732 “TEF 57 -TTIST^ 755 4 T , 344? — 5 4 777" 1 

“ 2253 -RFF 50 LAST 364 41 , 3443“ 0 47)6? 1 

— 7754 KEF 4 LAST 372 41; 3 444 60507 0 

2255 REF TO CAS-I 354 4 1,54 4 5 4 4374 t ~ 

2206 REF“ 53 “T“AST 365 41,3446- 54 T77 1 

-■ 2257 ref 137 LAST 365 41,3447“ 7 0154 1 

2253 RFF TO’— ITAS-T 364 47134 50 -' O- 4701 0 

225 a RPF 1 “ “ 41.3461 10011 0 


TC REQ33 


CAF BTT5 

AO DSPCnUNT 

FXTEND 


8 ?F T2 

-TC ALi^CYCLE 

CAT TrRO 

TTCH NnuNREG ’ 

T3 MPAC 

CAF M'n 

TS DSPCnUNT 

TC BANKCALL 

CAOR aeiANK 

cs vor 

TS OSPCDUNT 

CA MPAC 




CAOR MOORQUTB 



r t omm - at 



IF THIS MOVES AT ALL, MUST CHANGE 
MMAOREF AT ENTPASHI . 


OSPCOUNT MUST = -NO?. 

DEMAND THAT 2 NUM CHAR WERE PUNCHED IN. 


OSPCOUNT NOT= -N02. ALARM AND RECYCLE. 
DSPCOUNT = -N02. 


BLOCK 



GO THRU ST ANDARD LOC . 


22'SO— REF 7 LAST 266 04,2011 M0DR0UT8 = V37 

2261 REE 104 LAST 363 41,3457 4 0002 I “REOMM CS 0 

-72S2 RFE r2 CAST -‘36“4 43", -'3+ S 3 55MU 3 0 TS REORET 

22.63 REF 4 LAST 365 41,3454 3 4775 1 CAP NDl 

2264 "RFF 54 LAST 365 41,3475 54 777 1 TS- —OSPCOUNT 

7265 TEF 77 T A ST 365 41 , 3456 3 5021 1 CAT TETO — — 

2266 REF 13 LAST 365 41,3457 55*002 0 TS NOUNRRG 

2267 PE.F 51 LAST 365 41.3460 O 466? 1 TC B4NKCALL 

■7753 REF 5 "LASI 365 41,3 4 61 605 02 0 CADR 2BLANK 

2269 " REF 3 LAST 370 41,3 462 0 4443 0“ ' TC“— FLASHON 

22R0 REF 43 LAST 363 4 1 • 3467““ 3 5017 T CAF ONE- 

2 2 7 T REF 13 LAS T 354 41 , 3464 55*000 1 TS fl EC B RNC M SET FOR DEC 

72 7 2 - -R-EF 10 TAST 364 “41 ; 3467 0-01-36 0 “ ' TC CMTEXIT 


R2 2 73 VBROPXEC ENTERS REOO'-ST T*" cXEC FOR ANY AODRESS WITH ANY PRIORITY. 

R22T4 FT DUES FNDOFTOB AFT P-e- ENTpRl NGRETOOE-TT. DISPLAY SYST IS RELEASED. 

42 7-75 rr AS S O** FS' N ti UN" ?' 6 HAS 3 EE 7. ’ aR TLOA OBO WI T H 

R2276 component 1 PRI 071 t v 1 3 ! TS 10-141 B1T1=0 FOR— NOVAC. BIT1 = 1 For pindVAC. 
R2277 C;TMP0MFNT 2 .105 AD)»ES-'<T2 BIT ) - 


r,AP: ASSP'^BLE REVISION ijP r»'’'ni;PAH C1MANCME BY NASA 2021 1 13-Ob 1 


lUJ^B APP. 1 , iy6V r DMA ID 


T6B 


PTKBALV r, AM 




BITTIOIMS ANn-LTGHTS 


RB27-; 


Y2T^ 

22^10 

2281 



2283 

2284 

22"T5 

2236 

22^37 

22B’8 

22 37 
2290 
1[71T 

2 292 
2293 
2 274' 
2296 
27^6 


USBR»S PAGH MO. 60 


€0 S4 


COMPONENT 3“ BBCOM 


REF 

RFF 

p:e 


9FF 

RFF 

TEF 

REF 

9EF 

RFF 

REF 

9FF 


2^ 

16 

116 

~ '1 

1 

183 

ZB' 

17 

189 
5" 
5 

190 


rA6T 

LAST 

LAST 




35 8 
363 



LAST 
T” 
L A5T 
LAST 
I A'ST 
L AST 
LAST 


365 

ZBB 


“41 

41 

“4T 

41 

41 



TB6 

343 


:> 

3 66 


REF 


^rr 


3 

PTEF 


18 

191 

T92 


LAST 

LAST 


366 

366 

336 


REF 193 LAST 366 


41 

■4T 

41 

41 

4T 

41 

41 

TTT 

41 

41 


,^466“ 

43 467 
,3470 
7347T 

,3472 

,3473 

r33rrF 

,3475 
, ■’47 6 
937rrT 

,3500 
, 350 1 

73602 

, 3503 
.350 4 
79503r 

,3 506 
,3507 


3 5017 1 

7 1045 O 
10 000 0 
0 3510 0 

3 4365 0 
54 154 0 

4 5LU ? 0 

7 in45"rr 
54 160 1 
0 447^ 0 
3 4233 1 
54 157 0 

or - 0006 T 

3 1047 0 

52 156 1 
3“01"60 0 
0 0004 0 
0 0154 1 


VBRQTXPC 


CAF 


RFQFXl 


KTOUrSTC 


TC 

CAF 

TS 

trs 

t»»ASK 

TS 

tt;: 

CA 

TS 

FXTFMO 

OCA 

nxcH 

cir 

IMHTMT 

TC 


■prm 

nSOTFMl 

A 

5ETVAC 
TCNOVAC 
MP AC 

zrm — “ 

0 SET EMI 

MPAC 


>4 



ENOIMST 

MPAC 


+ 3 


OSPTEMl FI 
MPAC +1 
MPAC 


MPAC 




Q 


EF 


1 

1 


41l,^51tl 
41 , 35 Tt 


3 4^ 70 


r 

1 


SET VAC 


CAF 


TCF IMDVC 
-XI 


R 220cr 
92300 
TlZTOl 
R2302 
P 2313 
R2304 


V3P0WATT EMTEFTSOflEQUEST Ti WA tTLTST FOR- ANY AOORFSS WITH ANY DELAY 
TT does ENOnFJOB AF TET^ TNTFF I NG ^FOUPST .0 1 SPL A Y SYST IS RELEASED. 

T T ~ A6 SHTTES ■ NTOJ I T- Z' b ' F I 6S ' 5 E E N P R E L 0 A'O E D W IT H 

COMPONENT t — OELAT TLOW PITS) 


COMPONENT 2 
CUM’PDMENT 3 


task acres rr2-3TT) 

OBCON 


2305 

7306 

ZIO"’ 

2303 


TEF 


?3 

IFF 



19 

1 


366 
LAST 366 


41 

.3512 

3 43 66 

0 

VQROWAIT CAF 

- . .A 

TCWAIT 


t 3 5 1 ^ 

54 1 54 

0 

TS 

MPAC 

41 

, 3 51 4 

3 10 45 

1 

CA 

OSBTFMl 

41 

, 35 1 5 

0 3476 

1 

ENDROWT TC 

BeouesTC -i 


R23n9 
P 231 0 
97311 


RCOU^'STC WILL PUT TASK ADPES INTO MPACfI, SBCDN INTO MPACF2, 

TC ENDUFJOB INTO MPAC+3. IT WILL TAKf= TIME DELAY OUT OF MPAC+4 
ITEAVr'TT TN A TNHTNT AND TC'MPAC. 


AND 


TT OTTl ^ 
IF BITl = 
TC NOVAC 


1 , 

0 , 

m 



NOVAC 

TC FI NOVAC INTO MPAC 


PRIO INTO MPACF4 AS A TEMP 


TC ENOOFJOB INTO MPACf3 


JOB ADRFS INTO MPAC+l 
PBCON INTO MPACF2 

IN A 


Tt -W AITLIST INTO M P AC 
TIME DELAY 


73T? Zrr~ 2 LT^ST •~354 TOlTri^T — — S^TLOC N V T BtNDL Fl 

23175 R E F 7 LAST 362 Tn--354r 80 743’K COUNT 40 /PIN 


"2333 9FF 44 TAFT 365 4 : 7 73 3 4 7 3 - 5017 1 VB P ROC — “04^ 

2314 RPF 2 tTtS-T 3'+6 4iV, T350 - 55FTTt4--l TS 

2315 "PEF 2 LAST 36^ 4P,3'^5 1 0 4220 O TC 

— Z3T6 ^FF 7 LAS T 366 40,3352 0 ~-44 73 0 Tf^ 

7319 9^F 3 LAST 32'" 40,7353 0 ^r447 1 TC 

231 < ' rf 2 LAST 345 40CF354 O 345^ 1 TC 


WE 

inAOSTAT 
K I L MO NON 
5L ’ tDSo 

Ft AS HOFF 
RFC^LTST 


PROCE E D WITHOUT DATA 


TURN ON KILL MONI TOR BIT 


SEE IF THERE 15 ANY RFCALt FROM ENOIDLF 





GAP: 

assemble RFVISION OSS of AGC program C.liMANCHE BY 

NASA 

2021U3«U5l 

10t2B APR. 1 ,1969 CQMAIU .0 29 

PAGE J67~ 









cO S4 


L 

PTN3AL1_ 

BUTTONS ANi) 1 TGKTS 




trSFP*^S Ntr. 61 



r 

‘ ^ ^ - w — 'mmf — — - - ^ ^ fm HI 









231^ 

TFF 45 L^ST 

366 4 501 7 

VBTEIT’^ 

X S 

ONE 





232 0 

PEP 2 L AST 

325 40,3356 0 3350 1 


TC 

V B P ^ OC 

TFRf^ VERB SETS LOAOSTAT NF15 




R23201 '’ROCKEY PERFORMS THF'SX^ FV/NCTTON AS VRPRnC. IT MUST BF CALLED UNDER 

R73.T'T2 CXFCirnVE CUNTPUL; WHH LHHPI-Hn. 

23205 REF 73 LAST 365 AO, 3357 3 5021“ 1 PROCKEY CAE TEITO SET REGRET “FOR ENTER PASS 0. 

23206 REF 13 LAST 365 40,3360 55*013 0 TS ““REQRET “““ 

232 OT TEF rr LTfSl 055 40, 1361 4 4374 I CS 701 B tOCK NUMER I CAL CHARAC T E R S, S I GNS, 

23708 REF 55 LAST 365 40,3362 54 777 T TS DSPCOUNT 

23200' ROT 3 LAST 367 40.3363 0 334^ 1 TC VBPPOC 


R2321 VBRESEO WAKES ENOIOLE AT SAME LINE AS FINAL ENTER OF I OAD (L + 3>. 

R23TZ (MAIN USE lb INItN''c!J AS" ^''^SPilNSF TO INTERNALLY INITIATED FLASHING 

R23Z3 OISPLAYS IN ENOIOLE. SinU.O NOT BE USED WITH LOAD VERBS, PLEASE PERFORM, 

R2374 ns PLEASE MARK VERES BECAUSE THEY ALREADY USE Lf3 IN-ANOTHFR CONTEXT.) 


2325 REF 74 LAST 367 40.3364 4 5021 0 VBRESEO CS 7ERC MAKE IT LOOK LIKE OATA IN. 

?326 REF 4 LAST 367 40,3365 0 3350 1 TC V8PR0C +1 


R2327 — '^LASH TS TURAtED CEE BY “PROCEED WTTEtOUT-DATAr TERETtNATE. RESEQUENCE. 
T^23Zn END OF' LO'AD'. 


f 


1 ,1969 C O MA ID 




ffEVtSinNl DF AGC P>''UG''AM CUM ANCHfc BY NASA 202111^-051 


10528 APR. 


'^IRBALL GAMn~ BlTTTaNS ■'STTr' LIGHTS 


USIrR'S P AGP NO 


62 


EO S 4 


? 2 3 ? 




KEY RELEASE ROUTINE 


■? 21315 mrS H^HlTryNE^ALWAYS TURNS GEE THE UPACT LIGHT AN'J ALWAYS CLtAKS DSPLOCK. 


"2331 THE HIGHEST PRnRITY“FUNCTTON OF THE KEY RELEASE BUTTON IS THE 
R 2 TT 2 ITlTSUSEENn I NG ME A SUSPENOEO MUNTIOR WHICH WAS EX 1 EKNALLY IMIIATED. 
R 2333 THIS FUNCTION TE AEG PMELTSHFO BY CLEARING nSPLOCK ANO TURNING OFF 

R 233 ‘i THE KEY RELEASE LIGHT TF BOTH OSPLIST AND CADPSTOR ARE EMPTY. 


R 2335 IF NO SUCH MONTTHR EXISTS, THEN RELOSP IS EXECUTECr TO CLEAR OSPLOCK 
R 23 R 6 ANO THE EXTERNAL MnNTTO'^GTT I FREEING THE DISPLAY SYSTEM FOR INTERNAL 

“R 2 TT 7 03 E~n"TUPN OFF IHb KEY RKLhASh LT GH T , A NU~ WAKE UP ANY JOB I N OSPL I S T . 

« 


R 233 g IN ADDTTinN TF THERF IS "A JOB IM FNOIDLF, THEN COMTROL IS TRANSFERRED 
g 2 3^ rO^FTWRNCH TrN"T 7 T 3 ^a AY INT ER F ACE ROU TI N F ) T D R E -EX FC U TE T H E SER IE S O F 

■ R 23391 WVSU 3 CALLS FTC. THAT PRECEDFn THE ENDTHLE CALL STILL AWAITING RESPONSE. 

■ R 23 A -0 THIS feature IS INTENDED FOP USE WH^^N THE OPERATOR HAS BFEN REOUFSTED TO 
“R 2341 PTTSPrTMD TfT SHHE T NTEP T IAT: ACTIO N THAT USFD END T DL E * B T 7 T H T HAS WR ITTE N 

323^2 nVEP THF INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN 
R 23 A 3 INniATTON WHICH DO NOT SERVE AS RESPONSES. HITTING K^Y RLS^ WILL 

”R 23 A^r““RE“'FSTABL I SH "THTT)! S' PL AYS "TG T H E S T A TF T HE Y W E FF IN B EF ORE HE OBSCURED 

R2345 THEM, SO THAT H1^“CAN SEE THE TiAlTlNO REOiJf^ST. THIS WORKS ONLY FOR 
R234S INTERNAL PROORAHS^ THAX-tJSEO-^END IDLE TTTROtJGH MA^RG.ARETS DISPLAY 
^ R 234T SORPrinTTNFS.“~ 


23A8 

234-r 

23 BD 

23 E 1 

2352 

2353 
235A 

2355 

2356 
2337 

TJ 


13 LAST 341 


RFF 

Ref 

■ref- 

■RET 

TEE 

■RTF" 

RTF 

RTF 


10 

2 

~3T 

6 

117 

T 

3 

3 


2 3 G 

□ r p 

37 

736^ 

REF 

30 

2T61 

“R'EF 

4 

2367 

REF 

75 

23o3 . 

RET 

5 

Z3T4 

PTT" 

6 

2363 

"FF 

3 3 

73 66 “ 

FRF 


2 3t^>6 1 

R EF 

3 ^ 

2367 

— - 

— — - 


LAST 

LAST 

TTOTT 

LAST 

LAST 


I AST 
.LAST 


L ''.ST 
LAST 
r ATT 
LAST 
LAST 
LAST 
LAST 
LAST 
LAS T" 


10 7 

315 

Tsr 


3 66 


366 

356 


364 

365 


3 6 


3 TT 

3 5 T 
35 6 
OTTB 


40V3366 
"4a *'33 67 

40 f 33 70 

■■ 40,3 372 
40 , 33 T 3 
40,337 4 

407-3375 

40,3376 
40,3 3-77 
■4O'T3n-0Tr 
40, 3401 
4C,3'+0P 

"407 
40, 3 AO 4 
40, 3 405 


rv 


T^xys 

40,340 7 
40, 3410 
4 0 , ■3 41 1 


40 , 34^12 


4 5015 1 
0 0006 1 

oToii r 

10 115 O 
3 5002 0 

7 1021 1 
10 000 0 
0 3404 1 

0 4473 0 

11 * 04 ? l- 


VBRTLOSP CS 


3173 


0 5217 0 
0 4701 0 
2 1 27 7 0 
3 50? 1 1 
55«01? I 

11 ^0 4 7-7 

0 5? 17 0 
0 4516 1 
0 5 2 17 0 


TSTLTS4 



WAN13 

CCS 

■CAT 

MASK 

CCS 


TC 

CCS 


UNSUSPFN 


TC 
TC 

CAF 

TS- 


ccs 


TC 

TC 

TC 


DSALMOUT 
21 / 22 RFG 
B I T 1 4 
MONSAVFl 
A 

UNS tl SPEN 
Rf LDSP 
CAO^STOR 

^ 

ENDOf JOB 
POSTJOMP 


ZERO 
OSPtLtCK 
C ADR STOP- 
F^-DOF JOB 
RELDSPl 

JOB 


ENDPFLOS EQUALS 


TURN OFF UPACT LITE 
OLD DSPLOCK 


EXTERNAL MONITOR BIT ( EMB ) 


OLD DSPLOCK AND EMB -B O Ttt Tr> tINStlSTTNO 
NOT UNSUSPENOING EXTERNAL MONITOR. 

RELEASE DISRIAY SYSTEM ANO 
- Dt r - RE-ESTABL T^M tF CA D RSTQR IS THit^ 


EXTERNAL MONITOR IS SUSPENDED, 


JUST UNSUSPFND IT BY 
TURN K E Y -- REL E A5 


CLEARING DSPLOCK. 



CAORSTOR ANO OSPLIST ARE EMPTY. 


4 


« f . 






« 





A 





mmiM 











TSPl TAVIST DN 0^^ OF A;''(: "PROGRAW CTMAMCHE 



M^SA 202 nTJ“D 5 l 


10:28 APP 


r* IT6~9 — CUMATO nJZ9 PTO¥ 



PlNKAtC ^^AMF BUTTtn^ AWXTGHTS 


USEF«S PAGF 63 


FO S4 


" ^236^ AJVSUF TS IlSEO FOR SUP FOnTTNH CAtrS"^Rtm WITHTN FOTIFlJTFRv 13^ CAN "B E 
P2369 USFC TO call THE COMB TOM OF ANY DISPLAY* LOAD* OR MONITOR VERB 

“■ RZ3 70 TnT^FTHFR 'WITH ANY’ NOUN AVIATLABLh 10 1 HE KEYBUAHU. 

R23T01 PLACF bVVVVVVVNNFP^N^JN INTO A. 

R23T37 V-S ARE THE 7 BIT VFPB CODE, N-5 ARE THE T BIT NOUN CODE. 


R23703 IF NVSUB IS CALLED WITH THE FOLTOWING NEGATIVE NUMBERS (RATHER THAN THE 

^23704 verb-noun CODE) TN A* TH^N THR DISPLAY TS BLANKED AS FOLLOWS^ ^ ““ 

T 2X 7 OF =^~FUU U '31:ANKV-3 L E AVE ' MODI TE'AVb MUlJb AND VERB* -1 BLANK R-S ONLY 


R2371 MVSOB CAN BE USED WITH MACH EAOR TO EI^SREC BY PLACING THE CADR INTO 
712372 ■ MPAC+2”BFFURF 'THF"STA^»D'AT:n NVSUB CALL. ' 


R2373 NVSUB PvETURNS TO 2+ CALU NG LOC AFTER PERFORMING TASK, IF DISPLAY 

'R73TZ; FY STEM" TX' TiVATLABLE. — NEW NOUN AMD VERS CODES APE DISPLAYED. 

R237S IF V:S “0* THE NFW ^lOtfN CUBE IS DISPLAYED ONLYtRETURN WI TH NO FURTHER 
R2376 ACTION). IE N-S =0, THE NEW VERB CODE IS OlSPLAYFD ONLYIRFTURN WITH NO 
X23TT ' EtrRTHFP ACTTONT. 

R2373 IT PFTUPMS TO 1+ CALI ING LOC WITHOUT PERFORMING TASK, IF DISPLAY 
~R2379 SYSTFM~TF FTOC KED C NOTH T N G “TS' TTfSPL AMED TV THIS C A'SCr.' 

R233n - IT DOES TC ABORT TWTTN OCT 0150 T rTF-rr ENCOUNTERS A DISPLAY PROGRAM 
R23BI ALARM CONDITION BEFORE RETURN TTT C At! ER. - 


P 2 3 B 2 “ 
R23B3 

R238S 
R 23 P^ 
T233T" 
R 23 S 3 ^ 


THE display system IS BTOCKED BY THF DEPPFSCIpR'I aE“AHY 
KEY* EXCEPT ERROR LIGHT '^ESET — 

T'TTS PEL EASED BY THE KEY RELEASE BUTTON, “ALL EXTENOrn VERBS, 

PROCEED WTTHPUr tTATX* TFR^^INATE. ^FSEOUrNCET I NT T T AL 1 2E EX FCUT T VF , 
•RECALL PART OF RTTCALTST IF =N0 1 Dt E W AS USED, 

VB “^"REQUEST 'EXECUTIVE, VR = KEOUEST WAITLIST, 

MOfllTOR SET UP, 


R23T3T IHF DTSIXUrr SYSTFM TS'ALSTT-BLnCKETI BY THE EXTERNAL MONTTOR BIT, imiCH 
R23B3? INDICATES AN EXTERNALLY I N T T I ATFD MON I TOR IS RUNNING (SEE MONITOR) 


R23RO A NVSUB CALL THAT^RASSES ORPLOCK AND THE EXTERNAL MONITOR 03rT“FNDS OLD 
R23B91 MONITOR. 

' R 2 3 on OS P COCK T S TH E " I N TER L O C or ROR US E ' OF K F YB O ARB AN D D TSR LA Y SY STEM WH I CH - 

R23R1 LOCKS 'MIT TNTFRNAl USE WHENEVER TMFRF^TS *=^XTERNAL KEYBOARD ACTION. 


P 239T T N VS UB SH OI JL D B E' U ' SF TT'T W T C F ^ " SUCC ESS ! ON FOR ':T LE ASF PERFORM : — S ! T 1 TA T t ON S 

"R2B'’12 ( STMTLAPLY FOR PLEAS F M ARK tOT P TRSX f>LACX THE COOED NUMBER FfIR WHAT- 

R23‘^l3 ACTION IS DES I RED OF OPER AT fTR INTO THE REGISTERS REFERRED TO BY THE 

” P2391 A : CHECK L I ST HOUN. — GO TO NVSUB WITH DTSPLAY VERB AND THF ^CHFCKL TST : 

723-15 NOUN. GO TO NVSUB AGAIN irtTH THE : PL CASE— Rf RFORM t VERB AND EEROS IN THE- 
R23Ul5r L^^’V r BITS. THIS tPASM^ES-tl^-t THE 7 PtrEASE PERFORM: VE^^^R INTO THE VERB 
"R23FT7 — L IGHTS. — _ 


R 230 I-^ NVMOfJOPT TS AN ENTRY SiMytA^ TO NVSiJB* BUT REOUfRING AN ADDITIONAL 




VT<; nT?^"T555>' DF t^'iC T^^riCV^AM COMANCHl H.Y NASA L i 3-Ob 1 


TTJTT^nrppi — 1 . 1^69 — cumvo — rozg — 


r 


PTNRaLL r; A MF BUTTONS AND LTUHTS 


USER’S PAGE NU. 64 


EO 


R 23 '^rBl 
R 23 ‘n 32 

B3 



R 2 391 34 
R2391 S5 
TT 239 rT 6 

R 2301 87 
92371 88 


^ARANiETFR IN L* IT SHTITJCO^E USFO TJNLY WITH A MON TTHT VERB-NOUN COOE IN 
A. ^FTER EACH MONITOR OTSPE AY A #PLFASE=«^ VF9B WILL BE PASTED IN THE VERB 

r. T G HTTTTTTTiTrr A WILL ANKfi 0 (UR RUTH) ACCURUING 1 11 ! Hb UPIIUNS 

5PECI*=IEn IN L. BITS OFITAPF OTHER THAN 7FRtn THEN THEY WILL 

(THIS VERB 
1-3 OF 


L ARE 



BE INTERPRETED AS A VERB CODE A NO PASTED TN THE VERB LIGHTS 
r;OOT SHnULTT DESEGNA TF UNV HE THE *PLEASE# Vl'RBS.1 — IF BITS 
OTHER THAN ZERO, THEN THEY WILL 3E USED TO BLANK DATA BY TETNG FED TO 
BLANKSUB, IF WMONOPT TS USED WITH A VERB OTHER THAN A MONITOR VERB, 
PARAMETER IN U HAS NO' EFFECJ, 


2374 
237 i ^5 

2395“ 

2393 

23"'7 

2397T 

2377 2 


REF 


EF 


REF 

REF 

REE" 


r 


2 3974 
23 93^ 
2309 

2400 

24001 

2401 
?4'02~ 


REE 5 
^ FF HR 
“ 7 .EE"TrDr“ 
'^EF 46 
7EF 106 

TFF~“ r“ 

RFF 4 
“TEE 


LAST 

L flTST 

LAST 

LAST 

XTST 

LAST 

LAST 


368 
~T?T8 
36 R 
368 

367 
3 70 


LAST 

LAST 


3ST 

365 


2403 
Z^DTT' 

240 r 2 

2404 
2 40 4 1 
24042 
2 40 4 7 
2405” 

2406 

2407 


T 


REE 10 LAST 132 



3 LAST 244 
1 

^ EAST 245 


i 


REF 

TEE 


9 FF 
RBF 


4 

T 

66 

2 


LAST 370 


LAST 367 
LAST 323 


41^0 


SETLOC ENDALM +1 


3 LAST 364 TO 365t 


COUNT 02 /PIN 


4TT0- 

4171 

4172 

4173 

4 IT 4 
40975 
4X05" 

417T 

4200 
4 801 

420 2 

4203 

4204 

4 20 5 
4 206 

42 07 

4210 

421 1 


22 007 0 — 
54 123 0 
3 5002 0 
7 1021 I — 
Er 1012 0 

10 oo o o 


N VSUR 

NVMONOPT 


0 0002 0 

3 5017 1 
6 0002 0 


NVSBCHM 


LXCH 
TS 
C AF 
MASK 
AD 
CCS 
Tt — 
CAP 
AO 


MV T F MP 
BTT14 



23*022 0 
0 4220 ~0 
■ 3 ” 42 T 5 “a 


LXCH 

TC 


OSPLUCK 
A 

O' 

ONE 

Q 

N^/ O T E M- 
M0NSAVE2 
K t L MONION 



56 
0 OOOo 

04 007 
55 * 040 


42 1 2 
4211 

42X4 0 

0777 
4 715 


XCH 

POR- 
TS 
CA E 

EXTEND 
WR I T F 

TC 

— EBANK= 

621 01 D — N^VSBBBNK 3tiCO^f 


0 0006 
01 007 


1 

T 

1 

0 

I 

1 


BBANK 


SUPER BNK 
NVRNKTEM 
P1MSU P 8T 


SUPEPBNK 

NV St JBB 

OS PC OUNT 
NVSUBl 


223^2 NVSUB TN FIXED-FIXED PL AGES“ 2+C ALL IMG LDC INTO NVQTEM, TC NVSUBENO INTO 
“R ? 393 ENTRHT.~”TTH15 WILL 'REST □ITF"DLD CALLING BANK BITS) 





DSP SYST AVAILABLE 


2 T ~ CALLING LOC INT O NVQTE M 
STORE NVMONOPT OPTIONS 
TURN ON KILL MONITOR BIT 




SU P ERB ! 


GO rn NVSURI THPU 



t-oe 


— 24071 '^FF 2 "LAST 370 "4215 — ^ PTNSUPBT - NVSilBBNK CONTAINS THE PINBALL SUPEPBITS. 

— 74T2 FTEE 2 CTTSI TTD 4316 53 * 040 0 N Y St l B FNO O X CH NVQT*^M NVRNKTEM MUST - NVQTEM+l 

2413 — RFF 1 4217 0 ^227 11 — — — -fC SUPOXCnZ DTCB WITH SUPFRBIT SWITCHI^IG 


— 24X4 7t:E ! 4 T , 35 1"6 SETLOC ENDR - QW - T - ^1 


241405 


-1 f. e 


7 


LAS 


T 


365 T7 3r^6 


54 


54 6 =?= 


C OUNT 4 I /O H’ 


GKPi /TSSE^p^LF KrVl^tGNl HP li'U: " OGP AM COMANCHb BY 



Tr-7mrr['j^^u5T 


Torz'^r APR. rTTTJ?9 COTATD IV7^ PTHTE m~ 


P I MB'AU. ' GA'^IT ■ ET)TTnT;|^“ AMim GHTS 




EO S4 


P2AT4r? BLXRKOSP BLANKS DTSFCAY ACCO’^DTNG TH OPTION NOMBFR IN AIVTEMP AS FOLLOmS" 
R2Al4rP -A TULL BLANK* IE AVi^ TroOF , -Z IEAVE TTODF AND VERS. -1 BLANK R-S ONLY 


2A1 ^IPT Rtif 8 last 362 41*3^16 



241422 41,JTt7 

2 41 T23“7rFE 13 “L33T 363 4TT332TT 

241429 REF 20 LAST 351 41,3571 

24143? RFF 14 LAST 371 41,3522 


2414^ 

241430 

2414 4? 

P. F 

ref 

REE 

“ZS" 
1 1 9 

B 

CA'ST" 
L AST 
LAST 

“■Z6 3 — 
370 
363 

41.35^3 

41,3^74 

41,35^25 

241446 

2z^ir^Aq 

241452 

REF 

^EF 

15 

1 

LAST 

371 

"41, 3526 

41,3527 

41,3530 

241455 





41,3531 

22fl4 50 

TEF 

2 

LAST 

3 T(J ■ 

41,3532 

241*+ 63 





41 ,3533 

241 465 





4 1 , 3 ^ 9 

241469 

PEF 

19 

LAST 

357 

41 ,3535 

241 47? 

P PF 

14 

LAST 

365 

,3536 

2414 75 

^ F" (“ 

12 

LAST 

345 

41,853^ 

241479 

PFF 

12 

LAST 

367 

41,3540 

241 4 R? 


57 

LAST 

370 

41 i35 41 

Z 4T4 T6^RTF 


LAST 

366 

41 , 3 542 


2 41 439 R -F 1 “ 4 1,3543 


5‘ 502T 0“ 3LAmnSP AD 
0 0004 0 INHINT 

54"T3V I T5 


4 5004 1 
50 124 0 
^T’-OTTl 
TO 000~D“ 
35^16 I 
0 3527 1 

10 124 1 
0 35 20 0 
"00003 1 

50 123 I 
0 3540 0 
0 3 535 1"' 


OS 

INOEX 
3CCH — 

rxs “ 

INCR 

TC 

CCS 

TC 


f > L i - A » ^ 

INOEX 

TC 

"TC 


55»001 0 



3FVEN 


rtroE 

Brrr2 — ^ 

CODE — 

■D3PTAB 

A — 

NOUT 

31 

cnne 

BLANKOSP +2 


nvtfmp 

+ 5 

TT 

VERBRFG 


55*002 0 TS NOUNRFO 

55*015“0~“ " “ T5 — CLP ASS 

4 4374 1 — — CS VDl 

54 77T r T5L DSPCmiNT 

TI""44'4T"I TC Ft TSHOFF" 

0 3566 1 TC FMTSFT -2 


743301 OR to (A HAD 0,1,2, OR 31 


BCTNK SPFCIFIEC 


NV TEHP HAS -4 3N E VFR T OUCH HOOPTOf 

-3 

-2 


PR OT ECT AGA I N S T I NV I S I BLE FL »3H 
ZEROS PFORET 


~Z41 5 REF 2""TA3T~3TT ^313344 3 3 570 0 N330BT ‘^AF F N TSFT — — T N BANK 

2416 REF 6 LAST— 357 4r,3545 54 136 1 TS ENTRET SET RETURN TO NVStIBENO 

24151 PEE 3 LAST 37T 4113546 10 12^ 0 CCS NYTEMP WHAT NOW 

— 4-]-, ‘3547 0 3 55 3 1 TC ^^4 — — NORNAL NV S U8 CALL ( EXECU TE OP PASTE J— 

24163 ^EE 19 LAST 332 41,3550 0 2351 I TC GOOSPALN 

24164 REE 2 LAST 371 41 13551' 0 1615 0 TC BLANKDSP BLANK DISPLAY AS SPECIFIED 

“ Z4T 56 RTF 20 LITST 37T 4163662 — 0 2 3 51 1 “TC GO OS P AL^ ' 

2417 RcF 5 LAST 357 41,355 3 3 6 0 43 0 CAF LOW? 

2418 REF 4 LAST 371 41,3554 7 0123 0 MASK NVTFMP 

2 4 ITT— 2FF"T96 — L A ST" 3TT“^^^"^4 3^ 3 66 6 " 6 4 1 57 0 “66“ MPTtC — TE MP FOR NOUN ( C A N t-X J Srf MPR C i DS PDEC VN 

2420 REF 5 LAST 371 41,3556 3 0123 1 CA MVTEMP USES MPAC, Fl, >2 

2422 RFF 5 LAST 357 41,7657 64 023 1 TS EDOP RIGHT 7 

"Z4?3 RTF T, — CT^ST — 6Tt 41 ,'35 60 — 3 ' O CrpS 0 CA" LO O P 

2424 REF 196 LAST 371 41t35 61 54 1 60 1 TS MPAC ^-4 TEMP FOR VERB (CANT USE MPAC-*-!. DSPOECVN 

A 242 5 USES MPAC, +1, +2). 

-M PA C Y6 TE S T NOUN — 

NVSUft2 IF NOUN NOT +0, GO ON 

MPAC +4 — 

UPDATV P ■"! IE NOUN - ♦O, 0 1 SPt A Y-VF R B - T HE N RE TURN 

“ZERO ZFPG REORFT SO THAT PASTED VERBS CA^f 

-RFOR-ET — B- EXEfUTEO BY OP«=RATOR. 

NVS *tB ENO — 

MPAC 4*4 TEST VE*?B 

v4 IF VERB-NOT +0, GO ON 


2426 R FF 197 VAST 373“ 41 ,356 2 t O 157 0 CCS 

“ 2427 RE^ T 4 1 ^ 56 3 O 3671 1 TC 

2426 — REF 1-8 LAST 3^1 3 0160 0 — CA 

24?^T— REF 76 LAST 36-R 4 1 , 35S6 - 3 502T 1 CAF 

24292 PEF 14 LAST 367 41,3617 WtLtBO TS 

2430 RFF 2 tTrSt 3S4 Rrv T SY O 0 4216 0 FNTSFT TC- 

24^1 REE 199 LAST 371 41,3671 10 1 60— t' NVSUB2 CCS 

2 4 3? 41t367? 0 36 76 -0 TC 


Ty^i ASStMfiLE- f^PVlSTON 0 



P'f^OGPTTM LMMAMCHb HY WSS" "■2’0 1 1 1'i - H S I 


IO:.?B APW 


i , 196y COMAID TOT? 



■PINRAIL 


AMt BUTTONS "^TTr rTGHTS 


PAGE 1sffn --&6~ 


EO S4 


2433 REF 200 LAST 3T1 41,T5T3 3 0157 1 CA MRAC +3 

2434 REF 2 LAST 357 41,33T4 0 2317 0 TC UPOATNN -1 IF VERB = +Of DISPLAY NOUN. THEN RETURN 

"2^ 3 S~ “RTF T~ LliST 3 71 AT * 3 5 75 0 4216 0 TC WSUBENU — 

2437) REF 201 LAST 37? 4lt35T6 3 0T56 0 CA MPAtT ^2 TTN^ FOT MACH CADP TO BE SPEC. ( OSPOECVN 

^437 TFF 202 LAST 372 41,3377 54 161 O TS MPAIT ^5 “ USES MPAC. +!• ^2) 

"F4'3T; REF 203* TAST 3T2 4r,3'600 T'0I60 0 CA — M^AC ^ 

2439 REF 10 LAST 371 41,3601 0 2337 I TC UPOATVB -1 TF BOTH NOUN ANt> VERB NOT +0* DISPLAY 

2440 PFF 204 LAST 37Z 41,360? 3 0157 1 CA MPAC +3 BOTH AND GO TO ENTPASO.“= 

■2441 TFT T^TIAST 3TZ 41,36 0 3 0 231/ 0 TV~^ UPDA T NN -I — — 

244 2 TFF 77 LAST 3TT 4^1,3 604 3 5021 T CAF TERtT 

2443 RpF 3 LAST 3S6 41,T6Tr5 55~»014 x JS TOADS T AT ““ SET FOR WAITING FOR DATA CONDITION 

744^4 RTF 13 CAST "371 4T, 3606 55»015 0 rS~^ CL P ASS — — 

2443 PFF LAST 371 41,3607 55»013 0 TS RTOPET SET REORET FOR PASS 0. 

2445 REF 205 LAST 372 41,3610 3 0161 1 CA “^PAC +5 RESTORES MACH CAOR TO BE SPEC TO MPAC + 2 

”7447 RTF 206 HTST 37? 41, 36 11 54 156 1 TS 37 — FO R US E TN tNTMtT BS ( I N" ENTPASO ) . 

2443 iieE 3 LAST 323 41,3617 0 2035 0 'TNOUVSBl TC ENTPASO 


R2443 IF INTERNAL MACH CADP TO BE SPECIFIED, M^AC + ? WILL BE PLATED INTO 
R2450 NGUNCADR TN ENTPASO (IMTMCTB^ ). 


2451 ref 4 LAST 377 — 4270 STTtOC NVSUBFND +2 

74 51 5 - 3TEF 4 ITTST 37 0 TO 5703 74 TT* C O UN T 0 2/P T N 


A 2452 
7433“ 
2464’ 
A2455 
■7 4 68’ 


FORCE BIT 15 OF MONSAVEl TO 1. 

TTF^ 7 T71S1“ 345 4 220" 3 5001 0 K T LMONON CAF — Bi n 5 — — T H IS IS THE KILL M ONITOR BIT 

REF 3 LAST 3 713 4271 55»02l -l— ^TS MONSAVEl —TURN OFF BIT 14. THE EXTERNAL 

— MONITOR BIT. — 

“PTF”1(T7 “UAST 370 ZTTTT 0 0002 0 TC Q- — 


7Z457 LOADSTAT 30 T NAC T I V " ( CT TT T NG F O R DA T A ) . SET B Y NVSUC — 

R2460 -n PPOCFFO NfV DATA. SET BY SPECIAL VFP8 

^2461 ——— — -1 terminate SET BY SPECIAL VERB 

P2453 - OP RESEQUFNCe S^T BY VERB 32 


P7 4 64 
P2465 
P74^5 

R 2467 - 
P245P 
77437 

R24‘^0 

R2471 

R7477 

R2 47R 


L TC FNDIDLF (FIXED FfXFO) — — 

ROUTINES THAT PEOUEST LOADS THROUGH NVSUB SHDOtD USE ENOIOLE WHILE 
WATTIMG FOR TH E DATA TO B E LnAD F P. FNO T DL F PUTS CURPFNT T m B TO SLEEP 

FNDIOLF CANNOT BE OAtlrED TROM ERASABLE OR F/F MFMflRY, 

SINCE JPHSLEFP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS. 

FE CAL T S T T ES T S LOA D S T A T AND WAKPS J O rOP T D, 

L+l EOR TEPfTlNAT^ — 

L+2 FO'^ PRDCFED wiTHtTJT DATA — 

T33 FO R DA T A— T N, OR Pg S ECT jrNrE 

IT nOFS NOTHING I) IND TC AT1 $ WA H I NO TOP DATA. 


gap: R['VfSlOf^ OF AGC f’ftllGXAv' CH''’' 



J=~W’'^rA-S‘A""-20'?l lil-O'Sl 



1 r 1/ 


rzm^vw : — i ,iw? — cijmaio — 



u 


PimMl" GAMF RUTTrm“ATO“rTGHTS 


UStR* S PAGE NtJ. 


EO S4 


P P 474 
P 2 475 
P 247 F 
R 2477 
r 2475 
F 24 “’R' 



T^^GT1TCF ABORTS (WITH COOF 012061 TF ^ SFCTJATD ~30B"'7rrrEMPTS TF GO TO 
TN PINBALL. IN PAPTTCIJLAR:* IF AIL "ATTEMPT IS MADE TO GO TIT FNDtOLE WHEN 
TT' CAOPSI Ui'i NUT^ +0. IHIS^IS THt CASE WHEPb THFXAPACny »)F ENOTOtE TS 
EXCEEDED. r + -NZ TNOICATr A JOB IS AIREADT ASLEEP DUE TO ENDTOLE.I ' 

2) DSPLIST NnT= +0. TOTS INDICATES A JOB IS ALREADY ASLEEP DUE TO 


24^0 

2 FBT 

242? 
24 53 

24RS 
2 4 56 
7407 


PEE 

RTF 

REF 


REE 


RTF 

RTF 

REE 

■RTF 


LOP LAST 372 



1 

41 


H 

1 

7 


LAST 

EAST 


770 


LAST SST 


42 23 
A'774" 



T72T 

-4230 

4751 

4737 


22 002 0 ENDIDLE TXCH 


0 4234 0 

O 4740 0 
3 OOOL O 
7 5n54~T 

6 0004 0 
55 *042 1 


0 5T75 T 


Ttr 

TC- 

cat 


ETASK 
AO - 
TS 


TC 


TSCADRrn 

TSLTST+O 

X 

XOWITJ 

FBANK 

CADRSTOR 



RETtmtl -ADDRESS INTO 



^"^FO 

ABORT IF DSPLTST NOT= +0 
nONT SET OSPLOCK TO 1 SO CAN USE 
E ND ID L E W IT H 



SAME STRATEGY FOR CADR AS MAKECAOR 


243 3' -'^’-RF 4D L A ST - TEE ^233" 0T2TTD EN0INS1 Tt ENDHTJOB 


24 “RFF 8 ETAST 3T3 TZ34 ZrnTr47~T 1 SO ADR -fO CCS CADRSTOR ABORTS tCOOE"' 01 2067 IE C ADRSTi" TR NOT- =rO. 

2400 REF “I 4235 D -4243~0 TC PSP^^BORT ' RETURNS IF CAHRSTOR = +0. 

24«^I -RTF lOS LAST“ 7T3 ^ 423iS 0" 0002 “0 TC 0 ~ " 

74 0? REF -T — CT^ST 373 4737 0 47 TT-O TC DSPABOPT 


2493 RFF 2 LAST 192 4240 11*043 0 ISirST+O CCS DS^lIST ABORTS (CODE 01206) IF DSPLIST NOT= +0. 

RTF ~“3 LA SF — 3TT ' 4241 a~42 43'-0 TC DSPARORT RETURNS TE DSPLIST = +0. 

2495 REF 110 LAST” 373 424? 0 0002 0 TC 0 

2^Q6 REF 3 LAST 3t 54- 4743 0 5721 0 nSPAPnRT TC POOnorj 

24^ 7 4244 01205 1 OCT — 01 205 ~ 


"R74TR JAMIEPM “ALT 0TIS^WnG;<A3S~Tn-“FrRFnrRM THE T^PMINATE FUNCTTOH. ’ ““ — = 

R2499 IT DOES ENnOEJOB. " 

2 500 “ PEF" 3 — I AST 370' 4245 — 3 4215 0 “TANTERM CAE “ “FI NSUPBT “ — — = 

2 501 4246 0 000"^ I EXTEND 

25011 REF 5 LAST 370 4'>47 01 007 1 WRITE SUPFRBNK 

75 017 4 ’50 ■3"425a "I (7AF“ 34DEC —————— -= 

2*^013 REF 16 LAST 372 4251 55^01^ 0 TS "RFORET irEAVE ENTER SET FOR ENTPASSO. 

2502 REF 13 LAST 371 4Z52 4 43 74 1 CS YDl 

— 2503 REF — 5B LTTST 3T1 4 2 53 54 777 1 — TS OSPCOliNT =_ _ 

2504 — REF 31 LAST -365- 425'^ D 4701 0 “ TC POSTJUMP = — 

—7505 REF 2 LAST 326- 4755 51355 0 CAO^ VBTFRM 


2*506 4256 000 42-1“ 34DEC DEC — 3 4 


R250T JAMP^nC ALLOWS PROGiOA1«1S TT’ PHRFDRM THF P^^OCEED / PRUCEEU WITHOUT DATA 
R2503 FtJNXTF^N. TT DOES rNOUFJOB. 


GTtPl AS^E'^OLE ftEViSIOKi'OoS OF AC.C f>RnGRAW C^HA^4CHF■■RY NASA 20 21 1 1 :!)-0‘5 1 10528 Al>U. rTTTF^ — COMAID 70?^? — PAGE '374 

L BUTTONS LIGHTS . ^ 


ZSiVJ i\SF 4 LAST 4257 3 4215 0 JAMPROC CAT PITTSUP-BT “ — ^ _____ — 

2510 “ 4260 0 0006 1 EXTEND 

2"S“un ”TeF “oT" L7V3T 5T5 ^FTFl 01 007 I WRITE SUPbRBNK 

25102 RFF 1 4262 3 4270 0 CAT 33DEC 

251 03 REF 17 LAST “373 4263 55»01T C TS “REQRET LEAVE ENTER SET FOR ENTPASSO, 

25TT IT LA5T 373 4764 — 4 4374 1 — F7S~ VtO 

2512 REF 59 LAST ^73 ~4265 54 777 1 TS USBCOONT 

251^ RFF 3? 1 AST 373 4266 0 4701 0 TC PUSTJtJNP 

“Z5T4 TEE 5 E4S1 357 4257 6134^ U — CAtTR VBPTCTC 


2515 — ^^270 00041 I 33DEC DEC 33 


“R2532 3LANKSUR BLANKS 7>NY CONBINATIUN UF RT • R2. P3. 

R 25 3 2 CrATL WITH BLTOTKINf; COlJE TN A. 

P2534 BTT1 = 1 BLANKS PI, BTT2 = 1 BLANKS“K'27 BrT3 = l PLANKS R3. 

R2535 ANY COMBINATTON Of TH^SF BITS 15^ ACCERTEO. 


R 2 53 6 


DSPCnUNT IS RESTORED TO STATE IT WAS IN BEFOPP BLANKSUB WAS EXECUTfO 


"2533“ 

25331 

253P 

734 D 
25+01 
2540? 
“234UT 

2540 4 
A2541 

25'4rr 

2 541 2 


‘2FF 
R EF 
PFF 

nrPF‘ 

PEf 
PFF 
2E3 
K E F 


RT 

6 




7 

120 

ITT 

112 


rtf 


LAST 

LAST 

LAST 

tttst 

LAST 

LAST 

TRTST 

LAST 


371 


25413 

REF 

113 

LAST 

25 4/ 

P EF 

TT4 

LAST 

2544 

pfF 

1 


7‘iAS ^ 

PEF 

11 

L«ST 

2345T ' 




25^32 ' 

FF 

7 

r AST 

2 5^6 ^ 

«EF 

40 

LAST 

2 546 1 

TITF- 

5 

LAST 

2 54'^? 

- 



25463 

TIEF 

Q 

LAST 

z 5 A- / 

EF 

1 



"372 

370 

371 
373 

3 74 


LAST 374 


374 

374 

370 


3 74 
331 
374 

374 


42TT 
42 72 


4274 

4r75 

4276 

4777 

4300 


4301 

4302 

4303 

4304 

4305 
430 6 
4307 
4 310 
4 311 


'7 ■502T'T 
“57f r23 -tr 
4273 3“ 500? 3) 


BirAAIICSUB MA3K' SEVEN 


43T2 

4313 

4314 


O 

24 


0 0006 
01 


6 lO 1 2 tr 

0 

rrr 


002-UT 


10 123 0 
1 -4304 0 
0 0002 0 
22 007 CT 

3 43 1 3 1 
56 006 I 

04 007 ! 

5 ? 131 0 

3 4215 0 


4 


1 
1 

3T5 0 341 ? 0 


TS 

CAE 

MASK 

AD 

CCS 


TTVTEMP 

BI T14 
•• F tO N S' i 


1 NCR 


OSPLOCK 

A 

O 

0 — 



CAF 

XCM 


BLNKBBNK 

B8ANK 


RtlR 

OXCH 

C AF 


SUPER 8NK 
BDf 

PI NSU P BT 


EXTEND 

WRITE StJPFRBNK 


STORE BLANKING CODE IN NVTFMP, 




R tOCKE - Q. RET TO -l^r T Atl TtO tUC 
DSP SYST AVAILABLE 
FT RETtJRN FOR 2+ CALLING LOG 


NOTHING TO BLANK* RFT TO 2+ CALLING 
“SET — PETURN CAltlNG tOC 


LOC 


SAVE OLD SUPERBITS 


TC 


8LNKSUB1 


2543 

754HT 

2547 


KEF 60 LAST 374 


3^0=“ 


1777 
4315 
431 7 


60101 — r 


EBANK 



E^DBLFF EOUALS 


DSPCOUNT 

8LNKSUB1 


7 550 ^UTF j— — — 40 , 34 T 2 ^ ^TLC€ E*‘U)RELDS 

75505 7Ef 3 LAST 36'5 T'’' -370: 35 778^ COUNT 40/PIN 


GW: 





0'^"nT program com ANCKF"BT" NASA 2021 li3-0!)l 


iO!;^8 APw. rrrr^ cu^^aiu — — 3nrs~ 


T 


PTM3 ALL "GAME 



AN^“XTGHTS 


tJSEP*S PAGE NO 


69 


EO S4 


2551 kEF ^ 61 LAST ^3TA 3" OTTT T) RLNICStTPl C A 


2!5S11 PEF at last 37A AO,3AT3 SA 1:^7 0 TS 

?63T2~“PTr rr~T7rST 36F 2|-G,3A1A 3 50 I f I OTP- 

“ 2563 PFF 1 -An,3AT5 T1-5A3A 1 —= Tt 

2553 7FF 13 LAST 358 40,3A16 3 A333 0 CAE 

RTn= 4 XAST 3'3 7 40,3A17 0 2A36 1 TC 

“ 2555 7FF 21 LAST Z2A 4073^^70 3 5016 0 ' CAF 

~ 2555 7HT 2 LAST 375 AO,3A21 0 3A3A X TC 

2557 PFF 5 TAS T 360 40 1 2472 3 4334 I TAF- 

~ 25 55“ FFF 5“ L AST 375" AO * 3 423 0 2436 T 3C 

—2559 RFF lA LAST ^368 A3 , 3 A2A ”3“ 501^ Qr C AF 

“*2563 TFF 5 375 ADT3Fr5~nr3r434-T TC 

“ 2 561 T-F 5 LAST 33B 43T3A26 3“ 4335 0 CAF“ 

“ 2552 R^F 6 LAST 3T5 4^,3427 0 2A36 1 TC 

—2563 7F6 zf2 CAFl 375 40,3430 3 0132 1 CA 

~ 2554 PET 62 LAST ~~ 3 T 5 40,3431 54 777 1 TS ~" 

^2565 REF 43 L AST “375 40,3432 52 131 0 OXCH 

2566 RFF " 2 “ TTTST “irro 40,3433 0 52 3 0 0 — Tt“ 


D5PC01INT SAVE OLD OSPCOUNT FOP “TATEP PESTOPATION 

BUF +2 

BITl TF S T B TT I, SEE IF PI T O BE BtA WK EDT “~ 

^ESTBTT 

3noi — 

"5 BLANK -1 — 

ETT2 — 3JT 2. SEE IF P2 TO BE BLANKED. 

TFSTBIT 

R2DI 

■ 5B L A NK^l — — 

BIT3 TF5T BIT3. SEE IF F3 T3 BE BLANKED. 

TFSTBTl 

-P3D1 

SBLANK -1 — 

-DS^COUNT BEFORE BLANK SUB. 

CALL 1+2 DIRECTIY. 

S U P O TC MZ +1 D TCB WI T H SU P ER BI T SITtTCUt NO 


2557 ^FF 8 LAST 374 40,3434 7 3X23 0 TFSTBIT MASK NVTEMP NVTEMo CONTAINS BLANKING CODE. 

^563' ~RFF T21 LTTST 3 74 40, 34 3 5 TO " 000 0 CTS ir“ — — 

2569 115 LAST 374 53.3436 0 0002 0 TC 0 IF CURRENT BIT = 1. RETURN TO L + 1. 

2570 ^EF 116 — L T TS T 375“ — 43,3432—50 0 0 2 0 “"INDEX 0 IF CURRENT BIT = 0, RETURN TO L + 3, 

2571 40^ ^£,40 0 000? 0 3T 2 ^ 


2572 40.3441 ENDBSUBl EQUALS 


R25‘^205 nSP^^M OHFS NOT DISPLAY MOOREG DIRECTLY. TT PUTS IN EXEC REQUEST WITH 
R 2 57 206" 00 r n TOnoO FnR-USP^^MJB' AMD RETURNS TO CALLER; — “ ' 


R257207 IF '^POREG CONTAINS -0, OROMMJB BLANKS THE MPOE LIGHTS. 


“R257209 DSPHM MUST BE IN SANK 27 LOWER, $0 IT CAN BE CALLED VIA RANKCALL. 


2572F — - — 07,2441 BAFTK 7^— 

257215 REF 1 04,2000 SFTLOC PINBALL4 

257217 34,2566 BANK 


2572 IB REE 1 COUNT 07/PfN 


257285 


25722“ 
25725 
2572 4 “ 

REr 

237 

25725 

■REF 

3 

25726 

RfE 

12 

2^727 


63 

25725 

R FF 

1 

2 5 7?^ 

♦ ’ F F 

1 


tTm 375- 

LASt 5T2 


TOAST 355 

LAST" 35 6 
LAST 


3472565 
0 4 ,2 557 

04.2570 

04.2571 

04.2572 

0 7T7 

3 4 , 


.25 74 
047 2576 



0 5 T3 4 1 


0 3441 3 

6 0 1 0 I 1 
0 002^ 1 


OS P MM 


XCTt 


17 


TS MPAC 

I NH I NT“““ 

CTTF C tt RP RT -0 

TC NOV AC 

EBANK- D-SPCOUNT 
2C ADR DSPM M JB 


BEL f NT 


(Tapi AssEMtue Psvis i nrT'P')'^ rp A'Ti 


K 1(;PAM fP^MA'vICHt r(V NA‘;A ^0^1113-Obl 


luj^a AP^». i.i'jpv — coHAiu ;y29 — ptittf 



PTMBALL GAVIF BUTTTINS Amri TGHT5 


-tJSeR»-!F-pAi;E NO. 70 


to SA 


PSPpo 5EF 20 °, LAST 375 0A.?576 ■0“(JT5'A 1 FNOSPWM TC — WPAC 
Z571 P^TP’W' Tn.Ai:F~MA~jrTP' MODE tOIJh INIU MUUKbU 


P.5735 PcF 1 TTCI,3441 SrTLOC FNDBSOBl 


1L573F REF" 9 LAST 37A TH 37F; 23 ' BOl’*' COUNT AO/PIN 


T57 ^ !7EF I AO, JAAl 3 A375 1 05PMMJB CTST mn GE T S HER E T HRU DS P M W 

2575 RFF 64 LAST 375^ 40i3442 56 777 0 XCH OSPCOUNT 

3576 pff 1 z, 0 , 364-5 54 140 O TS -OSPMNTEW SAVE OSPCOUNT 

2579 fEF 5 FAST 36T 40,3444 U • 0 1 1 1 CCS M O O R E G — 

2530 REF 47 LAST 370 403"3445 6 5017 1 AO ONE 

25501 REF 4 LAST 361 40,3646 0 3213 1 TC OSPDECVN fF M00R6G IS * Oft +0, DISPLAY MOOREG 

'TSB'OP 4077447 0 3451 1 TO FT TF W DO ftEG T S -N7. 00 NOT HING 

25503" RFF 6 LAST" 365 40.3450 O 2502 1 TC 28LANK IF MOORFG IS -0, BLANK MM 

2531 3EF 2 LAST 376 40,3451 56 140 1 XCH OSPMMTEM RESTORF OSPCOUNT 

"2537 RFF" 65 LA ST 376 407 3457 54 777 3 TS OS PCD L I N T : 

2533 REF 41 LAST 373 49,3453 0 5217 0 TC FN0OFJ08 


R2554 "OTFCALTST IS FNTEREO"OrR''CTLY ArF-TfROAFA IS LOAOEO- ( O P RE SFOUENCE VERB IS 

R2533 -- FXFClTTEnr. TOR-MINATE— VFRB"1S“eX-ECtlTeOT~OR-pROCEFO WITHOUT OATA VERS IS "" 

R'Z 5 ' 5 FXhCUTm. IT WAK E S U P J'lH T HA T U l O T C E NO T DL E . 


R2557 TF CAOCSTOP NOT= +0. IT PUTS -FO INTn OSPLOCX. ANO TURNS OFF KEY PLSE 
R25R5 riGHf IF 0SPLI3T — rS~EMPTY TTFA VES K EY RLS E L I GH T AL (3 WF I F NO T FM PTY) . 


7589 REF 9 LAST 373 40i3454 11<04T I RFCALTST CCS CADRSTOR 

2590 RFF 1 40.345 5 0 345 7 1 TC RF CALl 

■^59^ RFF"" 4? LAST" 376 40, 3 456 "0 52 1 7 0 TC FttOOFJOB 

2593" REF 78 LAST 372 40,'<457 3 5021 1 RFCALl CAP ZERO 

•2573-' — PFF m LAST — 376 4 r v T 4 ~ 5 ' 0 5 7*0 4 2 0 XOH CADRSTOR 

2594 - - 40,3461 "0 0004 O INHINT 

2595 RFF I 40,3462 0 5201 1 TC JOBWAKE 

2596 RFF 4 — CTtST 5T2 4 Ti-;-3 463 11 * 014 7 0« LOAOSTAT 

2597 REF 1, 40,3464 0 3506 1 TC Of'PPOC 

2598 RFF 43 east 3 R 6 40,3465 0 5217 0 TC FNOOFJOS 

2599 RFF — 1 — 4P-r 346 ' 6 ' 0 3504 0 TC OOTER M 

ZbOO REE 23 LAST 363 40.3467 3 5016 0 CAF TWO 

26 01 "-PEF 1 40,34 70 50 0 64 O R EC AL 2" INDEX LOCCTR 

2607 — — TF 2 las t 2 0 4 40.34 77 ’ S 0 164 1 At) fO C 

2603 “REF 2 LAST -376 40, 3 472— 50 064 0 INDEX tUCCTR 

2604 R=F 3 LAST O'*' 40. '(473 54 164-0 TS L'K 

26041 REF 75 — CTTST FT l ” 40,34 7 4 T~ 1002 1 CA M WNREG 

26042 R‘^E 4? I AST 373 40r3475 54 001 1 TS L 

26043 RFF 20 LAST 371 40,-o/f-?'S 3 tOOl 1 CA VERBREG 

2 604 4 RFF" 3 LAS T 3T6 4 0 . R-R ? 7 5 0 064 0 INDEX L O CCTR 

26045 209 LAST 376 40. 3500— 52 1 55 1 OXCH MPAC 

2606 40,3501 O DOOR 1 SELINT 


AtDPMAL EXIT IF KEYBOARD INITIATED 


+ PROCPEO WITHOUT DATA 
PATHALOGICAL CASE EXIT 

-0 DATA IN Oft RFSFOUFNCE 


LDC IS * F O R B ASIC JOBS 


SAV E V ER B T N -MP AC, N OUN IN MP AC - H A F- 

TIM*- OF RFSPONSF TO ENOIDLE FOR 
PDSSIBLF LATER TESTING BY JOB THAT HAS 






'F AGC PC!' ■■JiUAM COMAMLHP 


MASA 20;'lll3-ybl 


io:;;;b ap”. — i . iv6'> 


CUHAIU TOTB fTTCt 3TT 


U ?TN34LL BUTTnNB A^n lights 


t3SEg*^3~ P AG E Wn. 71 EO SB 


2'SUo 9 LATT 363 'TfT.BSW 0 BBTt-T) — RFCAT3 TC‘ RELOSP 

?607 ^TF 44 XAST 376 40,3503 0 SZlTTr TC ETDOPJOB 


2603 !JEF‘ 79 L AST 376 40T330B 3 3031 OOTERM CAF Z3Rn 

7609 RTF 1 40.3305 O' 3470“! TC RFCAL2 


2610 REF 43 LAST 376 40,3506 3 5017 1 DOPROC CAF ONE 

'2611 REF 2 LAST -37T‘ 40,3507 33470 1 TC RECAL2 


26115 RFP 3-— LAST 284 30,2000 


SBANK= LOWSOPER 


JTW: ^VISTON' D5H iJ!- AGL »»HUGRAM CUMA^rc■FfF BY NASA 2021113-0S1 ‘ 10:23 APR. f, 1969 C OMA ID 7a^9 


L PT^^^fTAXL BUTTONS ANO tTCHTS US FR ♦ S FAF^ NO • 12 f.O S? 


P2612 MISCELLANEOUS SERVICE ROUTTNFSTN “FIXED /FIXED 


261T ^Ff 1 2fTl7 ““ SETttrC ETViOBLFF 


2FTTF ' FFF~ F^”AFT 372 ID Fr?n 63 ITT^ — CQUNH 07/PTN 


R2614 SFTNCADR E CAH^ A’^RTVES TIT A . IT IS STORED IN NQUNC ADR . EBANK BITS 

R Z6T5 liRE'S'FT .""r'ADRFF IS DFRIVED AND PUT INTO NOUN ADD. 


261B REF B LAST“ 353 F317 55»017 1 SFTNCADR TS AmUNCAOR STORE EC ADR ^ 

— Z6 TT FEF T7 ETST“"”3m ZTTTD 54 Dav O TS FBANK SET PRANK BITS 

261 R- REF 1 4321 7 43 73 0 MASK LOWS 

2613 ref 2 LAST 199 4322 6 5051 0 AD OCT1400 

7670 TTFF — "Z9 LTTST 353 4323 34""I 45 0 TS NOUNADD PUT F ADRFS INTO 

2621 REF 113 L AST -^T5 ^-324 0 0002 0 TC 0 



R2622 SFTNADD GETS F CAOR FROM NOtlNCAORt SETS EBANK BITS, DERIVES 

R2633 E AD^FS AND PUTS IT INTO NOUNADD.- 


2624 REF r — tASr 37S~ ^ NOUNCAOR 

2625 RFF 7 FAST 3 47 432 6 t ^3^ 0“ TCF SETOCAOi^ 


R2626 SFT^BANK F CADH ARRIVES IN A. EBANK SITS ARE SET. F ADRES IS 

— DERIVFD AND LEFT IN A. ~ 


2623 

REF 

13 

LAST 

7KTT— 

H FF 

2 

LAST 

2630 

PFI^ 

3 

LAST 

2631 

-ref 119 

LAST 


3 TB 



-3 7 8 


F3 27 F4-1D03 0 SETEBAMK TS EBANK SET EBANK BITS 

433 0 7 4373 0 MASK tTWr 

4331 '6 5051 0 AO OCT 1400 F~ A9RES LEFT IN A 

4 3 5? 0 0002 0 TC 0 


2 6 32 

2633 

2634 


264T 


763 5 


7 -- 

L AS T - 

~362 

“ ““ 2636 

RrF 

n 

LfiST 

378 

- 2637 

V>CfL- 

c 

#■ 

LAST 

373 

2a ^ 8 

REF 

10 

tTTST 

378 

2632 

- OFF 

11 

LAST 

3 7P 

2640 ■ 

RFF 

t? 

LAST 

37 8 


RTF 



3 


43Tt 

4342 


'-4 


144 


-♦ V33- 

00016 - 

0 

ftlDl 

4334 

00011 

1 

^ 2P1 

4335 

00004 

0 

X 301 

4 336 

54 020 

1 

P I GHT5 

MM 

4 0020 

1 

- 

4340 

4 00 20 

1 



F 0020 
56 0 20 


T 

I 

0 



OCT 

oc 

ncT 


ors- 

cs 
c s 

OS- 

es 

XCH 

-te- 


la 

rr 


CYR 


OYR- 

CTR 

CYR 

o — 


THESE 3 CONSTANTS FORM A PACKED TABLE 
DDNT — SFPAP ATE. — — — — — 


- 2642 REF 13 LAST 362' 43 45 54^022 0 LF^T5 TS CYt 

— TFT r4 LAST TTO 43 T 5 4 0022 — 0 CS CYt: 

7644 ^*-r 15 (AST 373 4347 4 0022 0 €S CYL 

264b "'^'F 16 LAST 37^,< 4350 4 002? 0 CS CYL 




2651 

2652 
2?5^5T 

2654 


REF 122 ! AST 57R 


^556 6 aOOO 1 

4T5 7 ^ 0000 1 

4360 F'OD’OO' 1 

4561 0 not)^ 0 


JUOLb 

irnuB I e 

DOUBtr 

DOUBLE 


1? 


TITT: 

T^';F%Lr p=visinN 055 or 

~?ST;L I’ROGKAM LaMANLHE RV 

NASA 2n21H3-!Jbl 

10!2H APR. 1719 69 

CGMAID 

.029 FATTE 3T9 — 



T’TTOALL^GAHF 

BUTTHNS* 






L 

antt l t ghts 


USER’S PA0E 

NO. 73 

m 

o 

- M £ r T 









2 OHO 

7 1 r IT LA 51^ 

378 

“~4"351 4 0022 IT 

CS CYL 





2647 

"" " " L j n 

5EF rq ' LAST 

379 

S6 022 1 ' 

XCH CYt - 

- - ‘ — = 





R Er 121 LAS 1 

si 8 

43 5 3 0 oOo? 0 

TC Q 





* 




j . #rh 1 ■ Fi 1 ■■ 





— • Jf IP * '!* "M ****° 



+354 6 0000 1 SLEETS 

—r. — 1 i- r — ft rt n r — 

nnuBTE 






2655 4562 00077 0 LnW5 — CTCT 3T THESE 3 CONSTANTS FORM A PACKED TABLE. 

2656 4^343 01740 0 MI 05 OCT 17 40 OONT SEPARATE. 

2657 zrT?v4 r5O'0n“D HT5 TTCT 76-00 0 M OS T S T A Y HE R E 


— ~ 2655 

- REF 

13 

LAST 

375 

4365 - 

-0 

5 1 ? 

1 

TCNOVAC 

TC 

NO VAC 

263^ 

R EF 

13 

L 4$!“ 

356 

4^66 

U 


1 

1 LWAl ! It 

WAITLIST 

- 2660 

R FF~ 

1^* 

LAST 

356 

43 6 7 

0 

5324 

1 

TCTSKOVR 

TC 

TASKOVER 

— 2661 

o^|r 

12 

LAST 

267 

4370 

0 

5147 

0 

TCFINOVC 

TC 

FINDVAC 



2663 

Z554^ 6 

2665 


?66T~ 

2668 

?66^ 


26*^0 


43T1 30000 1 CHR:PP^tO OCT 30000 


4372 03777 0 L-TWll OCT 37TT 

ti^sT 340 4377 irr2^~ Fqu Ar s~ t ow ti 

4373 00377 1 OCT 377 


43 7 4 

00023 

0 

voi 

OCT 

^:3 

43 75 

00021 

1 

NDl 

OCT 

21 

4376 

~0TnT25“ 

D 

MDl 

OCT 

73“‘ 

4377 

000 11> 

1 

QTNCON 

DEC 

10 


2671 irr- 21 LAST 322 4400 3 5011 1 FALTON CA 8IT7 

267? 4401 0 0006 I EXTEND 

2 6T3 T7 £T= IT ' r AST^ 343 4437 0 3 - 0 1 1 1 WOR P SALMOUT 

2674 RFF 123 LAST 379 4403 0 0002 0 TC 0 


EXEC PRirmiTY Of CHAPIN 


THESE 3 CONSTANTS FORM A PACKED TABLE. 
DONT SEPARATE. 


TURN ON OPERATOR ERROR LIGHT 


OF CHANNEL 



2675 

2676 
267 7 
7613 


267^ 


26 Hi 
2 6 ^ 2 


■REF 22 



3T9 


44‘n‘4 

44-13 


R cT 

“12“ 

LAST 

379 

— .. . ... 

4406 

REF 

1 ? ^ 

LAST 

379 

407 

-RrF 

1 4 

LAST 

3 65 

4410 





1 I 

REF 

13 

LAST 

379 

44 1 ? 


125 

LAST 

3 7-^ - 

4 41 3 


“4—5011 0 
-0— 0 0 06 I 
“03^011 1 
”0^0002 ■ 0 


3^501 30 

0 P OOH — r 

05 O 1 1 1 

0 000? 0 


TURN OFF OPERATOR ERRO R L !G H T 


EXTEND — 

WAND DSAL^^OtiT 

0 


BIT 7 Of CHANNEL 11 


RttOSPOtt CAT 




TURN ON K-EY RELEASE LIGHT 


E -xT E - ^m 

WOP 

TC 


DSALMOUT 
Cl - 


BIT 5 Of eHANNEL- 11 


GW~: ASScMBLE FCrVISIGN 055 


me pi5{jr,i^ir{:nMAMCHE bv nata'zo2iii3-osi 


LOi/H AVK 


1. IV69 COMA ID 702^9 


T NOTO. ^ AT^E T5l JTT HN S IVTO ClGHTS 


USFR*S PAGE NO. 74 


EO S3 


2683 4414 O' 0006 I X ODSAwrPT EXTEND 

26B4~ r<EF 10 LAST 272 4415 3 0025 0 OCA”' TIME? 

26^5 r“ “TATT "T5I 4AT6 52 014 0 OXCTf SAMPTlMb 

2686 RTF 126 LAST 379 441T 0 0002' 0 ~~ TC “0 


2 687 “' 


268R 

REF 

210 

LAST 

.3 76 

26E9 

PT=F 211 

Las t 

“3E0 

26^ 

^EF 

212 

L AST 

380 

26 9 1 

RFF 

213 

LAST 

350 

T692 





2693 

FEE 

127 

LAST 

3 80 

■ " 269T 

R EF 

7 

LAST 

352 

269 5 

C? p 

TTTT” 

last 

~330 


4420 0 0006 1 TP5L1 EXTEND — SHtfTS MPAC» +X» *2 LETT 1 

4421 3 0156 0 OCA ME AC +1 tEAVES OVEIND SET TO +/- I FOR OF/UF 

4422 20 15 ^ I rrrs mnsx: n 

4423 6 0154 1 AD MPAC — — 

4474 134 0 AOG HPAC 

4423 54 0 07 1 TS 7 TS A O D E S NO T CHANGE A 0^ OfAUF. 

4426 0 0002 0 TC D — NO NET OE/tJF 

4427 54 162 0 TS MPAC+6 MPAC -^6 SET TO +/-1 FOR OE/UF 

4430 n 0002 0 TC" — 0 ’ ' 


T^2606 “ "TT wfAC, +1 ARF 1^AtTl“^7l7 " Htt +0' AND CrAl=^, SHORTNP WRONGLY G I VES' O. 

R26'37 IF r^PAC. +1 ARE EACH -NZ OP -0 AND C(A>:=+0. SHOPTMP WRONGLY GIVES ^0. 
R26n3 PPSHRTHP FIXES FIRST CASE ONLY, RY MERELY TESTING CIA) AND IF IT = -0, 

R 2^90 SrTTTNG R'E^UtT'^TI^- 

R2700 - (on NOT USE PRSHRTMP UNLESS MPAtT, >1 4RE~EACH +NZ OR +0, AS THEY ARE 

R27D1 WHEN THEY CONTAIN TH "E Sf^-CGNST ANTS iT — “ “ 


2702 REF 2 TTAST 70 ^ 4431 — 34 1 35-t PPSt-mTMP TS MPT^Rp — — 

2703 REE 122“ LAST 375 4432 10 000-0- — CCS A — 

”2704“ ■ PEE 3 CAET 3KD 4433 — 3“0135 0 CA M PT E^ P C ( A ) -F, DO REGULAR SHQRT M P 

2703 REF B LAST 359” “ 4^34 1 7257 1 TCF ^HORTHP +1 CIA) 4-0, 00 REGULAR SHORTMP 

2706 - 4435 I 4433 0 TCF -2 CIA) Dfl-REGULAR SHORTMP 

2707 PEE 50 nTST 3T7 4436 4 5 021 0 = CTS T .P P U CtAt -^0, FORC E R ESULT TO -0 AND RETURN. 

”2Ttn — PFE 214 LAST 330 443/ 54 154 0 TS MPAC 

270^ PEE Et5 LAST 330 4440 54 155 1 — ^ TS NPAC 4-1 

2710 PFF 215 nrST 360 4441 54“ 156"! TS MPAC 4^2“ — 

2711 REE 129 LAST 330 —4442 T) 0002 0 TC 0 


2712 REF 25 LAST 297 4443 3 5012 1 FLASHON CAF 3176 TURN ON V/N FLASH 

2713 4444 0 0006 I EXTEND BIT 6 Of CHANNEL 11 

ZTT4 REF 14 'XASI 3T9 4443 03 DTI — T WOP OSALHOUT 

2715 PEE 130 LAST 350 4446 0 0002 0 TC q— - — — — 


2716 REF 26 LAST 380 4447-4 5012-0 FLASHOFF CS BIT6 TURN OFF V/N FLASH 

= — ^ EXTEND “ 

2713 IPEE r5 LAST — 330 4451 03 Dll — 1 WAND OS-AtNOtIT — — BIT 6 OF CHANNFL — H: 

TTIP -^^-F- 131 LAST - 380- - -4457 ^ TC O— . . . ■ 





GWn "OF AGC PROGRAM CIDMANURF" BY MASA" ZO^l i i 3-Ob 1 


IDTZB' APR. 1.1969 CUMAID 


1129 JBTT 


P TN i? A L L 9 A M F 31JTTONT~ A L T G HT5 


— dSet^*^S-^AG^ NO. 75 


EO S3 


P277Q TNTERmL USE OF KEYBOA-PTi “ANP "Cn S2L AY PRtrGRAM 


RZ77T 'OSTFR'MUSI SCHtOULh CALLS ID NVSUB“ Sn THAI — FHERE IS ND CnNFCTCT‘ UF'USF TIR 

CONFUSTOX TO DP FRA TOE'. TO-E“ HID GRABIOCK ( INTERNAL / INTERN AL INTERIOCK ) 
R27?3 HfiS BEEN RENOVED AND TH^ INTERNAL USER NO LONGER HAS THE PRtrTEGTTON THIS 


P2725 THERE ARE TWO WAYS A JDB CAN BE PUT TO STEEP BY THE KEYBOARD + DISPLAY 

■*>2725 P^rTGTTUI. 1) 3Y tNOlDLr — 

R272T““ 2) BY NVSUBUSY 

R2723 THE BASTE CONVENT rnN~tS THAT ONt:Y ONE JOB WILL BE PERMITTET) ASLEEP VIA 

WTTT^ THE KEYBOARD + 'H SPLAY PFOGRA'^ AT A TTWF. IF A JOB ATTEMPTS TO GO TO 

R273n SLEEP BY MEANS OF 1 1 ) D3R- ( 2 J AND THERE IS ALREADY A JOB ASLEEP THAT WAS 

R27B1 PUT TO StEPP BY t 1 ) OR-TZI , THEN AN T^iEORT IS CAUSE-D. 


"‘R2732 THE CALLING SEDUENCE EE>R MVSUB IS — " ' ' — 

^ 2733 E AF^ V7N 

R2734 L TC NVSUB— 

R2735 L+1 RETURN HERE IF nP^PATOR HAS INTERVENED 

““P 273E CFZ RETURN HFRP AFTETT EXPCUTTON 


R2T3T A RTTUTINE CALLED NVSUBUSY T S PR OV IDE n ( US E I S OPTI ONAL t TlTTnrr 

R273R Ynip JHB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD -i- DISPLAY 

R273P SYSTEM. NVSUBUSY ALSO T\m\S ON THE KEY RELEASE LIGHT. 

R 27^0 NVSUBUSY CANNOT^E CALLED FPOM FR7rSABrr~0R' T7F ' MEMORY'. 

R2741 SINCE JOBSLEEP AND JOSWAKF CAM HArNDlE ONLY FIXED BANKS. 


R 2742 the C a L L I N G S E DU E £ “ T S 

R2743 CAE WAKPFCADP 

R 2T4 4" " TC ^ NVSUmJ S Y ^ 


R2745‘ 


R2T46 NYSUBUSY TS INTENDED FOP USE WHEN AN “INTEPTJAL pR*^GRAM FINDS THE OPERAT 

P2747 IS USING THE KEYBOARD 4- DISPLAY ( BY HIS OWN INITIATION) . IT IS 

R274B NOT INTENDED FOR" USE VBTPN *3T7E INTERN At RROGP A M F I NDS ANOTHER INTERNAL 
R ?7 A 9 — — PROGRAM USING THE KEYBOARD + DISELAY PROGRAH; — “ — — 


R2T5tr 
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NO. S3 

EO S4 


295^ 

29^3 


2956 

“25rTr" 

2958 
29 59 
~Z^6U~ 
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RFLINI 
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21 POrN-TVSM 
3) MTS 
*) DEL 



6) VFCDT^3{> 

71 ALL OF VAC 


AREA 


TOT 


6 


IH 

IB 

“6 

I 

43 

9-0 


1 E F 


2 f t ^0 0-^ 

27 , 2 I 26 


16 5? 


1 


SETinc VFCPT 
BANK 


GAP: 


AS'^PMBLE PFVT^rt UTTF^' TjF AGC Pl^OG^AH C IMWUHF BY NA^A 202lll3~0bl 


lOt^B AMI^. r,T969 — COMAID nT ?9 39 A 


T^‘60, Po? 


USEP^S PAGE NO. 


6 2 S3 


1 


PFF 


LAS 


114 


FAt I06I 


FPANK= BCnU 


16^5 




COUNT 2T/VFCPT 


1 6^ 6 

lA '; 7 ~' P FF r 

1653 REF I 

r65n 'RTF ' 2 ”T A 5T“ 1 

1661 1 
1662 

IFF 3 ->FF 1 

1664 

1665 "^FF 2 LAST 114 

TTF^F; iff ^ “"3 T A ST 


27,2126 

777FT7T 

27.2130 

27.2131 
Z777TT2 

27.2133 

27.2134 
2^/ 21 3^ 
2F , 2 1 3 6 
2*7, 213 ' 
ZT,7n:40 


40020 1 
0 3310"TT 

56131 ] 
47164 1 
03320 “0 
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COMPUTF THE TRANSFORMATION FROM FINAL 
Sr/C "AX E S TO STA &tX"^M^R AXFS — = 

MFS = MIS MFt 
( IN PO LIST! 
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1 


7 


4 


1 


1 

“T 


1 


1 


1 

1 


LAST 

tA^ 


LAST 394 


T 373 


7 LAST 395 
T — LTST 375 


1 


27,7700 

274 27 01 

77 •7 2 0'^' 

27,2203 

77,22^4 

77 *77 05' 

27,2206 

27, ROOT 

7777710“ 

27,2211 

27.7212 


5 6746 1 
7777S 1 
"TTFTTm 

5044? 0 
77676 0 
50'450’I) 
77626 0 
50456 0 
03327 1 

57444 1 
56213 1 


FI-MDGTMB 


VIHAO 

STAOR 


ms +120 

STAOR 

STOVl MTS +6 

STAOR 

STOVL MTS 
KrS“F5 — 


BFL 


VCOMP 

IGSAMFX 


LAST 394 


27,2213 
2'^. 2214 


50035 1 

03351 0 

55272' 0 


395 


395 


2*^.2216 
27,2217 
FT 



LAST 39 


FAST' 9^5 


1777 

27.2221 

77.2222 
7777773 

27 .2224 

23.2225 

27.2225 
27, '^2? 7 

7 . 2 2 30 
7^ 2731 
27, 22 3 r 

?7,2 23 3 
■RT. 


57575 1 

03351 0 
37343 1 
56275 1 

77775 1 
03 3 51 


n 


03343 

51545 



52145 

16324 


2 7.2235 
27 ,77'm 
27.2237 


0 

T 


77745 1 
15377^ 
77624 1 


Icf 

2 

LAST 

3 94 

2'^ .2 240 

44530 

1 





f 7? ^ 1 

75160 

1 

r" 

r 

”^1 

LAST 

395 

2T. 

0337 0 

0 

REF 

2 

LAS r 

3 94 

-2 ^.224 3 

03^2S 

1 





27 . 2244 

77624 

1 

' 1 


LAST 

39 4 

77 .7? 45 

443 04 

n 


? 7 ,7 ? 4 1 
21 , 2 74 7 
27.^25 0 

27, ^?5l 
27,225? 


451 60 
OOOOO 
55 


/u 0 ? 

455 5? 


1 

1 

r 

0 

i 


IGSAMEX VXV 


3MN 

SCAX IS 
U- SCAX IS 


VLOAO 


VCOMP 
SC AXIS 


rAtr 


U^SCAXTS VLOAD 


CHFKAXIS 



0 

1 - 

CHEKAX! S 

0 

1 

1 







STORE 


COF 

A5S 


OStI 



OL OA 0 


BPL 

SIMVEC? 

TtCK A N G r 

GOTO 

vr C AMG? 
CHMP^AFS^ 


PICKANGl OLtlAO 


CMMPMFSN CAIL 


ArXFTlr 


VFCATmt 


OFLCOMP 

MTS 

DEL 


eAtt 


MX'^O 


FTW 0 GIM 8 AXC.) 


CALI 

0 

OC’*'TOCf>U 


RT3 


SFTC»n 

VI STOPS 


t.lSER*S PAGE NO. 


56 S3 


IF sn, WE ARE TRYING TO POINT IT INTO 
GIMBAL LOCK, ABORT COOLO GO HERE 


STORE ^FS (IN PD LIST! IN MIS 


I NNER G IM BAL a xi s I N ET NlA t S /C " AXFS^— 
tnCATF THE TG AXIS DIRFCTION CLOSEST TO 
FINAL X S/C AXIS 


FIND THE SHORTEST WAY OF ROTATING THE 
S/C OUT OF GIMBAL LOCK BY A ROTATION 
ABOUT +- SC AX 1ST TtFV TF ^l^ FSG1TFtFS3) 
X SCAXIS . XF) LFSS THAN 0, tl = SCAXIS 
OTHERWISE U = -SCAXIS 



ROTATE ABOUT + SCAXIS 


S FE - 7 - E-l^F ARE POINT I NG THE AOT 


SIN 29.5 PEGS $2 

TF $0, - RO T ATE 50 Ofl^S AB f tU T +- SCAKIS 
IF NOT, MUST BE POINTING THE TRANSPONOFR 
OR SOME VECTOR IN THE Y , OR Z PLANE 
T N TTtl3“€^A3F — ROTATE 35 FlEflS TO GET 
Of GIMBAL LOCK {V+CANG2 E360» 


• ^5G~OEGS 


S 360 


COMPUTE THE POTATION ABOUT SCAXIS TO 
BRING M E 5 - O UT - O F G- f -MBAt L O CK — 


eOM PUTE 



OESIPEO S/C AXES TO STABLE MEMBER AXES 
WHICH WILL ALIGN VI WITH VF AND AVOID 
GIMBAL LOCK “ — 


EXTRACT THE GOMMANOED COU ANGLES FROM 
F H f5 " M ATR I - X— ^ — — = 

CONV<^RT TO 2:S fOMPLt^MFNT 



Mh AGC PRHGWf i.ijMAMCHh BY ' NA S'A i^O:;^! 1 1 'i-nb 1 


10t2B AHP, 1\ 1969 COMA I D 


6 n , P 


IJSEP ‘S PAGE NO. 


6 6 S3 


1 7 -VA 
1749 


27*2253 0700T 0 0 

77,2^54 7T650 1 GOTO 

”2074 ^7777 35 03310 0 VlCO I E HP 



17-1 

1 757 

17S^ 

1754 

1755 
1755 
1757 

17^1 


27^2256 

2 /, 22b/ ~ 

^>^5 7 LAST 395 27,2250 

27,2261 

~7TF 1 ~~*7?'5r77Tr2 

27,2253 

77,2264 

7FF 3 LA51 376 27 r? 2 65 


50375 0 
7T0'0T5'1 
03351 0 
72240 1 
5^67 66 0 

00032 0 
77650 1 
■OBTTTt -Q 


PICK AX IS VLOAO DOT 

27TT 

SCAXIS 

8MN TIHAD 


R nji RO — 


GOTn 



IF VF X VI = 0, FIND VF . VI 


IF VF = VI, 



CPU OFSIREO = 
A NG fF r S- 


PRFSFNT CPU 


1750 


1760' 

1761 

1762 

“1<FF 
' REF' 

77' 

2 

TA'ST 

LAST 

" 795 
2 36 

1763“ 

T7EE 

10 

LAST 

796 

1 T5'4- 





1765 

REF 

1 



776^“ 

— -rrpp - 

s 

FAST- 

395 


1 767 
1 75 5 


1 ToV p 67 7 rA51 Vrq: 

177 0 OFF" 2 LAST 376 

1771 

1772 . R-PF 6 LAST 396 

1773 PPF 7 LAST 396 

17/4 REF ^ LAST 294 

1775 

77^5 I 

1 777 

1778 777 3 L75T 375 

1770 OTEF 1 

1730 

rm '^EF' T 

1 • ' 2 


27,2256 47375 0 ROTISO 

“ 27 T226T 03 3 27 7 — — 

27.2270 15333 0 

27.2271 47756 0 

“27 , 27T2 03351 

27.2273 40056 0 

27.2274 56310 0 

27 , 2 27 6 - Ot) O 45 7 

"27,27 7 7 "50025 0 

"'27,2500' 16327 7 

2^,2371 54310 0 


VI HAD VXV 

— *nS +6 

H I U^4 1 T X 
UNIT VXV 


UNIT 5^1 V 

PICKX 

pTnnt — croF" — 

3 f- n 

7SU 5 MM 

n pp- 1 .4 

PTCKX 


27,7302 
27,2301 
2 7 , :^0 4 

27.2305 

27.2306 

2 7.2 30 7 

27,2310 


^,2 A 17 
35,'"O00 
"27 , 7 077 
2 7 , 1 1 3 


77775" 1 VI nfl«) 

03 343 n — — 

17 34^7 XRQT STOOL 

15333 O 

•• T T 650 1 Gnrn- 

56160 7 

57175 7 PTCKX VLOaO 

153 33 0 — — 

56374 0 

BANK 

“ SPTItX 

BANK 


fTTF— — “ 
COF 

or ophalf 


COMPMATX 

C 1 T n 

-miT'tl 'TX ' 
X ^ 0 T 
3b 

MAN! I VERl 


IF VF, VI ANT IPARALLEt, 180 OEG ROTATION 
~T S R FQUr R* "0. Y S TA TtF 3 4 EWBER A X FS^-^N" 
INITIAL S/C AXIS. 

FIND YISMl X Xin 

FTN 7 tTNIT I V! X tJATITtYt^^ OF XFt ) ) ) 

I.F. PICK A VFCTOR IN THE PLANE OF Xfl), 
Y(SM> PERPENDICULAR TO VI 


CHECK MAGNITUDE 
OF THIS VFCTOR. 
t F LESS T HAN 8-14, 
PICK X-AXIS. 


PICK THE XAXIS IN THIS CASE 


ITTTT 
1 7 3 
1 78 4 
17'’4 

1735 

1735 

7777 
1 ' • 

1 777 

1729 

173^' 


7TT2312 15555 0 — St NO TMtC 2PEC r 42 5 58360Q3 

27,2314 35172 O 

27, ?n5 14113 1 SINVECl 20FC .3796356537 

~77t73T6 36326 0 — — — — — 

'"7,2317 07701 O 5INVEC2 RDEC .246211 7800 

77,2320 35773 0 

— 27 ,23 2 1 0 4 9^3- — 1 VF CANOl 2PEC . 1 - 38 8 8 8888 9 

■-27,2 3 2 2 214 16 0 " 

2'7-f.23?3 030 TO 0 VPCAMG2 2 DEC .0^722222222 

— 

^7,2 W'>5 - OOOOO 1 IP, T TOP icT 0 

2 3. ^326 O'.'OOl -7 OP.i-14 ncT 00001 


N 1 5 - T ) ^ 

=S1N<49.4) $2 

=SINI29.5) $2 

= 35 DEGREES 1^360 

KEEP THIS BEFORE 0PB(-14) 
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I ^95 


17 97 
TTW 

17^9 

IBTin 

TfTlT 

1302 


A 1503 
A1 304 
1 37J5 
13 05 
1B07 
1303 


R 6 a, 9 62 


ROUTINF FOR INITIATING AIJTOMATTC MANtUVER VTA KEYSnAPn (V49) 


REF 


ROF 

TFF 

RFF 

REF 

TTEE 


■R 
REF 
RFF 
RTF 




LAST~390 


T707; TTEF T 


1 

5~r" 

2 ' 

15 

~T — 

T~ LfiST 252 


OrST T9T 

10 4 
263 


ITAST 

LAST 


58 

"T 


EAST 

LAST 

LAST 


391 

39E 


1155 


27.2330 

27.2331 

Z f f Z 33Z 

27.2333 

27.2334 

27.2335 1 2330 I 


3 5 052 

0 4662 

20720 

1 5534 
2735 


0 

T 

0 

1 


27,233 7 

27.2340 

27.2341 


00124 0 
0 4662 1 
56000 1 


FRANX= CPHI 


COUNT — 277752 


R62niSP CAF 


V06M22 


TCF 


BANKC ALL 

GtiFLASH 

ENDFXT 


TCF 


G O MnV F 

P52DISP 


27,' 2375 ’ 7) 5546 0 — G Hi ^nyE 


ADPES 

TC 

CAOR 


3AXTSFLG 

8AMKCALL 

R60CSM- 




P*(7E 3^ 


USE-R^S PAGE Ntl. 


E6 S3 


DISPLAY COMMAMO ICDUS CPHI, CTHFTA, CPHI 



ENTER 


ASTRONAUT MAY LOAD NEW ICOUS AT THIS 
POINT =— 



5 F LAG 
BIT 6 FLAG 5 


1877 




17 LAST 3^8 


27,234? t 5534 1 


TCF 


NDEXT 
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0500 


050001 RFF 
O^TKIDT 


I 5 t?ono 

■ZZtZOOO 

ITZTTTTTTO 


BAm 


15 


SETLOC KAtCMnNl 
B7r'?K 


0501 


EF 


5 EAST 394 — 56,1561 


EBANK= BCOU 


05015 ” REF 


05^'TR 
0 503 
05 04 


IT LAST” 


TTJ 


77TZOTJ0 0 500 6 


REF 


”2 — LAST 35^ 


22 ,7001 
002 


t 




0555“” 

"■'TFr 

jT" 

"T7LST 

■■'399 

TZTVmir 

TT516 

REF 

11 

T.AST 


“22,2004 

0517 

396^ 


0518 

T? bP 

7 

CAST 

399 

22 , 7006 

05T9 





27,2007 

0520 

REF 

2 

LAST 

5^94” 

22,?010 

0521 





/c /: f /. J 1 L 

0577 

RFF 

4 

LAST 

171 

22,2012 

0573 

REF 

S 

LAST 

398 

22,2013 

0524 





27 ,7014 

0575 

RFf 

3 

LAST 

399-“ 

22.2015 

0526 





22 f 2016 

0577 

REF 

12 


39EJ 

22,2017 


0528 

0539 

0550 


TEF T 


0531 

REF 

12 

LAST 

114 

053? 





05 1:3 

REF 

O 

LAST 

TTl 

0534 

0595 

PFF 

14 

LAST 

399 

0536"' 

953 '^ ” 

“RcF 

15 

L A ST 

399 

0533 

REF 

5 

LAST 

399“ 

D53 9 
- 0540 

REF 

3 

LAST 

305 


0541 

9 

0543 

0544 

054 5 
0546- 
0 5 4 7 

05"TT 

Q54n 

055 0 
05 51 

0 555 
055 ^ 


OFF 


r 


t A S T 3 RT 


RET 


LAST 39R 


REE 


I 


“0^ 

r< 


Tf r 


22,2020 

22,3021 

27.2022 
2 2,202 3 
22,2024 
27,7025 

22,2026 

22 .2022 
22,2050' 

22570 31 
2 2, 203 2 

22.2033 

22.2034 

32.2035 

2 2 .20 3 6 
27 , 20 3 7 

-22^ 3040 
3 24 2 0 41 

22.2042 

22. 2043 

22 . 2044 

22 . 2045 
22,21146 
22 ,2 0 47 

2?-, 2050 


TT634 

443 T6 

^3762 

723 64 
033 20 
05262 
77624 
44405 
T 23 - 64 ' 

0343 6 

01 15^ 
77624 

4 44 or 
451 
03320 

443 34 
77775 


T 

0 

O' 

T 

0 

0 

T 

1 

0 

5 

1 

1 

T 


KALCHANi TC 
— — RTB 


tl 




TT 

13 

1 


50474 0 
77676 0 

2 w 

77626 0 

74510 O 
75160 1 

03256 ”tr 
03425 1 


44304 0 
45575 1 
503 3 5 1 
77676 0 
503 43 0“ 
TT 6 7 6 0 


FF 


3 LAST 399 


051 


74351 O 
45001 1 
0 0 0 73 0 
443 43 O 
46 5 75 1 

^0474 0 
77626 O 

2D 


CALL 


AXC72 


cxrr 


AXC , I 


VLilAO 
ST A OR 
STQVl 
STA09 


STADR 

STORE 

A XC vl 


VLOAO 

STOVL 

STAOR 
STOVL 
S T Ai l R 
STORE 
SETop 


CnUMT 23 2KALC 


INTPRET 


REAnCOOK 
TORE BCOM 
,2 TLOAO 
MIS 

R cno 


PTCK UP CURRENT COU ANGLES 



\7L 9A0 
■S TQVL 

S T A OR 
STPVL 


CONPUTE THE TRANSFORMATION FROM 
INITIAL S/C AXES TO STABLF MEMBER AXES 

M » a ^ ^ A — - 

f M151 


COtiTOOCM 



MFS 

C3HI 


FROM' 

FINAL S/C AXES TO STABLE MEMBER AXES 
(MFS) 


CnUTOOCM 

CALL 


MTS ANO MFS ARRAYS CALCULATEO 


$2 


TRANSPOS 


TMIS +120 



TV^tS '+6 


TMIS 
A XC 1 2 


TMIS = TRANSPOSE! MIS) SCALED BY 2 


TMIS 

MFS 


MX M3 
STAOR 

M E! +120 


ME I +6 


MFI 

CALL 

150 

TTNSPSPD 
DTAOR 
TMFI +120 


MFf = TMIS MTS (SCALED BY 4) 
TRANSPOSE MFI IN PO LIST 


TMFI +6 
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035 7 
0633 

REF 

■3 ‘ 

LAST 

390 

72.7052 

72.2053 

77626 

75510 

T) 

0 

ST A OR 
STORE^ 

tmfi 

R 0 3 3 o 










R0337 

L<^ ULAT 

E CG6SKFW AND MI-ISYM 




I- 

R035R 










0 3 39 






55355 

1 

DCTTATJ 

"TIST) 

O'; ■so 

REF 

5 

LAST 

500 

22.OT‘S5 

032 71 

0 

. ... 

TMFI *2 

0561 

RPf 

5 

LAST 

399 

27.2056 

03530 

0 


MFT +2 

0562 





Z Z f Z U 

R-R3 2R 


PDDL 

“OSU 

0563 

REF 

5 

LAST 

500 

22*2060 

03532 

1 


MF I +5 

0565 

” RFF 

F 

L AST 

5 no 

2 Z f Z 0 ^ 1 

03273 

1 


TME I + A 

0566 





22 ? 2062 

553 2 5 

1 

POOL 

DSU ' 


05^5* 

0557 

* rrsoH 

055^ 
ROSTO 
IT 0571 
ROST? 

0S77 

“7T57T 

0375 

0575 

™0577 

U57n 

0577 

Tf ^ {j 

O^Sl 
0382 
OSRT 


REF 6 LAST 

^EF 6 CAST 


AOO 

500 


RFF 


5 


LAST 115 


?PV2065 
2? 1 7055 
7777055 

22*7056 


03301 n 
03550 1 
77655 "T 
03311 1 


XTTL C3JL ATE“7a^^Nn TKOCEFO ACCORDING 


T7 c p 


■RFF 

REF 

REF 

RFF 


05 P5 
0585 
0535 


RFF 

REF 


0538“ 


— 03R9 
0590 


REF 

■RFF 

RFF 


T 


9 

3 


r 


51 

1 

T 

1 


LAST 

LAST 


5TT0~ 

500^ 


IFTT’ 

LAST 

LAST 


375 


5 


115 


LAST 115 


LAST 355 


22t 206 7 
77070 
2272071 


- t ^ 

22 * 

727 2075 
??,2075 
TTTTXrm 

'22,30 7 7 

72,21 00 
227-2T01 
72,71 02 

2277103 

TTiTTorr 
22f210 5 
2 2 * ? 1 ^ 

22 * 2 
22,21 TO 


53355 1 
03526 1 
03556 1 
532 75 0 

T 5325~ r 



03365 

51075 

TT 5 31 5 T 

55111 
773 76 

0" ■■orro5 

4 5017 
55* 332 


1 

1 

T 



0 

1 

rr 

0 

0 

o 


1 2730 0 


TMFT +100 
ME! +100 


TOFF 

STORE COESKEW 



OLOAD 


13Stt 


OAD 

1fFl 

Mfl +160 
OAO — 


t rFt /5 ' TH 


STORE 


MF T 
CRM 


+ 80 



STTIRF 

osu 



TCF 


AM 

8PL 

M Tf MANG 

CHFCKMAX 


IT 

TM H 1MT 


ONE 

HOLOFLAG 

tOAPCD t JO 

NOGO 


TMFI = TRANSPOSE (MFD SCALED BY 5 



EQUALS MFISKFW 


CAM tMFI0+MFf5+MFI8-n/2 HALF SCALE 


AM^ARCCnS (CAM) (AM SCALED RY 2) 


MANEUVER LESS THAN 0.25 DEG 
GO OtRgCTLY INTO ATTITUDE H OLD 


AROUT COMMANDED ANGLES 

NOGD WILL STOP ANY RATE AND SET UP FOR A 
GOOD RETURN — 



03 08 
0599 
0 600 

0 6 or 
06 02 
0603 

0605 

0605 

060F 

0607 

0603 


REF 

RFF 


3 

1 


LAST 500 


RFF 

RFF 


TTEF 


TTEF 


1 


5 


LAST 50D 


5^ LAST 39f 


T 


10 LAST 500 


22 * ? ir r 
22,2112 
22, 211 3 

22, 71 
22*2116 
FTtr 


2277 T 20 
22 * "^121 
77 * n 22 
22,21^3 
2272125 


-55355-1 CHFCKMA X OLOAD OS tt 


03365 

05370 

7 7 2 55 


1 

I 


55123 

03311 


T5 




“0“ 

t 
1 

-r^ 

1 

56737 V 
53375 0 
03525 1 


• o 

0335 3= 


FFt: 


Al TC aLC VLOAD 


AM 

MAXANG 

Vt OAO 

At TC Ate 
COFSKFW 


UN I T 

~STDRF ' CDF 
GOT D 


tD€ - $K!RT 

V3P 
MF I 


UNIT 

COESKEW 


eOF tS THR MANEUVER AXIS 

SEE IF maneuver GOES THRU GIMRAL LOCK 


IF-AM GREATER THAN 170 DEGREES 


TTSp 





WG I F ITJTT 


06 TT 
061 0 



a61 

""0613 

"OCT^T 

0613 

0616 

"DTrrr 

061B 
0619 
RT 36 70 

’^06:?! 

T 


FTF’ 

"'EF 

REF 


2 

12 


REF 

KEF 


LAST- 

LAST 


CALCIJLATF CHF 


KOFZ:. 


0624 

0625 

0676 

0677 
062B 


REF 


1 

5 


TT37 T 
063 0 
0631 

llETZ 

0633 

0634 
USTT 

0636 
063 7 
063 8 


RFP 


4 


REF 


T)6TK 

0640 


06 •+ 


0643“ 

■c. A 2 

0643 

“0644 

0645 

0646 
"064T^ 
^064- 
R0640 
■ROB 50" 

""0651 

0657 

“0653 

r: A 
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P EF 7 LAST 400 


L A ST 400 


22rZIZ5 

22 t 21 2 6 

22,2127 




40T 



401 


22.2132 

22.2133 

22.2134 
■ 2277 TT 5 

22,2136 
,713 7 


03267 1 
7776? 1 
27267 1 

03434 1 
744 55 O^ 
0 32 75 ' I 


TMFl 


VSRl 

STOVL 


VAD 


SinvL 


03447 0 
74455""0 


ITATT 


3133 03 r 
033 03 1 


STORE 


TfFTSYM 

MTl -1-6 
VSRl 

TMFl -1*6 

NF ISYff +6 "■ 
MF I + 1 20 ^ 
YSRT — ~ 

TNFT 'FlTtr 
MFTSYM 1-120 


MFTSYM=i(MFri-TMFI ) /7 SCALEO BY 4 


LAST 400 


LAST 401 


LAST 401 


LASr 40 T 


■?2,2t 40 
27 ,'’141 
22, ? 142 
27 t 2 1 43 
22 ,2144 
■7 2 ; 71 45 

22,2146 
"77, 7T 4 7 
27,21 50 
72,2151 
77,7157 
7777157 
72,715 4 
7271 55 


705^5 1 
03317 1 
45375 T 
15333 

0331T 


OtOA D 


Fonr 


0 

t 

65204 1 

45Tt7T 
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56775 

0 000 1 

00003 
653 55 


TT 

0 

1 

T“ 

0 

1 
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SKI 
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DSU 

OPHALE 

CAM 
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0 
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SORT PDOt 



tMTl 



22,2156 

77,7157 

22,7160 


VAST "403 7RT7T6T 

2277^162 

— ~ ^ - 

4 -L^ t ^ 


037 77 
56225 

000 01 0 

00003 I 
65366 1 
03257 1 


DSU 


MFISYM -^B0 
DDV 


t RDOT 2 



R-pR 


VASl — -470 


7772364 

2 7, 216 5- 
72 , R 1 6 6 
22, -7 16 7 


56725 

00001 

00003 

555 66 
77656 


1 

O 


SORT 


OSt) 


POOL 


OOV 

0 

2 
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1 

1 


03343 0 


SORT 

UNIT 

TTORT 


VOFF 


COFX = SORT(MFISYM-CAM)/( 1-CAM) $ROOT 2 


DETFRmNt 1 ARrOEST CDF AMO ADJUST AC CORDING LY 


REF 

■RET 


10 

13 


LAST 

VAST 


403 

403 


06 
0655 
0655 

0667 

0658 


REF 

RT 


1 

7 


77, 217 0 
77, 2171 
72,217? 

2? , 2375 

' 7’4 


45345 1 

jt 

03343 0 

tr 


CDF MAX GO IILDAD 


DSU 

COF 


71240 1 
iftrii -2 0 3 -Q- 


-BMft 


OLQAD 

-eoMPi.? 


COFY G COFX 


3452 403 


f 
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13 — LAST 401 


76 

27 71 '7 


0 334 o 
50025 D 
0 3 347- 1 


OSU 
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COF 
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"DSIT 

06A? 

0663 
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0665 

0666 


T?rF 


FTF r 


RFF 



? 2 , ?zao 

22.2201 

or 



RFF 





22 

1 4 

LAST 

40 1 

22 

15 

♦ 

■407™ 

“72 

22 

2 

LAST 

402 

22 


2207 


4 A 260 0 
77660 1 
A 423 A 1 
45346 T 

03346 rr 

0TT4 
116^0 0 
^4260 0 


crmpo 



MFTHnn3 

GOTH 

Mtl HUOl 

mTOo osu 

COF +2 

COF +4 

BMN 

MFTHODB 


COFZ G CHFX COPY 


GOFX G COPY OR COFZ 


COF 2 G COFY 0« COFX 


0667 

0663 

TiS^' 

0670 

0671 
06 /2 

0673 

067'^ 


0676 

0677 

7J6TF 

0679 

tre 0 

a6^ 

116732 
06 33 
06^ 
0636 

0636 

0637 

11633 
06 89 
0690 

06 or 

0692 

U n V 3 

06*^4 

0696 

0675“ 
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"RFF 

RFF 

REF 

RFF 

“TEF 


6 LAST 
“T 

16 LAST 
IT LTTST 
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40 2 


7 

1 


18 

TO 


LAST 40 1 


77 ,"7 2 10 
22 .“2711 
77777T7 

77,2713 
22 *77 1 4 
77T77TO 

22.2216 

22.2217 

7777770 

22.2221 


51146 0 
03313-0 
447T7r~r 

57675 1 
03343 0 
03143 0 


HFTR0D2 “DtOAt) 


VLDAD 


LAST 

LAST 


40 2 
407“ 



51 T45 
03 271 


57546 
0 3 3 43“ 
03343 


U2Pns 


72.227 4 


— ?rF 

8-“ 

LAST 

407“ 

22. 2725 

REF 

7 

L A 1 


2 2 , > 2 2 6 





22 .2227 

ref 

20 

LAST 

402 

72,7230 

R EF 

21 

~LA ST 

“ 402 " 

22, 2231 


RFF 


LAST 4t ) 7 



REF 

REF 


REF 


R L AST 
1 

27 LAST 
23 LAST 


402 


PEE 

n c j; 


9 LAST 
1 


402 

402 

402 


22.2234 
72 . 2735 
22, 773 6 
22. 2 23 7 
27,7740 
22,2241 
72T 


5^11 45 
713301 

44 T 3 T 
575 45 
033 47 
T334T 
77650 
447 37 
51143 

03 3 1 1 
44 2 47 

^ f J ( / 

033 4R 
03343 


0 
0 

0 

1 
0 

O 

a— trKU 2 i 


STORE 

DLOAD 


OLOAO 


DL OA n 


O 



T 

1 

1 

T 

1 

I 

ir 

1 

0 

0 

0 

o 


OLOAO 


-GOTO 


TETHOOT 


WT 


UI P OS 


TTttrArtr 

STORF 

O LOAO 


06^7“ 

06^3' 

06’^’*^ 

0700 


EF 


24 LAST 
75 LAST 


40? 




IFF 


10 LAST 
4 LA7T 



22.2243 

22.2244 
27 .7 745 
22,2246 
22r7747 
22.7 2 50 
72, 2251 


032*71 

442 50 


707 
07tl3 
0704 

"0705 
0706 
07 07 


26^“^ AST 
FF 27 LAST 


RFF 


REt^ 


LAST 



0 
0 

7 

0 
O 
-o 

0 32 73“ I 
447 3 7 1 


O LOAO 


03345 
033 4 6 


r m tr i 2 


S TTIR E 
OttlAO 



O t -O Atl 


03 

7 765Q 


-447 A 7 
5T 1 45 


I 

1 

7 

r 

0 


STORE 


7P1 

COFSKFW +2 

U2pns 

VCOMP — 
COF 


XOFY MAX 

UY 


+ 2 


BPL 

MF ISYM 

0KU71 

OCOMP 

COF 

- . - - - ■ - 

COF 

BPL 

MFISYM +100 


UX UY 


SIGN OF UX OPPOSITE TO UY 


UY tl7 




OCOMP 
COF +4 
C OF +4 


LOCSK IRT 

471: 

COFSKF.W 

UIPOS 

V C O M P 


SIGN OF UZ OOPOSITE TO UY 


COFX MAX 
UX 


COF 

TTt 

MFISYM +2 
OKUl? 

OCOMP 

EOF + 2 
COF 4-2 
-871 

HFISYM +4 
tOCSK TR-T 
O CO M P 


UX UY 


SIGN OF UY OPPOSITE TO UX 


UX UZ 


SICN OF n P POSlTE TO UY 


COF +4 

C ‘IP +4 


METHOOB OLOAO 


L Of-S K T PsT 
BPL 


COFZ MAX 


1 * 
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^x^ 


/V’ 


■i ^ 


-V^r^' 
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0712 
071T* 
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^ HT^ 

7 FF 


R 

I 


LA^T 4TI? 


2777751 
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0 

0 
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' 2B LAST- 402 
RTF 29 LAST 


22.727>4^ 

2272265 
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REF 


11 

1 


LAST 402 


R = F 30 LAST 403 


22t2266 

72.2267 

22V2270 

2772271 

2272272 


5T5T5~T 

03343 0 
03343 0 
51145 0 

032T3 1 
442T4 0 
57545 I 
03343 0 


VLITAO 


TJTPnS 


STORF 

DLOAD 


DLOAO 


CDF SK FW 34 
U3Pns 

VCOWP 

CTTF 

CQF 

“BTI 

MFISYM 34 

nKU31 

DCHNP 


trr 


Lfx trr 


SIGN OF UX nppnsi TF TO uz 


OTir RFF 31 LAST 403 

ZZiZZTS ~ 

03342 

0 

STORE 

COF 

0 f IR 

TnrvTm^ 

5 1 145 

0 0KU31 

OLOAD 

BPt 


07 

0721 


REF 

REF 


LAST 403 
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TTTTT 

0773 ^ 

^ FF" 

32 

LAST 

403 

0724 

R FF 

33 

LAST 

403 

072 T' 
0726 

REF 

7 

LAST 

403 


22,2276 

22T22TT 

22.2300 

22.2301 
227^302 

22.2303 


033111 0 
44737 1 
57545 1 


03345 O 
03345 0 
77650 1 

4470 ? 1 


TTfOAtr 

STORE 
Gnxn 


MFISYM 3100 
LOG SKIRT 
nr oMP 


tJY uz 


COF 

cnR 


32 

32 


STGM 


UY OPPOSITE TO Ur 


LOG SKIRT 
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'1^7?7 — 

R072B matrix OPFRATTONS 

~“R07T5 ^ 

0730 ^ 22,23r04~ 77601 0 HXWT 

“ 07-^1 2272703" OOOOl 0 

“7)732 22,2 30 6 647Zf3^ 

073T " 22,2307 7776? 1 

0734 ~ ??,?310 77770 1 

“* (T733 — - - 77V 2771 55523 0 

0736 22, 231 2 77776 1 

0737 ^ 22,2313 6471T 1 

" 071H 22 V?? 14 OOOOT 0 

0739" 22,2315 77760 0 

0740 “ 22,2316 64723 0 

0741 72 ,2317 TTTFTT V 

074-:» 22,2320 77774 0 

0743 22,2321 63666 1 

T)T44 2 OrrO-QT 33 

0745 22,2323 64723 0 

0746 • 22,2324 77756 0 

11747 22,2325 17764 1 

0743 72,2326 5552 3 0 

tlT49 77,-237 7 77777-0 

075tr“ 277733 0 41 51T 1 

0751 22, 2 '^ n OOOOT 0 

0752 77,2332 77550 1 — 

“13753 — -“RTF 2 “T^ST — “779 22,2333 g4 T 43 ~ 0 

R0754 


SETTO 

0 

DtOAT )^ PnOLV 

120,2 

6,2 

poor* VD FF 

0,2 

MXV« POOt^ 



140.2 
POOL* POOL* 
— 80,2“ 

7.2 

VDFF MXV* 

0,1 

POOL* POOL* 


POOt * 


NXV* 


GOTO 


10 0 , 2 

VOFf 
4 , 7 
P05 H ~ 
0 , 1 : 



M1XN2 IN PO LIST 


P0755 
0 7 5 6 


0759 

0 750 - 

0 761 
“0767 “ 

0763 

0764 
■0765““ 
076 6 
0767 

”0753 

CT6^~ 

0770 

0771 

- OITT 

0 7 73 

0T74 

0 7 75 
0 776 


•• 72, 2 33 4 75 6 '0T”t I RANS P O $"^TP n 

22-^2735 OOOOl 0 

22,? 33 6 OOOOl 0 

“"22,2337 5271 3 0 “ — ~PWtr* 

2^,2340 00007 0 

22,2341 00015 0 — 

22,2343 65345 0 TPMSPSPO OLOAO 


22,2''44 0000 3 1 

27T17343 00007' 0 

22,237,6 14003 I STOOL 

^2,2347“ 77625 0 STAOR 

22,2351 00005 1 — 

- 22,2352 77725 1 POOL 

22 2 2 3 5 3 0 0015 - " O 

22,-2354 14005-t STODt 

2 2 , > 3 5 ' 77626 0 S T A O R 

27 ,^3 5 6 63 T 6 2 - 1 — STOOL 

?1>,2357 00013 0 

22.?360 77725 1 POOL 


VL D AO * 
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PDVL* 

6,1 
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POOL 

7 

— 

2 

fi 

tto - 
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MXM7 MULTIPLIES 2 aXS MATRICES 
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A D DRESS BE 1S T MA THTTC I N X Rl — 
ADDRESS DE 2ND MATRIX IN XR2 



MlXM2(CnL 1) IN PO 


DEFINE VECTOR M2(CnL 2) 


M1XM2(C0L 2) IN PD 


DEFINE VECTOR M2<C0L 3) 


WI XM 2(C0L 3) IN PD 


— R EVERSE ROWS AND COLS IN -PP^ANfL 


T R ANSPOS TRANSPOS ES A 5*? ^AATRtX 
AND LEAVES RESULT IN PD LIST 
MATRIX ADDRESS IN XRl 


M ATRIX IN PD 

ENTER WITH MATRIX IN PO LIST 
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07 TB - - 14013 0 STOOL 100 
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“OTTTT ZTTZTSnS 00013 0 MINANG DEC .00069375 

0783 22.2367 17071 1 MAXANG DEC .472222 

R0T34“ GIMBAt taCK CONSTANTS 
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- 
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? ? f 2 3 T 
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5 
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L AST 
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6 
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0801 
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1 


. 
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22,2405 


0 D0116 
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1 

1 

T 


1 6445 D 
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1 

SD 
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33555 

1 

K3S1 

DEC 

. 86603 
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0400D 

0 

K4SQ 

DEC 

.125 

002 1 7 

0 

SNGLCD 

DEC 

.003725 

17 7 73 

1 
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DEC 

m ^ 9^^) ^5 

0 0004 

0 

REAOCDUK 

INHINT 


3 0034 

0 


CA 

-GDUZ 


EXTEND 



MR A C 42 


CDUX 


TCF 

BANK 


TLOAO +6 
16 
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= SIKMD) SI 
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LOAD TIMPAC) WITH THE CURRENT CDU ANGLES 


OP 01 OR REE 


2 LAS! 3W 
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0802 22,2405 663T0 0 CDUTOOCM AXT.l SSP " 


CRTTR — 22.2406 00003 1 OCT 

0?04 REP 1 “22^.2407 00061 0 SI 

0803 22,2410 0000 1 0 OCT 1 


0 207 
“ 0803 

OEDD — ^ 

0«1 0 

0811 KEF 3 LAST 

— 

-^Dorr — “ 

0814 

“ “cni5 — — — — 

0815- 

os w 1 

0315 

08 1 T - - — 

0820 


^85 


22.2412 

22, P413 

22 ."2414 

22. 2415 

22.241 6 



“ 22,2421 

22.2422 

2 2^ 242 3 
— 22 . 2424 

22.2426 
-22". 242 7 


77601 0 
OOOOl 0 
4 7 1 3 3 0 
00013^ D 
45513 1 


653"5 6 I 
00013 0 
4T546 0 
71300 1 
444 14 -"D 
O DOD T- 0 

72405 0 
00013 -G 


SETPO 

0 

SLOAD^ PTE ^ 

too , 1 

CDUiOGTC 

S T O R F too 

S IN POOL 

100 

COS" PUSH — — 

TIX,1 OLUAO 

LO0«>SIN 

6 

OOP sil 

ion 


SUBROUTINE TO COMPUTE DIRECTION COSINE 

M A T R IX 4St-ATTNG-S/C AXE'S TO S TABtE" 

MEM8FR AXES FROM 3 COU ANGLES IN T(MPAC) 
SET XRl. SI AND PO FOR LOOP 


LOAD PD WIT H 0 SIN t P Hfi 

2 COSIPHI ) - 
4 SIN(THETA) 
6 COS f T HE TA) 

8 SfNfPSn 

lO cos (PS I ) 
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0821 

0822 

O^TTT 

OR 24 
08 ^S 


0827 
082 S 
~CrR 7'9 
0830 
0331 
0832 
0833~ 

0834 

"08 '35 

0835 


22 , ^ 43 a 
22.2431 


22,2433 

22,3434 

27,2438 

22,2435 

22,2437 

22,2440’ 


22,2442 

22T7443 

22.2444 

22.2445 
22,2445 
22,2447 


0337 
“ 0 83 R ^ 
0B3O 
0 840 

~”034r " 
0342 
— 0343 ^ 

~0’84’4”" 
0 8 45 
0845 
”084:7 — 
0 B 43 

0843 

■37830 

0351“ 

0852 

“0833 — 

0 334 

0855 
0536 

0857 

0858 
0339 

~ 0850 

0H5i 
07352 — 

0 353“ 

0854 
0855 — 

0855 

- 0 857 

0058 — 

- 0359 
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22.2450 
22, ^451 


22, 2453 

22.2455 
22724-56 
' — 22,2457 
22,2460 
22,2451 

22TT452” 

22 , ?463 

“22,2464 
2272465 

2 2, 24-6*6 
— ?2 ,2467 
■ 22T2"4TQ 
22 724/1 
“ 22,^472 

22.2474 

22.2475 

22' .2 47 6 

22, 2477 
22.25rjt) 

' ? 2 3 2 50T~ 
22,250 2 
22.2503 


22,-2505 
- 2 - 2,2506 
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22 , 2 310 
? 2 . 25 11 


100 01 1 

77745 1 
00005 1 

65705 0 ~ 
00001 0 
770007 0 — 

41205 0 
000 111 
00003 1 “ 
443 52 0” 
00015 O 
77752 1 — 
10003 0 
77745 I 
00003“! — 
65205 0 
00005 1 
00007 ”0 
41205 0 
00011 1 
00001 0 — 


OOOtT T 
10005 0 
77745 1 

noon t 

10007 1 

77745 1 

0001 7 0 
72405 0 
00003 r 
10011 0 
77745 1 
00013 0 


00001 0 
77752 1 


77745 1 
00005 I 
5 7 405 1 
00013 0 

777521 
1 0015 1 

77745 1 - 

7 - 24 C 15 o - 

ooo- it - t~ 

41325 0 
00007 0 


STORE 

DLOAD 


CW 2 


OMP 


Stl 


0,2 

Tf 
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0 

“6 

t)MP 

80 

-7 

BOSO 
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“STORE 2.2 
DtOAD 

2 

OMP PDOt 

— 

“OMP OMP 

80 

-- — 0 — 

SLl 

" tlAO“— STl 


STORE 4.2 
OtOAO 

-150 

STORE 6.-2 
OLOAD 

TOO 

OMP St 1 

2 

STORE — 8 0 . 2 
DLOAO 

100 

0 

SLl 

stoke 1 0 0*2 

OL OAO 

4 

O MP OCOMP 

TOO 

SLl 

- S T - O PE 1 20 V? 

OltTAO = 

OMP SLl 

PO 

POOL OMP 

“ 6 


(P06 STMtTHETAlSINtPHI n 


(P07 CnStPHI JSIN(THETA) ) SCALED 4 


(PUSH UP 7V 


IP07 CnSfPHI )SIN(THfTA) SINK PST ) 1 SCALE4 
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0 871 ~ 
0^72 ^ 

~ 08 73 “ 

03T2t 

0873 ■ 
UBTS~ 
0811' 
0373 


0881^ 

UH8T" 

08 S3 
0374 
0B8S 


~22 ,7312 
22*7513 
27,2 bl4 

P7T2515 

22*P5r6 

22,2317 

22.2320 

22.2321 
77TZ57Z 

22,2523 

2r,252^ 

22,7323 

22 ,25 2 6 
22,2327 
227 2 5377 


00001 0 ^ 

72A15 r 

77626 0 

67760 1 
77745 1 

72405" O 

00011 1 
41325 0 

00007 0 

O 0003 T "" 

T2425 1 — 

7762627) 

67756 I 
77616 0 

END0C!8 


O 

DAO SLl 

ST A DP 

STOHE 140,2 

DtOAO 

OITP StT 

8tr 

POOL DMP> 



STtTRE 16D,2 
RVO 


EQUALS 


(PUSH UP 7) 

CT = CO $ (PHH S I N ( T H E TA) S T N( P S T ) 


(PUSH U P 6) 


(P06 SIN(THETA)SIN(PHI )SIN(PSI ) ) SCALe4 


(PUSH tlP 6) 


C8=-61 N( THETA) SIN (PHI )SIN( PS I) 
+CnS( THETA) C0S(PHI ) 


0B26 

0S3601 

088602 


FF 


LAST 379 


T6, 
22,2000 
22,2530 


SETLUC KALCMONl 
BANK 


K0B97~ CALCULATinN OF THT-HATPTX DEL 


P08TT3 ^ ’ — — » 

R0880 del = ( lOMATPTXlCOSt A)^-Ut) ( l-COS ( 41 ) +UX SIN(A) SCALEO I 


“ 2 O FTTO — — 

ROBOT U rS“ A~Trr3 T T VECTOR (OP 5C4t:EO 2) ALONG THE AXIS OF ROTATIOtT. 

R0B93 A TT THE ANGLE -Of POTATO IDP SCATFO 2) ^ 

R08'^4 ^ 

ir0B05 - UPON ENTRY THE STOP7IMG ADDRESS OF U IS CDF, ATI *7 A IS I1M MPAC 


08955 RTF 


3~TA6T " 4 0 5 ~ "TO — 40TT 


m 


342^ 


CO U N T 



0896 22,2530 7 41401 I DtLCOMP SETPO PttSU 


05^ “ ’ ■“ 22,2531 OOOOl ~0 0 

0B9B 22,2532 65356 1 SIN POOL 

0899 22,2533 4)546 0 COS PUSH 

OB795 — — — - 22',“P53 4 — “6530207 SR ? P ODl 

0900 — —22,2535 '410 21 ! — BflSU 80VB 

0^01 REF 2 LAST 401 27. 2536 15333 0 DPHALF 

09 074 RTF 2 CTTST 401 2 2 ,253 7 4 5 7 1 2 1 SIGN N PAC 


MPAC CONTAINS THE ANGLE A 


PDO = SIN(A) 
PD2 = COS (4) 
P 0 2 = COS(A) — 
P04 = l-eOS(A) 
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S2 


R0902 COMOfITF THE DlAG^NAl. CrrMPONENTS~OF DEL 


“-0902^ 27,25 40 7 77 25"! 

0*70:^ 34 last 403 2?, 2541 0354^ 0 

' 0904 72T7242 — 41316 0 

0905 22,'^5‘43 00005 1 

0906 22^2544 52418 Q 


POOL 

CDF 

tlSQ — OMf> 

— 4 * 


HAD 
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E6 S3 


0907 

0903 

“TU A, _» - • ■ 

— ~ ■_" n ■— — 


1 ■' ^ % — 1^— ^*1 - 


72. 2^545 
2^.2546 

00003 

77604 

1 ~ 
0 

B0V8 

2 

- - - . — — „ 


0910 

0911 

u C 

IFF 

R9F 

3 

3 

35 

UAST 

407 

22.254^ 

45712 



STGNHPAC 


tl 

LAST 

LAST 

395 

407 

22.2550 

17426 

03345 

1 



STOOL 

DEL 

UX UXtU-Cn5(A)) +COS(A) 

22 , 2 551 

0 


COF +2 


001 2 





22.255? 

4l 3 1 6 

u 



“ crso 

(jf^p 



09 1 3 





22 , 2553 

00005 

1 


4 



091m 





27 , 79 54 

62415 

0 

DAD 

SL3 




O^TS ZZ ,'^555 0000 3 1 2 


0E;16 27y25^^ 77604 0 BOVS — — — 

0017 4 LAST 408 — 22,7.3^7 45717 1 SIGN^PAt ' 

091'P IxFF 4 LITST 47T8 Z7TZS6T} lT-43^ O"" STHOl OEl. +30 — U Y UY ( l-C O S ( A M - >CO S t A » — tt 

0^19 ITEF 35 LAST 408 ??,^561 03347 1 COF +4 

0920 — ^ ?2.2S5r 41316 0 OSO Of^P 

D"97T~ —— 22 , 7 3S3 "00005 T — " 

0922 _ 22,2564 52A15 0 DAO Sl.3 — ^ 

0923 — 22,2565 00003 1 2 

0924” — snV B — " — — — ^ 

0925 —RFF 5 LAST 408 22,2567 45712 1 STGNMPAC - 

0926 - RFF 5 LAST 408 22,2570 03446 1 STOPF DEL +160 UZ UZ(l-CnS(A)) +Cn$(A) $1 


9 0922 CONPUTF THE OFF DIAGONAL TEt?*<S OF OEL 


(T978 

" 0929 " ref 3 7 

" 0930 RFF 38 

■■ 0931“ 

0'^3:’ 

- 0933 

Cr’34 TFT 39^ 

“0*^35 

093<r ~ 

QT537 

0938^— 

093Q ref 6 

0940' S 

0941 

0942 

~ "0943^^ " T 

0944 REF 7 

0945 REF 40 

‘ — 

09^T RTF 41 

QgZ^g 

CP:jzp5 

0950 TTF 43 

0951 

095? 

0954 


“ -22 .2571 

LAST 403 - 22V2 572 

LAST 408 22,2573 

22^ - n 

— 2T , 2 5 75 

CTST 408 2? ; ’577 

— 23,2600 

22, 2601 

^2,7Stl2 

, 260 3 

LAST 408 22 • .2604 

t43T ~4Cr8 22. 2 605 


22,2606 

22.2607 


VAST 

"408 

Z 2 t Z 6 1 

LAST 

408 

27,26) 1. 

LAST 


82.2612 



2 2 , 2 6 1 3 

tffST 

408 

22,2614 

... 


2?r76l5 


^ cL f > 1 f 

T A S T 40 8 ~27 I 7 
_ 22. 2d 20 


7?*TtTtt 

22,2623 


41345 0 
OT34 3 0 
03345 O 
7 24 0 5 0 
000050: 
41325 0 
0334 7 1 

00001 O 
43206 1 
00007 0 

41 1 120 

45712 I 
T T 4 -S4- r 
62421 1 
77604 0 


17430 0“ 
03343 0 
41205 0 
03^47 1 
00005 1 

- 5 -0 3 5 7 - T r 

03345 0 
4 1 405“ O 

00901 — fr 

6241-5 0 
00007 0 


o toAO — cmp — = — — 

CHF - ^ “ 

~ COf +2 — _ 

DNP StO — 

— 4 — — 

1 

-POOL OMP 06 UX UY ( l-CHS A) $ 4 

— 0 

PUSH DAD 08 UZ SIN A $ 4 

_ „ ^ - — — - — - ^ — 

SL2 BOV 8 — 

Sf GNMPAC 

STOOL OFL +6 — — — 

80SU SL2 
RnVR 

m .A.. A. A . A 

SIGNNPAC 

STOOL OEL +2 


ottp rmp — — — ■ — — — — ■ 

COF +4 — ■ — — 

4 “ 

Ott POOL 06 UX UZ (1 " C0S A 1 ^ 4 

CilF +2 

Oi^P PUSH 08 UYSfNlA) 

0 ^ 

OAO SL2 


. •' i 


■ 1 T \ ’ 

» I 
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♦ r •■ t . ■ ■ ' ••’■;.’•» ‘ . I . >** 
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^09 5F ^ TTTrOJf 0 ^OV3 

■“ 0056 9EF B LAST 408 22.7.S2S 45712 T SIONMpac 

(T0T7 ctef r nrsT zrorr ttttstb 17412 1 stotjl~ del + 4 — 

■ 095T ^~77i2crrr 62421 TL BOSU SL2 

'' 0959 " — 22.2530 9^604 0 BOVB 

OOTTT" TFF ~9~~ LAST 4TT0 22,2631 45 712 I ST GNW O AC 

0961 REF “ '9 LAST 409 22,2532 17447 O ’ STOOL 08t 4-120 

' 0963 OTEF 43 LAST' 408 22,2633 ' 03345 0 COF +2 

n'962 22,2634 4T205~n OFTP [Ti«rp 

' 0964 -REF 44 WST' 409 ■22,2635 03347 1 1106 +4 

^ 0965 22,2636“ 00005 1 4 

0066 2272637 653 52 0 STl POOT 

“ O''.'.? TTEF 45 LAST 409 22.2640 0334T O COF 

■ 096S ■“ 22,2641 41406 0 OMP PUSH 

0069 22, 2642 OUODl 0 0 

09'^3 — 22.7643 62415 O - OAO SL2 

■ 0971 22, -7 6 44 00007 0- (> 

0O72~ 22.2645 77 604 0 BHVB 

0973- ref 10 LAST 409 22.7646 45712 I ' SIGN^PAC 

0974 3ef 10 last 409 “22,7647 17444 0 STOOL OEL +140 

' 0975 ■22,26 50 62421 1 OOSO St2 

0975 -22'.2651 77604 O BOVS" 

- 0977 REF 11 LAST 409 22,2652 4571-2“ 1“ SIGNMPAC 

“ 0975 RFT n LAST 4TT9 27,2653 03440 1 S Tn R g POT +1 00 

0979 22,26 54 “77616 0 RVO 


OX 


or 11 -cos ( 



UX UZ (U-Ccrst A) l-UY SIN(A) 


05 — UY UZ (l-r 0S( A 11 


OB UX SIN(A) 


UY UZ{l-COS<A)) +UX SIN(A) 


U T U 2 <l-CgS(A) ) “^ t ix ^ rw A > 


R0930 --OTRi rTinM GUSrNE MsThIX TO COU ANGt;f- ROUT INF 

R0931 XI COMTAINS THE“XO«PtEMrOT “TtF THE STARTING AOORLSS FOR NATRIX (SCALFO 2> 

R0987 LEAVESTOtr A-NGLES SCALED 291 — IN VCNPAC) 

R0933 COS1NGA) WILL BE LETT IM SI ( SCALEO 11 




— Rr0936 C =CrTS(THETAICtTS(PSI 1 

T09BT ■“ 0 

P0R»3 C =-COS( TMPTAl SINt PS I ICOS (9Hn +S I ( THET A 1 S I N I PHI 1 

R0939 1 

90990 6“ =G0S( T H ET A)S r NT PS HS r N < 9 H T I + $ N I THE T A 1 CO S (P HI 1 

R099I -■?. 

(5 0992 C- -SI NIPS I) 

p-Q,jrrj ^ 

R0994 C =C'JS1PS I 1C0S13HI T- 

R0995 4 

— — R 09 9 6 cr~^c n 5( PS T ) s T u I p m 1 

R09P7 5 — 

— R099B -e =- S f +41 THE TA ) r OS-pPS-f 1 

— RIOOO C -SINITHETAlStNteS! ICOSIPUI l+COS THETA ) S IN ( PHI ) 

-- Hioot 7 
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20211 I ^-0 51 


1052B APR 


1,19 69 COM A in 




ANGLFr>ID 


USF«?«S ^>AGe NO * 12 


e 6 S 3 


’^.1007 C =-SIN ( THETA ) SI PST ) SlfK^HT l+CO ( THETA ) COS ( PHI ) 

P 1003 P 


R 1004 

P 10^5 

Taoo ^" 

1007 



1 T ) 0 ^ 

to 1 0 
I'D 1 1 
1012 
1 01 ^ 
~TOTT 
1015 
1015 
1017 
ini^ 
1019 


"REF 


REF 




REF 


1021 

in :’? 

"TTTZl 

1024 

1025 

i ; ir 76 r 

1027 

1021 

1029 ' 

imir 

10 31 
1037 

1033 

1034 
3 . Tr 35 ' 
1 03 j 
1037 
1U3K 

1039 

1040 

10 4 T 

T 042 

ro 4 '^ 

1 0 " 44 ‘ 
1 f ) 45 
1045 


FF 


RFF 


REF 




RFF 


RFF 

RFF 


WHERE PHI = 

THETA =“1jOT 

pxr "^" 3 TTA 


22.2555 

22.2556 

27 , 265 ^ 


“ TOR - 

I AST 405 ^ 


LAST 410 


1 


I . 7 VS 1 TOT 


1 


c. i 

22,2561 

22*2662 

^ 2,2663 

22,2664 

22*2665 
22,7666 
27 ". 266 7 

22*7670 
22,2671 
2212672 
22 ,2673 
22,2674 
72*7675 
2 ?, 2 q 76 
22 , ^6 ?7 


LAST 410 



4 Trr 


T 

5 


LAST 410 


RFF 


REE 

RFF 


T 

6 

2 


LAST 

TTAFT 


410 

RTO 


22 , ^ 70 1 
22 * 2702 
22 * 2 70 3 
27, 2 7 t )4 
22*2705 
22 * 2706 ' 
22,2707 
72,2710 
22 , 2 Ttl : 
'> 7,2712 

22*2713 
2272224 
22,2715 
2 2 * 2 -^ 6 
22 ,27TT 
22*2720 
22.2721 


72,7 77 2 



67543 1 
00007 0 

71 406 -a 
41152 1 

4 571 2 n 

00051 C 
57543 1 
OOTTIF 0 
67471 1 
00051 0 

5 rr 2 TF ) 
00001 0 
44703 0 


nCMTOCOU DLOAO ^ ARCSIN 

— 672 “ 

— ' PUSH 


2 tl\TB 



STORE SI 
OLOAD '^ ocn^p 



PODLtf 


A RC S I 
SI 

ITRT 

0, 1 

OKTHETA 


43244 1 
44700 to 
T 5 33 T ~ 0 ~ 

77650 T 
44702 1 

15333 O 

T 7606 T CAICPHI 

00013 0 
67471 1 


OLH AD 
BOL 


DAO 

suhalfa 


GOTO 


CALCPHI 



OPHALF 

PUSH 

tr toA o ^ ntrot ^ p 

10 0 , I 
ARCS IN 
S 3 


51123 ^ 
00011 1 

1 

57545 1 
4324 '- 1 
44720 1 
15333 0 
7765 tT^l 

XT 


PDDL ^ J ' 


OLOAO 

BPL 


BPL 
80*1 
OK F K t 
OC OMP 
DAO 


PO +0 


PS I 


S UHALFA P 

OP HALF 



^2025 1 
15333 0 
4 4 72 - 4- 3 3 


SUHALFAP OSU 


VECHFANG 

GOTO 

OPHALF 

VFCQ P Afffi 


77745 - 1 OK^PH I OLOAO 

22 * 2724 43466 i VECOf ANG VOFf R VO 


THET A 

MUST CHECK THE SIGN OF COS ( THETA ) 
TO DETERMINE THE PROPER QUADRANT 


PUSH DOWN PHI 


PUSH UP PHI 


PUSH UP PHI 


TTTSp^ ASSFmLf ftEVI'ilON O'?? Mr''AT;C Pt.r],",p,AM COMA‘iCHfc BVNASA 20iflll3-Gbl 
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TrT^ — PTnjt — zn.T 
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nO-TT RDUTTMF TCTRT'TFRWlNATlT^rG 'AOTUKSTn: '^’VNEUVERS 


TcrsT2' rz7ZT^-‘r~xr~aum~n nugum^ inhini r n i s l o ca t i o n ac ces s e d b y a 3? wf n ogo -? 

TDSIT^ REF 59 ITATST 39R ^2,2726 0 4662 “1 TC SaNKCALL 

105131 REF 1 22,2727 40155 1 CADR ZEROEROR 


115514 22,2T30 0 0004 0 NOGO " TUHTNT — 

10515 RPF 4 LAST 259 22;2T31 0 4526 1 TC STOPRATE 


A 1 0 52 


' 10^3 ~ 

RtF 

24 

LAST 

3T6 

2T»2T32 

^"5016 

tr 

1 0 *:> -t 

“RTF 

1 5 

TAST 

3 BF 

22 R 2 ^ 3 -3 

“D 5 2 45 

L 

— BPii* ^ , 

F EF 

3 

A 

XAST 

399 

F6 1 1661 



1036 

REF 

1 



:>-> ,273 4 

~Cr2006 

0 

1 0 5 o 

R E F 

1 



2Z % /,! 3b 

42u bb 

“T 

1 05 ^ 

RFF 

49 

L AF T 

392 

^2y273h 

1 5219 

1 


TFItHlTrATE (MANEUVER 

CAF TWO (MOTE - AIL RETURNS ARE NOW MADE VIA 

TC WA IT L I S T GO O D E N D 

E8ANK= GCOU — 

2 CADR ENDMANU 


TCF -“ENOOEJOB 


I 
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0001 




13 , 20 OX) 

0002 

REF 

3 LAST 

4CT7 

22,2000 

^003 




— TrrzTVT 

0004 

PEF 

1 LAST 

411 

F 6, 1631 


1? "DUOS D FTFUTim ' “GTMBAL LUCK 

~ OOOB RFF 1 “ 2?,ZT37 

0000 77,2737 70740 0 

“"DITTO RTF 2“ irA5T TBA 72TZ74P nTT3D 'T 

001 1. tEF 1 — ^2272^1 04771 1 

0012 22V2742 45002 1 

"D 0T3 RIFF 3 T^TST' ' 3 ^ 72;2T43 44530 1 


BANK 15 

SET Lie KALCMONl 
BTJTJK 


EBANK= BCOt) 


toe SKIRT EQUALS WtALC 
WCALC LXC *1 Ol.OAO^ 

■ ■ RA TE I NO X 

— — TLRATF, 1 

SR 4 OAll 

O E L CO MP 


A0014 


001 5 

"CRlIo R"EF ? LAS1 412 

0017 IFF 46 LAST 4G9 

001 °- 

OIl^T ^ ^ . ^ . . 

0070 REF 1 

0071 OFF 4 LAST 400 

002 ? 

0073 REF 1 

0024 3 LAST 412 

0025 


27,2744 
27 ,2745 
72,2746 
22,7747 
22' , 2750 

22,7751 

2 7,2752 
22 » 2753 “ 
22,2 754 
-22 i 2 755 
27,^756 


0026 2242757 

0027 REF 1 22,2 760 

0 071 R PF ““ "2 — LAST 412 22,7761 ' 


0071 27,7762 

0030 REF I 72,2r6'5 

— “irCHT RFF 1 22727744"“ 

“ A 0032 

0033 22,2765 

0034 RTF 1 22,2766 

0035 RFF 1 27,2767 


T4343 0 
04771 1 
03343 0 
77771 0 
05003 T 
17311 1 
03365 1 

05001 0 
04771 It 
77661 0 
70606 “O 
27317 1 

03311 1 
77761 1 
05025 0 


77614 1 
0 1 035 0 
45032 I 


OLOAO^ VXSC 



MXV 

STOOL 

-B M P 

^SR 

STOVL 


BRATE 

AM 

OOV^ 

ANGLTI NIF 
A2ATF, 1 


5 

TM 


vxse 

BtASCALE 

S TORE BT A ST F MP — 


SF TGO 

^ “ C A trCNAN ? 

NFWANGL 


COMPUTE THE INCREMENTAL ROTATION MATRIX 
O F L CORRE SPO N O IN O TO A I SEC POTATIO N-- 
ABOUT COF 


ATt T TUOE ERROR B I A S " T i3 P R NT O VE R SHOOT 
IN system 

STATE SWITCH CALCMAN2 (430) 

O t tlFfl ■’ BYP A SS START I NG PR QC E QUR F 
ItON) ^ START MANEUVER 


0036 22,2770 00044 1 ARATE 2DEC .0022222222 = .05 OEG/SEC 

0036 22,2771 1*^053 0 

0037- 22,2772 “00221 0 — 20 E C , 00888 B 98 89 - - ."P OEG/SEC 

0037 22,7773 24755 0 — 

0033 72,2774 00554 0 2051 .0272222222 = .5 OEG/SfC — ■ 

0 03 3 2272775 07660 0 — — 

0070 — — 27,7776 07660 0 - 20EC .0B88BB8BR9 = 2 OEG/SEC $22.5 OEG/SEC 

0039“ =^22.2777 13301 I — 

0040 22 ,■ 3 000 00003 — T — ANGLTTME 206C • 000100735 = IQOB — ~ir9 — — 

0040 — ^2-,3-00l 04000“0^" ^ ^ ^ 

AOOM - — — MANEUVER ANGLE TO MANEUVER TIME 


00^7 22,3007 0^3146 1 OUADROT TOEC .1 ROTATl ON 31 ATR I X FROM S/C AXES TO CONTROL 

0042 27,3003 14637 0 
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10V28 A"FP. [ f 1969 COMA ID 0 2^' P ACT 


G 1 TTA L * U OCX OA Vn HJAT^JC F 


00A3 

00 
0043 


V4 




0 0^ 

0046 

ory^rr 

0047 


0049 

0049 
00 30 

0050 

0051 
0TT51' 


79,3004 
2 Z, 3 00 5 
ZZTTTTITF 

72,3007 
, 301 0 


oo'ooxrr 
00000 1 
'00000" 



7Z730TT 

22.3012 

22 .301 3 
■27T30T4 

27,^015 


00000 

00000 

00000 


T 

1 

1 

T 



473 70 0 


722, 3020 
224302 1 
22,3022 


27,3024 

27,'^025 


00316 0 
30407 I 
03131 1 
11275 1 
00004 0 
05253 0 


IT 



20FC 


20EC 


2DEC 


31 ASCAIF 2t)FC 


0 


0 


009200 


-•012620 


0049 


22 ,^1 6 

00000 1 

20«C 

0 

00^-3 


22 , 5017 

00000 1 




. 0 1 26 20 


099200 


0S09^$ 


mo 


E6 S3 


AXES- rx 


= -74 25 0EG1 


=( . 1 )C0S7,25 



(-T^1)SIM7.25 



•0002543132 


= (450/180) (1/0.61(1/16334) 
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ftOOni GENERATinN OF STEERING C'^fM^ANDS FOP DIGITAL AUTOPILOT FREE FALL MANEUVERS 

4 

P: Cnl=^]^NK WILL BF GEM^PsATFT5" FVFPT"rTNF' SECOND" OUKINt; THTE I’fANEUVER 

0004 15,207)0 — ^ BANK 15 

0005 REF' 4 LAST 412 22,2000 SFTLOC KALOMONl 

0006 22,3026 BANK 


0007 


r?HF 10 LAST 412 F6,1661 


FSANK- Btm) 


0000 

uora 

0 0 XT 
0012 
XKTTT 


REF 


REF 


4 nrST“ 40T Tn 4T4T 


trOnNT 22rKALC 


LAST 400 


REF 

REF 


2 

12 


LAST 

LAST 


400 

3R9 


22.3026 
2 2,"30Z7 

22.3030 

22.3031 
22T300Z 



0014 

REF 

13 

LAST 

399 

22. 

001 5 

RFF 

12 

LAST 

409 

2X, 

ODTF ■ 





2 ? 1 

0017 

RFF 

4 

LAST 

399 

- 22, 

0013 





22, 

01010 

P F F 

“T4'~ 

0 AST 

41 4 

2 2 1 

0020 





1 

00?1 

REF 

15 

L AST 

414 

22, 

0072' 





2 2 1 

00:^3 ‘ 

REF 

16 

LAST 

414 

22, 


4 

O' 0005 
6 2726 
0 60 06 
■■■751'60 
0332f’» 
0 3 4 25 
77624 

44304 


T 

0 

1 

T 


:3037 


3043 


0024 

TJOTT 

0076“ 

0027' 

0028" 

0020 

0030 

TT03T 

0032 

0033 
0004' 

0035 

0036 

0037 

0038 
003^ 

RTORTT 

0041 

2 

0040" 
0 0 4 4 
0045 


RFF IT TTST 

2 LAST 


■4T4 

395 


22.3045 

22.3046 


0 

I 

ir 

0 
1 

■ 5n44 2 - 0 - 

77626 0 
50450 0 
77526 0 

74456 0 
451 60— It 
033 20“ 


TTcF 

2 EF 


7 

C.- 

1 


LAST 393 


70047 

22,3050 

22t3051 

2?v305? 

22.3053 


44655 
7 763F 


IT 

I 

0 

r 


0326 
7 74 



0 


RFF 

RFF 

RFF 

REF 

•JFF 

REF 


7 — tTTST 
I 

25 LAST 
“ I A0T 


LAST 
tTTST 
L AS T 


2 

0 


411 

00^ 

114 

"40^ 

414 


"0 FAST 4rl0r 

11 LAST“ 414 


0 0 4 


2?, 3055 
22.3056 

-2203057 
-22,3060 
22 . ? 061 
22 t3052 
30 6 3 
22.3064 
22 V 3 066 
22 f 30o6 
22 43067 


40065 
3 5016 
55'^600 
6 0000 
55 '665 
664F 


0 16 66 
0 0006 
664^ 


0 

0 

0 

1 

t 

T 

0 

7 


0 NEWDELHT CS HOLOFLAG 

fxtfnd 

— — Z MF Nt^ GO - 2 

NEWANGL TC INTRRET 

^ f 




L AST "402 



«?PF 
2 F F 


-3- 

2 


LAST 

LAST 


4 2 4 

109 


2 2 ^0070 
-22 . 3072 


2 1^661 O^ 
0-0006 1 
7 300 2 1 
51 • 665 0 
53 * 5 76 0 



MIS 

OFL 


rAtt: 


— MXM3 

— VLOAD STAOR 

STOVL MTS - yl20 

STAOR 

STnVL MIS +60 



STORE MTS 
AXC,1 CALL 


0CMTOCD0 


RTB 



VTSTTTTS- 

ST OFF NCDU 
BONCLR EXIT 

CALC M AN2 

MANUST AT 
CAF TWO 

7S KSfi N O X 

DOUBLE 

TS KORNOX 

T N O F IC KSPNOX 

CA fteou 

■EX TEND 

T NOF- X KSPNO X 

HSU aCDU 

EXTEND 

■HP QUADRQT 

INDEX KOPNDX 
DXCH OEICOUX 


SFF IF MANEUVER HAS BEEN INTERRUPTED 

B Y A ST R O NAU T 

IF SO. TERMINATE KALCMANU 


COMPUTE THE NEW MATRIX FROM S/C TO 
STABLE MEMBFR AXES 


0At C UtA 7 F NEW OPS!RE 0-0D0 



PICK UP THE NEW COU ANGLES FROM MATRIX 


NEW CDU ANGLES 


TO START MANEUVER 

+0 OTHERWISE 


NEW nESIREr» CDU ANGLES 


INITIAL 5/G-ANGLE OP PREVIOUS DESIRED 
CDU ANGLES 


ANGLE INCREMENTS TO BE ADDED TO 


TTa^ 


IF 


> 



V ■ nr'T^;Tr"FP:n'<J!rATi^'’TO^^^^ sa 20'?itit-051 


10!ZB APR. 1 *196a 



7079 — — zrrs 


L KALCMANU^STEEFTNr, 


USER^S PACT NO. ? E 6 S 3 


004 ^. 

REF" 

-■ 5 “- 

L ATT 

4 T 4 

72.3077 

51*664 

1 

00^7 

P EF 


LAST 

414 

27.3074 

3 16 66 

0 

“D 04 T“ 

TTFF 


TTrS T ■■ 

415 

2 2 , 1 U ^5 

51*6 64 

1 

704 

REE" 

17 

1 T 

414 

22 i 3 a? 5 

57 * 6 r 61 

1 

005 0 

iff 


LAST 

414 

2 rt 3077 

51 ' 665 

0 

Q 051 

TTEF 


IIA'ST 

no 

2 2 , 100 

55*6 46 

0 

005 ? 

C ^ 

7 

LAST 

415 

72.3101 

11 * 664 

0 

0053 

RFF 

1 


— 

72,3102 

r 30 57 

1 


INDEX KSPNOX DCOU EVE^Y TENTH 

CA " NCOII BY LEM OAP 

INDEX KSPNOX 

XCH BCOU 

INDEX KDPMDX 

T5 cnuxD 

CCS KSPNDX — “ 

TCF TNCPDCDU LOOP FOR THt^FF AXES 


00E4 

R0055 COMPARE PR 


^^,3T03 0 0003 T 9ELINT 

TIME 9 ITEr TTME"^n terminate MANEUVER 


0056 
005 6 F 


1 

35 

LA S T 

37 6 ~ 

22,3104 

-22.3105 

0 3115 1 

0 4701 0 

TMANUCHK 

TC 

TC 

TTMECHK 
POST JUMP 

005T 

FTEF 




27, 3106 

4U 131 0 


CADP 

C’jNT m anu 

0033 

RTF 

52 

LAST 

400 

77,3107 

3 501T 1 



ONE 

011(50“ 

TTFF 

T3 

"US ST 

411 

■TT.'TllXr 

TT 52 4S 1 

MANUSTAl 

TC 

WA T TLT3T 

0061 

PEF 

13 

LAST 

41 5 

E6, 166 1 

- 


EBANK= 

BCDt; 

0052 

P FE 

1 



“22.3111 

02000 tT"' 

' 

2CADR 

MANUSTOP 

0062 ■ 

■REF 

n 



22.3112 

42 0 66 I 




0077' 





2 2 f 3 1 1 3 

0 0003 1 


R F L I N T 


crfjm 

REE 

EXT 

LAST 

41 1 

72 r? 11 4 

1 571 T n 


TCF 

EN DOF JOB 


0065 

005B“ 

0067 

006R 

7JUW 

OnTD“ 

0 07 1 
TTOT?" 
0071 
0074 
OOTE" 
00 76 
0077 
DOTE 
0079 
0010 
DOST 

00^2 

-00T3 

UTTTT” 

0016 


REE 

REF 


■RTF 

REF 

TFT 

REF 

REF 


PEE 


FFF 

TEF 


TIEF 




TBTT 


22 t 3115 0 OOtrS T TTMECHK EXTEND 

72,TTT5“ 


RTF 2 TAST 


RET^ 

REF 


2 

3 

TJF 


I 


LAST 
L AST 
UTTST 


415 
415 
39 


13R 

1 


TAST" 

LAST 


415 


1 


~7 

140 

141 
TTZ 


trtsT — 4 r 5 


LAST 

LAST 


415 

415 



PEE 141 TAST 415 


22.1T17 
77f Tiao 
22,1171 
22.1127 
22,3121 
22V3T24 


27 .11 25 
27,11 
77^ 


4 0075 T 
53* 6 73 0 

0 0006 I 
3 1717 r 
71 '673 0 
11*672 t 
0 0002 0 

T 3177 T 

1 3117 0 



22.31 30 

22.3131 

22.3132 
72,1113 

72 .3134 

22.31 35 

77r3 1 3 6 

7 7. 3 IT 7 


0 0002 0 
I 3131 1 


'4 0000 
6 5041 

e ootr 6 

6 3137 

24 002 


0 

1 
1 


24 002 
22.1140 24 'OT?' 


0 

0 

tr 


3141 0 0002 o 


00555 REF 

0 0 ‘-^5 6 


5^ 


. ^ 10 0 

70. 7065 


MANttOFF 


nXCH 

EXTEND 

Ticir 

DAS 

CCS 

TC 

TCE 

TCF 


T T M E 2 

TTEMP 


TC 
TCE 

CuM 

AO 

EXTENO 

^ m 1 ^ 

B Z MF 
INCR 

2 NDRETRN INCR 
TNCP 


TC 


TM— 

TTEWP 

TTFMP 

o 


2N0RETRN 



0 

MANtJUEF 


ISEC 


Q 

0 


10 

Q 


SETLfC 

BANK 


GAP: AS Tt PFVfS I ON 055 nr A'GG' PP '^GkAM CO IANCHF BV MA 3^g"irO 1 1 ' j-O h 1 


rcrT7E~xpiT 


— CnwAin 


-r^ 


^16 


KALC^VOUJ STFFRTI^G 


USER'S PAGE NO. 


E6 S3 


0 0 ?. r. 


0087 


008 . i 

ooa^ 

00-0 



00911 

0097 



00 

009S 


0097 

00-78 

TKT9P7 

01 0^7 

0101 


0109 

OlOA 

OlOE 

0106 

0107 

oroF 

0109 

0110 
0 111 
01 12 
0113 


0130 
01 31 


0132 
0 1 5 3 


REF 
n rr: 

' I 



0114 


OllF 

REF 

0116 

R FF 

0117 

REF 

0113 

C! c: 

0119 

REE 

aT2D~ 

TD 

* 

0122 


01 29 

PFF 

0124 

< E r- 

0125 

7FE 

0T2B 

REF 

0T77 

RFF 

0125 

'<EF 


20 » 2 065 
20» 2066 


T77T6 
0 00 06 


RFF 

12 

YAFT 

- 41T 

■T757r0‘67 " 

R p F 

3 

LAST 

415 

2r.r2j70 

9FP 

'y 

LAST 

415 

"20,2071 

RPF 

43 

TirsT- 

38 2 

20.2 

F F F 

86 

LAST 

3 91 

20.7093 

RFF 

4 

L4ST 

416 

20,2074 





-7 O"". 2 075 

R bF 

53 

LAST 

41 5 

' 20,7076 

REF 

3 

LAST 

414 

Ttr, 2077 

TLEF~ 

■ 3 

ITTST" 

4 i 2 

“XTRTTTTTTT 

RPF 

] 5 

LAST 

95 1 

20, *’10 1 





20.2102 

XFF 




~73 .2103 


r_ ■- - 


- - 

20,2104 

n err 

' N , . ' 

1 



70,2105 

R FP 

90 

LAST 

337 

RTrmoT' 


2 

3 

6 

A- 

1 

"F 


L AST 
LAST 
LAST 
LAST 


416 
412 
1T7 
4 1 6 


'’107 




7. 

3 

C. 


2 

5 


FAST 
LAST lOB 
LAST 412 
L A ST^ TOF 
LAST 416 
LAST 109 
rAFT ■ 4T5 


20, 

20,2110 
”?0~, 2111 
70,2112 
2tT,3n 3 
20, ■711 4 

20 . 21 1 5 

20.21 1 6 
“TO’, “ 



LAST 

LAST 

orsT 


109 

304 

■4T6 


36 


LAST 41*^ 


20.7120 
20. 2171“ 
70,2127 

20 t7 T 2 3 
20,2124 
20S7T75" 

20.2126 
20 , 21 2 7 

70 ^mtr 


» -«• f , 




21 • 71T 
4 5041 

54 : GOT 

4 5021 
21 * 71 7 

TT^VfXKjA' 

4 51)17 
53 '337 
4" 1 1 30 

6 6711 
0 0006 
F“7IT}5 

1 2110 
4 1501 

7 FO O T 
27 '501 
53' 711 


63' 53? 
3 1673 
55' 564 



3 0025 


6 5041 


1 

1 

XT 

a 

0 

0 

0 

TF 

0 

0 

rr 

0 

1 

“T 

1 

0 

r 

0 

r'J 


manustat 


5 3'^r 1 3 1 
53' 530 1 


0 0004 0 
4 00 25 T 


t 2141 0 
6 5001 0 
^- dotni 0 
0-5245 1 


- " 07 15-0 - 
40066 0 
O 0003 I 






EXIT 

»=xtend 

OAS 
C5 

T5 — — ir^^ — 
CS ZFRO 

OAS TM 

TNHTMT 


INITI ALIZATTON ROUTINE 
FOP AUTOMATIC MANEUVERS 


CS 


trs~^ — 

AD 

EXTEND 
BZXF 


ONE 

HOLDFLAG 
P ATET NDX 
SIX 


TC 

HtGHGAIN CS 


MTTSK 


DXCH 

nXCFT 

DXCH 

OXCH 

TrXCH 

DXCH 

CA 



CnUTMAMU INHI NT 

c-s 

AO 


TCP 

AO 

007 


HTGHGAIN 
+ 4 

RCSFLAGS 


RCSFLAGS 

SKATE 

WSODV 

+2 

WR n 0 y 1 

WOODY? 

BIASTPMP +1 


RIASTPMP ^3 
BI ASl 


BIAS? 

TTMEl 

IFFt — 

NEXTIME 

onsTJUMP 

t7tFtXDtt 


-1 


TTMFt 

NEXT I HP 

A 

■QM E — 

MANHCALt 
N EG MAX 


MA^M'CALL TC WAITLIST 

f3ANy= aeoH 

t — 2 G - A DR U-PQTCALtr 


tm+to 


maneuver completion time 


f TM+TOJ-1 


ENABLE AUTOPILOT TO PERFORM 
AUTOMATIC MANEUVERS 



IE Sn. SET HIGH PATE FLAG (BIT 15 OF 
RC S F LAG S) — 


X-AXIS MANEUVER RATE 


Y-AXTS MANEUVER RATE 


MANEUVER^ -RAT E 


INSERT ATTITUDE ERROR BIASES 
I NTO AUTOPIL 'TT — — 


CONTINUE ^ITH UPDATE PROCESS 


REL IHT 


ASSE'^BLE f'rvl^tr^N 055 GF'TO’ C 1MAMCHF BY 


SA ?021113-0f>l 


TO :2a“APy. TTTW? COMA ID ^TtTZ’? — PTOt — rTT 


K AUr// ATVIU STEE'’ TNG 


USER’S PAGE 1^. 


F6 S3 


T)T3^ PEE 4 LAST 416 7nTZT45 3 5rr4r 1 CAE"” ISEC INCITEMENT TIME FOR NEXT UPDATE 

0135 REF 3 LAST 416 "70,2146 27*671 1 AOS " NEXTIME 

0116 REE 51 nSSl 41S 20.2141 I 521' 1 TCE fcNTUJF JOB 



0133 
0 1 30 

0r4(J 

0140 

0141 



REE 

REE 



1-^ 




"T 

13 

15 


1 

1 

1 6 


LAST 

LAST 


379 

416 


LAST 3 


■ZOTZTW 

20,2151 
F5, r6 61 
20,2157 

70,2153 
2n *2134 


3 76637J 
0 51 47 V 


’ 0302 6 0 

44066 1 
0 532 4 1 


UPDICALL CAF 

TC 


PP 1026 


F T NOV AC 

FBANK= BCOU = 

2CADR NLWDbLHl 


CALL FOR UPDAT E 

OF STFEFING COMtlANOS 


TC 



# 



ASSi^MBLr"RtVlSlUN' Obb Uh— A’JJL PPilGM/W! tUM7rTCRF”BY NASA 2tmm-051 IOT28 A P R. m ^ 6 9 C G Mfl T n .0 29 PfTS 


I. KALCMTiNU 5TEEKTMG I1S^1?»S PAGf NO. “5 — E6 S3 


P014? RHUTTNE ERP TFRMTNATTNT; AUTOMATIC MANEWERS 


0142 5 
01426 


1 

21, 2000 


SFTUTXr 

KALCHHN'i 


2r,^oo 


FAATK 







arT3 

EF 

1 

-?1 ,20'JO 

0 4537 1 

MftNusTnp rc 

5T0PTZ 

0144 

RFF 

18 LAST 254 

21.2001 

0 4740 0 

TC 

lONKCALL 

0144 5 

REF 

1 

21.2002 

45144 1 

CADP 

LDADYZ 


trPH I 

t:OtJXtr SET COUXO to the commanded outer G!MBAL 

S T O F RA TE 

attrrio restore users priority 

NEWPRin 


01S2 REF 87 LAST 416 ?1,2010 3 5021 1 CA ZIERO ZERO ATTCAOR 

01E3 ref 3 LAST 21*2011 *^3*326 0 OXCH ATTCAOR 


0154 ref 2 LAST 202 21.2012 0 5160 0 TC S^VAC “ RETURN TO USER OF GOMANUR 


DT55 '^EF " IT LirST~ 4TT 21,2013 CT 5324 1 TC“ 


01555 RFF -“T" 43700 SETLOC STO’^RAT 

01555 4526 8ttN 

0156 REF 38 LAST 418 4526 3 5021 1 S TOPR ATE^T AF 

0157 REF 3 LAST 414 4527“ 55*575 0 ' TS 

0150 REF 7 LAST 416 4531 55^525 0 “ TS 

0160 REF XAST 4X8 4532 55^5^6 0 TS 

0161 TEF 3 nCST 4T6 45T2 55'*'5 64 0 TS" 


“01611 2FF 31 LAST 416 ^5X4“” 4 5001 1 CS RIT15 MAKE SURE HIGH RATE FLAG (BIT 15 OF 

' GIFT 2 REF 3 — ITTST “-4TF 4F3S 7 t50T 0 MtTSK RCSFLAGS R CSFLAGS ) IS RES E T. — 

01513 '^EF “4 LAST 413 4536 55*5-01 t) TS -RCSFLAGS — 


rg Ro ■ — — _ — ^ — 

OELCOUY ZERO PITCH, YAW 

DFLCUUY +1 INCREMENTAL ANGLES 

O FLCOUZ — — — 

DELTOUZ -t-1 — — 

WBODY 1 R A T E S — = 

WBODYl 

WMOOY2 — 

W30DY2 4-1 

— SI ASl — - BfASES 

RIAS2 — 

0 


01735 PEE 2 LAST 415 20,2000 SETLfX MANUSTUF 

01736 20.2155 - 3ANK 


OlFZ 

0163 

0164 
GT-SF 
0166 

0167 

0168 


0172 

0173 


RFr 

RFF 

REF 



■R^EF 
REF 
R cF 
R E F 

REF 


RTF 


RTF 



"CAF 

TS 

TS 

-TS“ 

TS 

TS 


TS 

TS 

TS 


4 5 5 1 
4 55 2 


55* 566 
O 000 2 


ZERO — ^ 

DELCDUX 

DF t C DU X *1 T E P O PO LL INCRE M ENTAL ANGLES 

WBODY PATE 

WBR^OY 4-1 

A T AS __ 


0145 

0146 

P pp 

6 

LAST 

3^^ 

415 

21 , 20G3 

T 

1155 

1 

-A- 

FNDROL t "Or 

3 

LAST 

21 , 2064 


^ 6 46 

0 

TS 

0T4 - 

*• ^ 

5 

LAST" 

411 

21,2005 

0 

4525 

1 

rc“ 

0150 

RFF 

1 



“21 ,2066 

3 

1327 

0 

ENOMANU CA 

0151 


3 

LAST 

205 

21 .2007 

54 

063 

0 

TS 


GAP: 

ASSeMOLE !1FVIS10N 055 OF 

AGO OPOGRAM C!DMANCHb RY NASA 2021113-051 

loi ZB' — i.iyfcN 

■ rOHA I D — 

TDZG PTTGE — 







L 

K AL CTO1TU S T FFR TNG 


USER* S R AGE 

NO. 6 

E6 S3 


0174 7 LAST 405 ' 70 , 21"55 ' 3 0t>32“ 0 TERt)E50T! CA CtnjX" ^ PICK UP COU ANGLES AND STORE IN 


0175 

BcF 

4 last 

418 

2 0 *21 SET 

55»646 

0 — 

TS 

CDUXO 

CDU nESICFD 


“0176 ■ 

RE F 

2 LAST 

225 

20 • 2 1 

3 00 3 3 

L 

CA 

couy 

*■ 


0177 

8 EF 

2 LAST 

110 

2 0 f 2 1 6 0 

55’^65Q 

1 

TS 

COUYO 



0178 

REF 

6 L S T 

405 

20*2151 

3 0034 

0 

CA 

cnuT 




017 Q FTEF 2 lATTI TTCI 20. V 16 2 55»7>'52“D TS COUZD 

0180 R5F 145 LAST 418 20,2163 0 00020 TC Q 




* 




7)1303 !TEF~ 5 LTLSTl 4184 

2? *2O0 0 

ShfLfC KALlMuNI 




OIBOS 

22*314^ 

BANK 





—0X81 OTT 7 

0182 RFF 5 

0133 REF 1 

~~0184 TFF 3 

0185 REF 1 

0186 f^EF 3 

0157 T 46 


TTST 4T5 22, U42 3 1155 l LOAOCDUO CA CPHl 

LAST 418 72.3143 -55*646 O' TS COOXO 

-72,3144 3 1156 1 LOADYZ CA CTHETA 

TTST 419 72T3T45 55*650 1 TS COUYO 

27.3146 3 1157 O CA ' CPSI 

LAST 419 22.3147 55*652 0 TS COUZD 

- t AST -410" 72.3150 '' 0 0002 0 TC ~~Q 


S T OR '= TE RM I NAL ANGL E S I N TO 
COWMANO ANGLES 


GAP: ~ RTV ! S I (JN '1755 Ci)^A NCHE BY WASA ' 2021 113-05 1 


I 


0001 



0003 

0004 


0005 


^OOOTS 


ROOOT 


^5 0008 
POOTO 


SYSTEM TEST STANDARD LE TNS 


REF 15 LAST 748 


E5.1671 


EBANK= XSM^ 


PFF 


t^DlTD 
IT. POOn 
13,2036 


BANK 


3T 


SETTTC E/P^HGT 
BANK 


REF 


CnUNT’?' $^/P07 


SPEC lAL 


TS Ta "EASE'THE PANGS HP ERASABLE MEMORY 


F/RKCALL 


FOR DOT MG 3ANKC ALLS FROM AND RETURNING Tft ERASABtE. 


TCrr?8“APR. 1,1969 C OTA ID 



USER’S PAGE NO. 


EO S3 



THIS 
IS MOT POSSIBLE 


IS CALLABLE FROM ER AS ABL F OR F I XED . ITKF BANKCALL, HDWEVER, SWITCHING BETWEEN S3 AND S4 


ROOll 


THF CALLING SEOUENXE IS: 


"ADOlZ BANKCALL ^ 

A0013 CADR F/BKCALl — — 

A0014 CAOP ROUTINE WHERE YOU WANT TO GO IN FIXED. 

3^00X5 — - R ET URN H E R E F R O M DI S P LAY TERMINATE, B A D STALL OR TC 

A0016 - RETURN HERE FROM DISPLAY PROG EEfT OR GOno RETURN FROM STALL. 

AOtnr DISPLAY ENTER-OR RECYCLE. 


7001- 

R0020 


THIS RQUrrNF-R^UTRFS TWO rRASABLES TEBUF2. +1) 
OTHER EMEMORY PPOGRAwS. * 


IN unswitched which are unshared by interrupts and 


R0021 A + L ARE ^RFSFRVFO THROtJOT BANKCALL AND F/BKCALL. 


0022 ITFF 3 nrST TDT IT, 203 6 52 134 0 E/BKCALL DXCH BUF2 

0073 TEF^' ”T- 1T770TT ” 52 365 0 OXCH EBUF? 

““ 0024 “TEF 2 LAST <420“ 13,20-40 24-364 O TNCR EBUF? 

DOTS RTF n nrST 3T4 TT,2FA1 3 0006 1 CA B BANK 

“ 0026 REF 5 LAST 373 13X2042 T50B4 1 MASK LOWIO 

“ 0027 REF T- LAST 420 13,2043 26-365 0 AOS E8UF2 +l 

OD 2 0 REF Af — t A S 1 42Tr T 3770'4A 50 3 64“0 NTTX — EBUF2 

0020 13,2045 3*7777 0 CA 0 -I 

0030 REF 2 LAST LB9 13,2046 0 4666 0 TC SNCALL 


A003T“ 


0032 13 ,2047 0 2053 0 TC +4 - 

0033 I3,205t) 0 2052 t— “ — TC +2^ - 


T70T4“ 

^TF 

— 5 

■ T AST 

“420 — 

It t Z 0 ^ 1 

■“24“ 

3 64 

“0“ 


INCP 

— E8UE2 

0035 

• F F 

6 

LAST 

420 

13. 2 05-2 

2T 

3 6A 

0 


INCR 

-TBUf 2 

00 3 6 

R>^E 

7 

LAST 

42 0 

1 2 , 20 5 3 

52 

3 65 

0 

E /SWITCH 

OXCH 

E8Uf2 


0037 IT , 2054“ 52 OOTrT) OTCB — 


SAVE AtL AND GET OR RfTURN. 

SAVE OP RETURN. 

RETURN +1 BECAUSE DOUBLE CAOR. 


GET CURRENT EBANK. ( SBAMK SOMEDAY J 
FORM BBCON. fWAS FSANK) 


GET CADR OF ROUTINE. 

GO TO ROUTINE. SETTING Q TO SWRETURN 

ANO RESTORING A ♦ L. — 

TX Q. V34.-OR BAD STALL RETURN. 
PROCEED OP GOOD STALL RETURN. 




AS^EMt^LT COMANCHE &Y NA5;A 2iy2rnJ-051 


Tur7W~imr. — rrrw ; — chmaid 


cr?^ FATTF zrZT 


L 


S Y STF'SI TE3T ■ ST AMTl AF.^^CEAD TT^ST 


USE«?TS PAGE NO. 


E5 


P 00 3 8 


E/CALL 


FOR ITAXrTMG A FIXED MEMORY TNTFPPRETIVF SDB^OtlTTNE FROM FRASABTF AND RETURNING TO ERASABLE 


xorrRro t]hf"t:alltng sewe'nge 'ts... 

AOOAl —7TB “ ~ 

A0042 ^ E/CALL 

AOOTS “ CADR ROUTINE THE INTERPRETIVE SUBROUTINE YOU WANT. 

A0044 “ — ““ — RETURNS HERE IN INTERPRETIVE. ^ 


OO TEF 4 L AS T 3TT) li,2U55 22 164 T E/CALT TXCH DTi: AORES OF CAOR. ————————— 

0046 REF 46 LAST 416 IT. 2 03^6^ "StnO 01 0 INDEX t ^ 

0047 REF 47 LAST 421 13.2057 3 0001 0 CA L CAOR IN A“. ~ 

W4Pr TEF" TFB CAST 421 IT » 2 060 TT 001" XT ' — - ~TNCK C — — 

0040 REF 49 LTTST T21 1T.Z061 24 001 0 TNC? L ^ ““RETURN AD^FS IN L. 

0050 REF 8 LAST 420“ 13,2062 52 365 0 DXCH EBUF2 STORE CAOR AND RFTUPN. — 

0051 FTEF FT CAST 4T4 13721763 0 6006 1 TC INTRRFT " 

0057 ^ 

0053 ~ REF "D LAST 421 ““12f2D55 00364 0 EBUF2 INDIRECTLY EXECUTE ROUT I NF^ IT MUST 

0054' — rrmss ni^S V ~ exit ^EAVF Ari A-T^V^^^ EQUIVAt-ENT^ 

0055 REF 10 LAST 421 13.2067 22 365 1 — “ — LXCH EBUF2 +l PICK UP RETURN. 

0056 "EF 14 LAST 421 13,2070 1 6010 I TCF TNTPRET +2 SET LQC AND RETURB TO CALLER 


♦ 


GAP : 'M:tT\/lSirTN Dbb Ul- Ai;(: P R ' t ' IGPAM < ’jMANLHi;- BY NASA "ZaZl X 13 -O f; 1 



r ^i ^69 



• 029 


t 


TFST STANDART)”n_TATJ 


rjSER*.S PAGE NO 


P 0057 


E/ JOBWAK 


TOP WAKING GP^ ASABLE 'MEMORY JOBS. 


^005? 


P 0060 


TflTS 



MUST "BE CALLb!) IN INThKRUPl UK WITH INf cRRUPIS INHIBITED 


THE CALLING 5 F 0 UFNCF IS: 


A 0061 
A 0062 
7 ^ 0053 “ 
A 006 A 
A 0 0 B 5 

A 0067 ~ 
A 00 F 3 
" AOUiST " 


1 A 0070 

0071 

007 ? 

0073 


EF 


0074 -RFF 


0073 

0076 

0077 

0073 

007^ 


TET" 

RFF 

REF 

RFF 

REF 


16 

4 


ITTST 

LAST 

LAST 


3 B 3 


176 

7 TZT 


331 7000 

04,2000 
0 ^ 4 , 2605 


04,2606 

0433507 

04, 2610 


04,2611 


O ~ -B 2 0 T r 

4 500 5 0 
50 0 F 4--0 
36 - 3764 — rr 


04,? 61 2 0 0072 1 


INHIMT 



TC 



WAKEAOR 
IBNKCALL 
JOBWAK 


ADOBE SS OF SLEEPING JOB 


FETURNS HERE 


R«=L TMT 


IF YOU 010 AN INHINT 


BANK 
SFTLOC F/PROG 

bank - - 


Cn!JNT^ tf^/POl 


cs 

Afox 


J" 8 M AK ? 


BfTll- 


ARRTVE tWTH 



TC 


LOCCTR 

tctc 

RUPTREGT 


KNOCK FI X ED * iEHOgY BIT 
RETURN 


E5 S3 



“ROOBcr 



0032 


THFSE RPnORAMS ARE -psnV I ncn Tn ALt-W OVERtAY <^F BANKS 30 THRU 33 Of THE 205 
PRCt. A 1 JNCH AtTON. THE I'l'^'rNT IS TO ALtOW T+IE STG AND HYBRID LARS TO RUN ALL 


VERSIONS OF SYSTEM TESTS AND 
THE TESTS WITH COLOSSUS. 


0084 

TJOBT 

ooss 


OOBT 


0038 


00B9 


0090 


0091 


■q^ 


TTEF 


R 


RPF 


FFF 


R ~T 


vmrr^ 


T 


T 


LAST 247 


33 » 2000 



33.2000 


BANK 33 
S T TLOC T lgS^ TlFA tr 
BANK 


F 5 ,1425 


33,2002 


COUNT 33 /Cn M ST 


EBANK- OPLACF 


33,2000 0 3436 0 COMPVFR TC 




13772011 0 3131 "1 


SS I TC 


n 5354 0 

-- aoo oT O 


FEOfJ 


T0 


GT S C- P SS 

NFWMnOEX 
tff 


HUST BF 33.2000. 



T~fi t AT 3 3 >20 0 1 


DISPLAY MM 07. 
FALL INTO IMUT E ST 


I 


k 



m 

♦ • 





nr AGC PP'''GRAWXnMANCHF RY NA S'A'”2TmTl 3-Ob 1 


105^8 APR 


TTTW^’ Cni^ATD TOT^? FTHTE 


T^U CAL I AT 1 D N A f-JD “ AUT R^sI^RNT 


USTR’S ®AGR NO* 


EO 


ROOTIT 


aJAMF- IMU PERFT^RHANCE TTiRTS 2 


RWll DATb- 'URCH 20*1967 


P0012 


BY- SYSTFY TEST G PDUP "364 -5900 EXT. 1274" 


POOIB 


fTGDNn.- ZERO 


4 : 


FI JNC TT mA L D E S C R 1 P T I U ^ 


R0015 

"RXKTI?^ 

ROOIT 


Pn5ITinNINGrRnUTTNES"TUR THE IMU PEPFORMANCc TESTS AS AS SH^c HE 

TRF lESTS TfTrMStLVFS'; G ' A TT^r^ I P7 1 ON OF THESE SUBROUTINES AND THF' 
nPEF.ATTMG PRGCFnUPES TTYFrCALLY) SEE STG ME’^G 685 . THFD^ET T C AL REF. F-1973 


TTOTR 

0010 

0070 


EF 


-rTTT-OTTzr 

53 . ROOO 
33,^004 


BANK 


33 ^ 


SFTLOC IMUCAL 
BANK 


0021 

002 ? 

OOTT 

a 024 

00741 — 

1)074? 

0024? 

0025 

17076 


REF 
REF 
ITF 


E5,1473 


EBANK= 


R EF 
REF 




90 LAST 418 

33,200 4 

3 502 ! r 

1 

33,2005 

55*452 T 

1 

A ....... ..... 

33 . 200 6 

^ 7*^6 43 D 

1 

37 , 2007 

3 2443 7 

1 

3 3 , 2 0 1 U 

5 5*412 CT 


I MUTE ST OA 


POS ITON 
ZERO 
OF T EXT 


CAP 


1 

I 

T 


00261 
0026 2 

0027 

01)27 or 

■ 0027 “ 

0029"" 
0020 
00 


REE 
REF 

REF 1 

RFF r — nrsT — 300 

REF 15 LAST 421 


32.201 1- 

33.2012 

33.2013 


0 7302 1 
3 5041 t 
644 T 




TC 

CAE 

TS“ 


GEOCOMPl 

TESTTINE 
LENGTHOT 
CGAAL TGN 
ISECX 
T 


TAKF CARE OF DRIFT FLAG 



REF 


T 


33.2014 
33,2013 
3^.2015 
33,-20] 7 
"3377070 

,7021 



0032 

0033 



0035 

0036 
002 7 

7033 “ 
0 037 
004 cr 

0041 

0042 
0043~ 

0044 
0 045 


RE F 


R 


REE 

REE 

R"* 3 ^ 

REF 

R 


REF 

13 Aif: 

L — ^ 


60 

~T 

3 

91 

“T 

1 

7 

"3^ 

I 

I 


i AST 


411 

?39 


LAST 423 


33770 22 

33.2023 

23,7024 

33.2025 

33.2026 
33 . 7027 
33 ,2030 

3 7 , ? 03 t 

3 3 , 2032 
33,703 3 


7 T 674 
106 73 

37546 

77752 

T 544 T 

02403 

72556 


1 

T 

1 

1 

T 


guess 


CA 

TS— 

TC 

CALL 


nc 14400 



I NT PR F T 


CALCULATE -CHS LATITUDE AND SIN LATITUDE 



1 

T 

I 

1 


cns 

SLl 


crcnN*^ 



^77776 
0 4662 


SIN 

STORE 
FXI T 


WA N G T " 
LATITUDE 
SLl 


LAS T 4 7 3 


,2034 
33,2035 
33 ♦ 2036 

33 . r 03 T 

3 342040 

33.2041 



O^FOiNUTT TO 


CA D R 


— ^TC 

INUBACK CA 


55 M 50 
^5 • 451 


55 * 655 

3 7 4*^5 


0 

1 

X 

1 

0 


TS 

TS 


MBPnS P L CA 

TS 

— CA 


WA N GO — ' 

8 ANKC ALL 
T M UZEO O 

fNUSTLLG 
ZERO 
N T) X C I P 
TtfRONOX 
TtGRONDX +1 

DF c-rt 

z^ptiMax 1 

XNBADR 


GYROCOMPASS COMES IN HERE 


GAP 


i^rvi^ioN 05*5 of agt' ppog 



rnMANCHE BY“N4SA '7071 1 L3-Of51 


10! 8 APT^. 1V1TO9 CnMAIO TCrTT 





I MU C AL n^ATT nAr“2fNn ALTGNME^T 


0046 
0 047 

0040 
0 050 


^EF 

REF 




005^ 

0053 

00W“ 

005*^ — 

OOE^5 

0'J5T~~ 

0053 

00551 

00 5W7 

TT0^83^ 

00534 


1 

1 


PFF 16 


n, 

2 

2 


LA^ 

LAST 


ZFT 

423 


ITEF 

RTF 





2B7 

47 


TIFF 


LAST 424 


RE 


LAST 424 


RTF 8 n!r5T“~ZTF 


■TTOSET 

00535 

005 87 
TTOS 
0 0 50 
0061 
0052 

X3rys3 

006 4 
“OOFTT 

0055 

0057 

'OOS'B’ 

13050^ 
007a 
00 "^ I 

0072 

0074 

"0075" 

007 b 

0077 

0077 T 
0077? 
00773 
■TrOTTTT 


7tF T 
OFF IT LAST 424 


^ r- I 


r r 


LAST 



241 


LAST 185 - 


RFF 

TFF 

REF 
RFF 
TTEF 
-PFF 
75 f 
“RFF 

RFF 


2 

2T 

”1^ 

2 

"3 

I 

6 ? 


LAST 423 


LAST T91 


423^ 


LAST 
LEAST 

LAST 424 

FAST 243 

LAST 424 


33 t 2042 
33, 7043 

TTU^ 



33,2 045 

33.2046 

33. 2047 

33 .2 050 

33.2051 
3372032 

,2053 



33,2055 

33r2055 

33,7057 

33.2060 

33 . 2061 

33.2062 
3372063 
33,2064 
3 3, 20 55 
^ 3 1 2066 


0 2356 n 
3 5007 0 
-551713 1 

1) 6006 1 
73545 1 
02401 a 

02724 1 
16 734 0 
"02401 O 
77746 1 
02726 0 
77576 0 

02 732 0 
77776 1 

0 5364 O 

00003 X 
L 2064 0 

1 34T3~Tr 

0 6006 1 
77624 I 



; 7 76 -t 
4562 L 


33V 20 T ;> 
3372073 
33,2074 


3,^075 


3,207 5 
33,20 77 
33,2 10 0 
33 ,7 1 0 1 


16663" 0 

3 - 5002 0 
7 007 7 3^ 
0006 1 


I 20^7 3 
25^421 It 
5560 1 


33.2102 

33.2103 

33.2104 
3372133 
33,^106 
33,2107 


7 

00056 1 
0 2315 1 
11*421 0 

0 2l3r 0 

0 4562 1 


USER’S c'AGF NO. 


T 


F5 S3 


TC 

CA 

TS 

TC 

DLOAn 


ZEROING 
HALF 
70TF 

INTPRFT 

STN 

AZIMUTH 


STHRE 

STDOt. 


YMB 
7NB +4 
A ZI MU T H 


"COS 

STORF 

OCHMP 

3 TORE 
EXIT- 
“TO 

mm 

TCF 


YNO 4*4 


ZN3 ^2 


CHECKMM 

03 

+2 


TC 

CALL 

EXIT 

TC 

CAOR 

CAF 

MASK 

BZf 

TNCR 


INTPRET 


XAfCGA 


BANKCALt 
T MUCH ARS 
GLOKFBIT 
FL AGMR03 


TS 


TC 


1 


1 


TEF 

REF 

REF 

“RTF 

R F F 
R EF 


00774 

00775 
00R76 
007 T 7 R FF 
00773 REF 

00779 TEF 

007 7 'U f>EF 


1 

1 

2 

T 

1 

1 


LAST 423 


4 

8 

1 


LAST 

LAST 


332 
424 
42 2 


^7777 

33,21 11 
55,-1423 
33,2112 
337 2113 
33,211 4 
" R3 , 2 315 

337-^1 16 

33,2117 

337 


0 2316 
0 0005 
3 16 57 1 
0 5342 1 


TC 

TC 

CADR 

TC 

EXIF 

OCA 

TC 


+ 2 

NOXCTR 

n O U ^F LA G 

GLOKFAIL 

IMUSTLLG 

NOXCTR 

PI PACHK 
SANKCAl.L 
T *»^ UF1NE - 
IMUSTLLG 


NO 


P ERFOIA Y 


0 2 116 - 0 


LOMGC ALL 
eRANK= POSITON 
2 CA n’^ GUEST I M S - 



1 


1 


33,2121 


33F2T 

0 -52 0 1 

tr-332F"r 
66453 0 


CA 

TC 

OfTFSTlMS C A 

TC 

TC 


F ST I C AOR C 


ESTICAUR 
JQ B SL& FP 
FST ( C A OR 
JOBHAKF 
T ASKflV ^ 
FSTl'^S 


SEE 

NO 


IF IN OPTICAL VERIFICATION 


TF GLCKFAIL SET, GIM8AL LOCK 


+l IF m GIMBAL LOCK, OTHERWISE 0 
RESET GTM - 6AL LOCK FLAG — — ~ 
BIT 14 FLAG 3 


IF O N E GO ANO - mi A - P fRA - T -ESF-i3NtY^ 

ALIGN AN9 MEASURE VERTICAL PI PA RATE 



(T7f 


r) 


;\X5rTBLi; l^tVISION 055 OF A'^iC ^?M4MCHF BY NASA 2021T13-0'il 


AP«, 1 .i^^69 COMA TO nTZ9 VHXGE — 


i™ C AL IBl? ATT HN A N irTrCT F NT 


007T 

0079 


0001 

00B2 



00B4 



0^3.S 
0 0 R 7 


0091 
0 072 
tJO^ 


00 
“orr 

OO'^^ 
0007 1 

OCPT"^ 
OOO^ “ 
“0100 
O101~’ 
0102 
0103 
OTOO” 
0105 
0107 
010 7 1 

01 0 3 
010'^ 
jrm~ 
0111 
0112 

0113 

0114 

0115 
0113“ 
0117 

on? 

"OTT^ ~ 

0 1 1 
0120 
0121 

0122 

0123 

01 2 3 

0125 

012'" 



2FF~ 
7TF' 
RFF 
R tTF ' 
ITFF* 


ry 


REF 

IT 


r 

QEF 

FEF 


TREF 

IFF 

RFF 

t? 


REF 

RTF 


REF 
“IFF" 
^Ff 
RFF 
KFF“ 
RFF 
REF 
"7FF 
RFF 
RFF 
R Fp 


■RTF 

RFF 


1 

~r 

2 

55 

~T 

93 

1 

2 

1 

2 

T 


T5 

1 


3 

“4 

I 

2T 


c 

17 

~2 

2 

14 


1 

1 

7 


LAST 

LAST 


423 

233 


LAST 

LAST 

orsT^ 


425 
42 4 
“9F 



424 


OiST 

LAST 


423 

416 


LAST 


LTTST 


LAST 425 


26 T ART 414 


LAST 420 


TART — 4TT 


LAST 

rrsT 


425 


TTTRT 

LAST 

LAST 


TFF 

42 5 
42 5 


LAST 

LAST 


247 

417 



2 

5 


xnssT 

LAST 


42 5' 

425 


R E F 53 
R tF - R 


LAST 

LAST 


425 

344 




33 , 
?3,2123 

12.2124 

13.2125 
1542126 
1 T 77 T 27 


3 502T I 
55*050 I 
3 I514 


TOROUF 


55 » 0 51 
51* 423 
55*430 


U 

n 

0 

O 


*2130 0 2 427 1 


CA 

T5 

CA 

TS 

TNOEX 
TS 

TC 


7-P^RO 

OSPTFM2 

IJy IF TI 

CrSPTFM 2 Fl 
POST TON" 
SOUTHDR - 


r 


1HOW 


33 


13 


*2X11 

,2132 

*2133 

,7134 


5 1*421 T PTFACHK 

O 2133 1 ^ 

0 2417 1 — 

3 4374 0 




. 1 3 6 


*412 O 
501 71" 


INDEX 

TC 

=TC 

TTA 

TR 

CA 


TTOXCTR 

FARTHR^“ 
DFC57 

LF NOT MOT 
ONE 


55* 5 47 r 
3 5021 1 

5 I • 422 1 
54 037 1 
55* *^92 0 
55*506 1 
TJ'2321 0 
O 0004 0 


CA ^ 

TNOE X 


2 FRO 

PTPINOEX 


3 5016—0 
5235 


0 


O 


.1671 


'^151 


TS 
TS 
"TC 
I NH I NT 
XAF 
~TC" 
EQANK= 
“AORES 


OATAPL 
OATA^L ^4 
TTFCKO 

TWO 


33 

11 

3:5 

33 


31 

E5 

31 

33 


13 


3 3 


31 

31 

3 3 
11 

33 

31 


*2153 
,^154 
",2155 
*2156- 
,21 57 
■; 2160 

*2161 
, 1671 
72162 

.2153 
,2164 
7157T 
,7165 
, 2 T 66 
. 2 16 7 


02153 1 
0'"52T7 0” 

0 0006 1 PIP A task EXTEND 
27* 417 O DIM 


XSM 

PTPATASK 


3 1412 1 

0 0006 1 
6 2161 1 

T 


n — — 

EXTEND 
3 7ME 


LENGTHOT 

L F NGTHn r 

SI ARTPIP 


0015 



O" 


o 


TC 

E3ANK= 


TWIDOLE 

XSM 


“ 021 53” I" 

1 5002 0 

0 5147 0- 



STARTPTP CAF 

TC 


PR [020 
F [NDVAC 


77 170 
.2171 
TIT 
. 2 1 TT 
.217 4 


0 ? 1 71 
66065 
tr~ 5 12 4 
51 '•42 1 
0 2 1 -7 2 


0 

t 

t 

I P I P J 06 F 


I 


2CADR 


PJ06B 


TC 

fNOEX 

TC 


H 




31,217 6 
T-JI* 21^7 


3 

D 

“6 

0 

3 


14 1 2 
0006 
2177 

52T 7 


"> ■> 

C- 


I 

T 

T 

0 

1 


- TA S KOVFR 
NOXCTR 
1 

CA- TCNOTHOT 

TXT END 

— 


TC 

CA 


FN^OnFJOB 

<^TVE 


USFP»S PAGE NO. 


3 


E5 SI 


PTPA TEST 



TTmmNE 


ASs^MRtF P»VTSlT)^r0^5 TiF' A'^C (Jf. TOM' COM ANCHh P.Y N/^SA ;:?()2iTTT^’5r 


10! 28 AP^. rTTTTTH COWAID 


L 


T W C AL I RR ATrn>3 A MD ALT DNMENT 


0127 

0123 

DT34 

0135 

0136 

01 ^7 
013^ 

m 


R3F 

D Tf:' 


2 

2 


RFF 


A 


LAST 

LAST 

LAST 

LAST 


A25 
42 5 


42 5 
42 6 


?EF 18 LAST 424 





0 140 
01 41 

OFT^ 


01^3 
01 44 


REF 


~ UAST 42 6 
6 LAST 4Z^6 


'R'EF 
R EF 


T 

I 


“0T45 

0146 

0147 
“0140 

0149 

0150 

oisr 
0 162 
015^ 
Or*T4 
01S5 
0166 
015 
0163 
015^ 
0160' 

7}161 

0163 
XyjTTJ 

0 1 64 
0166 
OUSTS 

0167 

0168 
OT(S9 
OIT^O 
0171 
UTTT 
0173 
01*^4 
OITS' 

0176 

01 7T 


9FF 


REF 


7 LAST 4216 


7 FF 
REF 


1 

9 


LAST 425 



LAST 

LAST 



2 

1 

6 

4 


"LTAST 475 


REF 

REF 

ITEF" 


TO 


LAST 

LAST 

LAST 

LAST 

LAST 


42 5 
42^ 

425 

425 


475 


R FF 
REF 


■W 



REF 1 

TTEF 17 

1 

18 

“7 

1 

REF 19 
3 

opF 20 


R. 


CAST 3R 1 



Q 


0179 

0139 


REF 

REF 

"LEF 

REF 

T^EF 

R-F 
R r r 


5 

94 

1 

“7 

10 

- 3 


LAST 

LAST 

LAST 

LATST^ 

LAST 

L AS T 

LAST 

LAST 


426 

475 

426 


337270 0 
3 3 722 0 1 



f 

5372203 

33*2204 


55 *547 1 

0 2321 0 
0 0006 1 
4 1503 3: 
21^507 0 


TC 


FXTFMT 


13,2205 

1^72205 

33TT20T 



33 ,2711 
33,7212 

33,3713 
31*221 4 
33,2715 


3 , 7716 
33 , 771 7 
33, 2220 

33,2221 
13, 2222 
33,2 273 


0 6006 1 
" 45345 1 
075T1 0 

02505 0 
45044 0 
"7S6214—a 

662 T6 1 
56325 0 
' 02507 T 
37212 1 
27110 1 

■3 


TC ^ 
OLOAD 


BPL 


AIMGOTM POOL 


SL4 


i \ 



33 , 2230 

334 22 52 

33.2233 

33.2234 
33V2235 
13^223 6 
33", 2217 

33,2^>40 
3 3,7241 


45544 0 
01051 1 
7777 6 1 ~ 
11^-21 O 
tr 2302-1“ 
0 242 7 T~ 

3 2447 1 
5 5» 412 O 
51 -» 423 0 

4 1427-0“ 
56»452-t- 


STORF 


TC 

VERTDFFT CA 
- - TS 


n575-T 
0-0006 I 
r 2244 o 
4 5011 1 
27 *'651 O 
3 5013 0 


FXTFND 

BZF 


Frmrr 



• r- 

33, 7243 
33,2244 


1 2250 
4 5013 



0 

1 

o 


P0N2 


426r 

425“ 

4?5 


33.2246 

33.2247 
31,22 


9 



33.2251 

33.2252 

3 3, 7 2 53 

33.2254 

37.2255 

33, 2^5 6 

33 , 2257 
3 ^ , 2 


3 soil O 

27*653 1 

0 2417 1 PONG — 

3 5021 1 

•404 1 

0 

ODE SSI 



AOS 
C A 
“405 
TCF 
CS 

-Atrs 

CA 
ADS 
-TC- 
CA 
TS 
-TS- 
C A^ 
TS 

-TS- 


HFSULTCT 

CHECKG 


DATAPL ^ 
DATAPL +4 


INTPRET 

OSH 


DATAPL +6 
OITA PL 4-2 
CALL — “ 

A T NC nT N — “ 
nVER^FIX 

onv 

DATAPL ■•'4 

DM PR 

DEC 585 


SON ADR EE 
0SPTSM2 



MDXCTo 
CDA ALIGN 
SHDN 
3^900 EC 

LEND TMDT 



S-nUTHOR 

WIFTT 

X 5» T -f A 


P0N2 

8 T T5 


USER*S PAGE NO. 


029 FAC*^ 425 


E5 S3 


OEC585 HAS BEEN REDEFIMEO FOR LEM 


TAKE PLATFORM OUT OF GIMBAL LOCK 


1 HOUR VERTICAL DRIFT TFST 


0 T f P D SN 4 



+ ? 


ERC0M*>1 
BITS 
g PC O M Pl- 

POMG 

BITE 

F RC OMP l » -2 



EPCDMRl +4 

EARTHR^ 

D 



ALLOW ONIY SOUTH GYRO EARTH RATE COMPENS 


3 003 7 

55*413 


1 


CA 

TS 


ER VECTOR 
pp VECTOR ^1 

POSMAX 

TOROMOX 
TORONOX 

FDUX 
LfjSVEC 


MO: 








I 



<4 


-^V 


V 




'f 




» 0 


»y» 


/ « 


>■*; 




Vuv 


f« 
f « 

A 


v\'v 
. ** ’ 


V .1 


s 


GAP: ASSb 



SIGN 



^;GC PROGRAM C )MANCHf- BY N A-STA-^fi^l 1 1 i-O b I 


APR. — TTTTC^T COMAIO 7XJT9 PTHTE — 


r 


CALimATinN AND ALTGN'TFNT 


0181 

0134 

■OTRT 

0186 
01 '’7 

oian 


TFF 

T?FF 


R7F 

REF 

D 


9 

1 


LAST 474 


T34T2'6T 

33*7262 


TO 

”LAST“ 

426 

■33,7263 

■ 55'’ 05 1 

77 

3 

» # 

1 AST 

426 

33*7264 

3 SORT 

1 

1 1 

L AST 

427 

33 *7265 

55 ’ 050 

1 


0 7 453 1 — 

3 T512 0 VALNI S 


FF“ 3 “XAST 



33r.2266 Cr 2427 1 


TC 

CA 


T5 

CA 


rc 


FSTIMS 

Dt^IFTH 


DSPTEM 2 +1 

75 Rtl 
DSPTEW 2 
SHfjW *“ 


USER’S PAGE NO, 


5 


E5 S3 


T5TTS4 
■^0170 
OlTt 
11197“ 
moT 
015 4 
019” " 


REF 


n 

A 


77 

3 

96 


FAST 

LAST 

LAST 


474r 

25 9 


33*7767 

33,7270 
72271 


FEE 

" 2 LAST 

”47 2' 

33T7777 

REF 

63 LAST 

- 

42^ 

33 ,7273 

^Ff- 

1 


33* 27 7 4 

■RTF 

TB last 

398 

33T77T5 


D 5560 r 

D0DD7 D 
4 5071 a 
D 5357 0 
0 4667 1 
16063 0 
0 5534 0 


TESri iC 


cs ^ 

TC — 

TC 

C A Oft 

TC — 


DOwnFLAG 


A trRC s — rmisE 


7ER0 

NFWMODEX 

BAMKCALL 

NKRELFAS 


T3 



N USE 
BIT ^ ELAG 0 


TTSFT 


L 


0196 

0197 



o;?oo 

0201 

D7TT2 

0207 

0204 

0705 

0206 

0207 

"TI2T)‘7 

02 O'" 
021^ 
T)21T 


REF 

TTtF 


RFVniON Obb 'JF M'A. P^'UGRAM CUI^ANCHE HY NA5A''7021 113-051 


I MU CAL I BR irrTaN IND "AOONMENT 


1 


r 


73 V 2276 
33,2277 



3,230? 


REF 

6 

LAST 

422 

33 

R.E F 


LAST 

427 


RE F 

10 

LAST 

^2T1 

33 

.A. ..A. 

E EE 

11 

LAST 

42 8 

33^ 

Kt6 


L AS * 

428 

^ 3 

REE 

64 

LAST 

427 

33 

r“ C 

\ X 1 

3 

LAST 

424 

3 3 

‘'^EF 

65“ 

L AS 1 

~42"8 

33 

REF 

6 

LAST 

303 

33 

PEF 

1 

~ 


'^3 

^ FF 

7 

LAST 

42 8 

3 3 


43215 0 
15343 1 



77616 0 


,23 1 3 


0 0006 1 
23 *425 0 

T 

55*155 0 
5 5n.56 0 
55*157-1: 
0 466? 1 
16663 0 
“ 0 ~ 47 r 67 ~T 

17577 1 
0 3102 1 
a-r47-5~o 


nVFRFFTX DAD 
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-TfT-a 

0213 
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JSZTT 

REF 

3 

X A ST 

428 

- 0226 

REF 

4 

LAST 

423 

0227 

REF 

? 

LAST 

42 8 


33,2321 

33T232? 


0 Otic 6 1 
23*^75' 


O 


33^7324^ 


33.2325 

33 .2326 
3 372 327 
33,2 73TT 

33 72331 
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OPLACF 

COASLITN +10 


O P LAC F 

+ 6 - 


NEWJ06 


4*^3 

CHAN O l 


Pf P INDEX 


ZERONDX 


CA 


-AD 

E X TEN D 

R7E 

r No^ X 
OA 

INDEX 

TS 

TC 


-PI PAX- 
7 ER 0 N 0 X 



CHECKG 1 
P I PTNDEX 

^ tP AX 

^ 6 ESULTCT 
dATAPi 
E IN ET f-M ^ 


I NDE X 
TS 


RESULTCT 
DATAPL +1 


PIP PULSE CATCHING ROUTINE 


f* 7 * 

I • 


I 




I , "^ • ^ •• ' •,* • . ^ * * * ^ ■ ’.*' ^ ‘'^*." • -*'.' •* ^*, *•' *• ■* 


TTSP 


A5Sf;MBL!r fttVIStON 055 OF" A'',C PhinanSTi COMiKiCHr- BY NASA i!02in3-061 


lUJklB APk. 1 . CHMAID — TO?’? PTHTF 



L 


I’MU CALTB'R7STrnN~fff3D Al. IGNfVF’‘lT 


USFR'S ° 


Nn. 


E5 S3 


■ 13737 TEF 5 LAST 429 33,3352 51*547 0 — INDEX RESULTCT 
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R0316 program NAME-OPTTMUM PRT^LTONCH ALIGNMENT CAL T BRATTON 

R0337 DATE- NOVEMBER 2 1966“ ^ 

R 0338 E“^T:HfnTn 11" 7-146 EXT* 126 

R0339 MOD NO 3 “ “ 

R0340 FUNCTIONAL DESCRITn’ION 


R0341 THIS SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO D^TFT TESTS 

R0342 INTEGRATED TOGETHER TO SAVE WORDS. COMPASS IS COMPLETELY RESTART 

■R7T3^T^ T^"RTUFET)'^“EXCEPT FUR I HE F I S I 30 SECONDS" T7R 30. PERFORMANCE TESTS OF 

R034^ THE TR IGS IS RESTART PROOTED ENOOGH TO GIVE“TS PERCENT COW I DENCE THAT “ 

R0345 TF A RESTART OCCURS THE DATA WILL STILL tTE CDCTD. GOOD PRACTICF TO RECYCL 

‘TO T46 WHETr“A~TFSTAk I tICLUKS UNLESS M HAPP « ^NS NEAR T HE E N D O F A TE S T - T H E N WA TT 

R034T FOR THE DATA TO TTAFH. 

P03471 A RESTART IN GYROCOMp ASF DUR T NG GYPO TORQUIMG CAUSES »ULSES TO 8E LOST 
R'03 A 8 TRF^ TRETAlFTCEr ALl GNMRN r T ECHN 1 QUI IS “ RAS I CALLV T H E SAME AV T N BLOCK 1 — 

P0349 EXCEPT THAT IT HAS 3 EEN S T MPL I E lED IM THE SENSE THAT SMALL ANGLE APPROX. 
R035O HAVE BEEN USED. THE DRIFT TESTS tJSE A UNTOtfE IMPLEMENTATION Of THE 

~R‘0351 OPTIMUM S T ^ T I S TTCTr"FI L TE R . FO R A D E SCR IPTI ON S EE F -19 7 3.B nT H Crt= THE SE 

R0352 TOUTTMES USE STANDARD SYSTEM TEST IF AO IN PROCEDURES. THE IN I T I AL I ^ AT f ON 
R0353 RROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. .THE TN I T I AL I ZA T I ON METHOD 

PTJ3 ^4 FOR TYRFCTITlFASSnrS' AN ERAS LOAi.r ~T H F^ A MTSSTO N P HAS ^ CALL. 

■R0335 THE CDMPASS ALIGNS TO Z trOWN,X UOWNR^ANGE, THE CAPABILITY — 

-R03E6 CHANCF azimuth WH I trE' FUNN TNC , IS COMPENSATE 0 F^Rp 

RDT^'^ COMPnNENT~^ RRn Rr $ ' .rS CAPA B L E CF •OP T I CAL ' V E R I F T C A TT O N ( C S M ONL Y ! . 


R035E COMPASS FR AS ABLE“LnATT o^eOHI RED 


R0330 I-LAUNCHAZ -DP AZIMUTH IN PEV FROM NORTH TTE XSM DESIRED (NOM=.2) 

R0360 2- LATITUDE -DP-nFH:AmtCH FAD 

R0361 3^'AZI'y-^UTH-DP-L]|- /NB UF V'EHTCLE 

RORFll 4- TMTj CnWENSATITTN PARAMETERS 

R0362 S-A7 AND FLEVATIdm OF TARCETS Lt 2 j 


“R0363 TO FERFORM AS PART OF -COMPASS 


R 036 F IFOFTT CAE VER I F TCATT^n- V 65 E 

R0365 2-A7IMUTH CHAMGE-V E 

R 0 36 b “ “'“SUBR 0 UT T N E S C ATXFtJ _ 


^03oT DURING OPTICAI VEPIETCATTOM ( CSM y ) FSSENT I AM Y ALL OF INFLIGHT ALIGN 
R0363 IF C ALL FD' I N ONE " WAY OR ANO T H E R. SEE T HE L I S TI NG. 


R036~ NORMAL FXTT 


R037 0 
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R0372 
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A'LAPM-S" — — 
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70376 OUTPUT 


H0377 TR T F~r~F¥3TS-'~FLASHlNL; IM SPLTnrS nF TTES UT- T S-CON T ROLLfcTI I N 1 MU P F P F TE S T S 2 
R037B COMPASS-^ROGPAM MODE LIGHTS TFLL YniJ WHAT PHASE OF PROGRAM YOU ARE TN 
■’037T 01 IMITIALIZING THF tiLAT’^ORM POSITION AND ERASABLE 

R033r 03 DOTNG OPTICAL VERIFICATION ICSMT 


RTTTOT 

R03B4 DEBRIS 
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33.2476 
3 3 ",247 7 
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TC 
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TRUE TORQUE SOUTH GYRO 



0 VF P 
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0469 228 LAST 4 36 - 33 ,7567 SO- 15 4 I INDEX MPAC 
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1201 33,3707 56451 — 1 

120? 33,3710 05427 0 ALSK 2DEC .17329931 

120? 33,3711 12577 1 

1203 ~ 3 3; 37 1 2 T7567— 0 717EC ^.0083537 0 

1203 - 33,3 ?13 44202 1 

1204 — —33,3714— 24276 1 GEORGEJ 2DtC .63661977 

120 4 33 . 3715 14066 t ' 

1207 ^ - 33,3716 03146 1 GECCONSl 20FC .1 

1207 - 33.3717 14632 0 

■ T2TTR — 33.3 7 20 39012 1 0 — G ED CnNS ? 2 0E C -.-005 

ITO® " 33,3-771 35341 1 

1709- 33,3727 01767 0 6f;OeONS3 TDTC- --^062 

1209 33,3723 3166f> 0 

1210 - -33,3724 00004 0 GE0C0NS4-2OEC .0003 

1210 - 33.- ’725 35223 1 


GAO: R^vrSIONO^ 


aGC' oroGBAH G'^'^MAnCMP by 



ri3’D51 


10t2B APR. TTUTS^ COMA ID 707^5 
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I 


CAL T BO ATTGAT' AND AL IGNMENT 


USER*S PAGE NH 


32 


E5 S3 


1?5?? 

1253 

REF 

3 

last 44A- TO 

13.^T2o 

1254' 

1255 

1256 

F F' 

REF 

3 

2 8 

ATS 33,3727 

33,3730 

LAST 453 3T,573I 

T7T? 
125R ^ 

REF 

4 

33,3732 

LAST 75 33,3733 

1259 

REF 

1 





1 

^ 3 f 3 7 3 

1261 

R 

153,373 6 

126? 



33,3737 

12773 

TET^ 


LAST 454 33,3740 


TEO 2T1=^ 
T7620 0 

a2A?A 1 

76740 0 
01330 CT 
00003 1 
34767 0 
46000 0 
"TT624 1 

476 37 0 
77660 I 
02424 1 


COUNT 33/^02" 
LITTLSU8 STQ — 

— dpi: AC 

LXr.T VLOAO^^ ‘ 

«APKSTAT 

STCALL COUSPOT 

SXTNB 

CTTCt 

— TRG^MSSM 

goth 

oftat: 




T76 3 
13110 
1301 
TLNO 2 
1303 
130 4 


31,3741 

KEF 36 “LAST 452 ~33,^374? 

,3743 


KTTF' 

i^EF 


3 

4 


1303- 

1307 

T3T)ir 

1309 

1310 

1311 
131:^ 
1313 
13Tzr 


PTFF 

^EF 


PEF 

REF 

^-ri= 


^ \ 


236 

27 

“33 


1 

84 


1316“ ‘ 

t:u7 

1318 
1317 - 
3 320 

1321 

1322 
1373 
1324 
13 25 
13258 


7FF 

RFF 

REF 


2F 

6 

4 


5 


REF 108 
REF 
7EF — 


7EF 

7TF 


3 8 
~5 


L A ST 
LAST 


446^ 

452 


33 

33 

33 


LAST 
L AST 
53 


LAST 

LAST 

CAST 

LAST 

LAST 


452 
463 

453 


454 


LAST 


TTTST 453 


7 LAST 45 4 


CAST 454 
LAST 
LAST 


452 
44 6 

453 
44 6 


44 7 
363 


33 

33 

33 

33 

33 

33 

33 

33 


33 


• 3 7 ^4 

,3745 

,3746 

-,3747^ 

,3750 

,375 1 

,3752 

,3753 
,3 754 
,3755 

,3756 

•3757 

,3760 


77/76 1 
0 6006 1 
47145 1 
■ 02636 0 

45546 1 
77776 1 
55 154 1 
55^045 0 
O 4663-3 

T 


33 

33 

33 

33 


, 3 761 
,3762 

71763 
,3764 
,3 765 
-,3766 
33,3767 
33,3770 
3373773 
33 ,37 72 
33^3 773 
33,3774 


“zcr 

3 3775 1 

0 467-' 2 t 
"2072 tr"0 

1 3 760 T 
lr^5 r 0 
1 3 7 53 1 
0 6006 1 

47135 0 
■ in 04"6" T 

45513 1 
02634 1 

“77773 T 


3 5021 1 

55*632 0 
XT 54 T2 0 
00004 0 
0 4701 0 


r 


AZMTHCGl TC 

“TILOAO 


33,3775 


EXIT 

Tcor 
TS 
Tt 


CADE 



TC 

CAnr 

TCF 

TCF 


TC 

St.OAO 


S 109 E 


CA 

TS 

TT 

DCT 

TC 

CADR 


01435 1 VM0629 


VN 


INTPRFT 

RTR 


15102 S 


OSPTFMl 

3ANKCALL 



VN062P 
BANKCALt 
G OF C A-StT 
+ ? 

“+2 


-=^ 

TNTPRET 

RTB 



CDULOGTC 
L AUMCHAZ 


Z<^RO 

PPF^^TKXC 
SCHNG 
00004 


c*nST.IUMP 
Pf N8FN C H 


06 29 


TTWi 



o;qTj 5 ^o" "snc program comanche by na?a 20211 li-osi 
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C AL TW AT 1 0 M AND A L T G^l 'THiTr 


OSTR’S PAGE" NO. 33 


E5 S3 


¥»* oi) (JF rOHAID .OTmUBiF 





FVT^irTN 'Obb Hf- ^■'’jT:“wnnRAw cn^AMLHb hy '^7rsa“Z0 2iTTT-a"5i 


102 2R n^R. — rrT^rs^ — cnwieKiss.o^o ^56 


r 


GRTnjMDT^T?, AC KING TTETE^ HT'QATTO’^ PROGRAM 


USER'S ^>AGS NO 


S3 


POOOl 

^0002 


GROUND TRACKING OFTERM I NATION PROGRAM 
PROGRAM DESCRIPTION ^ 


P21 



R0004 

ROOQE 

R0007 

R0008 
R 0 0 0^^ 
^0010 
ROOll 
^0012 
ROOIB 
ROOIA 
001 S 
R0016 
ROOT? 
RTOO 1 8 
ROOl^ 
R0070 
^0021 
R0022 
R0023 
unzT 

P0025 
70026 
7-G02Z 
R002B 
R0029 
'HJ03CT 


— 

MOD RT - N.M.NEVILLE~ 
FUNCTIONAL DECRIPTTrTN- 


TiT PROVIDE THE ASTRONAUT DETAILS OF THE LM CnrXS^ GROUND TRACK WITHOUT 
THE NEED FOP GREPUMD COMMUmtc ATI ON (REQUESTED BY OSKY). 

Call me s-lquence ^ ' 


ASTRONAUT REQUEST THRO'TGIT OSKY V37t:2ir 
OTTTNET'"rArrFTT”'~ 


GG°ERFA 
OTlTt AFH 
THISPRFC 
OTHPREC 

TAT-LONG 

normal exit mopes 


TTSTR ON AUT PEQOFST TROUGH DSKY 
ALARM-OR ABORT EXtT MOOES- 


UA TE PROGRAM V3A T 


OUTPUT 


TIC rAL U'TS^LAY OF OPT i ^ nv 
CONOUTFO ' _ 

OPTION CODE 00002“ 

U 0 0 0 1 


TOF“AND VEHTTCF WHOSE GRT 


J T RAC K 


ZG031 
70032 
■RD03T 
1T003A 
R 0 035 


TTTTS — 
OTHER" 


OGOOZ 


DECIMAL OISPrAY OF TIK^TO RE INTEGRATED TO HOURS * MINUTES » SECONDS 
DECIMAL DISPLAY OF L ATtLONG ^"Atl 


"ERASABLE INITIALIZATION ’>Equii?:EO- 


R0037 

P003r> 

ROUT^ 
POOEO 
R 004 1 
R0042 

7 0043 
R0044 
R0045 

70046 
R004 7 
■R0D43 

R0049 

R0050 


AKO- 


-AYO 


2DEC 


2 DEC 


^.652450C53"E-’5 


2 •147535803 F-5 


RAO IANS 


PAD I ANS 





AZer 20^0 .775320616A REVOLUTIONS 

FOR ' lunar OREM TS 504LM VECTOR IS NET DEO 


5041.3 


20EC 


-2.700340600 F-5 RADIANS 


50'41.3 2' ZDEC 


4133400 E- 4 



6 04LM 


P .55 Zl ■ •'3tr4 1 - 4 R A ITT ANS 


MON^ 

DEBPIS 


G t v ist \C.r, rTMWHF BY M4SA ;>021113-051 


lot 2 '^ AP'’ 


U1G69 CGMbKISS.020 


^in T1< A€^<:T*^]G T3ETF:^MTN^AriON PROGRAif- P2I 


USER^S PAGE NO. 


EO S3 


^OOSl 

^0052 CEMTR^LS-AtO.L 

" R 0051 P -T Hn S F UTED BT IHb Ari nVT-TT5TTn“-YaiTR-nOTTN 

P0054 SEE LEMPRECfL AT-LONG 

0055 PEF 5 LAST 339 30,2000 S8AMK= LOWSUPEP FOR LOW ?CAOP*S. 


0056 33,3776 BANK 33 

0057 P^F 1 37,?000 SETLOC P20S 

0 05 3 ' ^ T777 Oin BANX" " 


0059 

(T050 


3 r” 


L^ 


LAST 262 


r4, XT15 


EBANK= P21TTMF 
COUNT 24/P 7 1 


0061 


0063 
0066 
aa65 
0066 
0067 
0063 
0 06 9 
0070 
OOTT 

0072 

0073 

0074 

0075 

0076 


:■ £ p 


n irp 

^EF 


61 

L ART 

453 

37,2001 

3 5017 

1 PROG 2 I 

CAF 

“2 

LAvr 

781 

3T, 7 007 

5 5 * 13 2 

1 

rs 

22 

L AST 

375 

37,2003 

3 5016 

0 

CAF 

85 

LAST 

454 

3 T ,2 00 4 

0 4662 

1 

TC 

1 



3T , Z 0 1 5 

■ 21055 

1 

C ADR 

3 

LAST 

392 

3 7,2006 

B 410 6 

1 

TC 

-1^ 




37 , 2007 

G 201 1 

0 

TC 




RFF 


1 

86 


00770' 

00TB 

00783 

00‘^3 6 

007T 
OOBO 
0 0805 
0081 
GOBI ^ 
nOBIFT 

0082 

00823 

003715 

0083 

0034 
O0B4B' 
00. ;5 
0086 


RFF 


LAST 

rrsT 

LAST 


45 7 


3T, 7 01 0 
37,2011 
37 , 9 0 1-2 


0 " ^OTTT- T) - 

3 2152 Tr 
0 4662 1 


RFF 38 


L AST 


454“ 

37T70T3“ 

20720 

“0 

457 


0 4106 

1 

■ 

37 , '’015 

0 2017 

0 


37, 016 

0 ? 0 1 1 

0 

45 4 

37,2017 

0 6006 

1 


37, 2020 

7 /745 

1 


00T6'3 

RTF 2*9“ 

' LAST 

454 — 

■ 3-7 ,2TT7l 

007T 

OIFF 2 

L AS T 

210 

37,2022 

0077? 

^ F F 6 

LAST 

265 

37,2023 


7EF 


3TT20Z4- 

37,2025 


trroTTr-r 

34041 0 
2744? 0 
43014 0 

m 303 0 


rr 


-E 

1 



3 7 , 202 6 

760 44 

n 

bF 

4 

“1 AST 

2117“ 

?T,Z027' 

0 X4'7'''; 






37,2030 

705^S 

0 


3 

LAST 

457 

3 ^ , 7 r) s 1 

01133 

1 





“TT", 7^3Z 

43030 

0 



- 


37 , 2G33 

TftOJS 

n 

EF 

r: 

LAST 

45 7 

3 7,2Ty3 4 

01674 

0 


REF 


3 

1 


LAST ^10 


37,2035 
A 7 ,2036 
1 7r2037 


prf 


LAST 210 






2 LAS 


170 


37,204 1 
3 7, :>0 47 


-j I , 

3 7 , 2 0 4 4 
3 r , -’0^5 


■43 0 1 4 “O' 
Ci676 1 
01673 1 
7T5 24 1 
2^162 I 


77650 


Ttm5 


1 

O 


77773 I 

03605 1 


P21 PRHGI 



TC 

OLHAn 


STCALi 




St CAD 


BTTTT 


ONE 

nPTIHTT?' 

BIT? 

BANKCALL 



V 6 N3 4 

3A^4KCALL 

OTTFt^5H“ 

gotopmom 

+ 2 

- 


INT^’RET 


TOECl 
IMTST ALL 


P21FL AG 
PPICOMT 




SRI 

HOT J nN2 
FtF A^ - - 

+ 7 

VTNTFL AG 
CtFAR — 


A S SUN E O V5H 
HPT TON 2 


1 $ L N , R32 -=^“00001 


OfMOf LAG 
I VTY^FLG 


CAt l r 


GOTO 


^21 CON T VLOAO 


INTfGPV 


21 VSAV 


P?]BASE^ 


TERMINATE 

PROCEED VALUE OF ASSUMED VEHICLE OK 

R2 LOADFO THROtlGH TTFICr ~ 

LOAD DESIRED TIME OF LAT^LONG. 


TERM 

PROCEED VALUES OK 

TTMF t 



INTEG TO TIME SPECIFIED IN TOEf. 


ON...RFCVCLE USING BASE VECThr 
OFF . .1-ST“^'57tS5^ C4tt; frA5F VFCTtTR 


ZERO. .THIS V'“HICLE (CM) 
ONE... OTHER V FH ICLE ( L.**’ ) 


PRECISION 


CALCUL ATE 
.AND 

9-r SAVF BAS ' F YEC i 53 R 


RECYCLE. • INTFG FROM BASF VECTOR 


TWi A<;T'eM:5Le REVT*^rnN~T>3^"TF m: prcv^'^am comamche uv nasa 2021113-051 


1.0:7,^ APf-i, r,1969 C0HFKISS.07G Pl^rTF~ 


L 


:^9n\r^r) Tin^CKiN^ ■DirrEPMT''jATi ai^“PFnnRim - 021 


tJSFR*S PAGE NO. 


C 


4 S3 


OOB7 

OOR'3 


003 9 

0090 

0091 

00 9 A 
0099 


T?-F 

i'FF 

R e F 

P f=F 

^EF 

REF 


4 


4 

4 

4 

4 

1 


LAST 

LAST 

rAST 

LAST 

LAST 


7 8 9 
129 


37,7046 

37,2047 




457 

239 


LAST 457 


♦ /L 

3 7, 7 OBI 

37,2052 

■ 37,2053 

37,^^054 
37, *^055 


0096 





3-773033 

0096 5 

R EF 

2 

LAST 

12’^ 

37, 7057 

0097 





33,2030 

009/5 





3T730r6T-- 

0096 

=^EF 

2 

LAST 

45 3 

—37,2062 

0093 5 





3T,2063 

aU99 


T 



3 ? , 0 6 4 

00^^95 





3T t 2 0 6 5 

0100 

REF 

1 



37 , 2066 

01003^ REF 

-15 

LAST 

45 8 

3 7 , 2067 ' 

01006 

REF 

1 



37,2070 

0101 

^ R EP 

3 

LAST 

457 

37,2071 

noroTR^" 

H EF 

T 



T7',20T2 

01T)T6 

REF 

3 

LAST 

453“ 

T7,2TTt3 “ 

01 0 1^ 





'3 T • 2X7 4 

DTTTTTZ 





37 , 20*^5 

010175 

■REF 

3 

LAST 

23ir- 

— 37-. 207 6 

0101 E 

RFF 

1 



3 ^ * io n 

"OTOrB^- 





37,2100 

01 91 H3 

RFF 

1 



3T,2101 

01019 





37 , 102 

010192' 

REF 

4 

LAST 

45 8 

37,2103 

01019 5 

REF 

2 

LAST 

281 

37*2104 

0102 - 


. - - _ _ _ 



37,2105 

U i 0 2 5 

E 

3 

L AS1 

433" 

57,2106 ~ 

01026 

0 -p p 

2 

LAST 


'37,210 7 

0 103 


- ' 



47,2110 

oroTT 

k EF 

1 



37 ,2111 

0103 6 

REF 

1 


- 

37,2112 

OlO't 





37,2113 

010T3 





6 / ,2114 

01046 

“RBF' 

n 

LAST 

45 3 

37^2115 

0105 ' 





T r, 21 1 6 

0105 3 

i< EF 

2 

L A ST 

"7f33" 

3 TV 7 TT7“ 


25535 O 
03613 0 

15543 I 

02316 1 
01517 O 
43014 0 

01676 1 
00263 0 
53TT5' a 
0361X4 0 
76061 0 
77614 1 

00063 1 
77624 1 
2713 5 ~Tr 
77745 


STOVL 


srnor 

STHPF 

CDTTOT 


SLOAU 


00015 
"2 631-5 

00017 

77605 

00023 


1 

0 


1 

1 

o 


5 757 6 


O 

T 

O' 


0 


01036 
0 106 
053 


RFF 




LAST 

LAST 


453 


3 7, 7120 
37 ,21^ 1 


0 1 066 ■ — RE E 

DID? 

TXrXTT 

01075 7EF 
0 107 S 0 F F 


1 

1 



2 7623 
OOOOt 
50T56- O 

00007 O 
67471 . r 
03623 0 
03625 0 

43134 0 
0 3603 1 
01063 0 
67214 1 
01653 0 
00050 } 
43054 1 
76116 0 

0147:>3 I 
77 7 75 1 
00001 0" 

16152 0 
000T5 “0 
45014 0 


1 

3 


LAST 2B1 


—j- 


3 7,2 I 26 
^7,9127 


0066:^-0 
26-330- I 
• 776 0 5 T 
36154 1 
03621 I 


CALL 


P21VSAVC OLOAD 


STOVl: 


STOVL 


STORE 

ABVAL 


STOVL 


onv 


STORE 

SXA,2 


P2inSP CLEAR 


BZE 


VLOAD 


S Tf>0 L 




STORE 


PXV 

021BASEV 

17UV 

P2ITTME 

TFT 

CLEAk 

niMOFLAG 
MOONFL AG 
-BTE 

P 21 T. 3 RIG 

+ 3 



MOONFL AG 


T'NTEGFVS 


TAT 



OATTl 

P21BASEP 

VA TT l 

P21BASEV 

SL^ 


P21VEL 
PATT 
OOT ' 
VATT 
A S T 0 



P21GAM 

SET 

F 2 t n R -t- G 

P21FLAG 

SLOAO 

lONA F t A X 

X2 

SET 


LUNAFLAG 


- R ATT 

ALPHAV 

TAT 

-C73tt 

EPAnPLAG 

IAT-LONG 


K .01 

P 7 1 AL T 


.POS 


VFT 


.TI 


ZFPn =-fAPTH 


m m m 


SAVE CURRENT RASE VECTOR 


TTTWF 


. .Pbs e-29 OR B-27 


. .V6t B-T OR B-5 


/VEL/ FOR N73 OSP 


U(R). «V) 

U ( R^^. U t V J 


SIN-1 U(R».U(V). -90 TO +R0 



: — MOON 


GENERATE OISPtAY DATA 



» — >< ETERS 



ALT/100 FOP N73 OSP 


TTSP 


ASSi'MrU,!^ P-'-VISnN 0^^ Oh "VCC Pknr,;!;^.'^ CHMANCHE BY NASA 2021 U l-t-U'i 1 


10! 28 APP 


r.T'T'69 — CDHEKI5S.0i!0 PftGH '459 


GPDUHO'TRaCKING tnmrPMT'lATTnN PROGKffw - P21 


USER'S PAGE NO. 


E4 S3 


^0103 17,2130 77770 1 EXIT 

0109 REF 1 37T7131 32131 0 CAP V06N43 DISPLAY LAT. LONG. ALT — 

yiTO REF 57 CTTST ^TST 3 /,2132 0 A-662 1 TC BANKCALL L AT, LONG = REVS TO BOT H E A PT H/ HOO N 

0111 REF '9 LAST 43r — 37,2133 20720 0 OAOR ' GOELASH ALT = METERS-P^^ID BOTH EARTH/MOON 

OUZ REF ~ 5 ~~ CAST 45T 3T,2134 0 A103 1 TC GOTOPOOH TPRM- 

01 IT TEF 5 CAST AFT 37T2T33 0 A106 I TC GOTOPOOH 

0114 REF 39 LAST 457 17,7136 0 6006 I TC INTPRET V32E RECYCLE 

0115 37,2137 713345 r OLOAD DAD 

DIT5 RTF 5^ FAST 43? J 1,2140 rrZTI6 1 P21TIHE 

OITT ■ PEF 1 37,2141 36146 1 SOOSEC 600 SECONDS Oft 10 MIN 

0113 REF 30 LAST 457 3T,‘2142 01046 1 STORE OSPTEMt 

-non? — 37,2141 176 34 0 PTB 

0120 REF 1 ' 3T."2r44 76011 0 P21PPnGl — 

0121 -37.2145 00003 1 600SEC 2DEC 60000 10 MIN ^ 

0121 37,2143 25140 0 

“OlFZ 3T.21-47 00001 0 P21 ONENN OCT 00001 NEEDED TO DETERMINE VEHICLE 

0173 37,215CT OOODO I OCT OOOOO TO BE INTEGRATED 

0174 37,2151 trprsn VTT6N43 VN 00643 

0125 37,2152 01442 1 V5N34 VN 00634 

0131 37,2153 00243 1 K.Ol 20EC .OF 

-Trm~ — ^ 37, 2154 3 2 TO 3 1 


trVTf^ 


T^^ VrSI ON 05 ^' HF" «ir:n: 'TlTUCrRA'^1 CiJMAVILHF BY '"NASA 2021113-051 1 0: . 


L t>74-P75 ■ USER'S ^aGE NO. 1 


POOlO" TP^NSPFR PHASE INITTATTHN ( 1^1 F FEnGR AMS (P34 ANDPT^I 


1 r CTrrrES'i^CTinH - P 32 -P 35 t p 72 -p/*> 

R0012 MOD BY WHFTE.P nATElJU^F67 


■ ROOTB PORPnSE 


P00I4 (1) TO CALCULATE THE REQUIRED DELTA V AND OTHEP INITIAL CONDITIONS 

■RaOTE ■"'■■REOUIRcD BY THE ACIIVE VEHICLE EUR EXECUTION HP THE TRAITSTEP 

R0D16 “PHASE TNITTA'^TO^i (TPI) MANEUVER. GIVEN - “ 


"Rrm 7 ' ■ nn — iime of iGMi rinN tig (tpd tip the ■etevation angle ie 

ROCl? the ACTTTTE/PASSIVE vehicle LOS AT UTG (TPI). 


ROOIV — (B) CEN'TKAL ANGLE TTF IMANSEER (CENTANG) FROM TIG (TPTI TO 

RD020 INTERCEPT TIME (TIG (TP^)). 

Pn02T“ (2) TrrXALCULATE TTG tTPTr GTVEN F HR E GIVEN TTG tTPI). ” 


ROnZ? (3) TO CALCtJLATE THESE PAFAMETEPS BASED UPON MANEUVER DATA 

ITDO 23“' APPROVED AMO KEY ED” INTO THE DSKY RY THE ASTPHNAUT. 


RCmER t4) TO DT SPLAY TO THt^-A^RONAUT A^D THE GROUND CERTAIN DEPENDENT 

TOTITS — — " VA^ 1 ARUE'S ASSUCTATED WITH THE MANEUVER FOR APPROVAL RY”THE 

P0026 ASTHONaUT/GROUMD. 


“PTTTTZT — — If) SrORE 'THE'TPT TAR GET “PAR AMETER S FOR USE 

R002B THPUSTINE-PPOGE^. 


RTTTJVD" ASSUMPTrOVS 


ROr/OD 

“PTWTT 

R 00 or 


(1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF 
rUE* CONSTANT DELTA TIT I TUDE (CDHI PROG 
THEREFOPF - 



R 0^ IT ' 
ROOBA 
R00'3S 
R 0 QO S ~ 


BETWF'^N THF“ACTtVt AND PASSIVE VEHICLES WAS SELECTED TO BE 
A PRESCRTKED ANGLE (E» (NOW IN STORAGE) FROM THE 
HORIZONTAT PI ANE ■DEFTr>rEO BY THE ACTIVE VEHICLE POSITION. 


R0037 (3) THE TIME^BET WEEN COM IGNITION AND TPI IGNITION WAS 

RTJUTTT — CnMPUTED’Tn BE GREATER THAN 10 MTNTJTES. ^ 

I 

R003O (C) THE VARIATION 0^ THE ALTITUDE OIFEERENC*^ BETWEEN THE 

RO O TO ORBI T S WAS M T N I H T Z E D. 


ROO^I 


(D) THE PEf^^TCENTXP* ALT I TtlDES aE~Em.BTTS FOLLOWING CS I AND 


R0042 


CDH W 


^ * 


rn. M r> tj T EO T ' f PE GO E A TEG T HA N ' 33.000 E T E OiR LUNA R 


5 ^ 





<;T0N 055’ P^mGRAM BY N4 SA '20 21 1 T 3-05 1 


rDTZB“^m^ 


1^1969 — CDN^FKiss.neo — pmr ^h~ 


a 


V IA- P75 


USFR^3^ PA3r MO. 


EO S 3 


l^OGVB 



R0043 

RO '^46 



ROO^f F 
7 . 0104 “^ 

R0050 



R 0037 
■ R0033 
^■ 0054 " 
3K003^ 


RTHT3S 

ROOST 

R 005 B 

RTrU 5 ^ 

R 0 n 60 

ROOol 

R 006 T 

R0063 

lUJUSA 

R 0 06 5 


TXrCRbB 

R0057 

R006B 

R 006 ^ 

ROOTO 

R0071 

TTOOTT 

R0073 

70074 


"ROOTS 
R 0 O 76 
■ R'aOTT 

R0073 

R 007 ^ 


TIFTTT nW‘ 33 m FOR T7VRTH 



T 'TW'CST AMH OOfT MANbUVERS WFRF TVS'SDMED I!1 B 
TH^ PLANE IT 


■ PARALLTL TO 

HE ■P^A’SSTVl^ VEHICLE OR «TT. HOWEVER, CREW 
KnOTETCATTON TTF DELTA V (LV> COMPONENTS MAY HAV^ RESULTED 
n[N"AN OUl-Oh-PL ANE MANtUVbP. 


[?) STATE VECTOR UPDATED BY P27 A^F DISALLOWED DURING AUTOMATIC 

IF VVCiUR U!M.)A1!NG INlflATFO BY P?0 (Sbh ASSUMPTION {41).' 





THIS PROGRAM must Br^-DOME OVER A TRACKING STATION FUR "TEAL 
T IMF GRUUNM P AM 1 Cl PA I I UN IN DATA INPUT AW OUTPUl 

VARl ABLES~MAY 


OMPU7 

PE STORED FOP LATER VFRTFlGATinN BY THE GPOUND. 
THESE STORAG^^ CApABILITTES ARE LIMITED ONLY TO THE PARAMETERS 
FUP”0NF THRUS ! ING’MANFUVER AT A TIME EXCFPT FOP 
FL I GHT"TU. AN MANEUVER SEOUENCESv 



r41~rHF~PENUb/ViPTJE RADAR MAY nP“MAY TOT BE USED TO' UPDATE TETF 
OR C5M STATE vectors FOR THIS PROGRAM. IF RAUAR USE IS 
DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 


CM 


PPEVIOU'S SEttCT 1 UN OF ‘F71T7 


RAFAP SIGHTING MARKS WILTBE MADE 


AUTOMATTCALl-Y APPROXTHATi^tT' tWTr A MINUrF~WHFN ENABLED BY THE 
T^ A CK ANT3“ UPDATE' FL AGG rSFE P70 ) . THE RFAmrETVOUS TRACKING 

MT^PK COUNT ER lS"7FRnED BY THF SELECTION OF P ZO AND 
THRUSTING M/TNFUVFR. 


(FT THE TSS NEED" NOT BE 


f6T THE UPFPATrrjN-rTK TFIE~FROGRA^ ifTILlTFS THE FOLLnwiMG FLAGS - 


ACTIVE VEiHCL*^ FLAG - DESIGNATES THF VFHICLF WHICH IS " 
DOING RFNOEtVOUS THPtJS T I NG" MANEUVER S TO THE PROGRAM WHICH 

rU vr R ■■ PAR AM ETFRS . ' 


GATCUL AT F S I FIE t 
EACH PFTvIOF^vnUS PPE~THPUST IFLG PROGRAM. 


SET 



SRAM ms 


TTMATT “Fr^rO ' SFL EGTS ' 

SELFCTEO THE F INAL MANEUVER COMPUTAT ION CYCLF 




RFQUTRFtr FOR- rxFCUTtON 
PROGRAM RET ECTFD AFTF^ 


TTF- S - TFF R tN G - 
OF IHIS MANEUVFR BY THF THRUSTING 
COMPLETION OF THIS PROGRAM. 


( 7 ) 


OMCF THF PARAHFTWRS PfOUl^ED FOR COMPUTION OF THE MANEUVER 
HAVE BFFN COMPtF-T^^LY GP-CI^IFO, TH^ VALUE OF THF ACTIVE 

T 


ATIGLF OF 



VEHICLE 

THIS NUMBER ViILt~Br AVATLA^3LE FOR DISPLAY TO T“HF ASTRONAUT 
THROUGH TFtr OS^ Of ^ 


POOTO 


THE astronaut -ULL CALt THIS DISPLAY TO VERIFY THAT THF— 
CENTRAL ANGE^:-- Of TR ANSt i. R OF THF ACTIVE VFHICt^- IS NOT WITHIN 





GAP 


ASSPMeiE RF.x/rsiW 055 or 4f~iC l^fei^C PAM rilMANCHi;: BY *^ASa 202ITTj- ' 0Sl 


TTJT 


7 ^ 


7rp7 


TTTTF7 


TJ7TT 



L P3A-P75‘V P74-P75 USER'S PAGE NU. 3 EO S3 


R008? ' ' I7(m 190 rnTGRPTS'. TT THE ANGLE IS WITHIM THIS ZONE THE 

R00P3 ASTRONAUT SHnuiT) REASSESS THP INPUT TARGETING PARAMETERS BASFO 

upaATTJFrry V and e xp e c t ed maneuver t ime. 


R0085 (8) THTS TRTJGRALrTE SEtFCTETr 6Y THE ASTRONAUT BY OSKY ENTRY^ 

ROOaS ^ P34 IP THIS VEHICLE IS ACTIVE VEHICLE. 



PZA IE ~TTrnr~'VE H I CLE I S PASSIV E VEHICLE 


R005P' INPUT 


R 003 P ( 1 ) TTPI TIME aE~THE TPI MANEUVER 

R 0090 ( 2 ) ELEV OESIREOLns ANGLE AT TPI 

ROUP I ITT 'CEWTANG URIjriAL LIMIKAL ANGLE UE T H E ~ P ASS I V E V E H I CLE DUR I NG 

ROOPP TRANSFER FROM TPI TO TIME Of INTERCEPT 


P 0 U 93 TUTPOT 


R0094 ID TRKMKCNT ’'lUMPER Of MARKS 

-POTT’E - r^T TTOGO TIME TO GO — — 

ROO'^'- (3) tMGA --HTnULF G-IM3At"ANGLt — 

POO i"’ lA) TTPI rmPilTEnr T IME OF-TPT MA-NEUVE-R 

■“PU098 — — OP 

R00P9 ELEV 'CO'^UTEU LOS ANGL-p—AT TPI 

ROlOCr IS) POSTTPI PERIGEE ALTITUDE AFTEIT THE Toi MANEUVER 

PTFim ■■■ (61 DELVTPI M'AGNTTUDE’Or-OELTA V AT TPI 

ROIO? (7) rrELVTPF mAGNITUTtE OF DELTA V AT INTERCEPT 

R 0103 (’) nVLOS OFLTA VELOCITY AT TPI - LINE OF SIGHT 

ROTDA' MT OELVLVC D E L T A V E LUC IT V A T T P T - LOCAL V E R TI CAL C nTT R OI NA TE S 


ROlOE DOWNLINK 


R0114 (1) TTPI - TIME Op- THE TPI MANEUVER 

ROMS ‘ (2) TIG time «F THc TPI MANEUVER" 

POMT (A) CEMTANG^ OPRITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 

R0113' TRANSEER FROM TPI TO TIME OF INTERCEPT 

■ROM (ST'OELVEETO D E L T A V E LOC IT Y A T TPT - Rf F ER ENC E COOp O INATES 

R0I2n (6) TPASS4 TIME Df INTERCEPT 

R0121 COMMUNICATION TO THRUST ING" PROGRAMS 


R0122 (1) TIG" TIME -IF THE TPI MANEUVER 

R0173 IP) RTARG T)FE-S1!T-^ARGf T PCSTTION 

■R-017A m — TPASSA rTMFTTF" INTERCEPT 

R012S " t4) XDET;VELTr"RESET-^rt5"TM0ie-AT^ -lAM^irftT (aimpOINT) 7G COMPUTATION 


R012S SUER O U TI N FS U SED 


R0127 AVFLAGA 




f=am 



GAP: ASSE'^BLE RE V IS I 05*3 OE A^C' l’r. rOMAMCHE BY” NASA' >021 1 1 3-Ob 1 



0 APR. TTPTCT CUHbKlSS.Oi^O FAG H 


T 


-‘^3 5, P74-P75^ 


P012R 
R 0 1 7"^ 


AVFLAGP 

VMPOnH 




P013A- 

R0133 

Por3?r 

R013T 

R0138 

“TCfTTF 

ROIA-O 

ROlAl 



1 43 


0144 
0143 
01 43 
FT 47 


S ET ECTW 

PR PC SET 

S 3T73'4TT 

ALARM 

RANKCALL 

FOTTASH 

GnrnpTioH 

T1METH*^T 
S 3^735 . 2 
PERI AP 01 
SHTFTRT 
334733.5 
VN1643 


TEF 


REF 


LAST 25S 


, 7000 
33.2000 
E4, 1770 




BANK 

EBANK 

COUNT 


T/CDH 


SUBEXIT 
33 /PI 474 


0143 
0T47 

0150 

0151 
FT5T5~ 

015? 

01521 
OT'5? 2 
015277- 

0152^ 

10X53"^ 


FEF 

REF 

PcF 

REF 

REF 

REF 


1 

“1 

1 

1 

T 

1 

40 


LAST 43R 


REF 


2 3. AST 127 


0154 

0155 

0156 

0157 
015 3 

0159 

0160 
0161 
0162 

0154 

0165 

0156 

0167 

0I5F 

016R 

0170 


REF 


EF 
REF 
REF 
TTEF 

RFF 

RTF 


"T 

41 

3 

4 

16 

-4 

1 


LAST 463 


LAST- 

LAST 

LAST 

ITST" 


272 
2 72 
250 


.2000 

35t OOi 

35V 2 002 
35.2003 
35, ?004 

55 ,2005 
^3.2005 
35V 20 07 

35.2010 
35. '^011 
“35,2012 
35.29T3 
35.2014 
35V20T5 
35.2016 
35 , 20 1 7 
“3572020 
-3 5r2^)?1 

-35,2022 


RT 4 52T~0 
■■0"2003 0 

0-4642- 

0 464 7 

3 4614 0 

0 4575 - 


Ttr 


AVFLAGA 


TO 


1 PT^ 

1 P34/P744 

TC 

TC 

1 

C AF 

JTfc 


T r 


7753L 0 

03 T65 0 

ooono 

0“5O7O‘ 


S5F 


AVFL AGP 
P20FI GON 

V06N3 7 

VNPnnH 
I NT PR FT 

FTTT 

NN 

n 


0 

1 

0 

1 
1 

03744 0 
43054 I 
72024 1 


0 6006 
71214 
01 2 70 
03563 
17413 


TC 

TC 

CLEAP 


INTPRET 

DLOAO 


USFR *S P 




EO S3 


SET tJPOATFlG. TPACKFLG 




STODL 


B7E 


TTPI 

TIG 

FfE V 

SET 

P34/P74B 


torsi 465 


REF 


1 




77624 1 
10712-1 


FEE 

• ^ 


PrF 


! AST 

34 

- 35-,-2r72 7 



35 , 2030 

- 

- — - - - - 

-35.2031 — 

LAST 

46 3 

35v20"^2 


43145 0 

1 5335-0 

03451 1 

43016 0 
01510 1 


P34/P74B CALL 

SELECTMU 

•O E tF LO E QUALS 26D 

^:i4/P74C OtOAO SET 


2EP0VECS 

TTS RICH - 

CLEAP — = 


FTP 1 FI AG 


gap: assemble 055 OF AGC P'OGPAM 



NASA ?0211!'i-()51 


lOiZB APR, 1 ♦1969 COMEKISS.020 


0171 

0172 
017T 

0174 

0175 

OITF 

0177 

0173 
0177 
0130 
0181 
0132 

0183 

0184 
01R5 

m3 6 
0 1 37 

m38 




018^ 
0190 


0191 
01^2 
019 3 

01 "^4 
0195 
OlO^^ 
0197 
0193 
OTOO 


0201 

0707 

0293 

0204 


0205' 
0206 
0207 
02339 
020 9 
0210 " 
0211 

C2rT 

0 21 3 
0214- 


934- 

•P35. 

P74-P75 











i^GF 

1 



354 2033 

72035 

1 

R£F 

7 

LffST" 

463 

35,2034 

036 61 

X) 

PEF“ 

1 



85.2035 

U7364 

"T 





35, 2036 

43345 

-T 

RFF 

5 

LAST 

463 

3T.203T 

036 63 

1 

^FF" 


Iw - J' f 

464 

35, 2040 

07364 

“T 

REF 

3 

LAST 

457 

33,20A1 

34041 

0 

REF 

1 



- 33 , ?042 

452T5 

0 


USER’S PAGP NO. 


E4 S3 


SWCRS'tT 

TNTunnp 


siriRt 

OLTunr 


SWCHSPT 
TTSWICH 
NUMI PI 

DAD 
— TTP T 
NrjMTPI 

STCALL TOEtl 
^““^PRECSET 


3572T)'43 


9 EF 


,2044 
75.7045 


77624 1 

72216 1 
77454 1 


care 


B7E 


REF 


ttet 

3rF 

REF 

"PFF 

REF 


T 



35r204S ^ 

72057 

-0 

1 

24 

L ^ ST 

451 

"35", 70 47 

0 5650 
00611 




3 5 , 2 0 p 0 

1 

1 



3 5 , 70 5 1 

3 5050 

T 

83 

LAST 

459 

35.2052 

0 46 62 

1 

10 

LAST 

45^ 

3S.2053 

20720 

0 

7 

LAST 

459 

35, 2u34 

T) 4106 

1 

2 

LAST 

4 S3 - 

3 5. 2 os 5 

0 200r3 

0 



■ 

35,20SS 

0 2047 

0 



TC — 
CAOR 
Tt — 
TC 
TC 


S33/34.1 

EXIT 

SWCHCLP “ 
ALARM 
611 

V05N09 

BANKCALL 

COFLASH 

nO T OPnO H 

P34/P74A 

-7 


20-rr 


2rF 

T1FF“ 


3 

T 

6 

r 


EAST 464 '3^ 


43014 a 

cr 


bonolr 



BON 

TTSWICH 


LAST 463 


■3'5 ,"706 1 
35 , 206 2 
35.92063 
35,2 


2 LAST 463 


RTF 


35.2065 
3 5 r206"6 


1 




3 5,2067 

RFF 

2 

LAST 

463 

X3 r207O 

7EF 

2 

LAST 

463 

- 35^2071 

■RFF 

■^42 

L AST 

463 

35 , 2072 


72035 r 

01310 1 
72067 O 
‘77776 1 
0 -3070 O 
TT 2072 "0 
77776-1 



ETPIFL AG 
P34/9740 



J 


45 1 4 


f) 4575 


0 

1 
T 


TC 

EXIT 

CAT 

TC 


OIS^LAYF 

R34/P74E 


RcF 

"^EF 

PEE 

RFF 


2 CITST 125 

7 LAST 441 
5 LAST 2S0 


L AST 


96 


2FF 


REF 


2 

2 



or 

LAST 122 




0216 

02T7 

0213 

0219 


c» 


: -E 


1 

? 


3542 0 73 
35,2074 
, 2 075 
35,7076 
35, 2077 
3577X00 
35,2101 

35X2103 
35, 2104 
35,7105 
72X03 
5 ■ 


3 5,-210? 


0 6006 

-71201 
0 00 0 1 
“03746 
140^7 
03754 
71406 0 
16734 0 
77 756 0 



1 

0 
T 

1 
1 


SETPO 


Vt)6N3 7 

VNPUOH 


DLOAO 

00 


STOOL 


2 6 732 


03553 

77657 



LAST 122 


REE 


1 


"^5,71 10 

35, ^ 111 
35 ,2112 
''55,711 3 


26553 
03 552 


"O 

0 

0 

1 

O 


POSF f 
STOOL 
S !N 

^ Tf* , J i 

S T nvL 


XI 

CENTANG 

cos-^ 

C STH 


SN T H 

RPASS 3 




STOVi 



V5R 7 


57176- f) 
03 465 O 


0x2“ 

RVEC 
VPA 

S ET 

0,7 

RVSW 


S53 


PROCEED 

V32 


DISPLAY TTPT 


DISPLAY FLEV AND CENTANG 


TTPI 




‘S'AP'™ ASS E'iBLE PFVI^TOM 055 (j^ A"r PROG?’ AM ' CD-UNCHf f^Y NASA :;?021ir3-0Sl 


101 2 '^ APR. TTTW? COMEKISS'.OZTT TA-GF 455 


022 0 
0 221 


022J 
02 ? 4 


3 ^ 4-035 » OT4- F75 


trSER-»^ *^AGE NH. 


E4 S3 


^ E F 
5 


EAST 





V7ri4 
35T2T1*=^ 


6 



"^EF 


6 

2 


EAST 

LAST 


464 

123 



0226 
022 7 
022T" 

0229 

0230 
023T“ 

0232 

0233 
0234' 

0235 
0235 
0257 
0233 
0239 

0240" 

0241 

0242- 

“0743" 

0244 

0245 
0Z4S" 

024T 

0243 

0249 

“0230“ 

“0251 


"T5T2TTS 

3T,2T17 

3542120 

"33,2171 


R 
7EF 
TTEF 


1 

5 


LAST 




n 


EF 


3 



4 


LAST 

FAST" 


IT3 


35,2125 

35T2T76 


THTT 




LA3T 123 


33T7T7T 

33,7130 
35,2 131 


"7T743 

036 6T 
03503 
77313" 

00037 
37655 
"77373- 

51575 
03346 
“236 35 


T 

0 

T 

1 

T 


STCALL VVFC 

TTKcTHFT 
IJL'JAD 


TTPT 
IN TIME 


IFF 


o ccr 


3 

4 
3 


orsi 123 


east 

I AST 


THTT 



33 ,2 137 
35,7133 
35, 



REF 

REF 


IFF 

REF 


3 LAST 
1 


123 


2 LAST 




D 


?EF IT EAST 


433 

463 


‘ R EF 
REF 


3 EAST 
43 


4 6 4 
464 


33 - ,“7X33 

35.2136 

35. 2 137 
35,2140 

35 , ’^141 
35 , 2T4T- 
"337714^ 

3 5 ,"214 4 
3377145 
35,2146 

33 ,7147 
,7153 


51 45 1 
33620 

26637 
03540 
45TT5 
03 612 
45153 
77674 


IT 

0 

0 

IT 

I 

0’ 

TT 

0 

0 

TT 

1 
0 
XT 

1 

1 

T 


16641 

■03333 



REF 


1T757 

0253 

0254 


REF 


REF 


3 5,2151 
35,7152 

3 5,21 53 
35,2154 

33,7175 
5, 


03413 
T7TT6 
3 4616 
0 4575 
0 60 06 
77624 

77741 
7 76 24 
73002 
7T6 50 
72026 


T 

1 

1 


1 

1 

T 

0 

1 

T 


O 


STORE 

mAu — 


STCALL TPASS4 
S 34/35.2 


VEOAU 


STOVt 


vsu 


ST^VE 


PDVL 


CALL 


STOOL 


STORF 

EXIT 


TC 

TC 


C ALL 


Gorn 


4 WA E 
nELVFFT3 
DELVTRT 
VPASS4 — 
ABVAL 


V TP R T M F- 

OEEVTPP 

RACT3 

CATE 

VI PR I ME 
PER I APOl 


SHI FTP 1 
POSTToi 


TIG 


V06M58 

VNPOOH 

INT^>RET 


FOR IN IT VET 


RENDEZVOUS TIME 
TNITVEL 


S34/35.5 


1345 


P34/P74C 


'gkwt as^fmblp PT'viTrnN 



MV P{>' )G'5?\'^ ' C0MANCTfF "Fy N&STli I i -i-Ob 1 


r0nrZ8""AFP. "T»T^6^ COMgKT$S,OZO PT^CT ^66~ 


I 


^4- P35 • PT^-PT^ 


P0255^ RENDEZVOUS MTD-COU’^SE MANRjVF^ RRCRPAMS (P35 AND P75> 


Px 02 

P 02 5 7 


:^ncr'Nn'"-i 



niZT S^CTl ON - P 
BY WHITE, P DATE 1JUNE67 



65 f P 7 2- P / S 


nSFR»S PAGE NO. 


E 4 S 3 




R025^ (1) TO CALCULATE THE REOUTRcO DELTA V AND OTHER INITIAL CONDITIONS 

Tl OTSD PEDIJTTT fT BY f Ht ACTIVE VEHILLk FOR EXECUTION OF THE NEXl — “ 

R0261 MTOCOHRSTT rORRECTTON OF THF TP ANS FFR PHASRTTF ATJ ACTIVE 

R02S2 VEHTCrF” RTNnEZVnuS. 


R0263 (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 

Pn26A VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL PY THE 

R026S ~ “" ASTRONAUT /GROUNO"; 


R0256 (3) TO STORE THE TPN TARGET PARAMETERS FOR UGE BY THE DESIRED 

R 0 27)X “ THR tjstttid" TODGR AM. 

R026B ASSUMPTIQms 


ROPED (1) THE rSS't^FED Nni BE ON TO CmPt^TE THIS PROGRAM 


ROZ"^! 


y 2T' ST A TE V E C T OR UPDA T E S' BY P ? 7 A RE 


STATF VECTOR IPOATTNG^ INITTATED 




T V TED D URING 
P20 (SEE ASSUMPTION (31) 


P“07T2“ 

R02T3 

R027A 

R0Z7S 

T^ D 7 T 6 
R0277 


m — rHb RENDETVmiS R A TT AP i s on and rS^L OC K Err 'ON T H E CSM; ' T H IS WA S 

DOME DURinG PREVTOUS SEtECTtON OF -R2tr. - RADAR SIGHTING MARKS - 

WILL BE MADTAUTOMATIC ALLY APPRTXT M ATELY ONCE A MINUTE WHEN 

C| s r /v p ^^g : n ; ;^y T O ACK AND U P DAT E F LAGS tSEE P ^O), T H R ^ 

RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF 
^^0- AND AFTER EACH THRUSTING MANEUVER. 


PQ2TB (A) THE TPEPAriON lOE'TH^ PROGRAM UT It I ZTS THE FOLLOWING FLAGS 

TORTO — ^ A CT TT/ E WHICLE Tt AG - DES I GNA T ES THE VEHICLE WHICH IS 

ROZBO DOING rendezvous THRUSTING MANEUVERS TO THE PROGRAM WHICH 

R0??1 CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 

R OZRR ~ EACH~TrENDE7 VnUS ~~ P P F- T HR nSTr N G~R ROG P AM. 


R0233 

R 02 r^^ 


R 02^5 
R0236 
R 02 E Z 


T H E' TTME : o f I ^ ^^E R^ ' "P T ( rtT^ i rrr - W A S- DEFfNgQ by P RfYtnUS 

CO‘U-»L -I I'ON OF THE T'^A^JSFfR PHASE IN IT J A T ION ( TP I ) PROGRAM 
(P34/‘‘^74» AND TS- PRESENTt Y AVAILABLE IN STORAGE. 


final flag - SELECTS FINAL PROGRAM DISPLAYS A»^TTh CREW HAS 

S E L E C T ED T HE F I NAL MAN E UVER C OM P U T A TIO N C Y Ct E . 


EXTERNAL DEtTA V FLAG - DtSIGNATES THF TYPE OF STEERING 
R F QU T R F^ '-OP - g X F CU TT nM -O F T HT S M A HEUVFP. BY THE" - THRUST I NG 
P‘>tTG^AM S^LECTFO AETE-> -COMPtET ION OF THIS PROGRAM. 


R 023 
fr0270 


GAP 


A';st;'‘3LE REVTSli'iN OHS rip 



UTTASM COMA'xlCHE BY NASA 20^1113-051 


10J28 APP. r, l'A6y LDWtKlSS.U2!J PTfGt — 457“ 


I. '’34-P35, P74-P75 " 0SER«^8 PAGE NO. 8 EA $3 


POPPl “T5) once THE P APTPFTEPS“ REOimET) “FDR CDPPvmnM OF THE MANEUVER"^ 

RO?P“2 HAVE BEEN CO«'’LFTELY SPFClFTEn, THE VALtJE OF THE ACTIVE 

Px02P3 VEHICLE CEMTPAL ANGLE OF TRANSFER IS CUMPUItO AWl) SlDRblJ. 

T029A THIS NUMBERS Win; BE AVAILABLE FOR DTEPLAY 10^ THE ASTpONAUT 

P02E5 THROUGH “IHE USE “OF Va6NB2. — 


THE ASTRONAUT WILL CALL THIS' “01 SPL AY TO VERIFY THAT THE 
CENTRAL ANGLE OF TPAHSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 

170 TO 190 DEGR^bS. IF THE AR'GLEIS WITHIN THIS ZUNE I HE 

ASTRONAUT SHPULO REASSESS THE TNPOT T ARGETTNG PAR A ME T E R S BASED 
UPnmiELTA V AND EXPECTED MANEUVE® TIME. 


R0301 (7) THIS PROGRAM IS SELECTF0-BY THE ASTRONAUT BY OSKY ENTRY - 

■ 8 0302 P3B I F T H I S V E H I CLE IS ACHV E V E H I CL E . 

P0303 P751F THIS VEHICLE IS PASSIVE VEHICLE. 

R03DA INPUT 

ROTOR" rn TRASSA" TIME OF TNTERCERI - SAVEH FHUM P34/RT4 ^ 

RO305 OUTPUT 

ROBOT riT IKKMKCNr MUMPER OF MARKS 

R030P (2) TTOGO TTMF TO GO 

"030® (3) +MGA MIDDLE GTMBAL A-ngLE 

“R03I0~ ( AT'OTVEOS DELTATOTErnCTTy "AT ’’n p - LINE'OF SIGHT 
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R03P2 THIS SUBROUTINE COVPUTES THE REQUIRHO INITIAL VELOCITY VECTOR FOR 

FTOITTT If TPAJECrUMV MF SPFCTFIFO TRANSFE R ' TT M E B ET W EE N SP E C IFIE O I N ITI AL 

P.OBT4 AND TARGET POSITIONS'.' THE TRAJFCTORY MAY" BF EITHER CONIC OR 

R0895 PRECISION ORP'^MTHOG ON AN INPUT PAR AME TE R I WANE LY, NUMBER OF 

p o'ROT, offsetst; in 'Aunrr iijn,~tn t h e p r e c i s i on tr ajec t o r y CASE t t he 

ROBOT SUBROUTINE ALSO COMPUTES AM OFFSET TARGET VECTOR, TO'^SE USFO — 

R 0 B 9 R DURING PURE-CONICOIROSS-PPnnuCT STEERING. THE OFFSFT TARGET 

R0d?9 VECTOR I S THE lEPMTNAL POSIT I IN'OT'FCTORr UFOS CONIC T^AJECTURY WHICH 

R0900 HAS THE SAM= T NT T I AL ST ATE AS A PRECI SION TRATECTORY WHOSE “ 

R0901 TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR. 


R0902 IN ORDER TO AVOID THE INHE'»ENT SINGULARITIES IN THE ISO DEGREE 

ROOOB transfer CASE WHEN THE (TRUE"OR OPFSEl ) TARGET VECTOR MAY BF 

'~RTT9D4 SI. IGHTLY'TTUT'OF'THE ORB IT AL P LANE ,~ THTS S UB R OU TI N E RO T AT ES T H I S 

'R0905 "VECTOR INTO '' "t ANF OEF INEO BY - THE INPUT INITIAt POSITION VECTOR 

RODOA ANO ANOTHER INPUT 'VECTOR t'tSUALLY TH^ INITIAL VELOCITY VECTOR). 

R09U7 WHENEVER THE INPlJl — TAP .G ET V E C T OR L IE S I NS I D E' A C O NE WH O S E V E R T E X — 

R09D3 IS THF“ORIGIN OF COORDINATES', WHOSF'SXIS IS" THE 180 OFGREE 

R09D9 TPANSFFR OIRECTTBn. AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. 


R091D THE LAMBERT SUBROUTINE IS UTILIZED Et'R THE CONIC COMPUTATIONS ANO 

RODll THE COASTTNG TNTFGRATION SUTR'JUTTNE IS UTIITZEO FOR THE PRECISION 

RtrsrZ IRAJECIUKY CUMPUTATTONS. 
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T ARC r r Pn S TTTH N *^ An T l l S VEC T OR 
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nO'P33 LANREPT 

P093-^ INTSTATL’ 

R"09T5~~ TNTFGRVS 


OPTS REF I. 11,7000 SETLOC INTVEL 

. 093 ' rr.- 2 ooo btink 


0933 RFE 1 - COUNT 11/ IN I TV 


09RF 

owr 

0961 

0^2 

~Tr 9 ?^T 

9964 

096*=^ 

O^VT 

0*^6 '- 

0969 

0970 

09Tr 

097? 

"Q9T0 

0974 

0975 

0976 

R0977 


REF 


R^F 


7 

11 


L firST 

LAST 


477 

4BT 


11,2000 

11.2001 

"TTT2W? 

11,2003 

it,?oa 4 


~PTr 

REF 

3 

LAST 

LAST 

■ 122 

479 

" — i 1 , ^005 

11.2006 

11,2007 

RtF 

T 


- - - 

11,2010 

11,2011 

REF 

4 

LAST 

476 

11.2012 

-TTFF 

5 

LAST 

48 7 

1 X t ? 0 T3 

KFP 

4 

LAST 

476 

ll;2914 

1 1 ,''015 

R bF 

5 

XAET' 

43T' 

1 1 , ZnT5 - 

TEE 

3 

LAST 

43 7 

I1.-Z017 
11,20 PO 

Ref* 

4 

L A ST“ 

487 

11.2021 


77614 T 
00475 1 


INtTVFt SET 


COGA GUESS NOT AVAILABLE 


44175 1 KAVFGUES VLHAD 

m4t5 T 

OX 3 40 1 — 

03604 0 STOP F 


46135 1 
n3747~0 

22 “r 

72575 0 
03570 0 


03576 0 

77752 1 

27 576 0 
03604 O 
T7752 1 
03604* O 


SLOAO 


VLOAD 


STOVL 


VSL2 

STnVL 

VSL2 


GUFSSW 

STTJ 

RT ARG 
NORMFX 
RTARGl 
BHI Z 
RTX2 



VSL2 

RINIT 

yrrmr 

VTOTT 


V I NI T 
RTARGl 


829 


87 


INITIALIZATION 


097'- PEE 1 11.2023 03305 1 ITCTR 

0950 - ir'i:20?4 77776 1 0-1 


09T2 TTEF 2 LAST TaT tti2(rZf> 17630 1 STOOL COZYA 

0953 lli202'7 6715A 0 LXA,2 SXA,2 

" OOEUf "rP""Z3'8 cm m) TI . 2030 OOIBA 1 I5E7TC 
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“TOFX ^''1TEF~“‘2 ■ L as 1 4511 11,2175 OaTT25~nr — VATT 1 ■. 

1082 REF 2 last 96 11,2176 02T05 1 — ' STORE VTARGOT — ^ 

R1083 IF ITERATION COUNTER tTTCTR) EQ NO. ttERATIONS (NUMIT), CONTINUE AT 

R1TI34 INITVELC, T}TRFRT7ISh REITbPATE LAMBERI AND ENCKE ' 


1085 




1086 

"RTF' 

3 

XKST 

insT 

^ - - * - 


' - - 

10R8 




■ TcrsT" 

rtth 

4 

LAST 

1090 

RFF 

4 

LAST 

1091 




1997" 

PEF ■ 

2 

LTTST 

1093 


1 


91094 




RIQOS" 

OFFS FT 

CONTTT 


11,2177 6'A154 1 

4^ffT n , 7200 0 3504 0 

11,2201 00001 0 
11,2202 551341 

490 11,2293 03504 0 " 

489 11,2204 02703 iT” 

11,2205 46135-1“ 

"455 nT22Fr6 00050 1 — 

1172207 22221 0 

TARGET 37FCT0E 


LX-' ,? I NCR, 2 

rrtmr— — — 

10 INCREMENT IT^TR 

SXA,2 XSU,2 


VTARGTAG 

StOAO 8H!Z IF SP(MPACr-E9 0, CONTINUE AT TNITVELC 


INITVEL6 


1006 11 , 221 9 52375 VLOAO VSU — 

"1997 RTF 8 LA~ST 'ARR L 1,22 11 03604 0 — RTAnCl 

T09R“ REF 2 last 458 11,2212~ 00017 1 RATTl 

109- 11,2213 77655 I VAO — 

■ ilOO CTTF 7 nrSl 438 11,2714 02665 9 R2VHC — — 

ITOl REF 8 LAST 490 11,2215 16665 O STOOL RRVEC 

1102 R^F 5 LAST 488 1 1,2216 03630 1 C0ZY4 

1X03 XT, '2 21 T — r76r59 1 Grrm — -■ 

llOV REF 1 11,2220 22056 1 TNITVF12 CONTINU*^ ITERATING AT INITVEL2 

R1105 COMPUTF TMF DELTA VELOCITY 


1106 11 ,2221 77775 1 INITVFL6 VLOAD 

HOT REF 9 LAST 490 11.2222 02665 0 R2VEC 

I I TR RXX 9^ TTrST 499 1X7^23 0 36C4— 0 SltmE RTARGl 

1109 " “ ' 11,2224 52375 1 INTTVFL7 VlOAf) VSU — — - 

1110 — ^ RFF 6 LAST 490 11 ,2223 03612 1 VIPRIME 

1111 TFT^^ — "1 LAST — 435 1 1 , 2 22 6 03576 "0 VI NIT — 

1112 TEX 8 LAST 430 1172227 - 27646 X STOVL 0EiVFET3 0FLVFET3 = V I PR f ME— V IN I T (+7J 

I I i - RlrE 3"“ LAST 490 11, ‘2230 — 02705 1 VTARGET 

1 1 1 1 RTF 4 — TA S T 465 11 , *^2 31 — 0362 0 ' 0 — STOXE VTRR I2IF — 

1 1.32-32 46135 1 SLOAD 8H 1 7 

111- REF 7 LAST 439 11,2233 03747 9 RTX7 — — 






ReviSinKi'05^ of \rx PR0(TR'AM COM/^NCHE by NASA :^02ili3“0bl 


lOl^H r. ITO9 COMEKISS.020 PAGE 4^ 


P34-P35, P74-PT5 


USF.F3S PAGE NO 


3? 


E4 S3 


ITIT 

R”F ^ 

1 

11171 



5 LAST 

1118 

REF 

6 LAST 

1119 

TEF 

7 LAST 

ll^fl 



1121 

RFF 

8 LAST 

11?2 

REF 

10 LAST 

TTZ7'' 



1174 

RFF 

11 LAST 

1125 

RFF 

9 L AST 

TT27; 



1127 

R EF 

10 LAST 

1123 



rizT 



1130 

K FF 

12 LAST 

1131 

RFF 

3 LAST 

1 134 

REF 

T ? LAST 

R113y 



R1136 




WD" 

A91 


H- 


o 


49 I 
490 


49T 

490 


491 


487 

4rFT 


1 1.2 73 4 
1 1 . 223 9 
3T77736 

IT. 22 37 
11.2240 
TTT2241 

1 IV22 42 
11,2243 
n , 2244 

11.2248 

11 .2246 

11.2247 

11 .2250 

11.2251 
TTT22"52“ 

11 ."2253 
11,2254 
7T,"228^ 


222 51 1 

705 79 1 

D3 7>20 0 


VLOAO 



STOVE 


03612 1 
7774? O 
27612 1 
03604 0 
77742 0 

27604 0 
0 3 646" O 
77742' 0 

03 64 6 0 
77201 1 
OO'OOl 0 


YSR2 

5TnVL 


VSK2 

STOVl 


cr 

37415 0 

01340 1' 


INITVELX 

VSP2 

VTPRIME 

VTPRTME” 

VirPTME 


VI PR TNI E 
PTARGl 


HTARGl 

OELVETTl 


VSh2 

STORE 
INITVELX 5ETPO 


OFLVEET3 

vinAo 

on — 


PTARGl 

STCALL RTARG 
NTrrmHX 


iS^EMt^LE"R'g?IS ION 055 CM" VGC CUM S W CTI 'E BY NASA 20;>llij-USI 


10 ; 2 B A P R 


^20 P*G<r 



L P 34 -'’ 35 rT 74 -T '75 





USER’S PAGE NO. 33 


E4 


pm 7 MinGTM 


ftlTT5 sifO'O NO'. Ot BY WirtTOM, subroutine RtNOGUID. LOG P34-P3 'j. P/4-P/!> 

P1139 REVISION 03‘, 17 FEB ST 


laiTO rt^TITE-A C T I V t VEHICLE IS nOIMG TR- COMPIJ T AIIUM. WIUG FW C O M P U TE S 

R1141 THE FOSITIVE MIDDLE GTMRTnT ANGLE OT^THE ACTIVE VEHICLE TCT THE INPUT 

111142 DELTA VELOCITY VECTOR (DD IN PUSH LIST), OTHERWISE 

TTL ITT I OGTH“ CONVERTS THE INPUT DEL T A” VFLOC I TV VEC T OR PRCi MT N FR T I A L CDO R D I N- — 

R1144 ATES TO LOCAL VERTrCAC^ont;nTMATES OF THE ACTIVE VEHICtE. 




R1146 NAME MEANING I'NI TS/SCAL ING/mODE 


FIT 47 
P 114F 

P 1150 

Rll SI 


R1157 . . OUTPUTS .. 


RTT5T' ARTME ME ANING UN ITS AS C AL T NG/W O P E 


R,1154 4-mgA + mIOI^lE GIMBAL ANGLE FEVOLOT IONS (+0) DP 

0<Tir55 DEL VUVC“ DELTA VELOCITY VEC I UR EN'EV COORD. METERS/CSEC T+T) VT 

R1I56 MGLVFLAG INT FI. AG - 0 TS +NGA CONPUTEDT 1 TS T5ELVLVC COMP. - BIT 


H11S7 n'rALLlNG SEQUENCE .. 


^■RllSB L CALL 

■R ri'SD CTT M IDG IN 

P.LISO LF2 TRETUPN - ALWAYS) 


FTTST rrONO SUBRODTINES CALLED-." — “ 

R11S2 .. DEBRIS - EPASEASLE TEMPORARY USAGE 


Rllf,3 AtTTfL, PUSH LIST, MPAC. 


. . ALARMS - NONE .. 


AVFLAG 
COMPUTER 
RTNTT 
VINIT 
OD ( PL ) 


INT FLAU - 0 IS CSM ACTIVE, I IS LEM ACTIVE — 
TNT FLAG - 0 IS LEM COMPUTER. 1 IS CSM COMPUTER 

ACT TVE“ VEHICLE RADIUS VECHIR 

ACTIVE VEHICLE VELOCITY VECTOR 


BIT 

8 IT 



ACTIVE VEHICLE DELTA VELOCITY VECTOR 


METEOrsrC 

METERS/CSEC (+7) VT 
METERS/CSFC (+7) VT 


I 


R ‘ - V I S I i M 


G API ASS RMBlf: 


L 


*^11 




I i 1 

I I *!; 7 

TTSl^ 


7F.S '''r “v.'G ■ '’pqG.^A*^' CGMANCHb NASA 2021TT3-0SI 


P34-P35, 074-P7G 


UnOLF GT'''3Al ANGLE 


r; 


T 


1 



TTTTTTTTTTJ 

0 A , 2F45 


SF ITDC f^THTlGIM 
^ANK ■ 


ruuNT* 


10:7^8 AP7. — 1 , 1969 


USER’S ^AGE NO 



34 


E4 S3 


c. n 



11 
TT^ 

1170“ 
llTl 
1 177 

1173 
1 17 '* 

rs"' 

IITS 

1177 

117B' 

I 179 
1130 
IT 

I I ^7 
1173 
1T34 
1 1 15 

1133 

117T 

11^7 

1189 

T 


- 45 


11^4 

1195 

n /7 
1 1 

ITT^ 
1 200 
1291 


R FF 


TJ 


1 

“ 1 
1 
1 

irmpuTT 




r: 


F 


PFF 


1 


R^F 1 

^FF 2 
7 F F 6 


^FF 


1 



FFF 2 

^FF 2 

UTl^UTF 


n c* u: 

N * f 


9 4 9 

04,2643“ 

04,2647 

04,^650 

n7:“r2F5T 

04*265? 
04*2653 
4^GA“TF~AVFLA(; AND C 

04*2654 

F4,7356 

r A ST TT3 04 ,76'55 


20000 0 HALFREV 20EC 


1 B-1 



43014 0 
01312 0 
T06 6i^ I 


^TOGTM 


BUN 


L AST 
LASr 


493 

43T 


LAST 493 
LAST 4H1 
OYLVLTTC "TF 


LAST 489 


04*2557 
04, 7660 
“TT4 726761 
04,266? 
04 ,2663 
— n4 7257>4 

04,7665 
04,2666 
““04,26 67 ^ 

04,2670 
04, '’671 
AVFLAG" AMD 

04,2572 
04r 2673 
04*2674 


02747 1 
10672 0 

MPUIFi^' HAVE URPUSTTF VALU- 
535 75 0 GFTfMGA VLHAn 
72441 0 DOT 

■ 01744 “T 

51136 T ARCS IN 

10664 1 


4T2T5““0 

10646 r 

10645 1 

03626 0 

43414 1 
02675 1 

027A7 1 


TTTrrj 


■5TTTCA 


STORE 

CLR 


BUFF 

AVFLAG 
MTOGTHl 

computhr 

GFT.LVC 

ST 

UNIT 

SLl 

■RFFSNMAT +5 
BPL 

SFTMGA 

ttatt— ^ 
halfrfv 

HALF7FV 



R VO 

MGLVFL AG 


MTDGTMT BTTFF 


VCOMF 


L AST“ 49 n 


04 


04.2676 

04 .2677 
04, ■’700 

04.7701 

04.7702 

04.2703 

04 .2704 


19654 1 

CUMPUTcR HAVE SAWE VALUES 
53 575 0 GFT.IVC VL'TAn 
03579 0 

“77676 0 “ 

00023 0 
53435 9 

““03576 V — 

00015 0 

53435 0 

“ 0 00 2 3 0“ “ " 

74007 9 
00001 0 


COMPUTER 
G^^T + MGA 


UN T T 

R INI T 


VXV 


STORE 

VXV 


180 

tINIT 

VTMTT 

120 

UNIT 


STOVL 


60 

00 


12”7“’ 




04 , ‘’705 

1 7 03 

RFF 14 

L^ST 


04 , 2 79 6 
04 ,2707 


4811 

1 205 




0 f 7^10 

1206 

•'FF - 2 

1 ftST 

493 

94 ,2^1 

Q 12^' 7 


FNO 9p 

M I UGt N 

•^OUTIN^F 


o 


00007 0 

0 


NXT — 

STORE 
SFT 


02 4 75 0 


60 

DELVLVC 

RVO 

MGLVFL AG 


(PL OD) V (+7) TO MPAC* UNITIZE 
DOT UV WI^'H YtSTABLE MEMBER) 

F2“TQ 


UV (+1) 
RESCALE 



CONTF^' to F9PrGA“13Y 

ADDING one REVOLUTION 


CLEAR MGLVFI AG TO INDICATE fMGA CALC 
AND EXIT 


(PL 60) 


R (+29) IN MPAC, UNITIZF UR 


t)t-Rr — — = 

U(-R) TO 180 

U(-R)^V FQ V7U(R)* U(V^P) 


U(V^R) TO 120 

U(V-R)*U(-R)* U( (V*P)’f'(-R) ) 


TRAN5F0R*^ATI0N MATRIX IS IN 60 (+1) 
DELTA V ( ^7) IN on 

- CG f lVE R T - f !NFR ^ CGD R TO ± V CUflR ( f« ) 

AND SCALE +7 IN MPAC 
STORF IN DELVLVC (f^) 

srr- 

9X IT 



LVe CALC 


% 




GA^ 


ASSEMBLE PrVlStON O^^ 0 ^ AgC PfttlGPAM CHMA^jCHE BY NASA ; 



TT5T 


10:28 APR 


rVTT^ 



rO Z0~ P ATTF “ W4 


P 1 2ns 
120^ 
1210 
1211 
1212 


1213 

1214 

1215 



1 2T7 


1223 
12? 4 



1226 

1227 

rzzF 
“122^ 
1230 
'12 34 
1235 


P34-^33, r»74-p75^ 


RFh 


3 

1 



2EF 

RTF 





RFF 



LAST 
L AST 


PFF 



LAST 494 


LAST 126 



490 

^fB2 


LAST 468 


04*271 2 

04,2713 

04*2714 
04,2715 
TT4727I 6 

04.2717 

04,3720 

04.2 ''21 

a4*2722 

714 , 2723 
04'72 724 

04.2725 

04.2726 

04.2 /2 ? 

04.2730 

04.2731 
04*2733 

04.2733 

04.2734 
TT4*2733' 

04,2736 

17433737 

04*2740 

04.2 741 


USHR^S PAT3F NO, 35 


F4 S3 


77160 



OOOOO 

77614 

04343 

10723 

77160 

"00013 


0 

7T 

1 

1 

T 

0 

0 

T 


SELECTMU AXC,1 AXT,2 



==— Qr> - - 

BOFF 

CMUUNFLG 

SETHUFR“ 

AXCfl AXT,2 


00002 0 
66143 1 
11744 0 

03745 1 
23752 0 
T17 


TOO 

3D 

SETMUFR OLHAO^ SXA,1 

MUTABLE +4.1 

— RTX1 

—“STOOLS RTSRl/MU 
MUTABLE -2*7" 


54214 

04343 

10734 

20607 

03750 

43134" 


1 
1 

XT 

1 
0 
TT 

1 

01371 1 
77650 T 

73002 1 


BOFF 


B TRNMU 


STORE 

SXA.2 


SP 

CMODNELG 
RTRNMU 

60 

RTMU 



RTX2 

EIMALFLG 


GOTO 


VO I 645 


(T^pl S^TtMRLP f?’Vr.^inN 0 



P 1 2 1 A 


a 

I ^ 


R1Z37? 


IR A^^r, PkUt-RAW ( UMANCH^ HY NASA 2U21ll3-0bl 


lOi2R APR 


P74-P7A 


USER’S o AGE TO. 36 


PERTAOU .. 



MOO NU -1“ rni; SECTiUN - P34-r 

700 BY WHITE. P DATE “ I BJATJAS 


; U74-P76 


1”.T969 CEnTFTCTSSTtTTTT 


E4 S3 



futotttdn'ai TJFSCirrPTTm 


in.240 THIS SUPROUTINF Cn^^PijTES THE TWO BODY APOCENTER AND PFRICHMTER 

^ r74T~ ^ AITItuueS GIVFM the PUSITTUTTANO VhlMLlTY VbC I URS EUR A MHIN I UN 

R17A2 THE TRAJECTORY ATO' THE PRTOARY KOOY. 


K 1 2 43 SeTRAU TS CALtbU I'f iJE T ERM I NF’T^TE KAUIUS UK IHE PRIMARY BUOY. 


P1244r “““ APSIDES T^ GALLEO TO SOLVE FDR THE TWO BODY RADI! Of APOCENTER AND 

R1243 PTFTC ENT ER AND t HE ELCENT^ iC H Y UL > HP OTIT JFCTnR Y. 


R12A5 CALLING SFOUENCF 


R1247 L CALI 

R1248 L + 1 PFPIA’^O 

p I Zz^cr- I +7 TP E TURN - ALTfTTYST 


^ 1250 INPUT 


RT251 (1) PVEC 

R1252 

RI753~“ TTTVVEC 

R1254 

R 1255 (3) XI 

TTTZFE 


POSITION VECTD"^ TN METERS 
SCALE FACTOR - EARTH +29, MOON +27 
VElOCT lY T/FCTfJK !N MET EP S/ C E NT T S F C 0 N D 
"SCALE FACTOR - EARTH TT* TOON +5 
primary body I not C ATOP 

EARTH -2, MOON -I'J 



P1257 OUTPUT 


^1253 

R 1259 

P1"Z60 
R 1261 
P 1 26^2 



R 1264 
R1255 
PT2S5 


R 12KB 


“R 1260 
P1270 


7T 


( 1 ) 7D 


+ 27 


T7) 4D 


(3) 60 


C 4) 3D 


APOCENTER RADIUS IN METERS 
SCALE RAC TOR - EARTH +29* MOON 
A P OCEN T ER AL T 1 TU BE T N METE RS 
SCALP FACTOR - RARTH +29, MOON P27 

pfricf"‘^er radius in meters 

~~SCArE FAC T OR - -F AR T H '^2 9 , MO O N +2 7 
PEP T CENTER: ActT I TUOE ' IN METERS 
SC AtrF FACTOR - EARTH +29. MOON 
“TTC CENTR I 

SCArtE“ EATTOR 



(6) XXXALT 


RADIUS PF THE PRIMARY BODY IN METERS 
^CAITE FACT 


F-ARTH +29, 


f 7 ) TOSHLOC 90UALS TOD 


SUTmTTtrrrUFS- 'TTSFTr 


R127R 


SETRAD 


V 



p 


gap: ASSE'IBLP SEVISION 055 HF AGC PR'.lGRAM COMANCKF 202111^-051 


10i?8 APP. TTTWJ — COTEXr5S.D2n PATTF — 59Br 


L 


P3A-P35, '’7‘'t-P75 


UGfR^S PAGE Ntr. 37 


EA S3 


R1273 


APSIDES 


A 1273 


1^?4 

REF 1 


'T 2 ,2000 


SETLLIC 

12“’5 



’ 3. 3151 


BA AIK 







12 76 

35 TF T 




COUNT? 

1277 



72.3151 

00302 0 RPAO 

'ZOFC 


~ $$yP EP A P 


6373338 B -29 


STANOARO RADIUS OF “AD 37 -B 


= 20 909 901 . 57 FT 



c> 


1230 

1231 





12 H 3 

12R4 



12R6 

1287 

TYRg- 

128^ 

rz^t)' 


REF 


^EF 


"RTF 

“I? 



T7 


1292 

12^3 





1295 

1296 
T 29 T 


•D 


TF 



TJUU 


7 LAST 494 


2 


1 

2 

T 


4 T9V59 — 


LAST 494 


LAST 464 


LAST 12 T 


L AS T 49 6 


TTTTTTT 

? 2 1 3154 
22,3155 
“ZZTTTTB” 
22 , 5157 
T2 ,3160 
~22T3T6T 
Tr,3162 
22.3163 
22. ^164 

22,31 65 
22 ,3155 
22 ,8157 

22 ,317{r 
22 •3171 
22, n72 
22 , 3 1T3 


T 

1 

0 

TT 

0 

1 



LAST 496 


TFT "T4 L A ST 49T 


22.3175 

72.3176 
22.3T77 

27732Cmr 


537 54 ' 

03746 
57176 

26 T 4'5 

53750 
03745 
57176-0” 
02557 1 
45020 1 
01340 " T" 

45201 ' 0 
3 T 456 12 
25703 " 1 ■ 
41401 1 
00003 1 
65225 1 

03456 0 

oooot tr 

45205 T" 

03456 0 
52 0 06 O 
01340 ' T 


PFRTATOr LXA .2 


TEP lAPO 


STnVL 

LXAtl 


STORE 

ST 9 


STCALL 


SETRO 


PUSH 


PUSH 


VSR* 
PTX2 
0,2 
VVEC 

VSR 7 

RTXl 
0 12 

‘^VEC 

CALL 

N O RH E X 

S^-TRAO 

XXX ALT 


PfJSH 

20 

Pont 

XXXALT 


on 

"DSO 

XXXALT 

GOTO 



20 


APnCENTFR RAOIUS 


829 OR B 27 


= APOGEE AtT T TUOF 





80 = PFRfGEF ALTITUDE 


B 29 OR B 27 







10:28 APR. 1,1969 COHFKISS.020 TZHTF 4^ 


L 


D3.;-P3r, D74-P75" 


U5FR»S ^ 


NO 


E4 S3 


P130I 

SFT° AD " 







OLfTSTT 


1302 




22,3701 

41545 

0 

SETRAD 

PiJSH 

ITUS" 

RTF T" 



2773702^’ 

03lt>2 

1 



KPAD 

1 304 




2T73203 

63130 

0 


SXA,1 

INC^ ,2 

1303 

^ FF 3 

LAST 

490 

22 ,'3704 

0 0 04 7 

1 



X2 

TTOTT 




ZZTTTTTS 

OOOO2 

0 



~2tl 

1307 




22,3206 

<^6135 

1 


SLOAD “ 

5H I T 

1 308 

EF 4 

LAST 

497 

22.3207 

00050 

1 



X7 

“170^“ 

r 



22.3210 ■ 

452 14 

1 



SF 1 R ADX 

1310 




22,3211 

51575 

1 


VI. 'TAD 

ABVAL 

1311 

REF 2 

LAST 

17^ 

Z2',32T2 

0202 5 

1 



RtS 

~T3T7~ 




22.3213 

? 7/25 

1 


PUUL 


1313 




22,3214 

43 545 

1 

SFTR ADX 

ncOAO 

PVQ ' 


GAP: RF 



r)5'S' "(jr AGC "PKilGf-'AM LDHANCHt BY 


SA 


TOt2B APP. 1^1969 CnM F KISS,020 PAgg 4 98 


P3A-P35V n374-P7=^ 


USEP’S ®AGE NO, 39 


E4 93 


PV314 

1315 



1320 

1321 
132Z 
1323 
1374 



1325 

13^7 



1379 

1330 

73 31" 

1332 

1333 


1335 

l33?r 


1337 

1333 

133-^ 



1341 

1342 

1343 

134 4 


REF 



^ EF 
PEF 
HEF 


REF 


pff 


I •i 


EF 
RFF 


f^RFCS 

FT 


5EF 

15 

LAST 

RFF 

1 


REF 

2 

LAST 

REF 

1 


"REF 

7 

XAST" 

RXF 

7 

LAST 

REF 

2 

LAST 




R EF 

1 



5 

7 
2 

15 

"3 

8 


LAST 
LAST 
LAST 
LAST 
ASF 
LAST 


6 

3 
T 
7 

4 


LAST 

LAST 

orsT 

LAST 

LAST 

L'A'ST 



490 
35 


ttfF it; fast 


479 


472 
479 
TTTS 
47 7 


27,3222 
22 ,3223 



f 

2733775 
27^73725 
77, J22 7 

77 . 3 210 

22,321] 

7773737 

22.1213 
22,3234 
7.321b 


22.3215 
22,3217 
727 1240 


498 

498 

4T7 


4 7v 
495 
4 7b 


“27,3747 
“22 ,3747 
“2773743 

32.3744 

27,1245 

22.3746 

77.3247 

?2,375rT 

“777T75T 


77670 0 PPECSET STQ 



36635 1 
2710 5 0 
776 24 



45731 
77745 
15 


T" 
1 
1 

3“ 

34041 0 

77071 1 
TT6 24“T 
45243 0 
77650 1 

T" 
0 
0 


UT34Tr 

431 75 
00001 
3X352 T 
45247 1 
27540 0 
3X007 0 


33546 3r 
776X6 3“ 
43175 0 

00001 0 
01357 1 
45237 
27554 0 
OXtXOT 0" 
03562 0 


TIORMtX 
STCALX T0EC2 

LEMPREC 


CATC 


LEMSTHRE 


OLOAO 


STCALL 


CAn: 


T3EC2 

TOECT 
C5WPREC 

C S'^STHor 


GOTO 


LEMSTORE VLOAD 


MGRMEX 


ACTIVE 


STOVl 


— STHPH 

RVO^ 

csMSTOPr'i^LnAn 


PATT 
AVFL AG^ 
PASSIVE 
R ACT! 
ATATT ' 
VACTl 


BOFF — 

RATT 

AV^LAG 



PASSIVE STOVt 


RPASS3 

VATT 


27,3 7 52“^ — '7 75 1 5 CL 
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REOIl VEHICLE STATE VECTOR TO THE STATE VECTOR OF THTS VEHICLE. THUS INSURING THAT THE W-MA TR I X AND BOTH VEHICLE 

R5013 STATES CORRESPOND TO THE SAME TTHE. 

P’5G14 31 TPASABIE i N 1 I I AL ! / A 1 ION RtOUlRtD - N'lNP. 
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13V2122 

13.2123 

13.2124 

13.2125 
T372126 
13,2127 
13,2130 
TT72T3T 

13,213? 

15.2133 

13.2134 


t? 


FF 17 LAST 510 



RFF 

7EF 


O LAST 509 
12 LAST 511 


5051 

5032 

5033 
5934' 
50«5 
5 036 
57F^ 
5033 
5 0''^9 
50^0 


PEE 

"REF 

REF 


R LAST 509 

TTTST 5TT 

9 lAST 509 


13,2140 

13,7141 

15.2142 

15.2143 

13.21^4 

T'^,2145 

13,2T46 

13,^147 

13.2150 

13. 21 51 

13.2152 


RTF^ 

- -q - 

TA'ST 

510 

13,7153 

R Fr 

REF 

1 

16 

LAST 

511 

73,2154 
1372 155 

RFF 

6 

LAST 

509 

13,2156 





1 3, 2157 

REF 

13 

LAST 

512 

13,2160 


LAST 



5099 

5100 

5TTTT 


'EF 


10 

6 


LAST 

LAST 


5 1 2 
503 


5 192 

5 1 03 

RIOT 

5105 


PF 


137 2TBT 
1 3 , 1 62 

13,2163 

T3T7-Tfv4 

13,0 165 
13,2166 
13,2 157 
13,2170 
13, 20 71 
T 3 ; 2TT? 

13321: 7 3 
1 3 ,217 4 


77676 0 
00031 0 
~53 43 5 0 
00007 T) 
00023 0 
5T43r5 0 

000 319 
24015 0 
■03540 0 

76505 0 
00015 0 
77655 I 
00007 0 
00007 0 
”77627+ T 
27442 0 
77624 1 
“26222 T 


vcrmp 

STORE 


537 75 
00007 
57175 


ootrot 

77 65 7 

571 76 

03413 
01517 
T 1 2 14 
01673 
-01 5 71 0 
34041 0 
77135 0 
77624 1 
2744? 0 
T7 5 2 4 7 
26222 1 

77775 1 
00017 1 

01507 O 

15535 O 
00015 O' 

25517 
00025 

2 34 35 

77776 


O 


tTTST 



tr 


1 

1 

9 


STORE 

vxv — 

STDVt 


240 
UNIT 
VATT 
180 
UF 


U l-P ) 

U(-RJ TO 240 
UT-RfXV = urvxR) 


UtVXRTXUC-RJ == U 



VXM 


240 

12D 

OFtVnv 

VSLl 

120 


V(WFAC)=OELTA V IN RFFCOSYS 


inro 

STORE 

C/fLL 

CALL 


VATT 

6 


V(Pn6)=VATT DELTA V 

O ULO-B E US E R O F "ORBITAL 



INTSTALL 


INTEG FRO^I INTERFERING WITH OPOATING 



1 

O 

tr 

7 

TT 

■O" 

o 

0 

"T 

o 

9 

7“ 


VL0A9 


VSR^ 

6 


STOYt 


f 

vcv 

RATT 


VSR» 


STOOL 


0,2 

RCV 


smR-p 

OLEAR 


TFT 
OLOAO 

j^ vjjY PF LG 

TFTTHIS 

INTOTHIS STCAIL TOECI 

I NTFG R VS 

CALL — — 


IMTSTAIL 


C ALL 


VLOAO 


P76SUB1 


SFT/CLEAR *^OnNELAG 


store 

STOOL 


R ATT 1 
92FCT 


STOVL 


TlTF 

FT 


VATTl 


CALL 


‘^INIRECT 


13721 7 6 


04024 0 


«=XTT 
-TC 

nr T 


P1 1ASCHNG 

04024 






Assemble RFvisinN) 055 a^c pRi^iCP'AM CO^ 



Y MA^A 2021ir3-051 


ra:'2B APR. TTTWT CrWEKISS.020 513 


r 


51 Oo 
5107 


^7S 

REF 

REF 


1 


LAST““51T 


5100 

5110 

TliT 

5116 

5117 

5 1 IB 
511 '^ 
5120 


RCT 55 LAST — 5 11 




REF 

REF 

REF 


9 

“T 

100 

1 


LAST 453 


L A ST 511 



5125 

5126 ' 
51765 


TIFF 110 
7EF 1 


LAST 502 


TT,7T7T 

“13,7200' 


13,7201 
13, 2702 
■ 17,770 3 

13.2204 

13.2205 



13,2207 
13,7210 
,2211 



1 3 , 2 2T2 
11,2213 


5127 

5128 

512 ^ 


0 1 546 O 
00236 0 


0 61)06 
77 624 
“767'60 
17531 
00053 
"26211 
0 466? 
174 77 


lEp- 

4” 

LASi 

im 

13,'2214 

RFF 

11 

LAST 

302 

1 3, 22 1 5 

’'■FF 

6 

T AST 

228 

1 3 , 7 2 lib " 

p 

\ t ^ ♦ 

11 

1 AST 

484 

13.2217 


"777 76 
3 5021 
5 5» I 26 
55125 


T 

1 

T 

0 

1 

T 

I 

0 

T 

1 

1 

T 


3 7716 0 
551 


TC UPFLAG 

ADRES RETNTFLG 


Din 

FNnP 76 


1 4106 0 


CALL 


SSP 


TC 

XnVK 

r 


TS 


CAE 

TS- 

TCF 


rNTPRFT 


OFRET 

WT 

BAUKCALL 

TNTWAXEl 


ZERO 

NIAPKCTR 

VHFCNT 


NEGONE 

MPKBUF2 


GOTHPOOH 


itSRR* s pai;f nn. 


F7 S3 



PERMIT USE HF ORBITAL INTEGRATION 


CLEAR RP TRACKING MARK COUNTER 



MAR K B U FFER 


5130 13,?7?0 01524 0 V06NP4 NV 0684 

— 5131 13,2271 1441 1 — ^ NV 0533 " 

5T37 13,122 6771 4" I P76S(JB1 CLEAR STTATT— — — 

5T33 REF 11 LAST 509 T3T2223 00263 0 ^MOONFL AG 

5134 REF 5 LAST 497 13,?224 00050 1 X2 — = 

" 5135 — “ 1177275 43 030 0 BHT7 SIT ~~X 2=0, . TC tF AR M 0 0N F L 4G 

5136 13,2226 26230 1— 1 -I,... .SET MOONfLAG 

5137 RFF 12 LAST 513— "131227 00063 1 — moonFLAG 

BIB 737 2230 77616 0 RVO 


TTIP'; 



TT5^' np a nc LJMAm. 


HynTO3jr“?TT7TTr7=TrTr 


10:3S APR. 1,196^ C G W E K 1 SS.02LJ 



I 


1^30 


USER’S PAGE NO. 


EO S3 


”5200 

05203 


R5205 

P.5203 


TV 


^^5210 
R5 21 1 


P52I3 



• \ 


K5215 

R521<S 



213 
R521^’=' 
'W~52'ZU 
P 5221 
^5222 
^22T 
R 52 2^ 
R5225 
R522T7 


SUBRGUT TNTE NAME: 


V32CAtL 



MOO NO 

TOrr-qy 

NO 


0 

PTR' 




MOO NO 



MTO RY: BSrRNSFATHFR 

MOa ■ BY' ALONSD 

2T“ALnMSU 


OATEi 

im SEC r ION 


TmTFT 11 
HATE : 11 DEC 
UAI't! 26 MAR 


67 


16 EEB 

F3D 

1 CHANGED TO ALLOW 
VB82 PROGRAM REWRITTEN 

M O D TO HANDLE D I 


MONITOR OPE»N 



NEW FUNCTIONAL DESCRIPTION: 
USED THROUGHOUT. 


CALLED BY VERB BT ENTER 


PRIORITY 10 


CALCULATE AND DISPLAY ORBITAL PARAMETERS 


1. IF AVERAGE G TS OFF : 


FLASH DISPLAY V0AND5. R2 INDICATES WHICH SHIP’S STATE VECTOR 
~TrrO^E UPDATED. TNITIAL CHUICE IS TH I S SHIR 012=11 
CAN CHANGE'TO OTHER SHIP BY V22EXF, WHERE X NOT EO 1 


IS 



SELECTED STATE VECTOR UPDATED BY THISPREC (OTHRREC) . 

" CATTTS "SRIO. FT WHICH CALLS IhECDNMU + TFFRP/RAI TP CALCULATE ~ 
RPER (PERIGEE RADIUSJ» RAPO (AROGEF PADIUSIt HPER (RERIGEE 
HEIGHT ABOV^ LAUNCH PAD OR" LUNAR LANDING SITE), HAPO (APOGEE 

HFT GETT "AS ABOVE) . \ PER T TIME TU FEP TGFFT^ — T^ F " tTT’*E T O 

INTERSECT ?00 KFT ABOVE PAD OB' 35KFT ABOVE LANDING SITE). 

FLASH MONITOR VT6N4^ (HAPO, HPER, T*=E).TEE IS -5<^M59S IF IT WAS 

TIOT rOMF U T A H t E t O T H E RW I S E I T T NCRE MFirTS ONC E PE R SF CtTH D' . 

astronaut has option TO monitor TPER by KEYLNG in N 32 E."— — = 
" DISPLAY IS IN TtMSr—rS"NEG^ATTVL (-AS WAS TFE). AND INCREMENTS 
“ ONCE PER SECOND — BUY IF TFF DISPLAY WAS -S'? 


“ P522T 2. IF AVERAGE G IS ON: - 

R52Z8' CAXrS SRBDTTOAFpPOX EVERY TWO 'SECS. ST A TE V ECT OR T S ALWA YS — “ — 

P 5270 . FOR this VEHICLE. 3/^2 OOFS NOT DISTURB STATE VECTOR. RESULTS 

R5230 OF SR3D.1 ARE RAPO, RP=R , HAPOr FTFER-, TPER, TFF. 

R-S73I PTASH MONITOR V16NA A ( HAPO,' HP^.T TFEK — 

0.5232 TF MODP TS Pll, THEH CALL OFLRSPL SO ASTRONAUT CAN MONITOR 

R52'«3“ RESULTS RY NSOE. SPLASH COMnUTATIOM DONE ONCE PER TWO SECS. 


R5233T' addendum: HAPO AND HPER SUmiLO BE CHANLGEO TO READ HAPOx AND HPERX IN THE 

R523A CALLING SEQUENCL: VERS 32 ENTER. 


R5?3b SUBROUTINES CALLED: SR 30 . 1 , GOXDS PF 

T> 32 3 S — — — MA Y B E - TH T S P R F C . O T HPREC* LnAD T TMF. D EIRSPL 

R5237 NORM-aE EXIT MODEST TC-ENDEXT 


2523 3 At AP MS : NONE 


P523'» nVITPUT: HAPHX (-20) M 


R52 TD HFFr3C“— T-o-^t 

R52A1 -FAPO (-29) N FA^'TH 

R 52 All (-27) *i ‘niON- 


TTSPl 055 HP 



BY N*-SA 2ir?lll j-Obl 


10S28 APB. r.1'96'5 COM B K 1 5S . 1)20 PTtr; 



I 


^30 


USEB'S BAGS NO. 


EO S3 


^^■524? 

R 52421 

'“R'5244 
3 5245 


R5244 ERASABLE INIT T Al T ZATTON RFOOT REO: STATE VECTOR. 


“3? 5Z47 iTE BUTS: OP Rh l , RUML, VUNE , I EE/R I MU. RPAD IE W. V82 E WFLG. 

R524R MAYBE: TSTAPTBE. VB2FLAGS. TDECl. 


Pt>EB ( -29 > H EARTH 

(-27) M“MOON 

TFF (-2¥T X'S CONTAINS MEGATTVb QiJANllIY 

-TRFR (-78T“CS CONTAINS NEGATIVE QUANTITY 

RSP-RREC (-29) M ' ^ IF DELRSPL CALLED 


5249 ' REF 4 LAST 279 “54, 1751 EBANK= MAPOX 

5259 31.-2332 SANK 31 

ET'T RTF 1 23T Tirno SETfOC R STTEOC 

5252 23,2332 SAAfK 

5253 REF 1 COUNTY t$/R30 


5254 "EF 56 LAST 513 23,2332 0 6006 I V82CALL TC INTPRET 

5255 23,2333 52014 0 BON GOTO 

5255 REE T 23.2334 00216 I AVEGEEAG 

5257 REF 1 23,7335 3fE566 0 V32GON IF AVERAGE G ON 

5253 REE 1 2T,2336 4633T 1 — — — V32GnFF IF AVERAGE G OFF 


" 5259 





23,2337 

77776 1 

5260 ~ 

R EF 

30 LAST 

502 

2 3 9 7360 

3 5016 0 

5251 

R E P 

4 

L ^ST 

5*32 

23,23^fl 

55 • 051 0 

5267 

REF 

63 

LAST 

50 2 

23 ,774? 

3 5017 1 

5 76T 

■REF 

5 

last 

515 

21 » 7343 

~ 55*052 0 

5254 

REF“ 

1 

■ 

------- 

23*2344- 

*" 3 2406 I 

• 52t,6 

PEE 

701 

LAST 

513 

2392345 

D 46 1 

5266 

< t E 

ICT 

ITTST 

3a2 

“23T2 346 

20561 1 

5257 

^ EF 

24 

LAST 

506 

23* 2347 

0 5534 tl 


5263 23,2350 0 2352 1 

5267 23,2351 a 2344 IT 

A5270 ^ “ 

5371 REF 3? LAST 505 23,2352 3 5014 1 

577 2 REE^ 1"3 “ LSA 5T‘ — 4T6 23.3353 — 0 5245 1' 

5273 RFF 4 LAST 23a E4,1743 

5?74 npF 1 23,3354 0Z5B1-1- 

— 5274 7^1= 1 23,3355 46064 IT 

5775 — 2377-35 6 - tR 0003 “Ir 

5275 REF 1- — 2357357 3 2410 a 

■ - 52TT 2EF "70 LTTST — 447 23.7360 54 003 0 

5273- t?EF 111 LAST 513 23,2361 3 5021"-t 

— 5377' - REF 3 “LAST 91“ 3 IrE'RftZ — y^r2r -Qf 

45 2 3 0 

6251 <rTF - 5 LAST 267 2-3,?363 3 506.3 1 

5232 REF IT LAST 505 23.2364 0 61 «t7 0 


VSZGOFF EXIT ALLOW ASTRONAUT TO SELECT VEHICLE 

TS UPTIfINX 

CAF ONE 

CAF OPTinNVN V 04 N 06 

TC BANKCALL 

TC ENDEXT TFRMImaTE 

TC +2 PROCEED 

TC ^ OATA I-Nt — OPT I ONX -“3"T~= t f-OR THIS VSHIC. 

UNEO 1 FOR DTHER VEHICLE. 


CAF 8IT4 80 MS 

TC W AT T t r S T 

EBANK= TFF 
?C ADR T I C K T E S T 


RELINT 

VB2G0FLP CAF TFFRANK -- MAJOR RECYCLE LOOP ENTRY 

TS FBAOJK — 

CAF ZFRft 

TS VR2RLAGS ZERO FLAGS FOP TICKTFST. INHIBITS 

DECR EME NTING OF T EE AND — TP E R . 

CAF f'RIOI 

TC FIAIDV4C V82GOFF1 WILL EXECUTE STATE VICTOR 


# 


OTnl ASSt ^^iJ- ^‘evKStON 055 OF AGC '''ROC»?AM COMAStRF BY NASA 20Zlll5-0br 


102 2R TiPK 


T.TT^^? CUME KISS. 070 FaTTE TTH 


R30 


52 33 
52 84 

'2”R? 


5235 

^^236 


PEF 

P H P 

TE"F 

ROF 


1 

r 


L^ST 515 


E4,1743 
23 



,2365 
,ZT15^ 


02411 

Wl'64 


EBANK= 

2CAnP 


V3?GnFEl 


T 



5292 


RTF 



5 2 94 


2 *^F 





23,73 67" 

5 “00 03 

1 


RETT NT 


15 

LAST 

3 91 

23.2370 

3 6214 

0 

V8 2 STALL 

x/m 

THREE 

4 

LAST 

515 

23,23 n 

*7 T742 

0 


ASK 

'V32FLAG3 

140 

LAST 

45 3 

23,2372 

10 orro 

0 


CCS 

A 

1 



23,2373 

0 2400 

1 


TC 

FLAGGOM 

0 

■“Tsn 

505 

2 3 , Z 3 r4 

3 5041 

1 


C AT 

ISEC 

102 

LAST 

515 

23 ,7575 

0 4^6 6 2 

1 


TC 

BANKCALL 

4 

LAST 

505 

^27,2376 

01737 

0 


CAOft 

DEL AY JOB 

1 



“25T737ir 

0" 2370 

1 


"TC 

V82 STALL 

1 



23,2400 

3 2407 

0 

FLAGGON 

CAF 

V16N44 


5755" 

TEF~rD3“ 

"LAST" 

529S 

ftEF 

11 

LAST 

52 97 

REF 

3 

LAST 


REF 

“ 4 

L7L5T 

5299 

REF 

1 


5300 




5301 




5502 

REF 

6 

LAST 

5303 

REF 

57 

LAST 

' ■ ■' 53T)4" 




5305 

* REF 

7 

LAST 

5306 

' REF 

17 

LAST 


5X5 

515 

505 

515 


73V2401 

23,2402 

2392403 

T3T750~4 

23.2405 

23.2406 

?3 ,T40T 


0 4662 T 

20561 1 
0 5625 O 
0-5625 0 

0 23 57 1 


TC 

CADR 



TC 


BAFTKCAtt 

Gnxos PF 

85aFP 

BBOFF 

VB2G0FLP 



51 6 


0 41 2 


01014 0 — rrPT 

04054 T — V16n44 VN 1644 

023 43 t ~ TFFB ANK TCAD^ T«^F 


515 


50 8 
512 


51TTT 


RTF 


T 


05 

530 

Tirrr 

5311 

5312 

531 T 
5314 
531 5 
TBIT" 

5317 

5318 
5T7T 

5"i3T 

5323 

■53^4" 

5325“ 

5326 

5377 

5328 

5329 


TFF 

“TBF 

RTF 


6 

64 

1 


LAST 

FAST 


515 

515 


2417 


F.. 



RFF 


LAST 51 1 


1= F 
PFF 

FFF 


13 

10 

IT 


LAST 

LAST 

L AST 


512 

510 

5T2 

510 


TEF 

3FF 


T 

1 


^ F F 

3 EF 


LAST 


90 


23,2411 
2T,'74TZ 

23.2413 
23tT4 14 

28.2415 

23.2416 
23, 

23. 2420 

23.2421 
23 , 2422^ 
23",Z423 

23,2424 
23,24^5 
23,7 426“ 
23,2427 
23 , 2 4 3tr 
23,2 
23, 2432 
2 3 ,2 433 
? 3 , 2 ' 45 T 

23. 2435 

23. 2436 

23,243 "^ 

23,2440 
23i2441 


0 6006 
TTBBTT 

45510 

00041 


02325 

7T776 
4 1052 
6 5017 

0 0006 
1 24 46 
6006 
77624 

27105 


00001 
26327 

noooT 

02335- 

77743 


I 

IT 

1 

1 

IT 

1 

0 

"T 

1 

1 

T 

1 

0 

i: 

0 

0 


VB2GnFFl TC 


INTP2ET 


B 

— LOAOTIMF 
STORE Tneci— 


FXI T 

CS 

7m — 


nPTinNX +1 


DTHSHTP 


EXTEND 

BZF THISSHIP 

— ^ — j. 

CALL 

OTHPRFC 


VL O AO 

ft ATT 
S T flVt RtJNT 


000-37 

77743 


02321 
4613 5 


1 

r 

0 

i 

0 

1 


vatt 

STORf "Vf)N€ 
TLOAT* 


l/qTMt)F«2 


SLOAn RMIZ 


USER'S PAGE NO. 


E4 S3 


UPDATE AND ORBIT CALCULATIONS FOR 
SELECTED VEHICLE ABOUT PROPER BODY. 


STALL IN THIS LOOP 
UN TI L S T A T E VEC T 


AND 


MITHOLO V 16 N 

ONE OF 




OUR FLAG BITSi 

EXIT FROM STALL LOOP. 


MONITOR HAPO.HPER.TFF. 


TERM THIS TELLS TICKTEST TO KILL ITSELF 

PRO C E E D — DITTO 

RECYCLE RECOMPUTE STATE VECT + DISPLAY 


TIME FOR STATE VECTOR UPDATE. 
T IM E FO R I NT 



1 FOR THIS VEHICLE* NOT 1 FOR OTHER 


CALL STATE VECTOR UPDATE FOR OTHER SHIP 



MO VE RESULTS 
TO BE CALLED BY SR30. 1 


RATT AT (-2DfM FOR FARTH DR- MOON 


VATT AT I-7)M/CS FOR EARTH OR MOON 



yg — tS -fi FOR E ARTH 


X? TS 2 FOR MOON 
AS LEFT BY THISPREC OR OTHP** 




T^FRTMij, HPEP^IN ^ND RPABTFM ARE ALL 
EARTH/^nOW PARAMETE‘?5 AS SET HEftE. 


GAP: assemble REVISION 055 

•'■1^ C'lMANCHE 

”B'V~?rSTA' ■ 20 ? 1 in- 0 5 1 10:28 

'APR . 1 .is; 69 

CrTMEKTSS.020 

PAGE 5Tr 








E4 S’? 

L 730 




USER* S PAGE 

NO. 4 









5330 PEF 6 LASl 513 

23,2442 

0D05m 

1C2 





53^1 REF 1 

23,2443 

— "5 7 : 1 A AA — 

46463 1 

TTTTFTS — 1 

EA7THP AD 

rrmn 








^EF 


46467 0 


MnnNP AD 


T3 34^ 
5335 
5316 

‘J'T' 


’O 


h 



ccp 


5T6 


3 LAST 503 



5339 ~ 
1T5^3^ 

5340 
" 53'47r “ 

5341 

5341 
■5347 

5342 
53 43 

■“5343 

3344 

■“5T43r“ 
53455 
5 3 4'6 


REF 


23.2446 

23.2447 
23,2450 
'ZT;'745T" 
23 ,2552 


0 60(36 1 

77524 1 
2T071 1 
"776 5 0 1 


IHISSHIP It 


TNT P RET 


CALL 


CALL STATE VFCTOP UPDATE FOP THIS SHIP 


THTS^’^EC 


GUI!) 


46436 ‘O 


BDTHSHIP 


THE FOLLUWING CaFTSTANTS ARE PAIRWISE TMUtXPO. DU MH 



U T 5 P A I RS> 


23.2453 
? 377454 


,2455 


23 ,2456 
"23,2457 
23,2460 



1/RTMUM 2DFC« .45162505 E-4 B14^ 



07571 0 
25D04 I 
06702 1 

1 1 530 1 
00002 0 


1/PTMUE 2nEC5 .50057529 E-5 R17* 


2DEC 


MTNPERE 2DFC 


rFT^ 



WtOHT TOP MOtONt^TIM 


91440 B-29 


300 KFT (-29) M FOP FAPTH 


3173777 



TEF 


OFF 


7 

1 

1 


T WT 


,74 63 
73 ,'74 6 4 

2 3.2455 




05152 

54577 




0 

T 

0 

0 


EjAPTHPAO ol^ad 


C L POO 

Pp AO ~ 

V82FM^LG 

BOTHPAO 


PAD 37-ft PAOIUS 


SCALED AT (-29)^ 


IHDICATF EARTH SCALING FOP SP30.1 


5347 

5345 


7EF 


LAST 557 


23,2467 
3,7470 


51575 1 
02026 1 


1 ^ 375-3 





23,2471 

— TTEOV 

T 

~ 5^91" 

"9HF 

7 

LAST 

517 

22,247'’ 

04462 

0 

5350 

PFF 

> 

LAST 

90 

73,2473 

36373 

0 

53 52 


1 



23,2474 

46667^ 

T 

53521 





2^,7 475 

111 76 

1 

53522 

cr 

* > 1 

10 

LAST 

43 4 


3 1011 

0 

5352 3 





23,7477 

' 0 0006' 

1 

53524 

REF 

1 



73,2500 

1 2 6 45 

0 

53 S? 5 

REF 

60 

EAST 

517 

23,2501 

0 50 06 

1 

53 





2“^ ,'2502 

452 34 

0 

5354 

^EF 

a 

LAST 

51A 

23,2503 

45510 

t 

53 56 

SEF 

7 

LAST 

516 


02^325 

1 

5357 

Rhh 

3 

LAST 

517 

Z 3 f 0 5 

',’2 3 25 1 


5355 
535 9 


f? 


EF 


LAST 21 7r 


5860 

PEP 

p- 



5 36 ] 
53^62 

PEF 

- 4 

LAST 

517 

-~5 3 6 3 

5 36 4 

-REF 

4 

5 - 

3.Tr5T 

LAST 

“517 

517 


5 6 5 


73,7506 
7337507 
27,2510 
73 , 251rr 
73, 2M7 
2 3 , 7 513 
7 - 3 -,751 4 
27,2515 


53145 1 
07346 1 
•' 46 52 r- 0 
43:345 -t 
523 40 r 
0 2 325 1 
02346 } 
77770 1 


MOON P At) 371.040 


BDTHPAD 


SPLPFTI 


A5VAL 

PLS 


SET 

V32EMFLG 
S7CALL ROADTEM 

SP30.1 “ 

EXIT 
CA 

EXTE ND 

B 2 F 
TC 


MODREG 


C ANDEL 
INTPRFT 

trStJ 

tOAOTIME 


ST OP P 

DLOAD 



B7E 

-TPFP 


T-ICKTPE^ nfr-^AD— DAD 


STORE 

EXIT 


-TPFR 
T -S TAV 

-TPfR 


COMPUTE MOON PAD RADIUS FROM RLS VECTOR 
SCALED AT (-27)M. 

INDICATE MOON SCALING FOR SR30.1 

Ci aXm^T E TrPBTTTtt P AR A M E TE75 

APE WE IN POO 
YES, no DELPSPL 


PRESENT TIME - TIME V82GOFFI BEGAN 

SAVE — H — 

SP3f).i SETS -TPEP=0 IF HPER t/ 

HPEPMIN (300 OP 35) KFT. 

(-TPEP = 0) 

(-TPEf3 NON ZERO) IFF WAS NOT COMPUTED, 
BUT WAS SET TO 59M59S.00NT TICK TfF, 90 

TICK -TPFP. DISPLAY BOT H . 

-TPFR COPPECTEO FOP TTMF SINCE V82GOFFI 
BEGAN. 



,A? 


ASSE'-'PLF- P. E V I S TnFIOTTTrF’ 



COMANCHE BY 



TT 


10:28 APR. r.l96'J — CDHtKISS. 02 U PJUE STF 


L 

3 0 









USEl^^S PAGE 

NO. 5 

E4 S3 

5 ^66 

f" in 

31 

LAST 

440 



- “ 

. 





F F 

23f?Dl6 

3 57rTT 

X 

C Sf" 

KTTl 




5367 

r“ s jr /V 

RFF 

5 

^ — 

LAST 

516 

23,2517 

~ jar ■■ in. yg — — 

55*742 

0 

TS 

V82FLAGS 

INFORMS TICKTEST 

TO INCREMENT 

ONLY -TPFP 

5 

R t 

57 

LAST 

45 1 

23t2S20 

“Tj 5217 


TC 

E NlJf JF J OB 






5360' 23,2521 433A5 1 TICKTFF OLOAO 


5777S teEF T TA^T 5T5 7T7T5Z2 023 4A 0 

5371 OFF 5 LAST 517 23.2523 02325 1 . 

5372 REF 8 LAST 518 23,2524 02344 0 STOFE 

“5373 23.2525 ?7 776 I E X IT 

5374" ?FF 23 LAST 457 23,7525" 3 5516 0 CAF — 

"5375 REF “ 5 LAST 518 “23,2527 55'742“0““ TS 

53 'h 2FF 55 CAST 5TB 23.2530 ' 0 5217 0 TC 


DAO 

TF"5 

TSTAPT82 

TCP 


8 1 T2"" 

V82FLAf;S 

ENDOFJOB 


(-TPER=0) TFF WAS COMPUTED. TI CK TFF. 
DO NO! — nCK - TPE R. DI S P LA Y TF F. PUT NOT 
-TPER. - 

TFF CORRECTED FOR TIME SINCE V82G0EF1 
BEGAN . 


INFORMS TICKTEST TO INCREMENT ONLY TFF. 


53 r i PTFF 23 CAST 5TFB 2 3,2531 3 5013 0 FT CK T ES T CAF B 1T 5 TFtTS WA IT L I S T P R O GRAM PE RPE TUATES ITSEtF 

"5378 REF "“T3 LAST 507“ 23.2532 7 1044 1 MASK EXTV3ACT ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. 

5379 REF 141 LAST 516 23.2533 10 OOC O CCS A 

“"53''<n PET 1 23,2534 0 2542 0 TC D OTI CK 

5381 REF 2 LAST 190 23.2535 3 7662 1 TAF PPin25 

538? RFF 15 LAST 336 "23,2536 0"-5134 1 TC NOVAC TERMINATE V 82. CANT CALL ENDEXT IN RURT. 

“ STP? PEF lA" “ LAST 51"8 TJAA E 8ANK= EXT VBAC T — — — 

5334 REF 25 LAST 515 23."2537 05534 37 7CADR ENOEXT 

53^4 23r254t) 04062-1 

■ 538S FEF 2T LAST 437 2 3, 2541 0 5324 1 TC T ASKOV E R — — 

5386 RFF 9 LAST 516 23,2542 3 5041 1 "OOTICK CAF “ISEC RE-REOUEST TICKTEST. 

5337 REF 19 LAST 515 23,2543 0 5245 1 TC WAITLIST 

“6383" °TF P““ LAST 5TB 567X743 E BA TIK - T^F — 

5389 REF 2 LAST 515 23,2544 02681 1 2CAOR" TICKTEST 

5389" 23,2545 46064 1 

-■ 5T90' ■ 'RFF 16 cttsT STB 2372646 3 6214 0 CAF T H R EE — 

■“5391 REF 7 LAST 518 23.-2547 7 1742 0 MASK V52FLAGS 

— 530 -, opF lt^2 LAST 518 28,2650 50 000“1 INOfX A 

“6363 23.2551 Cr2662~T TC rt — — — 

5394 9EF 22 LAST 518 " 23,7562 0 5324 1 TC TASKOVER IT NO FLAGBITS SET OONT CHANGE TFF OP 

A5395 -TPER. BUT CONTINUE LOOP. 

“6796 77EF T'““ 7377653 0 2 561 T TC T PERTTC K ONL Y BIT 1 SET . TNCR — T P F R BY T -SEC i 

5397 REF 10 LAST 513 28,?554 3 5041 1 TFFTICK CAF I SFC ONLY BIT 2 SET. INCR TFF BY 1 SEC. 

5398 REF 59 LAST 504 23,2555 54 001 1 TS L 

"6379"" — FrFF“l 17 — L AST "516 2 3 . 2566 " '3 “ 5 07r 6 CAF TERCI 

5400 RFF 10 LAST 513 23,2557 21'744 0 OAS TFF 

5401 REF 23 LAST 518 23.7560 0 5324 1 TC TASKOVER 

~64TT7 ■ ■■ ■ RFF IT — CAST — 5T8 2677561 3 5041 1 TPERTI CK C A F t6CC — 

5403 REF 60 LAST 518 23,7567 54 OOt I TS L — 

5404 peF 113 LAST 518 23.2663 3 5021: 1 CAF 7Ff<0 

5406 RFF 5 LAST — 517 23. 25 64 2 t »T 4C 1 OAS ^TFER 

5496- PFF 24 LAST 518 23,7665 0 5324 1 TC TASKOVER 



nrrzE~2rFH 





^VISION 055 ^^yC. P*P :;r/.^AT?f~rT^'ANCHE BY NASA™’^021 ll'i-Obl 


It 1969 CDTCKTSS.O^O PITCT 5X9“ 


i?.Tn 


USFR’S m 


e4 S3 


“ 5407 234^5^66 llllh i VBZGOM EXIT 

A 540 8 

54W^~irET= h LAST 515 ZTTTEET J”506i 1 

5410 RITF IB LAST 515 237Z3T0 0 5147 T) 

5411 PFF 11 last 51 B 54,1743 

- 541 z ■^F 1 ~ 2T7Z5TT a2'604' 1 

541? 3EF I ?B,25T2'' 46064 1 

5413 ?3 , 257T~ 0 0007 1 

■ “54^1^r TTFF 4 lABT 423" 27,2574 ' 10 06^ 1 

54T5 REF 2 LAST 423 23,2575 0 5164 I 

A 5416 — — ^ 

“XE4T5T 

5417 PPF 2 LAST 516 " 23 ,T5T6 3 2407 0 VB2RE0SF CAE V16N44 

541B REE 104 LAST 516 -2Tr25T7 0 4662 1 TC BANKCALL 

5410 RCF 12 LABI 5T6 23, 2500 2XT56T' 1 CACR GOXDSPF 

5420 REF 5 LAST 5IC 23,2601 0 5625 0 TC 350EE 

5421 REF 6 LAST 515 23.2602 0 5625 0 TC 85nfF 

- 547 ? — ref 1 — 23^72603“- IT 2 576 1 TC V82RFDSP 


5423 OFF 61 LAST 517 23.2604 0 6006 1 V32f;nNl TC TNTPR^^T 

A 54 ? 4 — — — ___ — — — — 


“CTTF PRTOT — “ 

TC FI NOV AC 

EBANK= TFF 
2CA!1R 7B'2GGM 

R EL I NT 

~UCS NLWJMB 

TC CHANGT 


5425 23,2605 52175 0 ~^^ VLOAH GOTn 

542 6“ P ^F 6 L A ST 5 10 23 ,C606 01 171 1 — - ^ 

■ 5477 RTF 1 73 -, 260 7 46610 1 NEXTLTNF 

5477 RTF 11 LAST 516 27,2610 26327 0 " NFXTL I NE STQVL RHNE 

5420 REF 6 LAST 510 27.2611 01177 1 VN 

” 543 0 REF 8“"LAST BT6 ?3T26r2 0733^0“" — STORE VTTNE 

— 5471 23,2613 52014 0 BON GOTO 

5432 ref 1 T3.26T4 00315 0 AMOONFLG 

5433 RTC"“~T 237ToT5 46617 0 m n mm — 

5434" RFC 1 23.2616 46630 0 EnARTHGON 


^average G on. use current STATE vector 

FOR ORBITAL PARANETFR CALCULATIONS. 

L E SS T HAN LAWB F R T 

V82G0N1 4^TLt PERFORM ORBIT CALCULATIONS 
ABOUT PROP FR BODY APPROX ONCE PER SEC. 


WTTHOLD VIS N44 UNTIL FIRST ORBIT C7U: C 
TS rrONF. noth: VSZGONl (PRIOT, fINOVAC 
108) IS COMPLETED BEFORE V82GON t PR 107. 

NOVAC JOB) . — 

MONITOR HAPO, HPER. TFF 


TERM THIS TELLS V82GON1 TO KILL ITSELF. 
PROC DITTO. 


THIS EXEC PROGRAM PERPETUATES ITSELF 
ON C E I T S E C UN TTtr BTT"5^ OF EX T V8 A CT 
HOLDS OFF CCS NEWJ08 BETWEEN RN AND 
VN FETCH SO RN . VN ARE FROM SAME 

ST AT E VE CT O R II RO A TE . ' — ^ 

RN AT (-2R)M FOR EARTH OR MOON 

VN AT — C-7) M/CS“ FOR EARTH OR" MOON 


FLAG INDICATES BODY ABOUT WHTCH ORBITAL 



IE SET “ MOON 


ARE TO Be PERFORMED ^ 
. IF RESET - EARTH. 


54T5 23T75TT 

5436 REE 3 LAST 517 2B,2620 

54361 REF 1 23.2621 

5437 REF T L AST^“ 5T6 23 , 2'6"22 

547R 7EF I -23,2623 

54 ?o 7*^E 3 LAST 516 23.2624 

34^41 RFE 4 ■ CAST — 5TT 23,262 5 

5447 23,2626 

3444 Rcp I — 

5445 23, 7 530 


54*+ *> 
54'*^ 1 

REF 

“REF 

-4 

2 

LAST 

LAST 

1 ') 

5 1 6 

23 .7?63T 
23.263? 

B“43rr 

"REF 

i 

LAST 

519 

23 , 2633 

5 4 48 

R^-F 

2 

ITAST 

51^ 

— 2-J .26^4 

5447 


4 

i.Asr 

1 p - 

23,26 3 5 


54 50 

7FF ~~3 

•3:ast 

517 

— r3r2336- 

— 54^1 

iff 

LAST 

517 

2 3 . 263 7 

5453 

FFF 2 

LAS r 

517 

23f ?640 


TT214 V m7nMG0N“~CFT 

04462 0 - 

06454 1 

14037-0 STOOL “ 

06460 0 

26321 0 STDVL 

02026 1 

52046 1 ABVAL 

466T7 1 

C4B62 1 — 

06457>“ 0 

-T403 T 0 - ST O O L 

0646 2 

“1 6 - 32 T O S TCOl 

05152 ' 1 — : 

^ 6 323 D V d 2 GO N 2 S T € A 1 
46667 T 


OL O A O ■ - 
V82EMFLG 
1 /RTMUM 


M JNPPRM 
HPERMJN 

tuts 

GOTO 
V82GON? 
uLm AO 
VR2EiMPLG 
1 /RTMIfE 

MINPERE 
HPERMl N 

RPAO 

R P A 0 T E^ 
SP30. I 


INDICATE MOON SCALING FOR SR30.1 
LUNAR PARAMETERS LOAOEO HERE FOP SR30.1 


S€7 tt : E D AT (-27) M . 


INDICATE EARTH SCALING FOR SR30. 1 
earth parameters loaded here for SR30.1 


COMMON CODE FOR EARTH 6 MOHN. 



^AP: ASSEMBLE Pr\/1SI0N 0S5 OF AGC PROCP.A^ C M ATTRE "BY "?QA^A 2021113-0^1 


10:7^ APF. ITl^hV COMtK 1 SS . 070 PTHTF 



L 


R 31) 


OSER^S-O^AGE no. 


EA S3 


^3•26^^1 7TT7E I EXIT 

n LAST 42^ 23,2642 0 5364 0 TC CHECKMM 

— — ^ ““TT,”ZCT'3 00013 0 [TEC FT " 

1 “2T,2 644 0 2S5T I TC VS2GONT NOT IN MOOE 11. 

62 LAST 51R 23,2^45 0 6006 1 CAMOEL TC TNTpRET IN MODE IT OR 00 

__ ?3,‘2646 ?T6'24~ 1 CATE — = — — 

14 LAST~ 312 23,?64T' 27442^0 INTSTALL tTELRSPL DOES INTWAKE 

23,2650 45145 O OLOAn CALL — 

12 nrST 3T9 23*2651 02344 0 TTF” — — 

I 23,2632 ■ 64017 0 OEL^SPL RETURN IS TO NEXT LINE ( SPLRET ). 

23T2 653^ 77776 T -GPtHET 3X17 — “ 


54621 REF 11 LAST 517 

5462? 

"54673 REF I 

5463“ R FP “24 L A ST 518 

54 54 - •:’,EE 15 LAST .518 

”^465 

5465 RRE 26 LAST 518 

5468 FEE 12 LAST 518 

"5463 RRF 105 “UXST ‘"5X0 

5470 REE 5 LAST 516 

5471 RTF 2 rA3T‘“5TO 


23.2654 

23.265 5 

23.2656 

2T,7657 

23.2660 

23.2661 

23, 26 62 
23, 2663 
2 3,2 6 4 
23T26 65 


3 1011 
0 0006 
T"75Dr 
3 5013 
7 1044 
U"0006 

1 5534 
3 5041 
0 46 62 


0 

1 

0 

0 

1 


01 


23,2566 a 2604 


1" 

1 

1 

1“ 

O 

r 


V82G0N3 


CA 

EXTEND 


CAE 

MASK 

EXTEND 

3ZE 

CAE 


CADR 

TC 


MO DREG 


SPLRETl 
BIT5 — 


EXTVBACT 

ENOEXT 

1 SEC 


DELAY JOB 
VSIGONI 


SEE IF ASTRONAUT HAS SIGNALLED TERMINATE 


YES, TERMINATE V8 S2 LOOP 



SECONf) BE 
ORBITAL PARAMETER COMPUTATION. 


5454 

5455 REF 
3455 

5457 REF 

5458 REF 
545 8T 

54582 REF 

5459 “ 
'54^50 RFF" 

5461 REF 

5462 




s' » ■ * ^ 




A'5'SfcMBLI: k'-VISTGN 



7^'GX~ P'ROG NAM (/IMAMLHf: nV NASA ;^0 ;dlT 13~ 05 I 


10:28 APR 


1 *196'5 




^30 - ■ TJ5EF»S~^AtrF NO. 8 E4 S3 


^55^^ S1J0POUT1MF N^F: 3F30Vr 

D554Q ^n^. MO: 0 " DATF: ^ 16 FEB 67 

TrS53I rnTT^SY: X(R~irAlRM'SFATHEf^ — LOG SEC TI ON ? r32 

TF3553 ~ .HGD NO: ~T MUO BY : RR BAIRNSFATHFR DATE: 11 APR XT 3R3t).t CHANGED TO At LOW MONITOR OPFRN 

P5555 MOD no: 2 MOD ^Y: RR BATR NSFATHER DATE: 14 APR 67 ADO OVFL CK EOR RAPO 

■FSBB7 BOO ^ j : 3 MOD BY ALONSU OAf hS II DEC 67 — "SOBROU TI NE REWR IT T E N — 

R535o5 WOD NO: 4 MOO BY ALFnMSO DATE: 2 6r MAR 68^ — PROG mO TO HA710LE DTT EARTH/HOnN SCALE 

P 555^ MOO NO: 5 3Y : Rt? BATRMSFATHFR DATE: 6 AUG 68 nvFL CK FOR HAPO S HPEP.VOIDS MOD 


P S5oP 

34 
R5565 
^ 5 ^ 66 

R 5S6'7 

R 556 B 
R5569 
“R"FST 0 
R5571 


NFW FUNCTrOMAL UFSCR I^TTON: URBTTAt^ PARAMETERS DISPLAY FOR NOUNS 32 

RR 3 T) .T"OrcrS IFFCtiNMU AND TFEPP/RA TO CALCULATE RPEP ( PE*^ I GfcE"R ADTUS T ♦ 
RAPP ( APOGEr P ADIUS) t Ht>FR ( pERTOPT' HEIGHT ABOVE FAUNCH PAD OR LUNAR 
LANDING SITTU HAPO ( APPGr p* I GHT AS ABOVE > . TPER (TIME TO PERIGEE). 
TFP“T I I Mb 1 IJ“ TNTERSEC 1 — 3 r TO~KFr AB PVF • PA ' D OR 35 K F T ABOV E LAND I NG S TTET.' 
TF UPR^ IS GREATER THAN "OR F OU AL TO HPERMIN. CALCULATES TPER AND STORES 
NEGATIVE IN -TPER. OTHERWISE STORES 4-0 IN ^TPER. WHENEVER TPER IS 
F/AIXULATED , TFF TS NOT COMPUT ABLT" AI'TO' DEFAULTS TO - S 9 MT N 59 SF C. IF HAPO 
’WOULD FXCF'^D pooo.q mm, IT IS LIMITED TO THAT VALUE FOR DISPLAY. 


AND 


R 5 RT 7 

R 8 S 73 


A DO RTDOM^ ■ OAPO AND HP FR SHOUL 0" BE 

ABOVE REMARKS. 


0~T 


HA POX AN D H PE R X TN- THE^ 


R5574' 

R3576 
~R557T 
^ 5S7B 
R5579 
■R55W 

R 5 5 BT 
R 5 58R 
R53B3' 

R35 83 
R 5 5 B 7 


* $ 


R 55 89 

n t^c;orj 

Tr 55 'X 

P 5592 


R 5 5 TZjT- 

-R3503" 
R 3396 
~P.339T 


OrcriOG SEOIJENCE! 



SUBROUTINES CALLED: 
normal 

alarms: 

OUTPUT: 


Z 

SP30. 1 

TfFCONMU. TFFPP/RA. CALCTPEP. CALCTFF 
CALLING LINE^-^^I 



rN~ TN TE R 



RAPO 


NOME 

r - 2< M "M EARTH 

^ZTT 


APPGBE RADI US 


T 


"T'-HOTTM 


earth centered coord. 

D CO O RD. 



PPER 


"RAPnX 

HPERX 

TPF 

-TPER 


(-29) M EARTH 
(-27) M MOON 

f ^OfRT 

(-29)^ 

(-28) CS 
(-28) 


APOG 


US 


PERIGEE RADIUS EARTH CRNTERFO COORD. 

MOON centered coord. 

ABn V E P AD OP' tAN O , "S I TE~ M A X- VAFUE L I M T TED TO- 999 9 .9 
PERTGFR -ALT. ABOVE PAD OR LAND. SITE MAX VALU«= LTMITFO TU 9999.9 NM 
Tja'*E TOOOOKET or 3SKET ALTITUDE 

TO P 


ERASABL H 


INITI At l7ATTnN REOUIREO- 

TEE/RTMU (4-17) 'cAPTH RECF>RncAL OF PROPER GRAV CONSTANT FOR 



RONE 

VONE 


( -- 2 S ) 
t-T) 


MHON 
M - 

M/CS 



1/ S 0 PT (MU) 


RPAPT E M (- 29 T M E AR TH 
= — (-27) M— MOON 


TATE VeCTTTR 

ST ATE 





(300't^ wiMI*1UM PF.RISPE ALTITUDE 

~5Ttr n r- 1 . Aim CH 'P’ AT) H R •• L»NA R " ' t AN DI NG S I TE. 




HPERMIN (^-^ 29 ) M“EARTH 

C^^TTI — M-'MOnN — 

VBRF*^ELG (TNT f T ) RESE T FOR EARTH. SET FOR -MOON. 


OEBR T 


•^PRET , 










AP: ASSHMPLF REVISHIN OF AGC 



mMANCHE 'NASA Z0'21 1 1'i-Ob 1 


TT>T7T"APP. 1,1969 COTEKTSS.U?U PAGE 



RIO 


PAGE NO 


E4 S3 


5600 

'5 601 

5602 

5603 


R FF 


~CmiNT^ $$/5R30S 



C -j , 


QC 


err 


last ^49 


r 

2 3", ?“6Tir 
2?, 2671 


44001 0 SR3 0'.' I STTFTJ 

00001 0 

aoo5i 0 


sr^ 

0 

52 


INITIALIZE PUSHDOWN LIST. 



A 5 605 
A 5 606 
65607' 
A 56 OB 
A5609 



A5611 
A 561 2 
A56TT 
5614 
561'^ 
“5 61 6 
5617 

561 ? 

"56rrT 

562 0 


■n 

£L 


5624 
"3625 
5626 
A 56 2 7 
■332^ 
3629 


A56T2 


A 5 64 3 
A 5644 
5643 
~5T7i3 
3647 
564 5 


A5FTr 


5R3n,I IN P UT ! RON E AT (-29)^ E AR THTNOON 

VON€ AT (-7IM/CS 

TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF 

CALLS REQU I R E ? 

EARTH CENTFRFO (NO RESCALING REQUIRED) 

RONE SCALED TO R-29 H 

MOON CENTERED (RESCALING REQUIRED) 

RONE SCALED TO B-27 M 

B-3 — ^teS 



0 EF^ 
73F 


RTF 

OFF 


D 

12 


T3 

n 



RTF — nr 


REF 




'23 .2372 

rrrr4 o 

04742 l 

LAST 

519 

23 ,267 3 



2 5,23^4 

46703 T” 

LAST 

519 

23T26 7 5 

0 23 2 7 tr 



23,2'>7f, 

77752 1 

CAST 

^ 322 

2 ? f ^ ^ 7 

"F632T 0 

LAST 

519 

“2 3, 2? 03" 

02335^ m 



23,2701 

7TT52 t 

LAST 

522^ 

23,2702 

02335 0 


BOFF 


VLOAD 

VB2FMFLG 


OFF FOR EARTH 


ON FOR MOON* 



R ONE 


VSt 2 
STDV t 

VSL2 


RONE 

WNF 


REF 


T3,2TCr3' 

23V3704 

TT77TD3 

23,2706 


776 24 I 

5 6-7 60 0 

77624 1 

57026 T 


TTFCALLS CALL 


"CAtr 


V 0 N E 


TFFCONMU 



-,"R P F R * ' 


TFFRpy RA 


returns with rapo in O(MPAC) 


RFF 


LAST 519 


23 ',2 TO 7 

23.2710 

23.2711 


77525 O 
37232 T 1 
64414 I 



RRADTEM 


BOF»= 


5633 

REF— 6 

LAST 

5.?3 

23,7712 

04742 1 

563 4 

5635 

5636 

REF 1 



23V271 3 
24,2 ^4 

2 3,:^ M5 

46? 14 T 
77624 1 
46 754 IT 

5637 

563B 

5639 

FTF 5 

REF 1 

LAST 

515 

2 i f 2 / 1 6 

25.^717 
■ 22,2720 

163'52"T~ 
000 IT 1 

7 7 6 25 3“ 

5640 

REF 3 

1 AST 

527 

2 372 721 

02323 1 

5641 

' RFF^340 

L AS T 

50? 

^ 3 f — 7^^^? 

OOT^T 3 

5(542 

« 

- 


23,2723 

644 14 1 


CALL 



V82EMFLG 

-n 

MAXCHK 
A POX 

PPPR 


NEED HAPO AT (“29)M FOR DISPLAY. 

" tr N OON CENTERED, R ESCAL E ^FPfTM 

IF EARTH CFNTEREO ALREADY AT (-29)M. 
OFF FOR FAPTH , ON FOR MOON. 


IF HAPO > MAXNM, SET HAPO = 990<?.9 nm. 
OTHERWISE STORE ( R APO-R PAOTEM ) IN HAPO 


trsu 


STDRF 

BOFF 


MPAF 

SR?R 


GIVE S HPER AT ( -29 ) M' EART H* ( - 2 7 ) m 
SAVE THIS FOR COMPARISON TO HPFRMIN. 
NEED HPER AT (-29)M FOR DISPLAY. 
f -p MO ON C E NTe 



tJ 


' E F 


LAST 52 ? 


“23,2-724 
~2 3 , 2 


z> 


RFF 


? ? v? 72 6 
,2 7 77 


<1^7 40 1 

3 6 72 6 " 3 

77624 1 
46'7 54 0 


VB2E*^FLG 

33 


IF FAPTH-eFNTFPFD ALREADY AT (-29)M. 
OFF FOR EARTH, ON FOR MOON, 


CALL 


IF HPFR > MAXNM, SET HPFR = 9999,o mm* 


2 LAST 522 


•^AXCHK 


« I 








1 









■ ':•*• w • '_». 


-• '*^ •* /v>!;/ •■' •'*■• <^^'!‘-T-\» =.\ • >-■ * ^ ' ■ V*'"’.'- *'' *. *• ‘ 




r';TP^*in:F ‘<^TVlTITfN OF \GC' ■■ppnGPS'?3l' C lMAMCRl "BY NASA^ZCTZIi I ri-Ob I 


lOi'2^ APR. r7T9F^? COHEPCTSS .020 P AGE 



T 


R30 




PFF 741 



5653 ' 
”56Fr~ 

56 55 
565 5 ~ 
3657” 
565 5 
5659 
■ 566 0' 

5361 

566Z 

“566T' 


P3F 

REF 


REF 

REF 


REF 
P EF 


REF 

TPF 


4 


5655 

5666 

5657 

5663 


PFP 

R EF 


R -F 


? cip 


566 9 
5670 
■56~"T 
567? 
5679 
55T3 
56 75 




L- 


RTF 


p EF 


5676 

5675” 


3 

I 


1 

1 

2 

1 

7 

6 


6 

1 


13 

5 


LAST 

LAST 


LAST 


LAST 

LAST 


LAST 

L-^ST 


LAST 


tlSER^S PAGE ra. 10 


E4 S3 



LAST 522 


51 B 
523 


LAST 32F 


520 

52? 


LAST 523 


23,2734 

7T7273T 

23. 2736 

23.2737 
73TZ74F 

23,2741 



737 

23.2744 

73.2745 
2 3 . ZT47r 
2373 74 7 
23,2750 
7T7275T 

23.2752 

23.2753 


23,2754 

3 

27T2T55 

23,2757 

23.2760 

23.2761 

23, 3767 


36354 1 
00161 1 
51025 1 

02321 0 
46740 0 
52145 0 

15335 0 
46744 1 
Rf5r4'5“a 

000171 
57064 1 
77676 0 

16346 1 
02321 0 
45015 I 


STDRHPER STOnL 


TTsrr 


DLOAD 


TTTfTFFR 


irroAu 


HPERX 
MT’AC +4 
BPt 

HPERM IN 
OOTPER 

wm 

m^TEROS 
SKTPTPER 
CATE 

CALCTPER 


DCOMP 

SKI PTPER" STOOL 


Trm 


3 1 
5 70 6r 1 
7T6T6““0 


-TPER 
H-PERftlN 
tTAtt™ — 
RPi^OTEM 
CALCTFF 


^ A 


1 fc 


S3 4 


^ A 


OCOMP 


STCAtL TFR 


00051 0 


31025 
Tr677r4 
"4676T 
43415 
06 7 64 
43545 


HAXCHK 


TT 

0 
1 
r 

06764 3 


^F3 


OLHAO 


8PL 

NAXNM 

^ 

RVO 

MAXNM 

“RVO 

»^AXNM 


23.2 763 — 
23,2764 


01065 0 

05603 1 


iMAX^PT 



STORE IRPEir-^RPAOTEMt INTO HRERX. 


HP E RM T M A "r ~t- ~791 TI FO R EAR T H, ( -2 7) M N OO N 


IF HPER L/ HPERMtN (300 OR 35)KET, 
THEN ZEFO INTO -TPER. 




“TPER . 


TP ER I S P U T 


MPFRMIN AT (-29)M FOR EARTH, (-27)M MOON 


RPADTFM AT (-29)M FOR EARTH, (-27>N NOON 
GIVES 59N59S FOR TFF IF RPFR G/ 

» RP At rrFN. TT PE P WAS " NON ZERO! 
ERWISE COMPUTES TFF. (GOTO) 


IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM 



(MPAC7 - 






T 


SinsT ftS'=;bMHLE~gTgVr5I0N 05S of \(;i- PKUUKAH HIHANCHb BY NASA 20 ' 2Iilj-051 1012 8 a P P. l.i qCT 

L T? TO ”””■ DSFP' S P AGE M 


EO S3 


ASSE'M’liLb 'f-^EVlSniN OSb f "liT;!:' PHTlUkAM L JMANCHb KY NASA 


rOT2S APR. H'l T69 



;020 


STA ^UF n^l3TT - P3 F-P3 9 


tlSFF^S PAGE NO 


I 


ROOOV STABLE OR BIT' REN^DEZVnUSPFH GRAMS (TTF'ANn FT3 ) 


TrODT:? MUD 'Tin -l LTTG' SEUTTON - stable orb 11 - P3B-P39 

~R0003 MOO BY RUDNTCKI. S nATE~23TAN6B 


-RoocTzr" FL'srr.TTOArAL nt sew i pt ? tin 


R0005 P38 AND P78 CALCULATE THE PPQUIRFO DELTA V AND OTHER TNITtAL — “ 

Traras ttotiottions' R"( jurTEo^ age Tii t t t- pu i i he acuve vehicle 

ROODT DM A TRANSFER TRAJECTORY THAT ^TNTRP CEPTS THE PAS5TVE TTEHTCLE 

R0008 nPRTT A GIVEN DTSTATrCH,” OrLTA R» TTTHER AHEATT' OE Ol^ BEHIND THE ~ 

P'0000 PASSIVE WHTCLT^" AND ( 2y "A C P L ~ AC r T H » ^ AC T IVE V E H I CL E I N T H E 

ROOTO PASSIVE VEHICLE TFBTT WITH A DELTA trSEPARATinN BETWEEN THE TWO 

ROOl 1 ■ VEHICLES 


ROai2 CALLING GEDOFNCE 


00013 ATSTRON AOF'REDUE SI — rHPlJ DSKY 


R0014 V3TE38F IF THIS VEHI CLE" IS ACTIVE VEHICLE 

ROPTB V37ET3E IE MIHER VEHICIE IS ACTIVE VEHICLE 


ROOl 3 INPUT 


R00I7 (1) SOI MANEUVER 


TTOOl ^ ^ “~ TAT OTO TIME OE SOT MANEUVER 

R00I9 (3) CENTAUG HPP I T A L-CENTFAL “At^LE OF THE PASSIVE VEHICLE ~ 

R0020 DURING TP ANSFFR:- P-RCM TIG TO TINE OF TNfTERCEPT 

R002T re r DFL rAP' FHE DESIRED SEPARATION OF THE TWO VEHTCLFS ‘ 

P0022““ ^ ^ SPECTEIEO AS A DISTANCE ALONG THE FASSIVE VEHICLE 

R0023 nPBI T 

TOOTz^ ID) npnoN EaijALS'-i'FnR'stn 


R0025 {?) SHR MANEUVER 


R0026 
ROD? 7 

ROOTB 

R007D 
P0030 
F:0031 

~ ^ Ptm 32 
R0033” 


(A) TIG TIME OF SOP MANEUVER 

(3) CEMTANG AN OPT I ONAL RFSPEC I F I C AT ION Of 1 (B) ABOVE 

(CT OPTION EQUALS 2 " F OR SDR — — 

to) OFLTT IMF- THE TIME RFOUTRFD TO TRAVERSE DELIA R- WHEN 
— — — ^TRAVF1INGT\T A VELOCITY EQUAL TQ-THF HnRl7nNTAL 

m\ '^MASF — — 

(H) TINT TIMb OF TNTEFCcPT tSOI) - SAVED FROM SOI PHASE 


R003A OUTPUT 


RG B 3 3 — tl T TRXNKCTT! — MUM B^- R - n F NAR K S 

R OB 36 ( 2 ) T T 0 GO TIM*- TIT GO 

R0037 (3) -i-MGA MIDDLE GIMBAL ANGLE 


I 


GAP: AS')EMBIE RFVISTON 055 OF AGC PvnGl'A^ C H A^'C HE '^VY \!A SA 21 1 1 3-05 1 


10:28 "APP. n i V 69 CaMEKlSS.02() TOtTE 52F 


STABLE 


P3 8-P3 9 


USFR«S PAGE NO. 


? 


EO S3 


R003^ ■’ (4} ^SPTE^^1 TT^ TNT'^^PCEPT OF PASSIVE VEHICLE ORBIT 

ROO"^^ {FOP SOT ONLY) 

R'OOAO rS )“15Tr5 TTFT PFR IGEc" AL I H iJI'U. OF AtMVb VbHICLb ORBII AhIVP — 

P0041 THE ssnrtsn^) ttamfuver^^ 

R0042 (6) DEL VTPT magnitude OF OEtTA V AT SOT ISOR) TIME 

RO’O ^T“ T 7) DfcLVTPP M7\GK!I TI'PTF *> IJbLT3k V AT' I MTERCF P 1 — TPTE 

R0044 (8) OELVLVC DELTA VELOCITY AT SO^ (AMD SOP) - LOCAL VERTICAL 

R0045 CGORDT OATES 


R 0044 TOD P OUT IV F S MSEn 



R0O48 
R004^ 
ROOSO 
RD0502 
R 00 S 0 4 ^ 
5W 


ROOSOB 

R0041 

ROOE3 

010054 


0055 

1)056 

TTOET 

0058 

TJTTE^ 


006 0 



0063 

0064 
IHJ 55 r~ 
0066 

006 7 

0Tr6 R 

0069 

00694 

TTCTEW 

U06^V: 

■0070 

OOTE? 

00704 

007 1 


AVELATir 

AVFLAGP 

VNOSPLY 


007^^ 

0074 


“ B A MK CALL 

GOFLASHR 

GOTOPonn 

BLANKET 
E NODE JOB 

PREC/tt 

SETECTRU 

INTHPVP 

TTATNRTNE 


REF 


REF 

REF 


T 


EF 


RFF 


3 

3 


REF 

REF 

RFF 

REF 

REF 


1 

1 

T05 

1 

12 


REF 

RFF 


17 

■~r 



" Ef 


r r r 


“2 

65 

4 



04,2742 
04,3000 
CTT-TET 42 


LAST 605 F4, 17 70 


LAST 453 


I AST 
LAST 


46 8 
46 3 


04,3742 

04.2743 

04.2744 

04.2745 
■Q /fv 2^745 
04, 9747 
04,2950 



LAST 


51'’ 




F4T9 

,3752 

04,2753 



T. A ST 513 


04 TF 7 5 4 
04,2955 
0 ^!-v 2 75 6 

04, 9757 


31057 0 
T" 410 6 O 
1 2761 1 
2 7 50—^ 


RFF 50 trAFT 518 

425 

2Tr 



LAST ' 

!AST 516 
LAST 45 7 



04,3760 


04 ^ 3 ’ 763 “ 
04 , 2 T -64 


3 5017 I 

] 


^5* 


BANK 


04 


SFTLnC STBLtORB 

BANK 

EBAMK= SUBEXTT 





cn 

0 4677 

0 

P38 

TC 

0 2 74S 

U 


TC 

O 4643 

0 

PTB 

TC 

0 464 7 

0 

- - - 

TC 



AVFLAGA 


THIS VPHICLF ACTIVE 


FTF 

TC 

CAF 

TCR 


CAOR 


AVFLAGP 
P20FLGON 
V06N33SR. 
VMOSPLY 
V06N55SR 
BANKC ALL 
GOFLASHR 
OH TO POOH 


OTHER VFHICLE ACTIVE 
SET UPOATELG, TRACKFLG 
O t SPL AY TIG 


DISPLAY CEN^ANG 


TCF 
TCF 
C A F 
TOR- 

TCF 


TERMINATE 

PR n o E E n — 


T HR EE 


RECYCLE 
IMMEDl ATE 


RETURN - blank R1, p? 


BLAN K ET 

FNOtOEJOB 


TR 


O R TTOHI 


TS 


0 P 9 T ON? 


OPTION CODE IS SET TD 1 






• • rf 


G7^i A'S^'fr'MRLf- ^^/:-Vl^lONi Tl^'S OT 'T^T: t' iMANCH 



SrSTA :i 021 U 3 - 0 Sl 


STARLF' nPBTT 8-^39 




OOTT 

0079T 

nOT 9^5 PTF 

OOT^T 

OOBD 


TPF“' "^15 F: TTST — 57F 

REF 63 LAST ^ZO 





04 , 2 r 7 b 

n 4 , 2 T 76 

04 .ErrTr 

04 , 3 DRU 

0^*3001 
04, 3002 


T 5ZTr 1 

7TT3T 1 
~TJ376fi ■ 0 

OOrKrZ“ 0 ^ 
70535 O 


TCF 

TC 


FN DOF JOB 

TNTPRET 



5LnAn 


OORT 

’ " r r 

— cp- 

TAST 

“5ZF 

■047TO0T 

— 01133 

~r 

003Z 





04,3004 

71230 

XT 

0093 

REF 

1 



04,3005 

1101? 

tr 

0084 

REF 

T 



"U4, 3006 

( J 3 6 5 b 

i 

0085 

REF 

1 



04,3007 

02611 

0 

0086 





04,3010 

77614 

1 

0087 

R. Ir I* 




C)^ t 5 U 1 t 

012 30 

i 

00B8 

REF 

I 



04 , 3xri2 

1T042 

I 

0089 





04 , 3013" 

43014 

0 

OOWF- 

■ RTF" 

Z 

TAST“ 

5 2 7 

04 , 3 0 1 4 

010 / » 

i 

0090 

REF 

4 

LAST 

4B2 

04,3015 

OOSTD^ 

0 

00905 





04, 301 6 

77624 

1 

0091 ■ 

RFF 

T 



T)4, TOTT" 

I i 2 1 b 

I 

00915 

- - - - — - . 




0'*,T020 

40?T4 

1 

0092 

REF 

5 

LAST 

5F7 

04,5021 

004 70 

T 

0 09 

RTF 


L As r 

512 

04, 3022 

C> 3 4 1 3 

1 

0094 

REF^" 

2 

LAST 

527 

04,3023 

■' 03656 

1 

”0095 

FEF 

31 

LAST 

45 9 

04,3024 

01046 

1 


I Z 


STOPp 

CLPGO 


^ 

Z 

SPl 

OPTION? 

DLOAO 
OP TNI 
T I NT “ 
TINT SO I 


OPT NT 


npTNSV? 

JUMCTNl 

CLEAR 

mnrrsM — 

UPOATFLG 


CAI L 



"01176 
00915 2 
00964 

0 0 W6~ 
00968 

0097 
009TZ " 

0098 

0099 
OTOO 

OlOT 
010?-" 
VVJ3 — 

0104 

0105 
0106" 

0 1 07 

0 1 09 


PEF 

PFF 


RFF 


1 

log 

~T 

14 


I AST 
LAST 
LAST 


52 7 

5 ZT 

52 7 


04,3031 


RFF 

RFF 

RTEF 

t7FF 

RFF 

“TEF 

^ Ff 
"RTF 


13 

3 

TT 


L AST 
LAST 

r 


51 0 
7 

“5TT 


-? LAST 


FT 

T 



“TTST 4793 


04 , 3 (723 

04V3026 
04,30?? 
047303X1 
3 

0 4,3 03 Z 
04 ,3033 

04, J034 
04,3035 
04 , 30T6’ 
04^3 0 3 7 
04, TO 40 
04,3041 

04 ,3043 
04 ,3043 
"04, 30-44 


77776 1 


3 32T7 
XT 46 62 


1 
1 
T 

3 621 1 
0 5526 


4 1 06 
30 37 
30 


0 

1 

TT 

0 

1 


SrORF 

STnRf- 

FXTT 

CAF 
TC R — 


TCF 

TCF 

TCF 


PRF C/TT 
OAR 

UPOATFLG 
TTG 

TINT 

DSPTE^n 


10:28 APP. r,"l 969 CUMFKISS.020 PTCF 5ZT 


0074 2 

00744 

REF 

RFF 

1 

107 

LAST 

TZ6 

04, 2755 
” 04,2T66 

0 4662 

1 

1 

CAF 

TCR 

V04Nn65R”” 

BANKCALL 

OOT46 RFF 

2 

LAST 

52 6 

04 , 6 r 

7TTT57~ 

0 

Cauh 

GiJFL ASHR 

00748 

REF 

1 3 

L AST 

526 

D4,277n 

1 41 06 

0 

TCF 

GDTDPnDFf 

007 5 


« 



0 ^ f ^ T TX 

1 Z776 

1 

TCF 

+ 5 






04 , 2772 

1 2 /"bb 

0 

rcT= 


0 07 6 

R cF 

1 5 

LAST 

375 

04,2773 

3 5015 

0 

C AF 

BT T3 

0077 

RFF 

2 

LAST 

52 6 

04, 2774 

0 5 5 26' 

XT 

TCP 

BLANKET 


0 

0 


T 5 21 7 1 

3 3300 1 
0 3263-0 


XT 96006 ' 

45014 
- 0 4Z66 


T 

0 

T 


CAF 

TCP 

TCF 

CAF 

TC 

TC“ 


V06M57SR 

bankcall 

SOFL ASHR 
GUTOPORH 

4^5 

^=-5 

SIX 

blankft 


V06N34SR 

VNOSPLY 



JUNCTNl CLEAR 



CALL 

P 39 / 79 SW 

SELgC TN U 


RFF 


Z LAST 5? 7 


04, 
04,3046 


77624 
1121 h 


t 

1 


PECYCLF CALL 


PREC/TT 



USER* 5 PAGE NtJ. 


F4 S3 


UrSPLAY OPTinN CODE - 1 = SOI, 2 = SOP 


TERMINATE 

PROCFEO 

R ECYC L E 

IMMEDIATE RETOFM - BLANK R3 


STORE FOR SOR PHASE 


OPT 


SOI 



0 ^ OOF 


rr = Tf G -f TF 

FOR DISPLAY 


DISPLAY DELTA R 


TFRMINAie- 

PROCEED 

REC Y CLE 

immediate return - BLANK R2, R3 


DISPLAY TIME Of INTERCEPT 


SttECT MU, CLFA R FI N ALFLG, GT TO" VN1645 


17 


AP 


ASSFN^BLE REVISION OF AGC (>' DGPAM CGMANCHE BY NASA i?0211ii“0bl 


10^2*? APR. 1 ,m»b9 CaMEKIS5.020 


C 


STABITE 02 BIT - P3B-P3^ 


USrR«<; PAGE NO. 


EA S3 


0102 


0110 

REF 

3 

LAST 

oni 

& 

a " 

T 


0112 

tff 

3 

LAST 

0113 


18 

LAST 

0114 

P F 

'1 


0115 




0116 

REF 

14 

LAST 

oin ■ ' 




ons 

REE 

12 

LAST 

0119 




10X20" " 

REF 

7 

last 

0121 




0122 

PFF 

3 

LAST 

ot:2T" 




0124 




0121 

RFF 

1 



m2h 

0127 

012^ 

TJTZT 

0130 

0131 


■“xmir 

0133 
013A 
WOT 33” 
R0136 


3EF 


1 

2 

“2 


REF 


LAST 
TAST 
LTTS T 


”2FF 

REF 

7FF 


LAST 


# # 



52 7 


52 7 
316 


516 


516 


Fro 


2B0 


52 7 

Ah53' 

52B 


roF . . 

SUBmUTifTFS USED 



SiA35.25 

PFKTAPni 

SHI FTP 1 
VNDSPLT 
BANKCAJ L 
GOf LASH 
OnTOPOOR 
VNl 5A5 


0 A. 30 A 7 
0A,'»050 
“OATTOFT 
OA,3032 
04,3053 
' 04,3054 

04,3055 
04 , 3 05 6 
“0'4;3i)57 

04,^060 
04,3061 
"OATFTJF? 
04,3063 
04*3064 
“04, B065 
04,3066 
04,3 067 
“0473070- 

04.3071 

04.3072 

04.3073 

04.3074 
-04,^075 



04,3 076 
0473077 
04,3100 


71214 0 
01350 0 
TT071 1 
03656 1 
34041 0 
11247 


BDFF 


OLOAO 

OPTNSW 


TJFTNZ 

TINT 
STCALL TOECl 


53575 

00001 

47315 

00007 

60246 

00047 

56335 

02611 

77657 

20172 

36613 

11075 

433 45 

0 26ir 

3503 7 

03636 

45345 

03656’ 

02613 
0 2615 


TT 

0 
0 

”0 

0 

1^ 

T" 

0 

0 

” 0 “ 

1 

0 

” 0 “ 

I 

31 

37“ 


nPTN2 


J mt THZ 


T 

1 


VLOAD 


PDVL 


ABVAL 


poni 


TNTRPVP 

UNIT 

ratt 

TXV 

VATT 
NORM 
70 

oov 

OF LIAR 


PRECISION OPOATE PASSIVE VEHICLE TO 
mTHRCEPl — riMF — 


RP/(RP> 


(VP X RP/(RP)) 



p- 7 (VP 



O -7,1 

STCALL OELTTIMF 


DELTA T 


(PP) DELTA R / (VP X RP ) 



OLOAO DAO 

TINTSni 


STORF^ TINT 

OLHAO 


TI = TI TF 


DELTTIME 
STORF TARGTIME 


TT = Tf - OELTA T 


0146 

0147 
0143 


RTF ■ 

» 1 


10 

2 


75746- 

PEF 

"74 

0150 

0 1 51 

-RFF" 

7 

“ 0152" 

RFF 

i y 

0 1 33 

R HF 

1 

0154 

■ -p-p-r 

15 

0155 



n 1 5?> 

FF 

1 

0157 




rA6 

LAST 


F 
523 


061 577 

LAST 400 


061 576 


LAST 525 


1X4,3101 “ 34041 0 


04,3102 
04,3 103^ 

04. 3104 

04.3105 
04,3 10 6 
0443 107' 

04.3 110 

04.3111 
04,311 ? 
OA , 3 113 
04,3114 


112 47 
777 45 


0 341 3 
03503 
773 31 
02 371 
11 114 
00001 
7- 7674 


0 

1 

W 

l 

-o 

tr 

0- 

o 

- 1 “ 

o 


STCAtt TOECl 


OLtlAO 


STORE 
SSP — 


O Atl r 


43014-0 TEST 3070 HOFF 


INTRPVP 


T I G 

I NT IMF 
VLOAO 
SOREXT T 
T^ ST 30 70 
R A T T 


PR EC I S I ON UPD 

TARGET TIME 



VF VFH IC tF TO 


S3435.25 

80N 


G API ASSiz'^'^L!: RFVISIHN 05*^ OF AGi: p'“ .qraM CIMANCHF SV NIASA 



■^-051 



1 * 11^9 CUMfcKlSS.OiifJ PAfTF ^529 


5TABLF n^ BTT - 


TISF»^^S ^>AGH m 


FA SB 


013'^ 
0160 ■ 
0161 
0162 
1)161" 
01 6 A 
01 6 A3 
■ 0 T 6 T~ 
Oil? 

01 '57 

TJT61' 

01 o 9 

0170 


IE r 




LAST 327 





1 

S 

T 


tTTST A9A 


OA ,3^X1 3 
0A,1116 
XTAVTllT 



RTF 



IFF 

REF 

RTF 

FEF 

FXF 


11 

5 

~A 

7 

~S 


0172 


017 


01 fa 

0173 

0176 

0177 
0173 
0170 

OTKO 

Ol'^l 
0112 
0133 
01 8 A 
0133 


n 


EF 


2 



7 

3 


PFF 

REF 

REF 


r- 


TJlbo 


REF 

REF 

3FF 



0133 

"OTW 

0 2 0 A 
0203 
0206 
0207 
0200 
0 200 
0210 
0211 
TTCn 


1 

3 

”T 

A 

63 


3EF 

REF 

ftef 

IFF 


2 

12 

3 

4 



7 


LAST 

LAST 

■nrsT 


AOT 
A6 3 
AT5 


LAST 

tlfST 


A9T 

T. 


>F5 


RFF 16 LAST A03 



LAST 


A^OT 

A6*^ 


L33T 

LAST 


335 

A65 


“6 CAST 32^ 

1 

7 LAST 52R 


'36.3X20 
0A.3121 
“0613127 
0A.3123 
0At312A 
0A,1123 
DA. 3126 
OA, 312T 

“OATTTXTT' 
06.3131 
06X3 132 
OA. 3X33 

aA.713A 
“OA, 313 3 
■06.3133" 

0At313T 
^ 0AV3XA0 
~TJ6r3T6X“ 
aA,31A2 
0 A. 3X63 
0 4 .3 1 A A “ 
0A,31A5 ' 
04. 31 A 6 
" ■ OA'.' 


043^3 X 
11125 1 
01311 0 

11123 T 
77614 1 
O06T0 T 
7TT75 1 


93977^ SW 
^AINRTNl 
FINAL FLO 
F39R79 


26635 


0 3132 1 
31373 1 
03646 O 

0 

■O3 6 A 0 -TJ" 

51431 0 
03620 0 
2 6637 1 


P39P7^ 5X1 T 

TC 

MAINRTNl VLOAD 


UPDATFLG 

OSPLYBl 
A3 VAL 


FOR P30 AND PT9 


STOVL 


vstr 


Ttm: 


0 

46113 0 

03612“ 1 

45133 1 
7767A 1 
'A52'63"l"" 

076AT-tr~ 

6301 ATT" 
01?ll 0 


POVL 


OELVTPT 

VPASSA — 

ABVAL 

VTPPT ME 

nxLVTPf- 

RACT3 

CALL 

V T PR T M F 
PEPl APOl 


DELTA V 


D Ft T A - 3r tFT NAir ^ V ^T - VT 


GET PEPIGEE ALTITUDE 


CALL 


STORE 

BON 


SHIFTRl 

POSTTPI 

SET 



1 1 167 
006 70 


LAST 

LAST 


LAST 

LAST 

XAST 

LAST 


579 
52 7 

AFO 

529 

631" 

A9A 


3X6T 

OAf3150 
04 .3X51' 
0613X52 
QA.3153 

0A.3134 

0613X55 

0^.3196 
0^. >157 
06 ,3X50 

04.3161 

06.3162 


D 
1 
1 

3 3301 0 
“0 3263 O 
■ 3 - 3302 "O 

O 32 63 'D‘ 

0 60 06 r 

— rmsTOT 


nSPLY68 

UPOATFLG 


OSPLY5 6 EXIT 


CAF 

TC 


VO 6 N5 8 SR 
VNOSPLY 


OSPLYBl 



DlSfU^AY HPt OEITA Vt DELTA V fFINAL) 


Y I tVT 



TC 

TC 




VNOSPLY 

INTPRFT 

VLHAO 

XnELVFLG 

DELVEET3 


REF 
R FF 


3 

1 

I 


FAST 529 06, 3X63 


04. ^166 
06,3165 


7^002 
52014 
06306 
1 1 203 
1 1 C 45 


1 

0 

0 

0 


STCAtX 


BON 


VN1665 

GOTO 


DISPLAY T^KNKCNT. TTQGO. ♦MGA 



P3Y/P79B 

RECYCLE 


5T3BLF ORBIT 


B A N t P 3 9 AN O-pT Rt 


R0213 

PD214 

R0215 


MOO AFr -1 
ID BY 


t^tiNOTiornL OF 



LOG SECT ION 
nATF -2 


PT im) 


S T A 8 XE ORB I T 


P 3 B-P 39 


P O^ l n 

R021 7 


P 31 AMO ‘^ 7 ^ C ALCUt AT r THE PEDUIPED OEITA V ANO OTHER INITIAL 
CONOITIONS REOUTPfO BY THE AOr TtXN ARE T MIOCOURSF CORRECTION 



GAT: “ 
L 

^021 \ 

R Q?19 

R 0??.0 


AS!?;F- ‘-iBLE '^FVmiTN T5S GF 'A'GC ' PR GGWi ‘ Cu V ANCH'E BY NASA 



7T1 r3-osr 


IDSZS" APT, r;r 9-69 COMfeK 



FTTCT 


STABl FTJT^RTT PTB-P3^ 


USSR’S RAGE NP> 


E4 S3 


MANEUVER AFTER Cn’MPLETING THE SOT MANEUVER BUT QEfOPF WTAKING 
THE Sn^ MAN'=IJVER 


CALLING SEQUENCE 


TraZZT ““ ASTRDNinjT PEQUES I 1 HUJ DSKY 


RO??2 V37E39E IF THIS VEHTCLE IS ACTIVE VEHICLE 

R CrZTT^ ” “V3 7E79E — ^ FTTFEP VEHJCLb IS AC f IV h VEHICLE 


P022'+ riPUT 


R0225 (1) TPASSA TI^^E TF INTERCEPT - SAVED FREM P38/PTB 

R0726 {?.) TA^GTIMF TIVIF THAT PASSIVE VEHICLE IS AT INTERCEPT POINT - 

WUZ 21 SAVED FROM P38/P73 


R022B OUTPUT 


P0229 ( 1 ) TRKHKCNT MUHBER OF MA^KS — — 

P0230 (2) TTDGO TIME TO GO — ™ 

'R'Cro ST T3T T^ttA ^ T D DLl ^ " G T WAr ANGL E 

R0232~~ (A) OELVLVC DELTA V^mCt TY AT -MTD - LOCAL VERTICAL COOROINA 


R0233 “SUHROUTTMES USED 


R 023 A 

R023S 

R023S 
P 023T 
■R023.-i 


■RTy2 

P02W 


AVFLAGA 
AVELAGP 
LOADTI WE 
SFLECTMU 
PRECSET " 

S 3^/3 5.1 

MA TNRTNE 


0 2 43 
1)74^4“ 

0245 
0245 
02'4H" 
0249 
020 0 
TTZTT^ 

TJ251 


02555 

025tr 

025 


025R-- 
02 59 
OPS'; 5 


■REF 

REF 

REF 


REF 

REF 

REF 


C» PE 


Rc 

f>-cc 




’EF 


LAST 526 


1 

4 


LAST 


2 

9 


LAST 

LAST 

torsT 


REF 56 LAST 


— rr 

ID 

25 


I. AST 
LAST 


526 


45 8 
468 
■52F 


4 LAST 5RV 

4 L''ST 527 


LA ST 


0 ^ * 

04 * 

tr47 

04. 

04. 


530 

528 


' Tonr 

04 . 
04t 
04, 

04. 
04, 
04 , 

04. 
OR, 
04, 
0 . 
-0 4 , 


3-166 

31 6 7 

3170 

3171 

3172 

3173 

31 74 
3 175 
317F 
31 77 
3700 
TROT 


3,303 

Tzm 


’ > 


06 


0 4627^0 
0 0006 1 


0 3175 1 
0 4642 0 
0 0006 1 


P7R 



AVFLAGA 


OCA- 

P39/f>79A OXCH 

— — ft 

TC 

SFT 


3 1424 1 
5 3« ^64 1 
0^464T~0“ 

0 6006 1 
4501 4 "O 
~t r4 rr 66 ~ 0 

lOTIrR-t — 

43?34 O^ -R3<?/P7Pe RT8 


02364 i 
0341R 1 


STUFF 


AT I GINC 


P39/P79A 
AVFL AGR 


PTTGINC 

KT 

P2 0FLG0 N 

TNTPRET 

C-ML 


P39/79S W 

S F L EC T MU 


LQA O Tt M F 

XT 

TIG 


THIS VEHICLE ACTIVE 


OTHER VEHICLE ACTIVE 


TIME TO PREPARE FOR BURN 
UPPATELGi T -R ft C KFtG 



SELECT MU. CLEAR FINALFLG. GO TO VN1645 


TIG = T (PRESENT) PREPARATION IIMF 




jrsrrHBi-E 



OTS OF AGC PKnGKA"M"T')MA^JCHI= NATA i^O 1 H-Obl 


10 J 2 a APM 


TTTW; COMEKISS.O^O — 5JT 


STA3I-E - 


PT^T“ 


IJSFP^S PAG€-N*7. 


E4 S3 


02^ 

02»S1 



0^^ 

026A 



P-DZ/T 
P 02^^ 

WUTJl 

Ra2~re 


REF 

20 

LAST 

523 

a4”,32nT 

■REF 

3 

L A ST 

463 

04,3210 





04,3211 

R E F 

“ 3 

L AST 

46 0 

04.321 2 





04,T2T3 

“ TTT'“ 

“2 

LAST 

-57Tr ■' 

04ri7T4 

R EF 

1 



04 ,3215 

• • • • 

PREC/TT . 

• • • 



3W41 0 

4521 'sn 
TT&ZZTl 

74000 1 
52145 0 
TT7FT5~r 

nioi 1 


PI^ECSFT 


ppecisthn update active and passive 

—VEHICLES TO TIG 


CTTUi: 

S34/35.1 
DLOAn GOTO 

rARGTTHE 

MATETRTNE 


GET UNIT NORMAL 


CALCULATE DELTA V AND DELTA V (LV) 


PPECSET 

^TMFTHFT 

534/35,1 


TJZTT 

0278 

02“^ 

nZHT 

0?Er 

02E2 

0237“ 


PFF 

PEE 


6 

26 


REF 


LAST 
LAST 
TT TAFT 
4 LAST 


434 

530 
33T 

531 


FFF “T’ L A ST “4W 


073 <4 

0275 

0T56 

0287 

0288 
OTTFC 

02^0 

02-1 


REF 


L A ST 
TTST 


4^6 

434- 


REF 


LAST 464 



0292 

0794 

"■0205“ 

02 76 
0?77 

0?Tr8 

0259 
08 0^ 
030T 
R0307 
8 0303 


REF 

TTFF 


2 

3 

1? 


LAST 
L A ST 
TTrST 


46 4 
464 




RTF 

REF 


T 

9 


L^TT 

LAST 


~40T 

465 


REF 

RTF 


4 LA 57 53T 

3 LAST 52 5 
“T LTrsT — 53r 
TNTRPVP-^. . . 

S ttSEO 


04,3216 

04.321 
04.3220 
~n 4 V 3 2 21 

04.3222 
n4-,T27 3 
“T)“4“,7224 

0 4.322 5 
07,3225 
04, 3227 
04t3230 

04.3231 

04.3232 

0 4.322^3 
“04 ,3234 

04.3235 

04.3236 

04.3237 
04, 3240 

07.3243 
04, 3242 

“07.T243 

07 .3244 

04.3245 
“0773273 


71220 1 P PTC m STO 


3 

0 3433' 1 
34041 0 

0 

53776 i 

03554 0 

5707331 

T635T3: 


DLOAO 
RTR N 
TEG 


STCALL 


VLOAD 



U J 754 T 

71406 0 
16734 0 
43I56“r 


PUSH 

STOOL 



FTOVI 


PRECSET 
VSR^ 
RP’ASSS 
0 . 7 
RVFC 
TrFNTTNG 
COS 
C S TH 


RVSVf 

SNTH 


7765 r 0 
57176 0 

3 


VSREf 

0,2 

STC ALL VV E C 


-27. 747—0 
77b24 1 
74O0O“3 

52145 0 
00037 0 
02367 1 


TTMETHET 


CALL 


DLOAO 


"534/35,1 

GOTO 

T 

RTRN 



R 0 3T) 4- 
P 03 05 


CSMPREC 


L P3PREC 


0 3 06 
033"^ 
3303 
0309 
0 310 


^ r~ 




LAST 
L ns T 


5 3 1 


P v-t- 


1 


0 4 , 327T-- 
04 , 3250 
■07T3251 — 
04, 3252 
04 ,3 253 


43020 t 
02367 1 
0 1 35? 1 
11257 1 
77627 I 


171 T HP VP STO 


a OFF 
RTRN 
AVFLAG 
OTMFRV 


CALL 



U P DATE ACTIVE A N D3>A S S t VF^ 


VEHICLES TO TIG 



T13T OArSEO TiH CTNT AItG OF 
PASSIVE VEHICLE 



PRECISION iJPOATE PASSIVE VEHICLE TO 
TDECl 



L STTOLT OT?BTT P3‘B-T’^T — — — — ^jSFR*S PAGF NO. 8 ^4 S? 


L ST4BLT OFBTT P3‘B-T’B<T — — — — OSFR*S PAGF NO. B ^4 SB 


OBIT BEF 4 LAST 50B 04,3254 2T071 T CSN’PPFC 

0312^ 04»3355 77650 1 GOTO 

"T)Tn t ~5n D'4'7'3‘2‘56 Hi? 3 67 1 RTRN 

0314 TJ4T3 2^T ~TT624 1 GTHFPV CALI 

0^15 PFF 5 LAST 510 04t3250 27105 0 LFMPBFC 

~'jnTF ~^ — 04vi77n: rrh5v i Grrm 

031"^ GEF 10 LAST 53? 04,3262 02367 1 RTFN 

R031B .... VNOSPLY .... 

K03T^ STJBT^nOTTTirES USFD 


P032 0 
TT0T2T 

P032? 


03? 3 

0324 

0325 


0322 

0325 

70325r 

“0330 


imr 

0357 

0353 

0354 

0355 
0355 


0357 


BAMKCALL 

GOFr7^5H“ 

GOTOPnOH 






04,32 5 3 

PcF 

TFF 

11 

4 

L AS T 

LAST 

53? 

484 

04 ,3254 
04*3265 

^rFF" 

5 

L AS'P 

532 

0^ f 3 2 6 fv 

REF 

loq 

LAST 

52 7 

04*3267 

REF 

16 

LAST 

511 

04,5270 

"5FF~ 

1 5 

LAST 

52 7 

0 A* f ^ 2 TX 

2EF 

12 

W’ST" 

532 

04,32T2 



04 , 
04*3274 


04,32 
04 , 32 76 
04* 3277 

04 * 3 300 
‘0 4,3301 


0 0006 T — VODSFLY 


23*767 
55< 765 
3 1765 

0 4662 
20 7 70 

1 4106 


0 

0 


0 

1 


1 
0 
TT 

1 T67 0 


04, 3302 


0 r44T T“ 
01467 O 
01006 0 

01471 1 
01442 1 

01472 1 
01521 0 


E XT E ND 
0 X Clt" 
TS = 


TCR 

CAOR 


TC 

TtF 


V06N3 3S R 

V06N555P 

V04M06SR 


W 

VN 

VN 



V06N34SR— VN 
V06N58SR VN 



V06N81SR VN 


RTRN 

-VFBBNOUN 
VERBNn nN 
8ANKCALL 
GOFL ASH 

GH TO p nil H 

R 

^5 



PROCFF0 
RFCYCt E 


063 3 

0 655 
0406 


06 34 
0655 
06 R 1 


end ‘UF Z 3*LEKTS5.n20“^^^‘^ 


♦-w'T 




' ^ -v f V •' • 

.'**«* <, • 


;wTrA-;^r> 






yj ji: \ 
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:K- 


.Tk 




NT#.’ 

r 
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^ ovm ?P n GR AM OE^GP^rPT T ON -^Tl - 


-p 0 OU^;: '-TOD” WT'T 

P0005 MOO BY ELTA5SHN 




P0007 ^ll TS TNITTATFO PY 


ROOD? AJ GTRTTCT3YPAGG PPG POr~WHFN lTTTnFF Dr$CRETE“lS RECEIVED OR 

ROOD9 BI BACKUP THRU VERB 75 ENTEP 


ROOIO PROGRAW WlLtr' — • - ' ' — 

ROOIl ^ BACKUP) 

ctGDIT ^ 2r; UPDATE rtPHEH !U TIME CMC CLOCK WArTEROED — ™ 

ROOIB 3. TNITTATF SERVICER AT RRtREADl*^" — ' 

R0014 4. CHANGE MAJOR MODE TO IT — 

”” RO"(Tr5 5; CrEAP~D“SKY IM CASE UP V fb _ 

ROOTG 6T STORE“TrETOEF~TMU-CDU-'aT'lGtEST=TrR: TCTT. ERROR DISPLAY 

ROOIT - 7. TER^TNATtT'GTRDCOMPASSTNG-^ 

PGFTE BT" C riMFU TE T N T T T A L ' V E C T 0 R S R1T,” VN = = = 

RODr9“' 9. COMPUTE REFS'^TAT FOR TUTtLAUNCU AL I GNMENT WHFREU ,0 *U ARE 

R00?0 — “ - X Y t 

' ^C77T — 0'-^7?siTTf-i^r LnC"At VERTICAL AT TIME HE LTFTnE«= — 

R0022 2 — 

R0023 = - — ^ 

RODE 4 0 =UNn — ( A), A ~ ^TOR" V E CTOR A T LAONCH AZ I MU T H 

PTJ07 5 X — =_ — 

^ R0026 - - ~ 

RTJITTT rr “=TJ U — — 

~ R002R ' U Z ~ X 


R'OOZ9 ■ 2 n . GET 'PEFSHMAT“KNOWN FLAG * 

R0030 11. SET AVGEXIT FM SERVICER TO VHHOUf TO 

R0031 COMPUTE AND DISPLAY NOUN 6? EVFPY ? SFCONDS 


R0032 RI VI - IMTERTIAL VELOCITY MAGNlTtFOE IN EPS 

R003T — -R-2 UDOT - RATr UF CHANGE TIE VEHICLE VFL IN Ft>$ 


R0n35 12. DTSPLAY RUDY AXES ATT. ERRORS ON FOAI NEEDLES 


R OO 
R 0 OT ? 

— RWIB 
R00B9 
R.0040 


A) FROM L.D. T TRt^STA^T lAPPEOlCr 0 TO >lDSfCS AFTER L.O.) 

TIESIREtr ATTITUDE IS AS STORED AT L.O. 

-BT~T =R n M R -P S T ART TO POL Y STOPt A P PROX. TlO T O ■t-lS^SECS AFTER LO t 
DESTRETr-ATTITTjDE IS’ SPFCIEIPO BY CMC PITCH AND ROLL 
PniYMOTfALS nUPIMG SM'tPN ROLLOUT AND PITCH'VER 


gap! ASSEMlFpWTSI on AgC F’l^dG'iAM CD •'TOCI-rF' "•Vy'^AiA 2021ll'i-n51 




r t 


lTr:'2 S » P P . TVP?"6^ TROUBLt •043 FS^ 




1:r51=R*S rAGH NO. 2 FO S3 


ROO^l ^ THE DISPLAY TS TIUO AS LOW PRIORITY JOB APPROX. 

ROOA?. EVERY 1/7 S^C O'? LESS AND IS OTSABLEn UPON GVELG OF TTMEl 


R005T SUBROUTINES CALLED 


~^msr ZPTI S C HNG ■ "¥4 M KU ACT"" UAL C G P A OTOT^TG CLEANDSP DANZIG 

ROOSBl DELAY JOB ''EAPTWP^^ ENOnFJOB FINOVAC TBNKCALT: 

P005R7 TNJf’RET LALOTOPV NEFDLER NEWMODEX PHASCHNG 

P POGTTOHP PUWRShRS PPER'FADl REGODSFR S 1 1 . 1 — — — 

— ROOE^l SERVEXTT TAGKDVEP “TCDAWITG V1ST02S WAITLIST 


RDLOnO ASTRONAUr REDUESTS CTF' ALTTTUDE ARnVE“300,000 FT! 


^0061 nSKY - “ 

■^CrORT MUNI I OR DISPLAY' i)i- I IMt lU PERIGEE 1 HOURS — 

ROOB3 P2"'NTNUTES 


PTTOo^ DSKY - 

R006S wonTTOR DISPLAY ^F 01 APOGEE ALT TTUDF IN NAUTICAL NILES 

R0Cr^6 R2 PERIGEE ALTITUDE IN NAIITICAL NILES 

KUDcTT RT TFF IN MINUTESrSFCS 



P 0 DTtB ~ 

'PTITTGP 

R 0 D 70 


IF AGTRtmAUT MAG PEGU cFTEtr- ANY Of THESE DISPLAYS HE MUST 

~HTT MPIICEEU L« KLTUK.N T IJ NORMAL NOUN 62 DTSPtAY 

NO'^^AL ^XIT^MTTDF ‘ ^ 


OO'n ASTPTWAUT VEFET 'GT T' iTER" 00 ENTER 


ROOT? ALARM MODES - NONE 


RODTPTT ABORT EXIT MODES^ 
RDD 73 rnjTPUl 


GOO/4 ■ TLIFTUFE ( OPt TEPH^M frpj 

PrOITTS REFS’"MA1 ^ _____ 

ROOTB' DSKY DISPLAY 

ROOT? ^ ’^OAI DISPLAY 


ROOTS ERASABLE I N I T I At t Z A f I UN 



POO'iT PGNCSALT 

ROOP4 Pn|_YNt|N TH^U PnLY;'^}^ ^-1401 

PTcren rpst^pt 

POOFAP polys f OP 

ROORS ELACS set OP RESET 


r 


1 
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TT1‘6P n^UUBLt PAGE 535 


R n 0 

R 00R7 
■ROOR^, 


R0UB9^ 


nOO^O 

ROORl 

R00 73 
1^009 4 
"ROU^S" 

0096 


0097 

0093 

0099 

oroo 

Oini 

OTTTZ" 

010 9 


Trro2r“ 

0105 
0105 
01050 
01 052 

0107 

TrroH“ 

01TT~ 
01 1 2 - 


Pll 


OSFR • $ AGc NCr 


5 0 S3 


SFT REFSOFLa"^^^ 

SET OVHON TOIE ’^LAO 
OTEAP FRADFLAO 


DEBITS 


LTFTTE^P 

’^OLYNUM THRU PHLYIUM +7 



RTF 


OODYl, BODY?, body? 
VMAG2t 1LTT7 boot 

iTETrrRArsr rijR'- shi 

1 


VRn VAT ARTAT 


^TF 


REF 


50T5 

A 2 , 3606 
3 A , 7000 


377771 


REF 

■RTF 


6 

7 


R EF ?r 


LAST 

T'ATT 

LAST 


219 

TTJZr 

515 


E3,1?06 
34 t ^002 


T 5u5i 


34,7003 54-003 


O 

O 


FIT 


RFf 
REF 
R 


PEf 

RTF 


RFF 
TF 


T 

? 

ITT 

2 

— 2 

1 

T 


34.7004 CTOOtm: 

34.7005 3 2277 1 


LAST 

TTTST 

tAST 

VAST 


135 

5 7~ Fr 


TTr5 


34.2006 
OTTTTTT 
34,2010 
34 720T1 

OTn'TOrZ 
34,2013 
3^- , 2014 
34, TU5 


52 757 0 
4""5Tr2TCr 
27 DOT O 
55*265 0 

52 T63 1 
0 0006> 1 
3 2301 1 
53^337 0 


on +7 


OUT 

0119 

0116 


34.2016 


RFF 

REF 


13 

3 


XASI FIT 

LAST 535 



34,2 020 


0 0006 1 
_ 0 25 0 
53*266 0 


COUNT" 34/^11 


RTTS5-6 = 


SU PF ROll 

BANK F2 
SETLOC PHONE 


BATIK 

EBANK= TEPHEM 

TA TR A3JK3 

E8ANK 


EXTEND 

OCA 

OXCH 


REPl IS 
-PHASE3 
ZE RO 


ZL 

TS 


L LFTTFMo 


O XCH 

EXTEND 

OCA 

OXCH 



EXTPMO 

OC A 


OXCH 


L I FTTE M^> 


DIRECT RESTARTS TO REP 11 



7~PR-ET AtmC H ^ROTTCTTON 


FOR RESTARTS 


01X7 

0113 

0 1 19 

0120 
0121 


RTF tTT 


RET 

“RFF 

“®TF 


14 



L 

TAST 


53 5 

533 



34 , 

34, 
347? 


22 

52 



007 

025 

33T 


XAST“ 5 3 5 -34 ,3025“- 52-^T5 7 


0 

1 

O 

0 


ZL 

Dxetf 


-2 D X CU 
RFPllA-1 OXCH 


TfHF2 

TLIFTOFF 

-RHASE3 


RESET PHASE 


0122 3^ .302 6 O 0004“0 ' RT^ 1 1 A XNHI NT 


- 0123 - - 34,?0?7 '00006 1 EXTEND 


0124 

' p-cr-r ■ 

* V t 

— 7 — rA3T— 

“535- 

3 4 •,•703 0 

TiTin 

0 

f II 1 r 

DCt^ 

— Tr pME N ^ 

0125 

(» C f 

2 LAST 

BO 

3 4 * 70 1 

5 3* 771 

0 

— .. -- 

OXCH 

TEPHF^l +1 

01?6 

REF 

^ t AST 

f.SS 

3 ^ ^ 2 0 3 -3 

3 190^ 

1 

- 

CA 

TFPHFM 


» 
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0127 


p:ff 


LAST 535 


34*2033 5T»^?67 0 


XCH 


TEPHFMl 



T4~72Trr4 D 0005 I 


012^ 

0130 

0132 

~UTTy 

0134 


REF 


3 

4 


■R^F 


XAST 

LAST 

lASTT 


53 5 
536 
53F 


34*2035 

34,7036 

T4,2(>37 


3 133T"1 
21 * 2 TI O 
27'267 1 


^FF 23 LAST 512 


34*2040 

34T2TT4T 

34,2042 


0 5412 0 
“■cr5a23 0 
22000 1 


0135 
013 6 


34*7043 O' 0004 0 


34 ,2044 


0117 

RFF 

5 

L4ST 

536 

34,2045 

01 5 8 

Q ^ P 


LAST 

53 5 

34 * 2 0 4 6 

0130 

PEE 

7 

LAST 

536 

34,2047 

0140 

R EE 

TO 

LAST 

536 

3 4 , 205 0 

0141. “ 

REF^ 

1“ 



?4 ,2051 

0142 * 

REF 

77 

lasT 

535 

34*2052 

0 1 ^2 1 

TrEF~' 

T 

LAST 


F7 *1431 

0143 ^ 

REE 

19 

LAFT 

41 n 

3 4 *2T3 5 


0 0006^ 1 
3 1270 0 


3 1271 1 
57* 710 0 


3 2000 0 
54 003 0 


0144' 


0145 

0146 
"”Xrr4T 

014? 

0T5TT 

0151 

0 152 
OI^T 


REF 




34- *205 4 


O 4T40 0 
-76T22^ 


24 


LAST 536 


34 *72055 
34-,2n56 
34*2057 


0 541 2 O 
050P3 O 
22000 1 


REF 

FFF 


r\ 


4 

20^ 

3 


LAST 

LAST 

LAST 

LAST 


44 7 

216 

216 


34 * 206 0 
34 ,2061 
-F6 * 1704 
34,2062 
“^34,2063 


3 5036-1 
0 5245 1 


02320 1 
70066 0 


0153 

01T4~ 

01541 
01 342 

01543 

0154'5 


REF 


LAST 45 1 


34, >0 64 
34 , 2065 


O 53 54 0 
" 0001 3' tr 


REF 

2FF 


20 LAST 513 
T 


34,2066 
3 4~* 2067 


0 5 546 0 
■ 00022^ 1 


P 


EF 


34,2070 3 6214 0 


0165 



01 -w 

OTTO 

0139 

0130 


pee 

4— 

LAST 

■zrro — 

34,2071 

54 3 32 


FEE 

ITO 

LAST 

5>7 

^^.207? 

0 4667 

I 

8 EF 


■ L A ST 

454 

34* 2 073 

20703 
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34.2303 

34,2354 

34,^355 

“3443226^ 

34,23*^7 
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0006 1 
2 352 


MASK 

EXTEND 


FT.'XGWFD 5 
nCTSOOOO 



11*725 1 

0 23 63 0 


F7F 

TC ENDOFJDS 

CAF BTTIO 

EXTEND 

RAMO CHAN30 

cxr^MD 

— STR SAT— 
S ATSW 


ATTOISP 



0 — 75 1 3 
4 1702 
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BZMF 

4-2 

03TTT 

7FF" 


ITTST 

547 

3-2 ,74 (JD^ 

n 2617' T 

TC - 

7! f'l P f ^ LDC 

017 ? 

'^FF 

3 

L ^5T 

1 1 4 

34,2401 

3 1 • f : 1 1 

CAE 

POLYNUM 

0 377 

IFF 

61 

L^ST 

^18 

34,2402 
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3 ^ 0 3 

■3 2621 D 

CAP 
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CHECK IF S/C CONTROL 
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PITCH/BOLL START TIME 
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0415^ 
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0426 
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042 9 
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EVALUATE 
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RFF 


53T 

53 S 
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37.2166 
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37.2174 
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T Ftr? t T • 
77^,76 0 
72405-0 
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QS 

37, 22"<1 
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70C = 
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WST 
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0474 
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04~5J 
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04R5 
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T 


PF 


1 
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r 
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1 
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H 
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2 T 31 T T 

153 35 0 
24001 0 
00767 1 
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00741 0 
77405 0 
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6041 *^ I 


000 n 5 "T 
77650 1 
70416 0 
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COUTR IG 
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2 
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STOVL BOPSTEMP 

/FPUVFCS 
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R T 2 PTE 

VI STn7s 




s T tm 


TTW 


ton 

s I NcnuA 
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GOTO 
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RANK 


542 t 
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14021 

1 
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41 405 

0 
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PUSH 

34,7421 

onool 

0 


0 
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0 


St 1 

3 4 , 2 47 3 

007 5 1 

1 
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41325 

0 

“OOL 

p 
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MGC 


IGC 

m — mo c F OR timPA T i^i t t e y 
OGC 
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OPSl MGC-COUZ * 2 
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04CJ3 
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04^5 

0496“ 
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Ob 00 

0501 
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T4 , 2 4T5 
34, 2 42 6 
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34, 2430 

34T242T 
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00T4 
00003 1 
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77626 0 
63 755 0 
72 40 5 O' 


P^FF 
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34.2440 

3 4,2447: 
T4,2442 
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“3'4,2444 

34,2445 


00003 r 
72425 t 
TTFTTrTT 

77754 1 
77751 I 
■D0071 1 

07077 1 

77776 1 


050201 
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OSOTOT 

070704 

0 5021" 


^EF 

QPF 

TFT 

PEF 
R 


4 
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LAST 539 


1 
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LAST 542 
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tief 


U 


2 
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ir 
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EF 


? 


LAST 547 


34.2446 

34.2447 
■ 34,2450 

“34,745 1 
“234 ,7 452 
“347Z473 

34,2454 
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“34T7T77 
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34,2460 
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10 000 0 
0 24 f I 1 


0 

0 


24TT 


1 

1 


76351 1 

03377 T 
03077 1 
03077 *r 
77776 3 
3 1476 0 


D7DZ21 ■ 

■RTF 
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34,2461 

"■■0 26 23- 

T 
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13 
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545“ 

34,7462 
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1 

050223 

REF 
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1 

05T224 
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2 
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T 

050225 
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2 
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34 , 24 67 
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0 
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3 

“CAST 
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1 
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1 
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REF 

2 

LAST 
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'^4,2470 
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I 
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STAm 

stool 
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2 
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1 
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2 
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34.2433 
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1 

0 

POOL 
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DMP 

“R'EF 

2 
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1 
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STADR 

STORE 
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7 
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STORE 

EXTT 
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CA 
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TC 
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STORE 
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TS 


SATSW 
A 
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AKLDAD 
TNTPRET 
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31 ASAK 
AK 



A K 
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n 
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T^KEOVE'? STATUS 
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TC 
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0 4662 1 
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SATOUT 



TC 
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C A P 

TC 
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TC 


BAIMKCALL 

NFEDLFR 
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BANKCALL 
HE LAY JOB 
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4 
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RFF 
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'^EF 
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0515 4 
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0525 
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Rl^F 
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RFF 
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5 
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1 

6 

2 
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17 

"Q 
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3 

1 

ITF 

7 

7 

1 

34 

T 

IT 
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FAST 
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LUST 

LAST 
FilST 
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OFT 
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orsT 

LAST 
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F4F 
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T't, 
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34V2517 
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2 

IB 

25 
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L AST 
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4 5017 0 
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r?'5-i 
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T 

1 
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4 LAST 
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0 24Tt- r 
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T5 
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TS 

TC 
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TC 
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Fm 

SATSW 
STEERSAT 
SATSW 
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RCSELAGS 
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RtrSFL AGS 
BANKCALL 


TIFEDLER 
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CCS 
TC 

TC 

CA 


CS 

EXTEND 
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TC 
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CA 
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SATSW 


•H 

8 IT] 
S A T SW 
81 T9 


S A TOUT 
81 T9 


TC 
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SATSW 
SATOUT 
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STOVL 
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VN 
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3 
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VLOAO 
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GO 
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dsie; ^ ““ 

~ 0536 REF 244 LAST 

05^7 SEP 7 LAST 

Q^jc— 

0539 ^ REF 5 L3A5T 

0540 

0541 REF’"345 LAS 1 

0‘=^4? 3ET^ ~ 3 LAST 

^ 0543 ^ 

OEW^ REF~ “ 2 LTtST' 

0545 REF 246 LAST 

054.51 

ORznr? 7EF 5“ LAST 

05453 

05454 FFF 3 LAST 

(75 4 51 P EF 1 

0546 2 FEF“24T LAST 
-CrS^^ETl REF 4‘ TA2ST 
05454 PFF 7'> last 
05465 

-“ry54/r5 — ^ 

05467 PFF 1 

056^7 REF 1 

CrS4R 

'“0549 

' 0547 r REF 1 

05473 

05494 PEF 153 LAST 


542 

5T0 


54 6 


547 

547 


54T 


54R 

547 

ZH5 


547 


5R7 

545 


■3^^ . 2555 0 OarOET 

34,2566 20 1-54 0 

34,256 7 50 120 I 

34T2570 54 007 0 

34.2571 3 1717 1 “ 

34.2572 0 0006 1 

'T4,2573 20 155 1 

34,2574 50 120 1 

3'4;-25 75 " 54 002 1 

34, 2576 3 1720 0 

34,2 5 77 0 0006 'T 

34.2600 20 156 I — 

34.2601 50 120 1 

34.2602 54 004 1 

34 ,260 3 r 'E030"“n — — — 

34,2604 3 0154 1 PLTST 

34.2606 0 0006 1 

■34T250T- r 1701" 1' 

34.2607 0 0006 1 

34,2610 6 6030 1 

■ 54', 2 61 r 0 0006 I 

“34 , “26 12 T 3572 1 “ 

3472 613^— 5R 155 1 

34,2614 0 6010 1 

34,2615' “0 6006 1 MOPHLY 
34,2616 52001 T 


“FXTENO 

“?TSLr MPAC 

"I NDEX FI X LOG 

OTS 0 — 

04 OnOSTENP +1 

FXlfcNU 

NSn NPAC *1 

INDEX FTXLnC ““ 

13 2 

XA BPOSTEMP +2 

“EXTEND 

"RTSD RR4C +7 

T NOEX F T XLOO — “ 

TS 4 

1TE DANTTG — 

CA NIP AC 

EXTEND 

'=XTEND 

BZNIF DANZIG 


EXTFND — =— — — 
DC A MBOYTCTL +2 
nxCH MPAC 

TC DAtlTTG ■ 

TC INTPRLT 

SETPO GOTO 


34T25T7 OOOOT 0“^ CT 

- 3472520 -1 6 2 3 3 I — MOPHLYM 

“ — 34,-2521 016 73 1 COFFPOLY AQPES POLYLOC 

14 ,"2522 •OT4T5"0 R06N62 VN“ 5552" 

34;2623 0 0006 1 «^SCALFS EXIENO 

34,2624 7 I MP SATSCALF 

34T2F25 20 HOT' 1 — “ — ODnOPL 

34,2525 20 0^1. 1 DDOUBL 

484 34,25^7 0 0002 0 TC 0 


R0552 

P0553 


SATURN" TAK E nVETr“FUNC T TON 

j}ct5 « 5{c4ci5c:^a5c’^3!cj5r:^t;}t5)E:<c:?t ^!cT^’$: 


STORE DELTACDU INTO PDL 0,2,4 


DETERMtNF IF PQLLOUT 
TS COMPLETED 


UNLIKE SIGNS STILL ROLLING 

“ ROLL OUT XOMPL EYED 

ZERO OUT ROLL CONTRIBUTION 


COMES MERE IF 
ATTITUDE HOLD 


RESCALE AK S FOR 
NEW HARDWARE 
SCAL ING "FOR 
STEERING 
SATURN 


— R05 54 RRTI GR AM DESCRTETTOM 

R0555 MOD NUNTSER 1 

— P0556 MOD BY Ft T AS SEN 

R 0 557 F UNC T I ON AL Dt SXRl PTT ON 


R0535 " DUR I3tG THE COAST T NG PttRSF: OP S f V3 ATT ACHED, THE 

— ASTRONAUT MAY HEOUEST SAT1W T AKE^IF^ THE OUGH 

" R055T TH^ CMC REGARDS 2HC COMMANDS AS RODY^AXES RATE 

50552 COMMANDS AND TT T’TANSMI TS THE ST TO SATURN AS Df 


4 


gap : asse mble RE VIS ION 05^ OF COrfANCHF ~ BY NA^A 70 ' 2im-0«>I 

~T>11 ~ 


10:28 APR. r.l'JfcO rROUSLb .(JA3 PTHJB 52F8 


USFP'S PAGF NO. 16 €6 S3 - 


P0S63 ' VOLTAGES. THE VAI TIE HE THF'CDWSTANT RATE COMMAND 

P056A IS O.S OEG/SEC. AM ABSENCE OF RHC ACTIVITY RE- 

P066S “Siilts in a ?ero rat? commanit; 


R0566 THE FDAI ERROR NEEDLES' WILL INDICATE THE VALUE 

R0567 OF THF”R'5Tfc COMMAND. 


P056'3 CALLING SEQUENCE 


ROSE'* DAPFIG +PD TC PtJSTJlIMp 

R0570 CAOR SATSTKON 


R0S7L SUB'^OUTINES CALLED 


ROE?’ 

■ R057B 
R05T'+ 
”RD57S 
R 0 576 
R0577 


EWDEYT 

IBNKCALL 

STICKCHK 

NEEDLFR 

T5PUPT 

RESUME 


R0MT5 ASTRONAUT REQUESTS 




'’05B0 


VERB AS bNIER 

(CaNDITinM - BITS 13, 14 OF OAPDATRl SET! 


RTCTT 


R 0 532 
Rn533 


RU5H4 


Vi-KB 48 ENILK 
VERB 2r ENTER 
VERB 3'<r'ENTER 
VERB 46 bNILK 


(FLASH Vn6N46» 
A X X X X ENTER 


A=0 OR 1 


30535 NORMAL EXIT MODE 

R053^ VERB 46 “iNTER (SEE ASTRONAUT ABOVE) 

TED E8T ALTRM' Tr[r''ABrrPT EITIT MOOEE 

P,0503 NONE ■ 

ROSBE OUTPUT - - — — 


P U b ( 1 SATURN RATES IN C0 D X CMD, C O UYCM D , C D UZCM O 

RDtOl vr!4SASLE TNlT!AL(7ATrDN 

'' P05~2 OAPDATRL "t-BTTS 13 ,14 MUST BE "JET » 

— POS'-’’ DEBRTS - 

CETJT’ALS ■ 






f 










•• ^ 









•'% 



t u 


•7 




* % 



G5P"^ ASSFVIBLE REVlSTOKt 055 0^ AgC P^-^CGaAM 



N7i3;r"2D2ll 15-OM 


iO:2H TTTW? IKUUBLfc .04^ 5W 


Pll 


IJSEt?»S PAGE NO. rr 


S3 


^05^ CDUXCHn, cduycmd, 


0 5 


3 LAST 254 


43*^215 

43 rZOOT) 

43,32T5 


BANK zn 

^SHTtnC FXTVFRBS 

bank 


0593 

CF.03 

TOorrr 

06003r^ 

0S‘003 


RGF 


TFT T" 


RFF 

TFF 


LAST^ 

IlLST" 



0601 
06 011 
'0<srrrz"“ 

"06 n 1 3 
060132 
TTOOIT^T 
0601 4 
06015 


TFF 

RFF 

PEF 

330- 


3 

TT 

“Z 

12 

21 


LAST 

orsT 

LAST 


060151 
06016 RTF 
TTSOTo 

060161 REF 





060164 REF 
0 60166 


06DZ“ 

06021 


RFF 


L^ST 


■OFTTTZ 

06023 
06 02 A 
06025 
06^3 
0604 
0635 '■ 

0603 

06 07 
06 OB' 
CTSO"'’ ' 
0610 
■06X1“ 

3612 
061 7 


"HFF" 

REF 

“RFF“ 

REF 

f?EF 

3TEF' 


10 

13 

11 

22 

4 

19 


torsT^ 

LAST 
L AS T 

I ASF 

LAST 

LAST 


3^FF 

■RFF 

FEE 


I 

6 

■F 

4 

25 


43T” 

IW 

542 

T34r- 

549“ 

540 


43,3 215 
43,1216 

43 ,3217 
43,3230 

43*3221 

4333? Z2 
43,3223 


REF 77 LAST 267 


43 , T224 

43 ,3 225 
43 , 322 6 
■ 43 ,3? 2 7 

43.3230 

43.3231 


0 0006 

3 32 33 

0 0004 
53*313 

3’47T7 

54 030 

4 0102 
F"4T'05 

26 102 
0 4740 
42632 

0 o ao 3 

0 2121 


COUNT 23/STTKF 
1 SATSTKON EXTEND 
0 OCA 


0 

0 

T 

0 

0 


7RF00SAT 

TNHINT 
mcH Tstnc 
TTAF POSMAX 


u 

0 

0 

tr 

1 

r 


cs 

MASK 


Ft AGWPn6 


AOS 

TC 


FLAGWRn6 

IRNKCALL 


RFLINT 

TC GDPIN 


7 LAST 540 


66,1704 


— B^ODYR 

, F2765 T — 2RFDn6AT 2CA0R RFOOSAT 

43T3T33 46106 1 


LAST 504 


30,2000 
“3?T2TrT“r 
23,?troo 
“23, 27-65 


SBANK= 
■BANK — 
SET LOG 
BANK 


LOWSUPER 


Pll FOUR 


225 


546 

546 

54F 


546 


REF 26 LAST 546 


23,2 765 

23.2766 

22.2767 

23,2770 

23,27rt 

23,2772 

23,7773 

23.2774 

23.2775 

23.2776 
2 3 -, 2-777 
23,3000 


22 016 
0 0006 1 
"?2~0T2 1 

4 1507 0 
7 5315 1 
FMFmrTr 
0 4740 a 
42420 1 
" 3 5D0 7 


0 FT DOS AT LXCH 


BANKRUPT 


EXTEND 

OXCH 

CS 

MASK 
"ATrS~ 
TC 



CADR 


LAST 54F- 


LAST 549 

EAST “3234 


?3T3tmi“ 
23 ,300 2“ 
23, 3003 
2 3 ,300 4 
23 , 3r7r5 “ 


0“00 0 6 
375 01^ 
0 0006 
- 3 - 30 42 
53 * 3 1 3 
■3“ 


tT~ 

1 

1“ 

1— 

1— 



FCSFLAGS 

BTT3 

RCSELAG3 
IBNKCALL 
NEEOLER 
- 3 T T 9 ^ 


FXTEND 



0 “ 


DC A 
OXCH 


ZHA^12 

2SATSTCK 

TBLOC 



3730 


0 


TS 

TCP 


TIMES- 

p-t:$UME 


TURN ON BITS 15,14 OF 



SATSTICK CONTPOL OF T5 
ZERO JET CHANNELS IN 14 MS AND THEN 

ms ABL FO 



EXIT THUS BECAUSE WE CAME VIA V46 


ALSO COMES HERE FOP RESTARTS 


TURN ON 8IT3 OF RCSELAGX 
FOR 



DISABLE IMU ERR COUNTERS ETC. 

SI VB 

TAKEOVER 

ENABLE -= — “ 


SET UP T 5 C Y CL E 


I N too M SECS 


END OF SATURN STICK INITIALIZATION 


A 06 14 


T’-irS SECT [ON IS tXi^tlTED -VERY 100 MS<=3LS 


G/fPl ASS-MhlE P‘ Vision 



PkOGRAM CTMANCHE WNAJiA i!02l 1 1 .1-0^ i 


10! ?a APP 


1.196V TRtraSLF .043 PTtrj^ 550 


L 


s’ I T 


USER’S 


NO, 18 


E6 S3 


0615 '<PF 4 LAST 549 23,3006 22 016 0 SATSTTCK LXCH BANKRUPT ~ 

0616 23,3007 0 0006 1 EXTEND 

06 17 TEF 4“ TTST ?3, 3010 27^012 1 CTXCTI ORUPI 


061^ 

REP 

2 LAST 

54 9 


'“REE 

“T“TTrST“ 

5^9 

06 20 

REF 

2 LAST 

549 

0621 

2 FF 

5 LAST 

549 


0623 


0524 

REF 

~Z 

LAST 

391 

062 5 

RFT^ 

2 


55TT 

06^6 

REF 

23 

LAST 

549 

06 27 

RPp 

1 


— 


23.3011 3 3041 1 

23.3012 55T312 1 

23', 3013 3 3040 0 

23,3^14 54 030 0 

23,3'U6 — r-Tun—0 

23.3016 0 0006 1 

23.3017 06 031 0 
22, 3020 T 3037 I 

23.3021 0 4740 0 

23.3022 43130 1 


0AF 2SATSTCK SET UP RUPT 

~rS T5L nc LO O RD E R ' T OC S ET 

CAF 100NST5 too MSEtS ’ 

TS TINC5 

“CSF S Tl KB tT S 

-EXTEND — — 

RXDR CHAN31 CHECK IF MAN ROT BITS SAME 

— HJTSK S TT KB IT S 

TC IBNKCALL SET RATE INDICES 

CAOR STICKCHK FOR PITCH YAW AND ROLL 


0623 ’’EF 2 LAST 110 23,3023 51*656 0 INDEX RMANNOX SET SATURN RATES 

0629 REF 2 LAST 115 23,3024 3 1771 1 CA SATRATF 

0630 =EF ‘ T5 LAST 545 23,3025 55’‘4'76 1 — TS RK Rfltt ' 

0631 '^EF 2 LAST 110 23,3026 51*657 1 INOEX OMANNOX 

0632 REE 3 LAST 550 23,3027 3 1721 1 CA SATRATE 

21523 REF 4“" LAST — 5V5 22,3030 — 5 5 * 4 77 0 TS AKT PITCH 

0624 RFF 2 LAST 114 23,3031 5T*6S0 0 INOEX YMANNDX 

0635 - REF ‘4 tAST 550 2'%303F- 3-1721 t CA SATRATE 

0556 RFF 4 — CTTST 545 23, 1033 553 500 1 TS Alt2 Y A W 


0637 

REF 

24 

LAST 

550 

23,5034 

0 4740 

0 — 

TC 

IBNKCALL 

FOR 

SATURN INTERFACE AND EDA i DISPLAY 

Od 



X ASl 

5^9 

Z3V3T73'5 

4242u 

1 

C AOR 

VEEOLPR — 



0679 

PEE 

26 

LAST 

549 

23 t3036 

1 53 33 

0 

TCF 

RESUME 

END 

OF SATURN STICK CONTROL 


0544 23,-3037 00077 1 STlKBtTS OCT 00077 

0645 23,3040 37366 1 100MST5 DEC 16374 

“55645 RcF B FAST 54^9 F5TT704 F B A NKs B O OYO 

0647 RFF 1 23.3041 03006 1 2SATSTCK 2CA0R SATSTICK 

0647 RFF 1 33,3042 46066 0 




7 ^ 

I 


05 b; ''h COWANCHh HY "2021 m~':) 5 l 


10:28 


1 ^ 1^69 TRaOBLE 


P A G F “ 551 


R^O'OO 


JDJ c;py^D^(>,H 


ySrpt<; isin 


PR 0 GRA:M DESCPI'^TTON S 17.1 AND SIT,? 


HO S 3 



F UNC T I m AT" UP SI R I PT 1 ijN 


PZOO? 

om 

R 2 n 06 

R 2007 

l?Tn<T 7 

Kznii 

R 2013 

1 ?‘ 2 D 7 ^ 

R 2017 

R 201 ~ 

ITROTT 


TH 7 TPI SFISkRCH R^^j-^|^j^- DrTRRMTNTS THH MINIMUM TQTAL VELOCITY TRANSFER T«?AJHCTORY FROM A GIVEN TPI 

TANF^ n/ER TTMH N 1 I H N 1 HE C 1 1 N S TP A FTT ' OT" TT ~S7IFb PF‘MCbN»tR. miS VHLDCTTT IS THF SUM GF THE IMPULST VH-TrnrnCrrrES 

FOR THP TPT 


"NIIH!N IMF 
AND TPF MAM*^UVFR 5 . 


TH*^ 


u 517.1 ROUTINE EXTRAPOLATES THF STATE VRCTORS OF BOTH VEHICLES TO THE TPT TIME AND COMPUTES THE 
■t 5 -FL ATTVE“'PH«'S’H“ANDLF BTTTTETTrTRE VEHIUCEST, THE ALTIfUDE U IFFERENCEt T . F. THF MAGNTTUDE DIFFERPNCH OF-Jirr - 
POSITION VECTORS) AND SFLTCTS A S FA ^ 071 SECTOR BASHO ON THH"SIGN OF THE ALT ITUDE' DTFFER ENCE. 

THF S 17.2 RtrtJTIUF FUPTHFP nOEINFS THE SOARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA 

“SURr^TFUTTNE 10 CUMPU IL ‘ THE VFAMCH START AND ENU TIMES* THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE' 

LAMBERT SUBROUTTNF TO Tor’^^^UTF THO V»=LnCTTIES RFOUTRFO AT TPI TIME AND AT TPE TIME. EXIT FROM THE SEARCH LOOP 
IS MADE WHEN SOLUT I ON CT I TER I A ARE ^^FT (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN 
n-RF SECTOR" 



R 20*^7 


CALLING Se:;)UFHCF 


^2023 
R 202 5 
P 20 RT '' 


BOTH POUTIMES F CALLED 1 INTERPRETIVE CODE AND c*ETURN VIA OPRET. S 17 . 1 HAS ONLY A NORMAL EXIT. 
S 17.2 RETURNS VTA QPR^T POP NORMAL ^XIT A ^!0 TO ALARUMS FOR ERROR EXIT. 

S 'JBF "'UT I ^TFS CA I. LED' ' — ______ 


R 2029 

TTPOTO 
R 20 ' I 
P 2032 


CSMCONIC 

L^McnFrn: 

TIMFTHET 

TNTTVFL 


2033 36 *?ni 2 - BANK 36 

203 A- '■^EF 1 35,2000 SETLOC P 17 S 1 

7 DT 5 J 5, 312 3 * ’ ™ — — BANK 


203.3 REF 1 


CntIMT 3 6 /TP I 


203 T 17 LAST 529 ’^ 7,1537 EBANK= P^.rT 3 

22003 ' TF'M^PORART “ ^ ■ _______ ___ 

203 ^ 3 - 5 , 3)23 OOOOA- 0 HPF ?DFC 157 ^ 20.0 8-?9 EARTH*S MIN. PERTCENTER ALTITUDE 85 N.M. 

- '2029 3 5 , 31 2 A 315 66 0 ___ — " - ' 


20^0 ■ 56 , 312 *^ 000 t )0 1 HPt 20 FC 106 68,0213 B — 29 MOON 5 $ MIN. PEP TC ENTER ALTITUDE 35000 FT 

=- — 2 0 4 0 — 35,3126 r 27 '^ 6~0 — 

20^' 1 35 t 31:?7 00002 0 COS^C 20^0 40000 

2041 . 35,31 ^0 16100 1 

2042 — — 35 , 3 'T 31 000 00 1 CL SEC TTffXr 15000 “ 

2042 35,3132 35230 0 “ 

20^3 55,3133 121 3 ^ T“ OTINVEPS 3 DEC . 313309 S 862 

206 ^* - “ 35,3115 06^61 } SECITHET RDFf .1544444444 

20 'i 4 - 5 *^, 3136 307!>7 1 ^ “ 


GTpI Ass VIS np ppJ^T,c<^\M r/^MANCME BV NA37i"202im-05r 


10:2 9 APR. I • 1^69 IRUUhJLb . 0^5 FTTG^ 


L 


TPI SEARCH 


USER’S PAGE NO 


7 S 3 


2 045 


2045 


2046 


2046 

20 '>7 


- -20'4'7 


204,? 


2 043 

204^ 


2 04 9 


20491 

ref 

2 0472 


2050 

2051 

■^EF 

2^05 2 

9EF 

2 0 E3 

7EF 

2054 

r» pp 

2065 


2056 

7FF 

2057 

2 0 ■'> M 

3 TTTI 

1 

2 05 9 

p cr 

2060 

R 

2061 


2 062 

9FF 

2 063 


20o4^ 

■ 3FF‘ 

2065 

2 066 

PFF 

rrny— 


2063 


2059 


2xm~ 

1 

1 

2071 


2072 


30*’^' 

K hF 

2074 

ref 

2095 


2073 

2077 

REF 

2075 

REF 

707^- 

TT FF 

2050 

• - 

2031 

r-f-p 

208? 


2033 



2034 


20^5 

20-7 



17 

10 

22 

1 


11 

23 

1 


o 

c ^ 




S 

I 

T9 



LAST 498 
TTAST- 
LAST 


I AST 498 

LAST 552 
LAST 852 


LAST 49H 


LAST 531 


last 5512^ 
LAST 2P1 


LAST 531 


L7\'ST 


2 LAST 552 


36 

TT 

3 6 
36 
'36 
3 6 
36 


36 

36 

3o 

36 


3T 

36 
3 5 
36 
36 
36 


To 
3 6 
36 
36 
36 
3 6 
36 
36 
3 6 
36 
36 
3 6 
36“ 
36 


36 
3 6 
36 
36 

3 6 
3 4 


3150 
2600 
201 2 

2012 

2013 

2014 

2015 

2016 
?UT7 
2020 
2021 

3022 
2 0 ^ 3 
2024 
’0 2 5 

2026 
^0? 7 
y 

2031 

3032 

3033 

2034 
2 03 5 
3036 

? f.) 3 7 

2040 


P04 2 
204 i 


? 0 4 6 
2047 




3 53 52 1 
25253 I 


SEC 3 THET THEC 


9166666667 



MAMYEEET 2UEC 

77377 0 

00000 1 LTMVEL 20EC 

30T6cnr~ — ~ — 

00000 1 OFTMOHN ?nFC 
00114 0 

000 40 0 VfP- . 01X2 2TTFr 

30447 n 




.6096 E -2 B -7 


2FPS 


.1524 E 3 B -29 


500 


O'. 003 


71220 1 
01340 1 
03663 "T" 
34041 0 
77126 1 
TT634 3“ 
45233 1 
77745 1 
036633“ 

T4051 0 

27114 0 


S17.1 


S34“T 


45243 0 
77775 1 

3T 


53246 1 
03 5 56' 0 



6 V 

43021 0 
00045 0 

0007 6 0 

43040 I 
74042 I 
30276 T 
27754 1 

00001 0 

n 

0356? O 
2 7 64^ 0 

03540"3 

4 6206- 1 
OBb-'.'S 0 

51 3 52 "T 

50 2 50 0 
00001 0 
65^^63 O 


77715 1 
S023^ 0 


SETLOC PITS 
BANK 

STQ 


OLOAO “ 
OHRMEX 
TTPT “ 
STCALL TOECl 

LEMCONTC 


LE^STORE 


DLOAD 


TT3T 

STCALL TOECl 

CSWCUM IC 


CSMSTOPf 


VLOAO 


ABVAL 


rnrrr 

RDStJ 


POVt 
PPASS3 
TOOL 

C ^ 'I* 

S r t 

3 60 

KFLAG~ 

CLEAR 


STOVL 


VXV 


STOVL 


KrfIrAG — ^ 
n-LHI TF 

on 

U M ! T 
VP ASS 3 
E2 


P US H 


VSL 3 

UNIT 


Stl 

o n V L 

VXV 


PACT3 

VPROJ 

« 

BVSO 

fJ?JT 

00 


ADVANCE PASSIVE VEHICLE TO T^I 


ADVANCE ACTIVF VEHICLE TO TPI 


/RAX on 


PI 


?0 


UN tT R P QO 


Ftr 60 


/RP/ -/9A/ 
"nFT ^ -r -- 


m 


ALMOST TT SAVE fqr 17.2 




DOT 


GAP 


assemble revision 0^^ Cif TTyC PkPCAAiA COHANCHF BY NASA ?021iri-0Sl 


lOt^B APP* TTTW? rROUBCr ,043 FATTF 


TPT SEARCH 


USER* 



E7 S3 


201^ FT 
2 0.^^ 
^miy 
20^1 
2 os 2 



20^4 

2005 

20^7 

2098 


2100 

2101 

2T07 

2103 

210A 

2103 



REF 

REF 

REF 


REF 

20 

LAST 

55 2 

3 6 ,2 0^0 

03560 

O' 

R E F 

3 

LAST 

552 

36, 2061 

03645 

0 





36,2062 

75325 1 





36. 2063 

7T62 6 

0 

'^EF 

3 

LAST 

281 

36, 2064 

61160 

1 

“PTnp 

S 

LTST 

t>2 8 

3 6 * 206 6 

00047 

T” 

PEF 

2 

LAST 

126 

36,2066 

3 7746 

0 

REF 

13 

LAST 

55 2 

36,2067 

01340 

1 



2 

21 


LAST 

LAST 


123 


LAST 553 


^EF 


OTF 


~3 LAST 55 2 


“Td7 
36*2071 
36,2072 
3 '6, 20 73 

36.2074 

36.2075 
■3‘6";2 076 
36,20 77 
36*2100 

36,2ror 


77220 T 

03657 0 
03540 0 
50256 0 

03665 0 
75446 0 
4335 2 1 
33150 0 
57414 I 
00316 0 


5T7.2 


^ R ACT3 

E2 

MDUL srcrg 

“5TAtm — ^ - 

STOOL THET2ER0 

XT 

STEAL L oars- 

NORMEX 

srg VLUAU 

QTE MP 

RACT3 

UNIT ODT 


A8S SORT 

SO — — oTTrr— 

— ^OR^.002 

BON OCOMP 

KErATT" 


2106 36,2102 

P2I07 PHI (0) = 180-(-(THETAZERn +K5in> 

K? im — T ( T 30 -'AL R H A 1 = 5TTrf At FHAT-FTC 
2109' 36,2103 

210905 REE 1 — 36.2104 

2TT0 36,2105 

2111 36,2106 

2112 REF 4 LAST 553 35*2107 

2TT3“ THEE 2 LUST 94 36, 2110 
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M A S K A F ROM A BCD E 


"4^447 5 , 57 7 T L CE GAL 
TEMP 



+ A=3 ILLEGAL REDISPLAY 

C OM MON E R R O R E X IT 8AC X TO DtSPLAY 
- A=1 KNOWN LMK CHECK DE 

'0 A- 2 UNKNOWN LMK,DF MEANINGLESS 


SET KNOWNFLG- 
RESUIT^ 00077 


OOODE 


OE=0,t OK FOR BOTH N70,N71 
-O FUR N7t . NOT =0 FOR“N70 


N71 REDISPLAY DE MUST= 0 OR 1 
— N70 TEST OC- 50*57 OCTAL FO R -A- D V- . - RtRB IT 
SUM=00070 
0000 


0=5" OR 0F=50-57.nK FOR N70 

OE NOT 50-57 I LL EGAL , REOI SPL AY 


UNKNOWN LMK, OE MEANINGLESS 

=0 GET LLA E- 7 0M -a s tro, - NQT - 0 USE -RtS- 


GFT LAT/LOMG/ALT FPOM ASTRO N89 


TT^Pl OM'0‘^5 OF A'^^C t>}>'')GRTM CGMAN'ICHE' BY N A SA ' ^0 21 1 0^5 1 


r',rT6'^ — iKuuwLb . 04 ^ — — 5 ^ 


0 3 1D“ 
0310? 
0 ' 3 1 0 4 
0310 6 
0310 0 



0311 ? 
0311 4 

117 n'6 

0311 8 

0312 


0 3TZ 4 
0312 5 
0713““ 
0314 


^20-P25 


OFF 

REF 


1 

8 


LAST 366 



FEF 
R E F 


REF 


0 



EF 


REF 


30 ,227? 

30.2273 

30.2274 
30,7775 
30,2276 


soil 7 0 
0 5372 1 
00D04 0 


n 


T2 

T AST 

■ 5F7 

~~7UT77n~ 

4 

1 AST 

566 

30,2700 

28 

LAST 

56 8 

30,2301 

2 

lAST 

566 

30,2307"' 

23 

LAST 

56 8 

30,2303 

4 

LAST 

356 

37,7304 

R2 

LAST 

568 

3 0,2 3 0 5 




70,2306 

1 



T),270T 


T 

13000 0 
3 502? 1 

54 301 1 

0 55'46 0 

00075 0 
0 5560 1“ 
00024 1 
O' 6006 1 


1 

30215 1 
77650 1 

30,2311 50100 0 


-GR-50 TC 

OCT 

OCT 

— 

xrcT 

CTT" 


TS 

TC 

AtJK’fcb 

TC 

A ORES 
TC 

CALL 


GOTO 


t3SER*S PACE NO. 


8 


E5 S3 


TTF 
2 PHSCHNF 
0X1004 

05022 
13 000 
FIVE 

MAPKINOX 

UPFLAG 

TARGZFLG 

DOWNFLAG 

TARGIFLF 

I NT PR El — 


OFT t AT /LONG/ ALT FRO^ R L S 


AOVORB 


OnV5N71 









Cr55”TTF 


A!', I PR cywANCHE 


Y NASA 


7021113-051 


i cj: 7^“APR. 


1 Vt969 T FCP JBLE 




P20- 



USrR*S PAGe m. o E5 S3 


P0315 PROGPAM NA^E- OPTICS C Al. T BRAT I ON ^RQTlTTrTE — — 

POO 1 6 NO- r ' — — — 

RO ITT WTry-^ TOTf-l^rATT — — — 

R0313 - — 

^031-» FUNCTIONAL nFSCRTPTrCTN- TCTMEASUPF THE EFFECT OF SOL P ADI ATTON ON " 

R 03770 ~ THE S XT “TP UNN TON ANGLE AND TO SIHRE THh MEASUkEJ I '^UINNIDM BIAS FOR P23 

P032I - 

R0322 CALLING SEOUFNCE- CALL 


P032^ ~~ ■ ~ 

R0375 SUBRnuTIJSTESrXALLFG- ntSPLAT ROUTTITES 

'KUJTE 

P0327 NORMAL EXIT MODF5-VT A ’FG7 FSR 
R0323 

RTJTTO ATTARTfS- ^ONF — — 


R 0 331 



R0333 
R 03332 
R0333 4‘ 


ABORT NODES- P23ABORT IF ’MARKING SYSTFn OR r XTENDEO^ Vf RB AGT I V6^^— 

TRlPVrP- ITONT RFOUIRblJV NORNALl Y CALLEU’OJY PX3 — — 

OUTPUT- TP UNN I ON BIAS ANGLF- ANGLE OETERNINFO WHEN SHAFT LTW GF SIGHT 
(SLQS) AMO LANDMARK LINl nF SIGHT ILLOSJ ARE SU® hP IMPOSED , THIS ANGLE 
“NTTTXirn'UIF FXACTL Y TTOTT BE C AUS E OF UN E VEN HEA T ING 



RG3336 EXAMPLE 
R033^f 

^0335“' 


"FTA5ABLE INIVIALIZAfl 


■RFWrXETT 



FXTVBACT 


R03BE 

R033T 


033 9 

0340 

U34T 


DEBRIS- RUPTREGS U$«^n BY MA-RKBUPT AND ERASABLEG USED BY 




REF 


4 FAST 566 


33, 3776 

737 ,2trOG 
3-7, 



SETLtOF 


0! SPLAYS 
3 3 

P20S 


RTF 


(J34? 


Kh 


~r 

20 



LAST 232 


E 7,172 5 


EBANK= 


0343 





3742401 

774 20 

1 5 7 

STO 

0344 

"PTF* 

2 

LAST 

9TJ 

37,2402 

07317 

0 


03442^ 

P -F 

3 

LAST 

441 

37,?403 

3 506G 

1 

CAF 

03«t <'4 - 

•> Fp 

26 

LAST 

564 

3 7f2RG4 

54 n 03 

0 

TS 

034 7 

R FF 

17 

HAST 

5 2T 

37,7405 



CAF 

0346 

REP 

16 

LAST 

520 

3''. ?A0-6 

7 1044 

1 ' 

MASK 

0347 

PEE 

147 

la<;t 

568 

3^7,240 7 

10 000 

0 

CCS 

03 4 T 

PEF 

T 



“37,2410 

0 '2A'bO 

7 

TC 

0349 

REF 

24 

LAST 

SI 3 

37.243 1 

“3 5016 

0 

CAF- 

0350- 

RTF 

17 

LAST 

570 

37,2412 

27*0 44 

1 

A 05 


^^TRKBttFl 
EXIT - 


PBANK7 

EBANK 


EXT VB ACT 
A 



0 J5T 


RFF 


0353 

0334 

0 2 ^' 5 
035?S 
D35T 
035 3 

0350 


f ‘ 


■RTF 

RTF 


pep 


c « 


^ rF 


“7^ 

1 

1 

175 

1 

?2 
~T 

2 

11 


559 37, 24T3 0 5 5^-5 ~- 0 R 5 7A 


TTVST 55T 


LAST 56T 


3 7 vT4 1 4 

37 ,7315 
TT, P TIT 


3 7,2417 



LAST 
I AST 


^70 

^46 


3 7,2 
3 7,7421 

3 7 , 47 2 


O ' Vl 16~ 7r 
3 24 63 \ 
0 4662 1 
206U0- G 
0 4 136 
0 2 445 - O ' 
G 2 44-6 0 
B 5023 0 


T C 

ADKES 

CAF 

-Tt 

CADR 

TC 

-TC 

TC 

XAF 


BI T2 

EX TVBAer 
UPFtAG 


Y5GFL AG 
V59NB 


BA ttK CAtt 

G":‘MA<''KFR 
GiTTORUnH 
E NOR 5 7 — 


EMOB53 

S^V = N 


ftT T3 = M AR K ING SYSTE M - IN -USE 

SIT3 ^ PXTENDFO VERB IN PROGRESS 



TNFREPORg ABORT 


NtTT 

SET 


SET 

IT 


SET V59FLAG (BIT 17— P t AG 5Y TO I ND ICATE 
CALIBRATION MARK 


TERMINAL 



G ASSF'IBLF kevHION o55 OF ^GC cnMiNCHt BY WSH 2021irj-0!>l 


t> 7 ;-)_r) 7 -c; 


10:28 APR. 1 , 1969 FPOUBLE .0A3 PTSTTF 5Tt 


USSR'S P4GF NO. 10 £7 S3 


0360' !7EF “ 7 LAST 5?>7 TT.Z^^TA 0 352F 0 TC 3LTSNKFT BLANK OOT RltR2iP3 

03'6T RTF 70 LAST 56B 37f?425 0 5217”0 “ TC “TWOOFJOR 

““POiT.? TTLTRE TRIlMNiriN ANOLF lOCOU) 

OGST REF 1 T7,24T6 3 2462 0 NARKOTSP CAF VOBNBTNS 

0364 REF 126 LAST S70 * 3Tt2427 0 4662 1, TC BANKCALL 

■ 0343 RFF 2" O' ST 5777 “1T,T4T0 20600 0 CTOTR GUMAKKFR 

0366 ref 23 I AST 570 37,2431 0 4106 1 TC OaTOPOOH TEOmWATF 

0367 REF I 37,2432 02437 0 . TC R573 PROCFLO 

'0760 TcF I 37.2433 0 2413 0 ' TC R5 7 A' — E N T ER ( RFCVCLEl 

0369 REF 13 L AST 569 ' 37,2434 3 5022 ' 1 CAF FIVE 

0373 REF B LAST ^571 — 3T.2435 0 5526 0 TC BLANKET BLANK OUT R1.R3 

~~irm TEF“ '71 TA^ST 57T 3 '.243 6 0-5217 0 TC E NDOFJ O B 

0^712' REF 1 37,2437 3 24S5 T P57B CA 15.77trEG PUT F r XFU INTO ERASABLE FOR MSU 

03714 REF 62 LAST 542 37i2440 54 OOT 1 TS L INSTRUCTION COMING UP 

OT72 REE 21 LA'S! 570 37 ,'2441 3 17 32 0 CA ORKBU ET' FB C O NTAI N S T RUNN I ON 

“ 037245 “ 37,2442 0 0006 1 - EXTEND 

" 03725 REF 63 LAST 571 37.2443" 20 001 1 MSU L CORRFCTS TRUNBIAS FRO« 2»S TO I'S 

03T3 R'EF^ 1 37 ,- 7442 , 55' 342 1 TS TRUNBT AS — 

0376 REF 29 LAST 569 37.2445 0 6550 1 'ENORBT TC OOWNFLAG RESET V59FL4G 

0377 REF 2 LAST 570 37.2446 00116 1 ADRFS VBOFLAG 9IT 12 FLAG 5 

" 0377 2 “ REF 3 L AST 564 3T7'?4'4T— T ■5056'’ I CAF E BANK5 

■ 03774 ' PFF 27 LAST 570 37, ">450 54 OOT 0 TS ETANK 

03T76 RFF 3 LAST 563 37.7451 “3 5066-"! CAF RRini4 

— 0377T"- R-EF' T6 "TAST '. SI'S 3T , ? 45? 0 5134 1 TC N T VAC T HT S 3 08 CL E ARS BI T IN 

■ 03778 REF 30 LAST” 566 1330 F3ANK= MAPKSTAT 

037785 ~EF 2 LAST 233 37,2453 05534 0 2CA0P END^ARK fTARKING 15| R57 SO R53 CAN TAKE OVER 

037785 37, 2 4 54 '04062 ‘1 

0375 REF 83 LAST" 569' 37,2455 0 6006 1 TC IMT'’ReT — - — — 

0379 OT.-TAB-A 77650 1 GOTO 

035TJ ref 3 CAST — 5T0 3 7 .245 7 D23 TT'Tr EG RE S S 

OT"! "RFF 3 LAST 223 — 3TT2450 0 7T55 1 P23A8PT TC BAILOUT 

0322 ■ - 37,R461 01211 1 OCT 01211 

03 33 37,2462 01527 0 — V06NS7NB VN OTTBT 

0384 37,2453 16600'”0 V59N1T VN 5'700 

- 0335 37,R4f>4 1 4600 1 TASINS VN 5100 

■ "03552 " 37.2455 517 4 0' O ' 1 9 . T7 D E G O C T 61 7 4 0 — 


G AP : 



np AGC PkilGMAM BY NASA '^02111 j!>-n5 1 


TT}:2 8 APR. r;i969 F ROUBL E .0^3 P AG T 



L 


PZ5 


trSER^S PAGE NO. 11 


E7 S3 


^ _ 


*^03^5' PROGRAM DESCRIPTION 

R0337 MOO NO - 1 ■ ■ ■ 

P0388 MTfD-’B'Y^^'N; gR'TITEn’R “ 

R03P? FUNCTIONAL DESCRIPTION ^ 

R03:>n 

~T0 3'9I TO PERFORM nGTHTINII MA^KS IN CUN JUNCT 1 UN' U I T H T H E P.ENUtZVUUS NAVIG- 

P03T2 ATIDN PROGRAM. CALLED BY ASTPHNAUT VIA EXTENDED VERB 

R035A CALLING SE3UFNCE - ‘ 

-“R-D39S RTl VIA VET 

' "ROiae R23 VTA V BA”" 

R03'~R SUBROUTINES CALLED 

■ “TOATTO Fr AD 0 P FI A GO OWN 8 ANKX?LL 

P040I FNDDFJ08 GOTTAPKE Gn'TAPKF 

"ROAOll INTP'^ET GENTRATJ* KLEENFX 

“'K 040 12 FMORAPP 

T?0402~ NORMAL EXITMOOES- 

^20403 MARKRUPT USED BY SXTMARK HAS SEEN MODIFtED TO STORE MARK IN MPKBUF2 

~Er04TJ4 -EOR USE T5T R22 . ErHEN~'TrSTPDNAirr T S ^'T^ T AKT N G WA R KS. H E H IT S AN 

ROAOB PROCEED , F21 I S TERMPTATED THUS CAUSING THE FINAL MARK TO BF TRANSFPO 
E04051 TO MRKBUF? FOR PROCFSSTNG BY R22 — 

"■TE0406 AL A RR -OR- ABORT “EXIT HOrtFS 

TIDAOT AIOTTE " - 

— ROZfOB OUTPUT - 


R040V "T REG ISTER' MPKBUF2 CU N T A T N T NG T T M H 2 . T I MEl . C BU T . OP T I CS X. CnU T . OP T TCS 

R04T0 CDUX. 

P04n ERASABLE I MI T I AL I Z ATTON REOU I RED 

T(T4T2 FLAGS SET TOTO' 'RESET 

R0413' P 21 MARK " (COMMUNICATrntTTO MARK piJRT TD-S TORE MARKS m-MRK 8 UFl ■*• ?) 
R04r4 R23ECG I NO T CA TFS CO AS" MTSR-KTND 


■R'0415 DEBR 1 S 

D41E‘ PEE 22 LAST 571 TT.tTRS EPAMK= MT'KBUEl 

0417 REF^“ 1 37,2000 SFTLIX RFNOEZ 

■ 04IR 37,2456 BANK 


♦ 


0419 

FF 

1 







COUNT’<^ 

«* /P2l 

0420 

REF 

30 

LAST 

570 

3T.2466 

0 5545 

0 

R21CSM 

TC 

UPFLAG 

0421 

1TFF 

2 

LAST 

200 

37,2467 

00033 

0 


^ORES 

R21MAPK 




LAST 

513" 

37 , ?47n' 

3 7716 

0 

R23r,SM 

— C4 

N FitONF 

0423 

’’EE 

22 

LAST 

572 

3 7, 2471 

55 • 725 

1 


- TS 

Mt>KBUFl 

0424 

REF 

8 

LAST 

563 

3 7 ,2 4 72 

55^734 

1 

- 

TS 

NKKBUF? 


Tjzrzi RTF ns nrST 37V24T3 3 0075 0 C1X Ff lS t -Gvm m 


047^ 2 last 257 37*2474 7 5rr0-7 1 MASK “ R23'BIT 

0429 =— 37,2475 0 0006 1 = 5XTFM0 

— 0433 T7TP 1 3 ~7* 1 7^1 0 &2T R21C1 

0431 "T-EF t 1 ^ 7 , 2477 3-2556 0 - CAF \/065‘4 

0432 127 LAST 271 37,2500 0 4662 1 Tf B^^NKCALL 

0433 tTTST 5tr5 2 , -50 1 1 

0454 ''FF 1 7 7,2502 0 75-50 q TC 221 F NO — 

043 5 5 7, 2503 - 2) 25 06 -Cl TC +2 


SET R21MAPK 
BIT 14 FLAG 2 


TFST~B23FLG 


NOT SET P E Gl IL AR K 2 i MARK 
R23 BACKUP MARKING — 
01 SPLAY SHAFT + TRUNNfON 


tepm 

FROC 


(TW 


A$Sf^MBLE t?FVIS10^""0'^'S 0^ ^^C Pi-'' 0^]-' AM CUMT^MCH:- BY NASA (TZni 3 -'0 b 1 


lOTZR-^FR, rVT9'&9 rKOUBLE .04 3 PTHTF 


P2 0-P75 


USER*S PAGF NH. — l^ 


^=7 S3 


0^6 

0437 



ITTSI TTZ 


LAST 572 



REF 


RTF 


LAST 

LAST 

UATST 

LAST 


570 

265 


572 


04^ 
“04 54 
"0455 
7X456 
0457 


\ u 



547 


537 


37,2"504 

37,2505 

3 7,7 506“ 
3 7 , 2507 
3T,251T) 

37.2511 

37.2512 

37.2513 

37.2514 

37.2515 
37,251 6 
37, 2 51 7 ■ 

37,2 520r 
37.2521 


0457 

0464 

0465 
0F56 
0467 


RFF 

~Z6 

“L7rST~ 

LAST 

LAST 

573 

— 37 , 2522 

Rr:F 

pEF 

S 

27 

537 

573 

37 ,75 2 3 
37,7524 

R EF 

TTT 

TAST 

537 

3T,”?575^ 

R EF 

2B 

LAST 

573 

37.2526 

37.2527 


T) 2477 1 
3 25 55 0 
" D' 4T67 1 
20564 1 
0“2550 0 
1 253/ 0 
3 6211 n 
0 5606 1 

01T25 0 

01734 0 
00006 1 
3 0025 0 

53* 726 1 
3 0033 1 
”55'* 7 27 


723CSm 


TC 
CA^ 
TC 

CATTR 


^3 

V53 


TCF 


RANKCALL 
GnMARK2 
R21 END 
■R21CSMA 


IT 

0 

1 

tr 

0“ 


RTF r 

REF 1 
RFF 129 


LAST 573 


"37 , ^"533 
37,2531 
7T2332 


3 a03 4 
55*731 
3"0032~ 
55*733 
0 00031 
“0"~25Tr5“CT 
3 2464~0 
0 4662 T 


F2tCl 


“ "0463 

"REF 

2 

“LIAST^ 

573 

37,2533 

20554" 

1~ 


0460 

R»=F 

3 

LAST 

573 

37,2 534 

0 2 560 

n 

- 

0470 

REF 

2 

LAST 

S73 

3r,TS3 3 

1 2537 

n 


04TI ' 

“REF 

2 

T AST 

572 

37 ,2536 

1 2531 

"O 


0473“ 

REF 

27 

LTrST 

5 73 

37,2637 

3 1725 

0 

R21CSMA 

U4 f 4 

~RFF 

6B 

L AS \ 

■ 55A 

37 , 2 540 

6 60 ir 1 


0477 





37 , 2541 

U U y) U h 

1 


0476^' 

RFF 

4 

LAST 

573 

37, 76 42 

1 -2550 

1 


04 28 

“RTF 

7T~ 

L A S I 

STT" 

37, >543 

~ 3 63TT" 

"D — 


0^79 

R FF 

9 

LAST 

573 

3 ,^544 

0 5 60S 

t 

R21CSMI 

04 BO 

REF 

30 

LAST 

573 

3 7 , 2 ^ ■+ 5 ^ 

“ Xl l7r5- 

0 ” 



U'fSl “■ 

RfcE 

IW 

LAST“ 

57 3 

■ 3T,254'6 

01 734 

0 


04 B 2 

- -- . - - 



- ■ ■ 

37,2547 

0 0003 

1 

- - - - 

04 37 

REF 

130 

LAST 

573 

3-7,2 550 

0 45 62 

1 

RaiENO 



”2 

30 

3 

-3 


trsT 

LAST 

LAST 


571 

572 



0475 


37.2551 

37. 2552 

37.2553 

3 7 . 2 554 
-37-,->6F3 
3 7, 2356 



0 5660- 
00037 


15200 
01 5 36 


1 

0 

t) 

1 V 53 

0 V06<>4 


SIX “ 

TC GFNTRAN 

HTDRES MRKHUFi 

AORFS MRK PDF 2 

FXTFND 
TICA — 

nxcH 

CA 

TS 

CA 
TS 


rr^FZ 


MRK8UFT 

CntJY 


TTA “ 
TS 

RELT NT 
TC 

FAF 

TC 

CADR‘ 
TC 
TCF 


TF5K3UF1 

CDU? 

•^RKBUFl +4 

CDtJX 

MRKBUFl +6 


R23CSM1 


V51 


BANXCALL 

R2lFNn 
RRICS'^A 

r-“ 


r 


CA 

TD 

EXTEND 

BZE 

CTTF 

TC 

AORES 


MRKBUFl 

ONE 

R21 END 


RELINT 

TC 

ca or — 

TC 

AORES 
Tt 

VN 

VN 


GENTRAM 
MRKBtlFl 
TOF2 

8ANKCALL 
KLEENEX - 
fHOWNFLAG 
R21'«tARK 
“F- 


5300 

0694 


ENTER ~ 

PEREaRM ALT LOS SIGHT MARK 


V34-TER1^rNATE R23 

PROCEED-ENO BACTTTP MARKTNC TRTSr 
TRANSFFR-33RXBUE1 TO MRKBUF7 — 


RTAO TIME 
READ COL* ANGLES 


V34-TERM IMATE T21 
PROCEED- END R2l 



I F -1 NO 


ZERO = NO MARK 

MA 'RX " T HERE F ORE * TRANSFER - TT TfT -NRX311«=-7 
TRANSFER mrkBUFI TO MRKBUF2 


RESET R21MARK 

BIT lA FLAG 2 

END MAR K ING AND ENOTOB 


GAP: ASSEMRLF 9^\/~l^\QH np AGC 



riMAMCHE BY MASA 2021115-Obl 


APR. 1,1969 IHUUBLb . 04 :J FATTF 5Tir 


L 


-p ;^5 


USER«S PAGE NO. 13 


E7 S3 


P0496 ^ P^EFERREH TRACKING ATTITUDFTFUTT’^jr RSICSir"" 

R04'-J7 PROGRAM OESCRTPTTOM 

■"ROASTS 

■~R04^F MOn 3Y - N.BRGDFUP 

R0500 FUNCTTHNAL OESCRTPTinN- ' “ “ — 

Rod'll rrrcn^^T’UTF'TF^TC^EhEi^rr^ 1 RACKING Afinuub !JE I HE CSM TM ENABLE OPTTCS 

R0S02 TRACKING OF 'THE XM AND in i^EPFORM THE MANEUVER jn THE PRCFERREtr 

R05'03 DR X-AXIS TRACKING ATTITUDE* 


RCTEOE Ttr~“ BANKCAtL — — ““ “““ 

■ R0506 CAOR R61CS^“~^^^^ ^ — — 

““nrOEDT GUFRDTJTTNFS" C AT L b L) — 

■ ROBOT' MAKECADR ' 3ANKCALL =— — 

ROBOT ” TNT^RET FLAGUP" ^ FLAGDOWN — =“ 

RTI5TT5 “ BANKJUMP CPTTSTrT' — ~ — F60CS13 — 

ROBIl PHASCHNG 

F0BI2 normal exit MDOES- — 

R05TT~ NTIRT^AL RETURN IS' TD~ CAL LER — — 

“ R0B17- OUTPUT - ~ 

“ ROBIT” SEE OUTPUT FOR CRS61.1 t ATTITUDE MANEUVER ROUTINE (R60CS*^) — 

RD5T0 ' “FR'A^FABL E TNTTrATTZATI ON pEQUIPED — — ^ 

ROB-BD GENRET US^n TQ-FAVE Q FOR R-TUFN — — — 

ROBBl - R 61CNTT MIT5T-&F' PRESET ZEFf^ 

RD52? F LT^GS'FET RESb! 

R0523 3-AXT5 FLAG — 

R0524 DEBRIS 

ROTTS SEF“ SUBROUTINES" — ' ' ^ ^ 

0^27 RFE 3 LAST 116 E6U1T70 EBANK- GENRFT — — 

052F ^EF 1 - — - COUNTS $t/P6l ROUTINES - NAVIGATION - PRFE. TR. DTT- 



05^0 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0533 
053 0 

054'0 


REF 

REE 

RFF 


REF 

REF 


r? 




9 

23 


2 



2 

34 


LAST 

LAST 

FAST 

LAST 

LAST 

LjAST 


LAST 

LAST 


535 

571 

TT5 

390 

57 A 


5T4 

571 


3 7t2 55 T 
3 742 3 50 
37 , 2 561 
3 7 f 2S6 2 

37.2563 

37.2564 

37.2565 
37, 25' 6 


37,2370 

37,2571 


3~5057 0 Fr6lCSM 

I 

"0 — 


55*771 
0 4711 
55*770 


0 2616 
0 2570 


1 

r 

r 

1 

i 



261 7 0 


0 6006 1 
77624 1 


CAT 

XCH 

TS- 

TC 

TS 


TC 

TC 

- TC 

TC 

CALL 


FT.^ANK6 

EBANK 



MAKFCAOR 

GFNPFT 

R 5 r CNT-R 

OF CRM 61 
^2 

OFC 7 M 51 +1 

int^pft 


SWITCH TO FBAMK F 


S AVe EBANK 


TES TRftieNTR 

NOT READY TO DO R6I. 
DO R61 


TrcT=- 



CR$61,1 


LOS DETF^M f NAT ION » “ VEb h ATTITUDE 


0341 — EXIT — 

0542 REF 249 LAST 560 37,2*^74 50 154 I INO'-X ^?AC - - 

0 5 4 3 3 7 , 2 57 5 0 2 576 1 TC ^7 — — 

1)544 REF~ T 37,2576 0 261F 1 ^ TC T^61rEN0 SUBROUTINF DRIVING DAP (FXTT R61J 

A05A'i l ' - OR AUT6-MODE-NOT S^T (PXIT P6l ) 


A 05442 — “ 

0543 R^'F Ti last 

0553 Rcp 3 l^6T 


9R— STIKFtAG S E T — (-EX IT R 

573 3 7r25-7‘^ t) I ^^^MCl T C DOWNFLAG RESET 3-AXIS El AG 

398 37,2600 -00124 0 AORPS 3AXISFLG BIT 6 RLAG 5 — 




G 


Cy5'5'TTF‘ PROGRAM COMANCI-Tt BY N'A 



n^^-obi 


TirrZB~5W; It 1469 nroUBLF .04 3 


PAGE 


P70-P25 


055^ 


npf 

7EF 


69 

4 


AST 
lAST 


5TT 

574 


3T , ?6 (n 
3 7,2 602 


4 50T7 0 
55^775 1 


rrs 

TS 


T}TrF 

^6tCNTR 


LAST ^72 
LAST 391 

r 



3 7 V Z6T) 3 
37, 2^04 
7 76"C5 

37. 2606 

37.2607 
TTTTnSTTT 


0r~5 5 46 0 
00077 1 
D' 4662 T 

56000 1 
O 5560 1 

000 '/ i 


TC 



LAST 


U365T"~Rm22 L31ST 5F4 


3Tr2611 ~T) 5412 0 

3T t 2 6 rr 001 1 1 0 

31T76 T3 3 50 2 r 1 


TC 

CADR 

TC 

AORT 5 

TC“ 

ncT” 

C7n= — 


URFLAG 
PnSPFLAG 
■RTOTKC 


R60CST4 

DOWNFLAG 

PnSPFLAG 

PHASCHNG 

00111 — 

tfrtt 


- — 0565 2 

SEF 

LAST 

574 

“37V 251^ 

0 2616 

1 

TC 

0ECRH61 

0567 

REf^ 20 

LAST 

565 

37,2615 

3 621'‘ 

0 R61ENn 

CAF 

THRSF 

056 8 

REF 5 

LAST 

575 

37*2616 

55* T75 

1 OeCRM6l 

TS 

r<61CNTR 


056 0 

0570 

0571 
0577 

0573 

05 "^4 
D5T5 

0576 

0577 



LTTST 
LAST 
LAS'*- 
LA5T 
LAST 
L AST 


570 

574 

5T4' 


37,7 617 
37*2620 
37,2621 
7T7 


31’TT0"0 
22 000 1 
3 1771 1 

56“ 



3Ti2623“ 

37,2624' 


~0““4T04 TO 


p ef 


1 


13,2231 

23,2000 

23,3043 


CAF 
LXtH 
CA 
TCK 
IXCH 
TC 

■TONIC” 
S F T L t rc 
RANK 


GFNRFT 

a:-— - 

SAVBNK 


bankjunp 


P20S2 


“USER’S PAGE NO 


14 


E6 S3 


SET R61CNTR NEC. TO INDICATE KALCMANO 


SET FLAG FUR PROIPITY DISPLAYS FOR ^^60 
BIT 12 FLAG 4 


RESFT^FIAG FOR PRIORITY DISPLAYS IN R60 
KTT — r2 FLAG 4 


RETURN IS IN 1 
RFSTORE E8ANK 


RFTURN IS NOW BACK IN A 
EXIT R6l 


0573 REE 31 LAST 573 ET, rf25 __ - E8ANK= NRKBtiEl 





* 


ir^ 



nh AGO PK IGRAM CfJMANCHh BY NASA 20;i!l 1 1 3-Ub 1 


AP'^. TV T9 5-9 T ^n UBL F , 0 43 P AG E 5T6 


L 


p;>0“i^25 


USER ^5 PAGE NO. 15 


E? S3 


P057^ 
R0580 
ITO 5 8 1 



RAPTOR PERFORMS COMPUT ITTONS TO^ — 

nELTAQ.THE MEASUREO OEVT AT TON . BAS ED ON THE niFFEPEMCE BETWEEN THE CSM-tE 

‘■-'rTT'ATE VETTDR^FSTI’^lATESTNn THrTTTDAL IkACKlNG Mb ASURbMhN ! . — 

ns. THE MGDIFTFD FTCTTTl'^IS STATE DIRFCTTON VECTOR 

GEOMETRY VECTOR B ASSnCTATED WITH EACH TRACKING RTEASUREM ENT. 

tnpitt 


UM.1/2 ilNIT VECTOR AIONG THE CS'^-LM LTNE OF SIGHT (BASIC REF. SYSTEM) 
USTAR, FICTITIOUS STAR DTRECTIDN (1/2 UNIT- VECTOR) — 

TTTFLATIVE CSM TLF LM POSITT ON VECTOR 



TTOSCB' 

R05S9 



R0591 
^ 0592 


OUTPUT — 

USTA^VManiFIED EICTTTOUS STAR niRECTION (1/2 UNIT VECTOR) 

TVPCT^ DlMENSlUMA r BVEC TO R— fTT Z UN IT VEC . ) 

DELTAQ = measured nrVT AT TON 

CALLING SEOUENCE 


70593“ 

r 

CALL 3V 

ECTOP S 


^ C ^ 

'^lUKJ^AL hXU 



R0595 

L + l OP CALLING SPOIIPNCF 

0596 

REF 

1 



- - 

059T 





23.3043 

05^8“ 

RFF 

4 

LAST 

571 

2 3"i 304 4 

0599 





“23,3045 “ 

06 UP 

RFF 

■ E 

"tlTST 

121 

23,3046 

0601 






23, 304 7 

0602 





23, 3050 

■D 6 UT 

m EF 

1 



^ ^ f 3 0 5 1 

0604 

REF 

2 

LAST 

80 

23,3052 

06 05 





23,30 53 

0606 





23. 3054 

0607 

REF 

3 

LAST 

121 

:23.3055 

0608“ 

REF 

2 

LAST 

563 

23 ,3fT65 

0609 





2 3.3 5 7 

0610- 

“REF 

4 

LAST 

5 76 

23,3060 

0611 

7FF 

3 

LAST 

576 

23,3061 

0612 





- ~23T3062 

061'^ 

REF 

2 

LAST 

SO 

23,3063 

061<^ 





23,3 064 

07,1 5 

REE - 

5 

LAST 

56 7 

23.3065 — 

0616 


- - 



23,3066 

061 

EF 

17 

LAST 

55S 

23,3067 

~06T9~~ 

S EF 

i 



— 23 .3 070 

061 9 





23,3071 

0620 

R.EF 

“2“ 

LAST 

5 76 

“^3^307? 

0 6 ? 1 





73 ,3073 

06?2 

RTF 

2 

LAST 

17) 

23,3074 

062 3 

, r i— 

•, r 

s 

LAST 

544 

23r3t>75 


COUNT 23/20SUB 


77620 0 R V E C T ORS $T0 


023 1 7 



Vt OAD 


03 5 31 0 
140 33 1 
00045 0 
2 53 01 
01245 tr 

-a 


STOOL 


STOVL 


VKY 


DDO'33 1 

37502 1 
56750 0 
777T5 1 
03502 0 
01245 0 

72 4 41 - 


01235 

45326 

1532 5 

41301 

00047 


rr 

1 

1 


STCALL 


VLOAIT 

STORE 

D OT - 


UN I T - 

PC L P 

260 

360 

T E M PD R 1 
USTAR 
UNIT 
TETT 

B VEC TOR 
GPP2PC 


BVECTOP 

USTAR 


A COS 


UN 

OSU 

-0R 1/4TH 


0577 

0625 
0 626 


91EP 

R E F ' 


rAST 

LAST 


-5T5 



576 


23 ,3077 
23,3100 


0 

1 

07103 1 
53605 1 
01301 1 
2 t 5T 5 ' O 

27524 1 

15 3 3 5 ry 

t r 35TQ 0 
035 !6 0 
73650 I 


-NflRN 1 

X 1 

P I/4. n 

DNP S-RR^ 

TFMPnPl 

— ^ - 0 -^ 3 » 1 

STOVt OPLTAC^ 


S TORE B VFCTOR »6 



VF PO ST T TOM VECTOR 
RCLP UNIT VEC — 

RCLP A8S VALUE 
M O VE TO 5AFF LnCAT!O^ L “ 


U STAR = tT NIT t US X UCL t 


RHASE CHANGF 


USTAR DPT UM 


RCtf^ ABS VALHR 
ADJUST SCALING 


STORE 

GOTO 


VET TOR: 4 120 


t 


n ' 

■ V 









< • 



(TSW 


ASSFMRLE RFVISinK! OB? nc T'iL PR OG.-IAM (■.llfW4C;Hr: f^Y NASA 2021 1 1:^-0'^ 1 


It! ITT 'APR. 1.1 96T I' ROUBLE .UA^ PiniE S7T 


T 'P2T)-°25 USER'S PAGE NO. 16 E7 S3 


C6?7 5 LAST S76 23,310T 02317 0 cTTRFSS 

0621 23,3102 31103 1 PI/^.O — ROFC .78539316<t 

0£r2F“ ~ 23T3TTT3 36652 0 


TTlfPl RhVrSlUM“D'by pi- ns, TTT ,- program 


tnjTONTHF 


NASA 2021113-051 


10:28 APR. 1 f 1 ^ 69 T R O UBLg >043 P A 1^ B 5T 8 


t 


T’20-P?5 


usFR^s PAaE Nn. r? 


E7 S3 


P0629 GFTUM-OETER^INFS THE LT^^^F~TTF SIGHT UNIT VECTOR UM TN THE BASIC REFER FNC 
R0630 F COORniNATF SYSTEM from-tHF nPTICS SHAFT AND TRUNNIPN ANGLES AND THE IM 

R 06T[ TTITI TlTAirinNCnTF^TT 

Rn632 INPUT " ^ “ — — ^ “ 


R0633 


MARKDATA^BASE ADDRESS UF MARK 
F EFS 'MNATrRUTATlON HAIRIX' EEUM 


DATA 

STABLE MEMBER TG’ BASIC 



■"R0635 SUBPnUTIMFS CALLED- “ — 

R-OtTTS ~3)rrMB - SEXr. angular 'RUAniNGS^TD HAV. RASE COD'?. 

F0637 ^ NBSM TR AMSFOnN FRtnF^MAV, BASE TH ST ABL F MEMBER — 

R06PP OUTPUT — 

R 0 6rT7 ^TPT^C""-^ "XTTIF" 0 F ~S TTOTl — 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM 

~ R06A0 “ CALLING SEQUENCE “ — “ 

" P06^vl L CALL GETUM 


Tr0642 NORMAL EXIT 

R0643 L + 1 OF CALLING SFQI.FNCE 


06 Vt 

0645 

RFF 

6 

LAST 

577 

0646 


- - - 




~RFE 



0648 

7 

LAST 

3 0 






065 0 

REF 

1 

LAST 

22 B 

’ 0651 





■TJB5Z‘ 

'Tr'IF" 

8“ 

LAST 

5TB 


0653 

0654 


T)F55 

06F6- FFF ~ 18 LAST 576 

0657 RFr 6 LAST 438 

0653 — 

0659 TTEF 3 LAST 510 

0660 

06 51 RFF 1 

066? 

0663 REF 14 LAST 565 

— 

0665 REF 7 LAST 578 


23*3104 
23,3105 
TBG 31 Xm 
•23,3107' 

:23 r5 1 1 0 
2 3 ," 311 1 
23,3112 
?3,3n3 
23',3Tr4 
23,3rt5 
23 r3 1 16'- 
23,5117 

23,31:20 
23.3121 
23-,3T22 
23, 3123 
2-3,3124 
23 ,3125 
23, 31:2 6 
23,3127 
?3,313Tr 

2 3 , '»• I 3 I 


40220 0 GETUM 
02317 0 

00001 0 

T6-7 4a 0 

012412-1 

00002 O 

23676 1 

00001 0 

■ 03 675 0 

T7TT4 a 

trooo? o 

67064 t 
00046 O 

00050 T 

■776 24 1 

46000 O 

77624 1 

-F T 60 - 6 ” t 

76505 0 

01 736 1 


0231 70 


STO SET PD 

EGRFSS 


LXC,l VLOAD^ 
M-ARKDATA 


STHDL^ w^pXOOWN +1 

0.1 — 


A XT, 2 

2 

X SU. 2 $X A.2 

XI 

SI 

CALL — — — 

— SXTNB 
CALL 

VXM VSLl 


REFS^MAT 



CONTAINS ADDRESS OF MARK DATA 


TRANSFER DATA FROM VIORKING STORAGE 
TO MARKDONN ARRAY FOR DOWNLINK 


XI = -MARKDAT^ 

SI = MARKDATAI ADR) +2 


SEXT. ANGULAR READINGS TO NAV.3ASE COOR 


TRANSFOR M F ROM NA Y. B ARE SHADtF MEM^ - 


MR AC =(U - M y LtNE OF STO H T VECTOR 




klrVI!ir "JN Obb 1- AG(. 


TJ 


IH'/J'A^ f.H'lWCHr- BY NASA 1 1 r)S I 


10:?B APR 


TTW 59 TTOtTrCr^TO-^T^ PTXtrr 


5T9 


L P?0-^?5' ' USSR’S PAGF NO. F7 S3 


P065o c>Fr40E7vnUS T^Aa<tNG^ DATA PROCESS t NG^^OUT INF (R2Z) 


R066/ PURPIISF (U 1U PR'JOSS ^’^NOFZYOU S SIGH TI NG f^ARK DA T A TO U P DATE' THE STA T E V E CTDR OF EI TH ER THE tTS^ nR-H-^-A^ 

R0669 ' OEFINFO 3Y THE RENDEZVOUS NAVIGATION PPOGPAH (PTOJ. 


TD6T0 S Sli'^P T 1 UN S TTI — IHIS ROUTIN' IS MAN UALL Y SFLFC T EU~PY THE A STATI N AU T' BY"V55F WH E NEVER REND E ZVOUS STGHTTNG T-TAP^ICS “ 

R067?. ARE DESTRFD. ITS SELECTION HOWEVER “TS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING 

R0674 DATA DISPLAY. THIS ROUTTME RETURNS TO THE ORIGINAL PROGRAM AT THE INTEPRUPTED DISPLAY. 

“ir67? JATTETTr TATTK — — 

06T7 REF 1 ‘ ~ 34 «ZOOD^ SETLOC P2D5T ' .- . 

0678 34,2630 BANK 


06TD 


REF 


COUNT 34/R22 


DEW 
06 8 1 
06 811 
0782“ 

06R3 
06 84 

0787“ 

0637 
EH 
0757 ■ 
0690 
06'^01 
76 or 

0692 

0700 

TT7TTT“ 




070T 

0T84 

0707 
0706 
“OTOT 
0 708 
0713 
“OTT^ 
0T20 
07 21 
0T27 


0724 

0725 

07'’'' 

072T 

0728 

0T29 
0 732 


ITEF 

’ PF 

REE 


P 


REF 

RE'T 

^EF 


R E F 


REF 


■RTF 

REE 

R.EF 


PEE 

REF 

REF 

RE 


\ 

PEE 


" 3 " 

2 

6 

~i: 

11 

S3 

14 

2 


FTLET 

LAST 

LAST 


LAST 

LAST 

LAST 

LAST 


56 7 
1R7 


LAST 576 


REF 


REF 12 LAST 57^ 


T 

22 

10 

13 

3 

2 

T4 


06 LAST 57<5 



4 


L7i S T 5 79 


3 

2 

T 


LAST 


570 

Ot) 


■5'53' 

■“T4T2F30 — 

3 76 63 

“0 ORR 

CAF 


?00 

55'? 

34 ,253 1 
34.26^2 

5 5 * 0 6 
0 5R10 

1 

TS 


1 

TC 


573 

34 . 2633 

34.2634 

3 77 14 

55^ 73 4 

1 

1 

X75 

TS 


574 

34,2635 

0 6006 

1 

TC 



34, 2636 

77634 

0 

P TB 



REf 

RFF “ " 

REF 87 LAST 570 


34.2637 

34'.27-4D 

34,?'6’41 


45510 1 

ortw^o 

TT524' 


T4. 
34,2643 
3^4 , 26'44 
34.2 645 
34,2346 
3 4 * 2 647 

34.2650 

34.2651 

34.2652 
14 . ? 653 
34 ,2654 

34. 2655 

34 . 2656 

34.2657 
" 34 TZ 5 FO" 

34 , 2661 
34 .2 6 62^ 
34. 2 553 


56750 
7 7 62^ 
^5540 R 
777 76 
3 173 4 
0005 


O 


r 

0 

1 

r 

1 

0 

r 


RFNOT 


RENDl A 


1 2653 1 

0 0 f) 06 I 
6 2672 0 

3 6211 0 
0 5606 1 
■01734 


RFND2 


01224 

3 7714 


O' 

1 

1 

r 

1 


i 


34,2664 


0 0003 
0 6W6 
—45 014 0 
6 f I 



34. 

34. ?-566 
3 4 , 256 7 
f Z D T 0 



14-,25 72 
34.2673 


56 750 O 
It 0 
-01243 0 
01224-1 
7 0 715 0 
0 6006 1 
7762A 1 


P S NO 3 A 
R EN 0 3 


STmF 


CALL 


EXIT 
CA 

BZF 

EXIF NO 


CAF 
TC 

A TOES 

AOPFS 

CAF 

TS 

RELINT 

TC 

E A R 


5SF 




R^nrr 

OHSPROTR 

RR nCHNG 

NEG3 

MRKBUE2 

INTPRET 


L H A DTI ME 

vhftime 


GPP2PC 



M^KBUF2 


RFNOP 


SIX 

GFNTRAN 


MAPKTIME 

NEGB 


TO - 

CALL 


INTPRET 

O Alt 

SltURCELG 
OR 22 PC 

GOTH 

MARKOATA 

YTt^o -2 

RE -NO- a 

INTPRET 


PRESENT TIME 



MARKTIHF MUST ftF CUNTIGUOUS WITH VTFMP 
NEG VALUE TO" INDICATE VALUES USED 


0 = OPTICS- DATA 

PHASF CHANGF 


G/\P: ASSTMILF REVISION 055 Of^ AGC P*Rr)G^AM f.C 


MCHF'iry NASA ^o:^?m:3^jTr 


10! 2 R 75 pp, — rrrwo — rRouBLE .04*^ 


P20-'^25 


USER’S PAGE fin. r9 


FT S? 


07321 P.FF 
0732 2 


OTIT 

0734 

0736 


5 


FAST F7S 



L3\ST 579 


REF 



4 

T 


LAST 2h^ 


0 7 38 
0739 
0T4TT 

0741 

074? 

074T 

0744 

0745 


f^FF 15 LAST 579 


K13F 

REF 


1 

3 


LAST 


F 


REF 


2 

1 


L AST "5B0 




T~ 

3i 


UT 

0 T 47 

074^ 

0T49' 

075^0 

0751 


RFF 

REF 


4 


T EF 


EAST 579^ 
LAST 500 

LAST 563 


0T53 
11754 
075 5 “ 
075 5 
0757 
OTSTT 

0759 

0760 
0T6T" 
0T62 ■ 
0763 

“0764" 
' 0 765“ 
0 766 ■ 
0 767 

0763 

0769 

OTTO~ 

0771 

07 7? 
0773 

07-74“ 

07?5 

07T5— 

07 7 r 
0778 
07T01 
■=0 7 73? 

n/?? 


TTEF 

REF 

RFF 


RFF 


563 


1 

6 


34- , 2674 
34.2675 

“^T4T26T5“ 

34.7677 

34.27DT) 

34.2701 

34.2702 

34.2703 

34.2704 

34. 2705 

34,2796 

34,2707 
^4 .2710 
34,2711 
■”34,2 71-2“ 
“ 3 4T27 1 3 
34,2714 
34.27I"R 
3^.2716 
34, 2717 
34.2T20 
'“T4 . 27 RT 


56750 0 
77624 1 


GFP2RC 


CALL 


56404 1 

77614 1 
04746 0 
70645 1 

77634 0 
45510 1 
45225 0 
14650 1 
011 52 0 
45040' 


BOFF 


70645 

56415 

77745 

01225 

0115? 


T 

1 

1 

T 


0 
0 

77624 T 

55343 0 
45014 0 
00707 1 

7t 1 5r-T 


7rENt>4 



LAST — 5Btr 


UAST~'5BIT 


3472723 

34.2724 

34. 2725 
34 V2 7 ? 6 


REF 


LAST 563 


PFF 

REF 

TTEF 

REF 


5 
1 

6 


LAST 565 




7 LAST 580 


34, 

34 ,2730^ 
34.2731 

34, 2 “^3 2 

34.2733 

34.2734 
^4,2735 
34.2'^36 
3472737 


2T162 It 
77624 1 
56R50 0 
77624 r 
5534337 

7 "^ 614 3- 

0167^ rr 

"4301437 

02756 1 
70735 t 
01476 


K 


77674 

27162 


rr 

7 

1 


REN 05 A 



R 


EF 


TTEF 

RFF 

3F 


2 F p 

3F 

R-pF 


T 

I 

T 

3 

5 

I 


34.2740 

34.2741 
3472742 
34,2 743 
^4, 2744 
■3472745“ 


:> 


263 

530- 


34, 274 7 
34,2 7 50 
34,^51 


? c c 


i> Cp 



V4 , 7 

34,2-^55 


56547 1 
77624 1 

3 

45014 0 
02464 0“ 
7 1 2 5 3 O ' 

430T4~0 
0167! 0 

02 7 15 0 
-■^761 O 
77745 1 
001 1 
34001 I 
56565 1' 


RTR 


irsTi 


Rmr 



STUFF 

XTTtT" 

BON 


CTTtt 


CALt 


CLEA4 


BtJTF 


CALt 


C ALI 


CAl-L 


CLEAR 


OLOAO 


WAl 1 ONE 

VHFRFLAG 
RFMOl A 

L'^ADT Il^E 

TTSt) 

60S^C0P- 

VHFTIMP- 



R FNni A “ 
RANG FRO 


MARKT IMF 
VHFTIME 


sfttmtg 

CALL 

V E H ! I P FI G 

esMtipp 

INTEGRV 


GRP2PC 


VIMTFL AG 

T ~ — 


R-FNOWFLG 

RFM05A 


! NTFGRV 


SHIFTNOX 


CALL 
1 NC OR F LG 

LM p ns 

8 ^16+ 

OPHWFL AG 

PFNO WFtG 

RFN05 


WPF'NOPO S 


3TC Alt “O 


f 'J I T T A L W 


PRESENT TIME 

1 Ml N 

LAST RFAOING OF RADAR — ^ 

READ RADAR RANGE 

FOR DflWNLINK 
SET INTFGRV FLAGS 

BRANCH IF CSM »IPOATE 

RHASE CHANGE 

S E T INTEGRV FLAGS 

SET INTFGR AT f ON VEHICLE TO LM 

90 NOT INTEGRATE W IF FLAG = 0 


SET EARTH MOHN SCALING INDEX 
SET - CSM - POSITION 

SET FOR 1ST PASS 

S E T - LM P OS t -TtON — “ 

CLEAR FOR ORBITAL AMO CISLUNAR 


O — ^fRENDPOS 1= WRENOVEL 
INI n At T 7E- W MATRIX 




ASS ^MSL:- RE\/rSI0N“TJ'55~nT^"ACC PR GGI-'AM’ 'rf] BY MA'SA 7rf"2irr3"^3fjl 


nyT?r“>rFRi — i,i96*^ — rP’ooBLF 


L P20-P75 


t>AGF Nfl. 2 0 67 S3 


0TT7T 
0TT92 Rfr 

irrrTB — tgt 

0730 

OT'^l 

0 782 ‘ 

078 3 
0784 


9 


OTBS" 

0736 

07 87 

n70T' 

078“ 

0790 

0781 


IFF 

P FP 

IFF 

7FF 

REF 

TEF' 

RFF 


7 

2 


T 

1 


0773 

07^4 “ 

0788 

0796 

0797” 

079B‘ 

07 79 ■ 
"OBOTT - 

0301 
0 802 
0303“ 

0 804 
0 8 08 
UHTTFT- 

1DB37 

0303 

TTOTFr- 

TT8IO 

o^noi 

OITO 2 

08 11 
0812 
0313“ 
03 1 '+ 
08 T8 
0816‘ 

77317 - 
03 13 
03T3~ 
0320“ 
0331 
"0373“ 


“3EF 

“R'FF 

RFF 

“REF 

PEF 


RFF 


4 

1 


RTF 

RFF 


RFF 

■RTF" 

3FF 


3 

4 

3 

r 

3 

7 


RFF 


REF 


REF 

REF 


3 

1 


RFF 

REF 

RTF 


1 

1 

3 


LAST 

TFST 


576 

TF7 


8^^,2756 
34 , 2757 
341376?) 


LAST 530 


L^ST 

LAST 


80 
8 0 
57?r 


LAST 579 



F" L3T1 5311 

1 
1 
3 
2 


LAST 

LAST 


575 

581 


LAST ”53T 


LAST 576 


LAST 53tr 


LAST 576 


53F 


LAST 580 


LAST 257 


FTST 


RTF— 3““ LT\ST “531 


RTF 


-r" 



73 


REF 


3 LAST 531 


0333 

0834 


8FF 

O Cf 


20 

3 


I 4ST 
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34 ,2761 
34 fZrST 
34T2753" 
34,7764 

34T27F5" 

34,3767 

34,3770 

34,2771 

34T7 7 77 
34,2773 
34, 277F 
34,7775 

34.2776 

34. 2777 

34. 3000 

34.3001 


777 4T 1 
15335 0 
TJTTTTrTr 

77514 1 
07476 0 
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01215 0 
01207 0 
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43056 0 
04707 T) 
7I15T"0 

01273 0 
45014 0 

0?T44 1 

71007 0 
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ntDAO 


STORE 

SET " 


ZFPnVFCS 
VHFCNT 


Z E RO OUT VHF C NT AND T RKMKCN T 


VrOATT 


RFND7 


STORE 

UN T T 


STORF 

BTPF 


34,3003 
"34V3 004 
“*4,Ta05 

34.3006 

34.3007 

34.3011 

34.3012 
3A ,3013 

34.3014 

34.3015 

34. 3016 

34.3017 
3 4 , 307tr 

"34,3071 


017 r3 0 

40035 0 

' 01235 1 

71004 O 
40055 0 
'7n 6 T 3 1 

01745 0 
77624 1 
47043 TT 
77214 
00 7 07 

n o 1 7 


STnvi 
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REtlDB 
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CALL 


34, 
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34,3024 
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34 ,3030 
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^ 4 ,-5fn 3 
,3034 
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77676 

03502" 

77 6 24 
55750 
7 7 614 

00705 

71214 

4 33 45 

3 13 3 6 
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34, 

34.3036 

34 .3037 
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TrOOTT 
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00046 
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0 

1 

T 

0 

0 

O' 

r 

0 

F 

0 

0 

F 

a 

1 

tr 

0 

1 

T 


RON 


VC03P 


RFN09A 


CALL 


Tmr 


n tmo 


8 iN n i tr 


S T QV L 


ABVAL 


O 


O 


m 


0 

1 


RFNOWFLG 
“VTO 

LFMPnS 
FSMpns 
RCL P 

BON 

SOtJRCTLG 
■KTNni4 
UCL - 
CALL 


T NC O R F LG 

pfndO 

GE TtjM 
tJ™ 

UCL 

BOV 

“0T1~ — = 

REND3 

ftOV 

RTN03 

USTAR 



VLUAO 

VFHUPFLG 



BVFCTriR 



GRP2RC 


R23FtG 
R FNO 1 5 

■mo — — 

5)LTVAR 
t ^UVArR 
VAR t ANfU- 
RCtP 

NORM 

-xt 

flMR 

V A^ T ANCF 

mtt 

XI 

SHI 4TNnX 


LM - CS1« 


O A T A TS 


CAICULATE UM LINE OP SIGHT 


UCt X UM 


BRANCH I T-O VERFiaW^ IGtmRE T t ARK 


BRANCH IF BACKiJP OPTICS (R23 WORKING) 


TEMP STORAGE FOR VART ANC 5 - e A LC * 


GET EARTH MOON SCALING INOEX 
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e? S 3 



n 
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OB?B 
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0831 
0831 1 




0831 IB 
08^3122 
0831 2 o 

0331 28 
0 B 313 

tr 


tt 
' C I 




5 

1 

6 


W 37 


37H33 
O'K^^ 
WT 5 ^ 
0336 
0837 
■0 8 38 ■ 
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' 08^9 
3JB^0 
0341 
0842 

034 2 ? 
0 843 
“084 ■ 4 ' 


R r F 

R EF 

PFF 


3 

1 


n 


2 

T 


RFF 


RFF 

RFF 


o 


IFF 


TTFF 


0845 

0846 
034T 

084 3 
08^9 
TJB50 

0851 

0352 

■0855 

0854 

0855 

tr 




3 

1 

3 


PFF 


PFF 

REF 


4 

6 


REF 


0R551 

0856 
085 7 
085 n 


RF^ 


LAST 

LAST 


556 



riTST 

LAST 


5 T 4 " 

581 


FAST 




OrST 587 


LAST 



LAST 581 


LAST 

LAST 


582 


T LAST 587 


1 

1 


3 LAST 531 


rrm — 58T 


LAST 581 


34,3040 

34V3041 

" 74 TTT 47 " 

34,3043 
5 4.30^t4 

“34, 3045 

34.3046 

34.3047 
“3477050" 

"34,3051 

-34,3052 

”3473053 

34,3054 
3 4,3055 
■ 34 ,3 05 6 

■ 34,3057 
34,3060 

■ 3473 O 6 T' 

34,3067 
34, 3063 
3473064" 
34,3065 
54,3066- 
"■34;3 06T 

34F>0Tn 
34,3071 
“3473047 
34 ^TtrTT 
34 ,3774 
34, 3075 

34, 30 T6 
34,3077 
3473TOO" 


5607 D 0 
00047 1 
0004/ 1 

12251 1 
20577 O 
001 55 0 

03526 0 
54335 0 
02400 1 

20632 T 
431 T 1 0 
03526 0 

45565 0 ” 
03576 0 


04747 

71067 

72344 

7106? 


1 

0 

r 

0 

0 


TT 646 


0 

0 


45014 

02565 
75254 
776 24 


LASl 


LAST 

LAST 


230 

582 


LAST 582 


5 


RFF 


6 


EAST 5 82 ^ 


TTFST 
0862 
0 8 63 



34,3101 
34, 3102 

34.3103 

34.3104 

34.3105 
3 4,3106 
34,3107 

34 , 5110 

■3473114 
34,3112 
3^rr3 113 
34 , 31 X 4 

34.3115 

34. 3116 
■' 54, 7 r 1"7 
34 ,3120 

34 ,31 2 I 


45014 

02T44 

m24 
56547 
51575 
01265 
7 7687 


27504 

01257 

53646 


571 76 
03502 
7T T 3 5 
02003 
45 26ir 

~^nr, 


XT 

XT 

0 

T" 

0 

0 

T" 

0 

1 

T" 

1 

0 

0 - 

0 

0 

- 0 - 

0 

o 

tr 

0 

a 


03502 “O 

6-7240 O 

71257 1 

0 2004 I 
5 0 0 2 5 0 



XA 0,1 


STORE 

SLOAO 


TAO 


STORE 

BOPF 


BPL 


ABS 

STORE 


CAIL 


-&0FF 


VI n A 0 


SR4 


STOVL 


AQVAt 

STORF 

SLOAO 


XAD,1 

X2 

112 

TLOAO 

0 - 2,1 

MRAC 

VARIANCE 


TNTVA® 

2-50 

RTB 



TPHOOE 

VARIANCE 


SnURCFLG 
RFNDIO A 
FV 7 1 RM1 N 
T LOAD 
REMOl OA 
RVARNTN 


VARIANCE 



O'^^ENFLG 

TNCnpf>l 


GRP 2 PC 
CALL 
TNCORPLO 
0EtJ 01 2 
SMIFTNOX 

4 B V 4 L 

OFLTAX +6 


04901 SR ^7 
OF L T A X 

SF4 

0,2 

N 49 ? 1 I SO 




ADJUST SCAtIVG TO B-40 



0-15 


SCAIE IT B-40 


BRANCH IF 0OT VHF RADAR 



i 


. VALUE WAS STORED AS NEG. 
STORE MIN. VALUE 


CLEAR FOR &-0F-6 W MATRIX 
CALCUt ATT OPOATE 


GET EARTH MOON SCALING INDFX 


100 

N^9f>f SP 


0MN 


RFNDISP 
V*^A X 
BMH 



POS U R 
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'^2')-P?5 


0 

0B55 


ir?F 

KEF 


Tr8‘66' 

DH69 
0 37(7 

~crsTT 

0372 

0377 


KFF 


pep 


0576 

T7B7T 

0 87T5 
0379 


FF 



03 n 
0832 


XFT 

o FF 

■RTF 

FFF 


083^4 

0835 


REF 

RFF 




TV 




RFF 


OBF^ 

03 5 n 
0S91 

aBTr 

0893 

03 

0 B'9 6 

0396 

0397 
TTEW 
0399^ 
0900 
0991 

0902 

0903 
TI9U4' 
0>03~ 
0903 


R£F 
9 


TTEF 

FEE 

Ri2^ 

FEF 

REF 

PEF 


T ' L.A St 
F LAST 



3 

3 


LAST 
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lAsr 


3 

T 


^ LAST 

3~9nrsT 


3*3 F AGE NO, 


E7 S3 


5 32 


537 


582 


34V3172 
34.3T23 
34, M24 

34,3T75 
3^4 , 31 26“ 
34, 312 r 

34*3130 

34,3131 


035354 ~a 
712 57 1 


TTAFOISP +2 
RENOTSP 


34, T137 


LAST 532 


8 LAST 5B1 
1 

T^TAFT 5W 


34* 
34,3134 
3'4T3r35 

34.3136 

34.3137 
3A., ii4F 


77624 1 RTNUTZ 

T54 56 1 

430 1 4 0 ' 

0470^ 0 

71221 0 
02744 I 

Trz27~Tr~ — 

77674 r 

565 47 1 

4501A. 0 ~ 

00707 1 ■ 

ri235 0 

“0 ^ -- 


onrr 


03 N 


CALF 


LAST 582 


581 

551 

311 


T4,3141 
34,3142 
? 4 , 31 43 

34.3144 

34.3145 
34731^6 


7T624 1 
56750 0 


01215 0 
01207 0 
03531 


2EN91 3 


CALL 


vroA D 


34,3147 -73614^ 


24 


U 

1 

0 


CLRCn 


530 

5W 


RET 10 LAST 553 


LAST 580 


■3473T5T 

34.3152 

34. 3153 
3 4, '3134 

34,31 55 
3 4 . 31 5 b 
3 4 , 3157 
34,2160 
34,31 6 I 
34^73X757 


5bl 


L A ST 

10 LAST 
Ttr L A ST 

11 LAST 
6 LAST 


583 

503 

583 


0907 ’ 

RET — 

~S LAST 

509 — 


0905 
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p fc- 

i 

1 

1 


6 LAST 

■ 583 
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3 1 AST 

576 

♦ 

09TT- 





0914 

RFF 

9 LAST 

58 3 

^ 

09 1 5 

PEF 

1 

■ - — 

_ f 


34,3164 
T4 ,3T65 

3 4 * 3166 

34,3167 

34,3170 

3 4.3171 

34, 31-77 
3 4 - , 3tT 3 - 

34t3 } 74 


79767 0 

45rmr 0 
01 674 0 
37X62-1 

77624 1 

0 

77524 1 

56343 0 
TT650 1 
70731 0 

27502 0 
15335 0 

tr 


27516 0 
03531 0 

XT 


eSMUPP 


CITAP 


CALL 


tTATt 


GOTO 


RTtm 1 4 


STOVL 


STOVL 


UN T T 


01257 0- 

60314 0 
0 4303 0 
71175 1 

1 

xr- 


80N 


TNCnRPZ 


SnURCFLG 
REND 1 6 
TNCnRFLG 
HENfJl7 


SHIFTNDX 

tTret 

VEHUPFLG 
RTN018 
LMPOS 


OR P P P C 
V Gtl — 
LEMPOS 

csMpns 



IMCnKFLG 

R E MOT 

CALL 

VINTFLAG 

TNTEGRV 

GPP2PC 


SET r N T G 


8 VECTOR 
ZFROVECS 



BRANCH IF VEL. UPDATE GREATER THAN MAX 


INCORPORATE tlPDATF VALUES INTO STATE VEC 


BRANCH IF DATA IS RADAR 


EARTH MOON SCALING INDEX 


BRANCH IF eSM UPDATE 
GET LM 



PHASE CHANGE 




B R ANCH F O R 


THXS UPTltir 1MART 


SET integration VEHICLE EQ LH 


PHASE CHANG 


SET FLAGS FOR INTEGRATION 


VHE RADAR RVECTOR 


BVECTOR +12D 
RCLP 

Dt HAD 

VHERANGF 
SR 2 


VHF^ ANGT SCALED B-27 



^07) 


3-4 ,^<70 2 


02464 -0" 
O 3 5 2 4 X 
T 7 2T4-- 0 
00*^4 7 0 
7 12X7 1 


3XRT 


— M OONTHf S ° 
♦ 1 

SET 

— 350 

TNCDREtG 
OELEaq 
V f O AD 


ABVAL (RCLP) 


RENDIAA 
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0916 
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PFF 
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LAST 
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OFF 
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0919 “ 
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RTF 

11 
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09^0 

0921 
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P Ef 



09rZ4 

0*773 


REF 

RPF 

OPF 


0927 

TyOTB" 


7 FF 


092^ 

0930 

"D03T 

0932 

0933 
U9^ 

0937 

093 


RTEF 


REF 


Fr 


0937 ' 

093 R 

0939 

0940" 

0741 

09 42 

0943 “ 


RTE^ 

REF 


FFF 


REF 


0744^ 

0943 


□ 944 

- 0947 

094 8 - 

SET 

LEE 

094^9 


0950 

0951 

RFF 

0 ‘ 957 ~ 

• ^ _ - - - - 

09 53 

0954 - 

REF 


1 

1 


I 

Z 


3 

} 

4 


T 


1 

4 


1 


LAST "331 


34.3204 

34.3205 
T 4,3206 
34,3207 
34,3210 
3473711 “ 

34 ,3217^ 

34.3213 

34.3214 

34.3215 
34,32 15 
34,3217 


03302 0 

77675 0 

“O 



LAST 534 


7 nrsi 53 T 


rAST 534 


552 


3 4 ,32 2 0 

34.3221 

34.3222 

34.3223 

34.3224 
347 3223 
34 , 32? 5 
34,3227 
34; 3230 


77624 
36750 0 
52r45"0 

03003 1 
71027 1 
433 H 5 0 
0 T 337 T 
31340 "1 
77650 I 
71027 1 
62150 1 
017 2 5 IT 

30001 tr 

52130 1 


RENrn5 


RENO! 6 


5 T 4 ST 53 4 
2 LAST 581 



0 

70641 0 

62150 1 

01126 0 

ocrtroi a 


RENDl? 


2 ~ 3 . 33 T 530 


LAST 583 


34,3234 
34,323 5 
3473233 

34,3237 
34 ,3240 
■ 3 4 ; 2741 

3 4 / 3? 47 
34,3 243 

34.3244 

34.3245 
3 4, 3 24 6 
34 , 

34. 3250 

34.3251 


01126 0 

70673 1 
77624 1 
71241 0 

7755 0 1 

33141 0 
5 3 775 ' 1 

015 *?^ 1 
571-67 0 
77 6 55 I 
01607 1 


P EM Ol 5 



012070 
77616 n 
^3775 1 
01645 1 


L MPns 



f 

3 *+ , D C 

4 , 
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77655 I 
01661 I 


■ 0955 ' 

PEF” 
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34,2255 

095 6 





3 4 , j 2 5 6 

0963 
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0*.'6 4 
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8 
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0965 — 

9 

1 
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77616 0 
77776^ 1 
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7 - 53 t 0 1 
0 0*706- 1 
t - 3 75 i 5 -T 
3 S 0 
0 2 2t>7 1 


P FM D f SP 


BVECTOR 


VCOMP 

STORF 


TTVECTm 


RENOITA CALL 


DLOAH 


5 LOOT 


GF0 2Pt: 
GO f ‘ I 

R V AR ^ 
RF\*010 

ITAO 

“ALT VAR 
l^tJVAR 


GOTO 


LXA, I 


DEC 

SXA,1 


l.XA , I 


DEC 

SXAirl 


-RE NO 10 
INCP, I 

imrcNT — 

1 

00 TO 

V FFC M T" 
RENOJ.”-“ 
INCR, 1 
T RKNK C N T 

1 

G-OTO 

TP KNKCN T 

REN03 


CALI 


rr^pns 


GOTO— 

RENHll 

VLOAO VSP^ 

DELTACSM 

7,7 


YAT) 

STORE 
P VO 

VLOAO VSR^ 


RCVCSM 

CSNPnS 


DELTALFM 


VAO 


sr mE 


RC VLEI^ 
LEMpns 


r% 


IVQ 
EXIT 

CA 


N A SK 
EXTEND 
t tt 


SniJRCB ri 


CA 

TC 


EIT2 



ttrs 



T3ACKUP OPTICS 
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UPDA T F COUNT 



O PT ICS M ARK COUNT 
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t M POStTION SCAt EO 8 * 27 OR 
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24 
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36 
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1 
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8 
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34,3267 

55*505 

T 

"0^7 1 1 

^ EF 
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L A 5 I 

5 75 

34, 32 y 0 

" 3 '5021 

T 

09'^12 

■■ P/EF 

3 

LAST 

576 

14, 1271 

3^^300 

1 

rr9Ti 3 

REF 

29 

■ L A S'r 

575 

34,3272 

0 

0 

09214 





34“, 32 73 

— 0402 2’ 

tt 

0 3713 

■■ REF 

1 



34,3274 

3 76 64 

1 

09716 

REF 

17 
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571 

34,32TS 

0 5134 

1 


CA 
TS 
C AF 

JS 

TC 
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09717 


■097r75"R'FF 


RTF 32 nrSl 5T5 

T ^ 

1 

71 S 


rTTST 


09"717T-REF 251 LAST 
097179 
1797X51' 


5T? 

582 


XEF 


XA-ST 5B^ 


09 T'rsi 
0971 35 
0071 PT 

097189 

0972 

0971 

0974 

0975 

0978 

0977 
097B 
0955 
09 85 
0989 
09 vO 

0991 
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t? 


IFF 
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REF 

IXFF 

REF 
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TTEF 

9FF 

REF 

IFF 
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1 

1 
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■T7X17 23 

“1 4, 1276 
14,1277 
34,3300 

14.1101 

34.1102 
■34,3 3 0T 
3/V,^304 
34,1305 
14,1105 
34,3307 
34,3310 

“14 , HIT 


03310 0 
70067 1 
0 6006 1 


woHRl 
PHASCHNG 
04072 

75X027 

NtJVAC 

WRKBUFl 


IFT — rEWPORl > ZERO TO 
V06 N49 DISPLAY HASNT BEEN ANSWERED 


CAP 
TC 

FBANK^ 

PtAOF RENDI SP2 


SET UP DISPLAY JOB WITH HIGHER PRIORITY 


TRAN PKE SFMT JOB 


RENDI SP7 TC 


001 55 0 
53135 0 
013 01 1* 
71301 0 
52040 1 


71317 I 

3 3341 1 

TT 4 662' 1 


STDRF 

SLOAD 


T A TTP R ET 
IP AC ~ 
B7.E 


IMN 


TE M POR l 
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GOTO 


DISPLAY HAS NOT BEEN ANSWERED YET 


T 

'TX 

5 

7? 

5 
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LAST 
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LAST 


151 
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14.3315 

34.3316 
14, 3117 


4,1320 



V521 


FFF 33 LAST 585 


— OWT 

H'EF 

0994 ■ 


0995 

RFF 

0996 ~ - 

P FF 

0997 

R5F 
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0999 
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1000 
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rOTT’ 


1002" 


1003 
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1001 “ 

— 
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- TO 1 0 

7 cF 
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13 
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■c 
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34.3326 
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14 t1^^ 3 6 

34,3337 

14TTm 
3 4,3 34T 
F 7 , 1725 
14V33 4 2' 
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27,2000 


2073r-0" 

rr XT 

4 5017 0 
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0 5217 0 

7 7 61 4 T 
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0 DOO^ 0 
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54 006 0 
1-T716 0 

55*734 1 
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6 0 06 I 
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CADR 

TC 


TS 

TC 

ENrmP3 BON 


RENDI $P3 
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" BANK C ALL 
PR lODSP 
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tlNE 

TFMPOP 1 
ENDOF JOB 
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GO complete ABOVE JOB 


SOURCE LG 
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TS 8 BANK 
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CA 
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GOTO 
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IDEC 


2 DEC 


0>04 E-"6 


SXT ERROP VARIANCE - , 04 


1,04 E-6 81^16 
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O 
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70067 1 BUFBANK 
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UNITS=RFVS/SFC( BOJ 


M3DYTCT1 131) 


( 0.5 
( O 

T"“Tr“ 


o 

nns( 7.35)31 
STN(7.25) 31 


0 

S!N( 7,25)B1 
GO 


) BOnY TO 
)=CONTRm. 



CONVERSION 

MATRIX 


(14)RESCALF wnnDY TO UMITSOF 450 OEG/SEC BY APPLYING FACTOR 
OF 0.3 TO ^FVS/SEC. 


(15)ADDRFSS LIVE MlTOPILaT REGISTERS IN BASIC (UNDFR INHINT) 


RI 2 T 0 ' 

9 T 21 T 
R 1712 
R 1 213 
R17T4 

R121B 

"Rr 2 T 5 



GREFS » 



TRANSFER OES I7EU CDHST 
TH vicouxor. 

TRANSFER OE’rCOUSV SCALf 0 150 OEG. FROM V(VAC140) 

TO 3700 EL CRUX r . — — — 

TRANSFER OM'-’GA CONTROL, SCALED 450 OEG/SEC,FROM V(MPAC) 
TO V( WBODY) . - - 

RF L TNTT~ $ E T NP AC=r>t EXIT CR S 61. 1 


Kl^lT CAtL 


CALL CRS6 1.1 


R12r3 RETURNS ALL TO L^-rT 


“93T2T9”" m — STNP'ACT^O".' NORM Ar 'EX IT . — 3 SETS "OF INPUTS FEO TO OAP. 

R1220 (Tt S(MPAr3 = U“GXtCULAT^D OESiRETi eOUS.SR, SET IN KCPHl) 

-n? i23' FOt^ KALCNArtitT ^BS( ACTTtJ - OCmj) exceeds lO~0EGRFTS. 

■ 9X772 t3 ) — S(MPAC) = 2. GNCS AUTO Mnnb NOT SELECTED (BITID-IT. 

PIP-’R (4) S(MPAC)=^. ^lArP- HOLD FLAG ( ‘-CiLOFL AGl~t40T EDO At -1. - 


r; ^P: kS I ON' 0*55 OE AGE PPnf^KA*^ COHAMCHE “N'A’^A ?02i 11 0-0 S I 


irr: 2'3" 'AP'R; TTTW^ rROUBLE . 0^3 '^TiTTF 5 2 


L 


P 12?4 
012?E 


12? 


r o 


D :>0-P7 > 


INPUT 


(1) TTRrrZ.TTMFl. COMPUTE^ CLOCK TIMFtDP, CcNTTS^C 3?°. 

(^) COUX.Y^Z. ^PESFMT CDU ANGLES, SP,2S CHMPL HALF-^^FVS BO. 
(?}“ 



IT'^^WcR COflRD'S 'Bl , 


USFG«S f^AGE NO. 31 


E7 S3 



R1?.?E 
P 1?P9 
00 
Rr231 
R123? 
TIFOO 


R121^ 


R121S 

R1206 


R1 237 


OUTPUT 


NORMAL. FXITO^TTH StMPAC) = 0. 


( I ) 


m 


(3) 


CDUX0tCnUYn,CnU70, DFSTRFD OUTEi^, TNISTFR, mtooLF COU ANGLrSG 
HP, IS COMPL, SCALED 180 DEGREES (HALF-RFVS BO). 

"D^^UITX* DtLCOUY .TTFLCDUZ. O.T SFC OCU ANGULAR TMCRFMFNTS. 

OP, IS C’OMPL, SCALED IBO DFG. 

WBODY.^SDOYI , W^nOYZ. LOS ANGUtAR RATE^RN CmrCRDL CDOROS* 

OMPL,' SC AIED 450 OFG/SEC. 


T\U 



SPECIAL. EXIT WITH S(MPAry = 1. 


(IT CPHI,CTHETA,r^^l. DFSTRED nuTF^. MIDDLE COU 

SP, ?S COMPL, SCALED IBO DEGREES. 


c 


EXTEPTUL SUBROUTINES USED 


(B)=BASTC 


R'123T 

RT23P 

R12A0 



(II 
(R ) 
(3) 

Tvr 


CDUTRIG 



TlrYCUNTC 


T5r rCTAnTT’^FTB) 

tCT OAT MOV F 
(“7) RTTCfJUSTBI 

m 'SMrrDUR es — 



P1242 


P 1 2 A4 
R 12A5 
ROTTOTT 


ERASABLE 


(11 S (QBll 1 ,FB'^NK7 
(21 SrOEin ) eBANK7 
(1) T(5AVEDCnU) E^ 
(^) V(SAVFPOS) T^ 
(^“0/( SA VCV'^L) FT 


CRS 61 . 1 EXIT . 

- rALCOCDU FXTT.*^^ 

SP VECTOR OF cnuns. 

rsH PDS orrc A 1 NO o(savepos)= lfngth of tos 

CSM VEL VEC. 


R1247 


P124B 
R 124^^ 
RIP’SIT 


FLAOWOS HOLDFLAG. USED, NOT SET. 


^ISC 


(1) FRASABL- TTEW^l UScO TO TEMP STORE EBAMK U^tDER INHINT 

(2) ERASABLE P21TIMP USED AS TEMP STORE DURING CRS'^l.l 
m ER^AS “DTHFTAF’'rOTSTN3 at TEMP STORE DURING EARLY CRS61 • t 


R 12*5) 

DFfv:> ; 

[S - { 

120? 

1232 

REF 

1 

1 2 S4 



12SS 

^^EF 

6 I 

1 2 5S 

k EF 

1 

A 1 2 37 



I2vr 



1 250 


^ 1 

12 3^4 







'’ENT VAC 3RE , CRS61.1 ERASABLFS. ITSMP], o2lTfNF 


LAST 419 


I''* ST T2T 


, / ' ; ' j c. 


3 4,20 0 0 
“34;',3343 

F6,IS46 


, 3 ^ 4 

3 4 , 3 4‘4 

>,4 , ^,3 4 5 
3 r30 4 S 


40 .2 20 O 
^3 ^04 — r 
00001 0 
77/, 34 


BANK 24 
SETLOC P 20 SA 
tTANK 


EBANK= COUXD 
CntlNT"^ — t$/CP Sfe 1 


CPSSl.l STO 


SETPO 

0 


o 


TB 


I 


T 


GW 



L'^’‘K e\/tS! nN 055 nr wc cdhamchf by nasa 2ozrrrT^^T 


lOt2B APR. 1 , 1*569 rRHUBlF .043 P~W£ 5^ 


1 


P20-F75 


rjse«?*s PAGF. Nn, 32 


E6 S3 


12 67~ 
A126T 


16 last “5B0 


3^V3T67 


4BBTCr T 


LnABTTME 


"12^ 

R6E 7 CAST" 

"656 

36. 3350 

35315 0 

1265 

Fn EF 1 


3 6.3381 

21572 1 

1266 



36,3352 

777 51 1 

1266— 

TEE ■ IT XAST 

62 B 

36. 3 J 53 

nr 156 1 

126P 

REF 2 LAST 

116 

36,3356 

03373 0 


■srrnrr 


srrAUL F7Trr^E" 

~ — R:53 

OAD 

rHEfr AD — 

~^STORE SAVBOCOU 


A1269 





12701 

1271 

T272~ 


1276 

T2T5 

12 “^6 
1273 


PEF 

7EF 

REF 


1 

R 


LAST 390 


3 

7 


LAST 

LAST 


55Tr 

566 


REF 

P ^ F 


1 

1 


3 6 , 33 5 6 
“36,3357 
“36TJToTr 

^673361 

3673363 

76.3363 

36 ,3366 
36.3365 


~T77T?rT 

0 3373 1 
3 6371 3 

n “ o‘oras~T 

06 031 0 

7 7707 1 
0 0006 1 


AUTHCK 


1 33 67. 
0 3372 


3 



LAST 572 


rA31 5T5 


538 

537 


T7CST 

LAST 


36.3366 

36.3367 
3 6'. 33 70 

36,3371 
6,3372 
3673373 


6 0075 1 

7 5002 1 

non 0 


DAPCK 



A3FT 


5 37 


05T “^597 


6,3376 
7 6,33 75 
3 6.3376' 


0 60tl6 
77650 1 
03706 7 


12- n REF 135 LAST 587 


12912 

— R'EF 

2 

r AST 

— zuxr 

12P2 

REF 

36 

LAST 

588 

T293“’ 

RTE 

Z 

CAST 

107 

1296 

8EF 

3 

LAST 

593 

1296 

REF 

12 

LAST 

5 73 

7296 





1297 

^ c P 

6 

LAST 

59 3 

12^^ 

RFF 

16 

LAST 

593 

1299 

KEr 

“256 

“XAST 


1300 

8EF 

95 

LAST 

■>03 


36 , 33 77 
36.3600 


0 6662 



1301 

1302 

1303 
1306 

T3TT5 

13 07 ~ 

13061 

73067- 

130625 
1 30 M 


TEF 


36 
36 
3 6 
3 6 
36 

36 

36 

36 

36 

36 

76 


.3601 

,7677~ 


. ^ 03 
, 3 T0^ 
73606 
.3606 
,3607 
.3670 

.3/+ 11 

,3612 

. ^ 61 3 


I 

tr 


3 5016 0 
55^611 T 
51* 61 I 0 


STEP2CK 


UUtOOP' 


3 0032 t) 
0 0005 77 
5 1611 0 
21 * 1*^6 0 
-5 4 - 1 5 6 0 
0 6006 1 
452 A 6 0 
' 716 61 - T ' 


RFF 

ttef 

REF 
R F 


1 

6 

1 

7 



FXTT 


CAT 

EXTEND 

“RXtlR 

MASK 

EXTEND 

B2E 

Tt 


STEP2CK 
PR 1030 


CHAN31 
F UP ST 3 


OAPCK 

ASET 


cs 

MASK 

rrs“ 

TC 


TS 
TC 

onTO 


FLACWROl 
ST TK5 IT 
A 

STF03CK 
7 ERO 

NPAC 

TNTPRET 


TC 

X60^ 

CAF 


BANKC ALL 


INDEX 

CA 

INDEX 

MSU 


TWO 

0T H TTAS3>r 

DTHETAS^ 

COUX 


OTHETASM 

THETAO 


TC 

A8S 


BPL 


INTPPET 

DSU 

DE6REF10 

EXIT 

STKTEST 


LOAD CLOCK T1ME2,1 INTO nPAtr. 


LAST 593 


F y 


R *“ f 


1 


r\ 

C. 


LASr 

LAST 


593 

5^3 


36 
36 
3 
34 

3 4 


fT4i 7 

f ^ 620 

•.-3627- 

, 562"^ 

.362 3 


0 360'> 1 
0 -375 7 -0 


T7TT6 7 STK 

4 0075 I 

7 5002 1 


CCS 

TC 

TC- 

TX7T 

cs 

^ASK 


C DO I OO P 
AUTOCK 


S T O RE CLOCK TT M -E T OR S OBT - R63 

SUBR TO CALC DCnU< T=PRESENT , PASSl 1 


CALCDCOU 



inrn 



1 5^78= 


1 


YES-CONTTNUE 


IS STIKFLAG SET (I.E. IS SOMEONE ON <^HC) 


EX I r CPS61 •! 


SET TEMPORARY INDEX OTHETASM 


SET A = ACTUAL CDU (ACDU) 


SET INDEX TO ACCESS DESIRED CDU lOCOU). 
A - OIEF = ACfHJ - DC DU. 

PETliRN TO INTE R PRETER FOfr 



-CK-. 


ff>P APPROX SP OK FOP ROUGH CHECK! 



fS tACDU - 00007 M ORE mAf t -7 0 


NO - OK, CONTINUE CHECKING OTHER ANGLES 
TEST STICK FLAG 

HAVE -ALL 3 ANOtE ' Ot EPS BEEN ^HEC-KEO. 

NO - DIM COtlNT, CHECK NEXT ANGIE DIEF. 


FLAGWROl 
8 T I K H I T 


M 


G A P 


L 


G '' fvTT'I hr AGCr~^TfTrUM r, if/wn?F~R7'~ N7\S A 20211l^~n^ l 

P20-PPP 


PJ:'7R A P L' . r .l'’J69 m ni JBL ' - ,04 3 


USER’S PAGE NO. 33 




50 * 


66 S? 


130635 REF 

151 

LAST 

593 

34,3424 

10 non 

0 

CCS 

A 

13064 3EF 

1 

- ■ ^ - - 



34.3425 

0 3563 

1 

TC 

NANUEXTS 

1 3 0 6 4 D T F 

T- 

L2\ST 

54 9 

34, 3426 

“7?- S'O IT 

“D 

"OTF 

TTTTl 

13055 




34T3427 

0 00 06 

T 

’^^XTFND 


130 053 RF<" 

• 21 

LAST 

^ P ^ 

34. 3400 

05 011 

T 

WOR 

DSAl onuT 

130665 pee 

7 

LAST 

593 

34,3431 

0 337? 

1 

TC 

ASET 

1 307 PFF 

96 

LAST 

593 

34.3 4 3 2 

0 60 05 

1 STtP3CK. 

TC 

INTPRET 

130^:; 




6 ^ * 34 33 

TTFTir 

“0" 

SFTPD 


130 7 




34 ,T43 4 

^~0 OD 0 1 

0 


0 


5TIKFLAG IS NflT SET (00 R63) 


SriKFLr; IS SET 
TURN OM UPACTY LIGHT 


EXIT ANH SFT R61CNTR 


A13n 


1 31^ 





FF 


7 


LAST 

fTST 


RFF 


PFF 




1333 
A 1 3 5A 
3n333 
A133S 
A1337 
1333 
133''^ 
1340 


- r r* 


RFF IF LAST 


1343 

1343 


RFF 


1 


134 0 
1346 
3:34^ 
1343 
134’-? 


RFF 


1 


11? 

T2T' 


4 , 3 V 3 6 
34,3437 


^ * LAST 176 
1 



3 L AS T 
21 LAST 631 


34.3443 
3 4 * 3 4 4 4 
34V3W5 
3 4 .3 -1 -4 4 
34 ,34 4 7 
34, T45U 

34,3451 
3 4,3 45 


523 73 1 
03204 1 
03715 T 

57456 1 
7 4235 0 

316 62 1 
7^606 1 
60345 rr 

02 3 1 c I 
00047 t 

760S 1 


CPS6] .2 ^ VLOAO 


3 LAST 58^ 


34, 1453 


6 0 3 O 
00045 0 
00051 n 


0 L7«ST 594 


^ LAST 125 


34 ,34 54 

34,3453 

3 4, * 4 5 6 
74 , 1 457 
34. 3 4-60 


704 5 0 1 

1 
0 

“0 
0 


000 5 n 


03T05 




3AT7-T31 

04, 146? 
3 4 , 3 46 3 


To52T“ 0 
01716 1 

00025 0 


3 4 . , 5 4 6 4 

346 5 


t F 

“ p L A ST 5^ 

-E 

3 I.AST 544 


34773053 

34,^467 

34,3470 

3 4V34 T 1 

34 , 4 72 
3 ^ ♦ 3 4 7 3 


77^ 'I 1 

31 6 64 1 

0 3 2 1 0 

7 ? 6 24- 1: 

47 ^. -^7 /j 

T50 n 1 — ^1- 

0000 1 0 
47743 * 0 


UNIT 

VXV 


vsu 

DCOU 

S AV E V F L 

VCO’VIP 

vxsc 



RVCS/OOS 

PUSH 

OFOiro — NnS 


P 2 I T 1 F 
XI 


PUSH 


OLOAO NORM 


6TT 

SI 



oov 


SI 

vxsc 


1 


06111 


3XY 


STOP 


"VStrl 

RPFSMMAT 

200 


VXSC 


- $T^F - 
C <4I t 


TENTH 
O T - Hf TAS M 


SFTPO 


COUTR ! G 

LAtrt 

0 

SMCO’F^FS 


NOW HAVE OCnUS STORFO IN TISAVFOCDU). 


V ’■* ■ ■ — ■ ■ — — - — — - — - ■ — — — 

?A 1 ^ i L fTTl 





HER D 


tnr ^ vtr“-^'37t — 

V(3PAC)--UN TTOV. VAC36n=AftSflV 
( -UN I T OV ) C ROS S ( UN 1 T L OS ) . 


(UNITLOS BIKUMITOV BIXCONS^ 84)=CRnSS 
HOLO CROSS IN PUSHLISTO. SCALED B6. 
obtain APS value of -trOST" — — 

P21TIME IS TFNP STORE FOR ABSLOS. 


nO RI ^ A3Stt>S ( UFNOM t 


f v m RM AOS VALUE O f 0V( 


t 



xt - 


"0FN 0 M ) -S1(N NUM) -,--- - 

SRI T'T avoid OFtOW ON DOV, 
A8SDV(MPAC)/ABSL0S(PUSH1) = OUOT. 

OtrOT t ^PAFt"X- -c R OS S f PtlSHOl- 

SAVF SCALE OF RESUL^ (8-15,1X1. 

Xl= NORM OF OU^T. OUOT SCALE 87-329=8-22 
€^Rni^tS" S^rAt^-^ f tfED SL i— TO R-eCOVER 
SRI SO THAT -22-»-6 + l=-15. MPAC NOW HOLDS 
ORTHO LOS RATE (OMEGA TH. B-IS.XU. 

obtain rate im-s -m coo r ds (O MF G THSM ) 


AW 


ADJUST FOR RFFSMMAT SCALE OF Bl* 
OMFGTHSM = VAC20n 

fi et TA THET A O M FGT H S -M-H» « ] 3 , 


5T0RF S * ^ T NCR EM ANGl 



OBTATM SIN. C^ISCOUS FOR SMCDURES 
S M CDU ' ^FS USES PUS H * 


OBTAIN Of^LCOO 


IN V(DCDU1 


(TSFl As^.!:MBLt : 



ON OB 



f i 


rr-iTTr 



♦ w • ' 


ZTis;j^ by RAS^^o^im-obi 


roTTirirpTr 


L 


P20-o?'5 


TTTF^ rP'^HtT , 043 — ^AGT — 595 

S PAG? ^J0. 34 E6 ^3 


1350 

1351 ■ ' 35F 3 LAST 594 

1353 7 FF 4 L A5T 5 94 

1354 

r355 

A 1 3 36 
1 3 57 

- 1 3 55 F ~34~X a S1~3^ 

13 59 
13^0 

1 3 - 1~ 3EF "Z “L:A5T 7X5 

23^7“ 

1363 ^ ivEF 2 LAST 547 

"T37 A — 

1365 1 

1366 

13'6T 7XF 4 X A ST^ 553 

1368 


34,3474 7775Tr rr 

34^3475 03705 0 

3^., 34 76"“~537T5”X“ 
34,3477 03204 1 

34,3500 20160 1: 

“T4-, QTTOTT '“T" 

34,T507 77624 1 

"T 4,3 503 4747 T“ 0 “" 

34,3304 451^5 0 ^ 

■34,3505 00075 0 

14., 3 506 47 644 1 

34,3507 77771 3 

34.3510 316^0 1 

34.3511 r776T 1^ 

34.3512 15271 1 

36,^513 53750 0 

14,3 514 - — tnrronr 
34,3515 20163 > 


LXA ,1 

Q6111 

VLOAO VH 

nr no 

0 -170,1 

STORE mn 

CALL 

CDUT'^'TG 

VLOAO CALL 

200 

sjES MMRir 

N1XV 

M50YTCTL 
VXXC 

pnxMT3 

LXA,t VSL^ 

— qbiti — 

0 -140*1 


A 1769 
1370 

1 3 


I 


1 M?r 

1374 

1375 
1775 - 

13^7 

1378 

137^ 

13^0 

1381 


1384 
1 3 8 5 
13 36 

1387 


1 3 89 


OTFF 

7FF 

3FF 

r.FF 

PFF 

3FF 
7Ef 
FF 


127 last ^^3 


4 

4 

T 

8 


7FF 


‘5' 

5 

5 


LAST 

LAST 
FAST 
LAST 
L ''ST 

L7ST 

LAST 

LAST 


419 

419 

5^3~ 


595 

5 5 

595 

595 


344 

34, 
T4 , 
347 
34, 

34 , 

34, 
34 , 
34 , 
344 




kEF 255 last 593 

ZFF 9 last 


3FF 256 LAST 595 
XET 4 LAST 4T8 


3 4 , 
34, 


35 20 
3521 
3 52? 

3573 

3574 
6 2 5 

3 52 5 

■^527’ 

3 5 3 0 

35 3 1 


-77776 1 

0 0004^0 
3 5021 1 

55»'54TT 
5 5* Cl 51 0 

55*663 1 


1390 

Rf=F 2 57 

LAST 5T5 

13 1 1 

REF 5 

LAST 4TB 

A 1 397 



1 373 



tn 

RTF ^ 

LAST' 547 

1396 



1 3 ' ' 

6 

LAST AIT 

1398 

VO 

I AS'T 59 5 

139'^ 




34 , '^540 

34,3641 
3 4 , 3 ® > 



^ 4 ,3 660 

34 , -<*'61 


■r 

55*646 0 
3 1773 0 

5 5 • 6 0 T 

3 1774 1 
56*562 0 



0 0006 1 
3 0 1 6 1 

12—0 



3-0017 I 

5 3 *-57 6 0 

0 00 06 — r 

6 0120 1 
3 0021 I 


CRS'61.27 ■FXTT ' 

INHINT 

— CAF 

TS 


TS 

TS 

CA- 

TS 

CA 

• -v. Jr 

CA 
TS 


EXTFNH 

OCA 

OXCH 

FXTEMO 

OCA 

n XCH 

FXTFNO 

OCA 

nxcH — 


7F«0 
t OtlXTT 
COUYO 
COU70 


+ 1 
^*1 


KPAC 
vfHcrrY ■ 

MPAC ^3 
M iC TtT YI - 

MPAC ^6 

wfion y p 


FXTFNO 



OCA 

OXCH 

F X TF NO- 

f f^'oex 

OCA 


140 

OFLCnilX 


F T X L rtC 
160 


cotjxn 

SAVtOCOU +1 

CntJTD 

SAVEDCOU +2 
COUIO 


FFLOAD XI 


TEC OVER SCALF. “ 

(8-15, XI) + TENTH(8-31 4- HALPREVSTBl) 
EQUALS 8-170,1 Tn OBTAIN HALFPFVS BO. 
HtJLD DELS TN VfVACI4TTr FtlR AUTGPTlTrT . 


COMPUTES SINES AND COSINES FOR *SMN6^ 


LOAD 7ECT0P AND CALL TRANSFORMATION 
vector for T^G^SMNB INTO MPAC 

CONVERT pATFIOMFGA) TO CONTROL COORDS. 

— MUtT. — BY C . 8 TO ' RESCALE REVS TfT 45C DEG. 
RECOVER SCALE. 

RELOAD XI TO RECOVER NORMAL 17. 
-( B-1 5rXTr -I- MBOY T C T L t B 1 1 = 1- 140,1 TC 
OBTAIN REVS SCALED AT 450 DEGREES. 


TRANSFER DESTPED GIMBAL ANGIES 

-FR OM T t s AVR o cn t n TO v i coux cr. " 


TRANSFER OMFGA CONTROL (ANG.LGS RAT^) 
FROM V(MPAC) TO V(WBODY ), 

— - - - - - I — ■ i4 ... n L.^ ,- . ^ _"'V. ‘ * • • , — . -i- - - - ' *■ - ■ 


TRANSFF^^ ro'* INCREMENTS 
FRO M V( VAC 1 - 4 0-1 T^ YtHEXTDHX ) . 


ASS“HftLF in^in'^ION 055 GT 


“TT^ 


» ; 


'-’-Uf^UAW t JMANLHL-. BY M A S'A 20 2i 1 i i-O •> i 


lTi :2 8' AP 


I ,1969 rRninLP .0A3 FA-TTF 5*96 


P20-P75 


USt^’S ’’AGE NO 


F6 S3 


1403 4 LAST 41H 34f355? S3^60n 1 

1401 34*3503 0 0006 1 

140 ? “ ITFF 1 1 LA^ ~ 5 ^' 5 “~^ 47 T 5 ^ — OnOTTTTT 

l^f^3 34*^535 3 0033 0 

1404 RFF 4 LAST 418 34*3856 53*60? 0 

14(T5“"RFF' 7^T:AST 585 34/ T 55/ '4 501 7 0 

1406 RFF 5 LAST 564 34,3560 55*33^ 0 

1407 34,356r 0 0003 1 

T4TT9“ ^FF 3 TAFT 50 4 . 34,356? O 33TZ 1 

1410 FEF 97 LAST 594 34,3563 0 6006 1 

1411 34,35-^4 7rT5T 1 

X4T? RFF 6 LAFT' F95 — ' 3^, 3565 033 73 "O 

1413 REF 8 LAST 419 34 , V666 01156 1 

1414 34, 52135 1 

“14X3 RFF“ 1 3"4 , "^370 " 31712 T 

1416 REF 4 LAST 593 34,3571 03704 1 

A 141 7 


14 TF 
1 4 1 
14R0 

I T 1 j 

14?? 
14? 3 
14?4 

1425 
14? 6 
14 77 
14?3 
1 

“1"430 

1431 

143^ 

1433 " 

1434 

143"> 


RFF 5 LAST 5 95 34,3573 

RFF 9 LAST 694 34,3574 

~^F9 2F 1 AFT ‘ F86 — ""?'4,3 6“^ 

9FF F LAST 555 34,35T6 

— - 3-47 33 77 

“RFF 13 nrST 555 F^VIFTTO" 

RFF 3 LAST 594 34,3601 

RFF 15 LAST 565 34,360? 

R EF T LirST^“'5F4 ,3603 

34,3604 

10 fast 595 34,T605 
” R F F ?9 CTrsn 596 34735050 

“RFF 3 LAST" 555 34,3607 

34,3610 

OFF' “16 “ linn 5 9 ^ —747 3511" 

REF 5 LAST 595 3^4,-36 12 

RTF 19 LAST 596 34,3613 


717? D~r 
03705 0 
02316 1 
“3'4041 0 
2 7114 0 
77 7 75 1 
■00001 0 
27707 1 
00007 0 
03715 1 
77745 1 
92316 1 
34041 0 

2rr?6 1 
77775 1 

TTO 007 0 
2 7204 1 

00001 0 


DXCH HRLCnUY 

EXTEND 

“ nsroFX FTxrrrr 

nCA 18D 
DXCH 0FLCDU7 

CF ~TTNF 

TS HOLOFLAG 

RFLINT 

re nrFFT 

MAMtlFXlS TC I NT PR FT 

MANtiFXlT TLOAO 

S AV F DC n U 

STORE CPHI 

SLOAO GnTO 

LOOMF 

06 11 


06111 

’’OlTTf'^F 

^F-TT /At T' THFCl 

CSMCOMIC 

HOLD ATT VLOAO 

R A T7 

STOVl SAVFPOS 

VATT 


STORE — SAVEVEL 

CAtCLFf^ OLHAO 


P21T IM9 

TH F Cl 

I ic 


VLOAfl 


— VA TT 

STOVL DC OH 

^ATT 


143 5 _ — 53451 " 1 

1437 RFf 4 LAST 595 36,3615 03707 1 

1433 RFF LAST 596 34 ,VS 16 03707 I 


14?«0“ 





34737TrT 

1440 

RTF 

16 

L AST 

594 

34,3620 

144^1 

^Ff 

3 

LAST 

394 

34, 3621 

144? 





”34 , 36 22 

1443 

I 

1 1 

1 VST 

59 6 " 

« 

3 , 36 2 3 






3 4 i 1 6 *> 4 

144 f 





1445 

ttef 

tf. 

L AST “ 

33T 

7 ^ ? 3 6 2 ^ 

1-44.6 

R CF 

11 

L AST 

395- 

1 , 3 6 ? 6 

1 447 

PTf 


t. AST 

390 

, 36 97 

lAFF 

RTTF 

{ 

L AST 

“2 83 

34 ,'5 63 0 

1 4 'Fr- 



- - - -- 

— 

34,363 1 

145^ 

REF 

1 



34, 36 3? 


01 73 6 1 — 

17357 0 

0 004 5 • O 

0231/^. I 

— 155:35 Q 

- 3 7361 1 

■ 6 61 >6 i 

01 ■ 1 

77776 1 

3 16 5^0 


YStT" tWT " 

SAVrPOS 
STORE SAVFPHS 

WXV YS tT - 

PFFSNMAT 
ST UHL POTNTVSM 

30H — 

store P21TTME 
VLOAO 

C HIf T X 

STCALl SC AX IS 

V^CPHINT 

S THR -F CP i- H X 

VLOAD 


NOW H AP VAR T ABLES' LOAD ED . S E T^HOt O ft A G . 
TD -1. 


ENTER FROM STEP?. ACDH-DCOU EXCEEDS 
" 10 D F G. " . S T n PF D CP U C T ) IT1-C^>m-rCtH9T4 ? 
CPS I for KALCMANU. 

SPECIAL RETURN (MPAC^O = 1 
“ OCTAL OvlOOl 


Ftrno T O - " CMC n cpus ( T) 


HOLD EXTRAPOLATED CSM POSITION AND 
VEinC f TY — - ' 


eXTRAPOL ATC L FM STATcF VECTOR TO SAME 
TIM9 AS CS^ USING LEMCONIC. 


$TnR9 VATT IN nCHU TEMPORARILY 
LOS = RL RC 


SAVE UNITLPS FOR CRS61.? RATE CALC. 


COAtVFRT TO STABLE MFMpPf? 

HHtO ABS VAL O P LOS (VAC "5-6H1 — 

IN H(P?)TIMF) FOR CRSF1.2 RATE CALC. 


tr^ack axis HNTT VFCTOP 

FOP +X-AXI5 T^’ACKING ATTITUDE 
S - TOR= A N GL E S F O -? N9 6 DIS P LAY - 


P'M'IHaT 






n55"“rF "'A'GC P CHMAUCME BY 


101 /■?? AP'^. nn'6’^ TRUUBLb .04^ cr^nTE 5^97 


P2n-D25 


tJSFTr»S RAl^ NO. 36 


E6 S3 


i^r 

1452 

T45T 

14W 

1455 

145^ 

1457 

145B 

IT5^ 

1450 

1451 
T45T 


RRF 

REF 

TEF 


1^ 


4 


5 


REF 
1- 


R c: 


REE 


REF 


5 

TT 


1464 

T46F 

1 46 5 

1466“ 

14^57"' 

1467 

146B 

14F>r' 

1 46 7" 

1470' 

T4TTr 

1471 

1471 

T474“ 

1474 
1 473 

1475 

1475 

1476 
1477^ 

1 477 ' 
147B 
1 4TB ■ 
1479 
1479 
14^0 
1450 
14B1 
T40T“ 

1402' 

1 452 
T4FT~ 


RTF 


3 

T 


1 43 5 


LAST 

LAST 

r4ST 


TE3 


LAST 562 


EF' 15 LAST 593 


FEF 5'“LAS1 596 


LAST 

TTTST 


596 

577 


LAST 596 


T4V3n533 
34 ,3654 
"T4i3'635 

34.5636 

34.5637 

T4,3640 

54,5 641 

34.3642 

34 . 3643 

T4,3 64 4 
34,3645 
34# "5646 
34,3617 
34,3657 
34V 36 51 

54,5652 
34,3653 
54 ,"565 4' 

54^3555 

34.3656 

34.3657 

54,5660 
54 •,5661' 
54,5 6 62 



r 

1 

T" 



1 

0 


BHFF 


T55T73~ 

37614 
07745 
71644 i 

011551 
77650 1 

03 7 06 0 — 

77775 1 CRS TORI VL ^ A n 


STCALL SCAXTS 

VECPOINT 

T-TFAX I S 


STORE ANGLES FOR 


PR F TRK AT 


C3STQR 


5T0RF 

onrn 


THETAn 


STORE ANGLES FOR N15 OISFLAY 


15333 
0 3351 
51 


0 

~rT 

0 

01334 1 

71641 I 

T506j6 0 
17626 n 

onooo 


a 611 1 


UN^TTX 


STORE 

TLOAD 





PRFUNIT 2nEC 


rT>Hr X 

CH S TOR ' 

.40957602 


00000 

1113? 

27477 


T 

t 

1 

TS 


ZITEC 


trro 


55 OEG TRACK AXIS t)NIT VECTOR 


W IT H 




?nEC 


.28678822 


ni'61-5 1 - OEGREFTO DEC 
576 51 -1 — PVCS/ROS 2 DEC 
16771 I 


.05556 

1 5,015404 B-4 


10 OEG IN REVS 

100/2PI HEV-CSFC/RAO-SEC. 


STEP? 


54,'3663 
34, -->064 
34,3665 

54,3466 

314.3 667 
34,3670 

34.56 71 
34.3677 
34,3673 

54, 36 74 
34,34 75 

34.3676 

34.3677 

34, 3 V 00 

3 ^ • 3 I t / X 

34,3702 

34.3 703 
34,3 7 04 

34-,57I5 

34.57 06 
,3707 


51465 1 
06515—0 
■20000"TJ 


TENTH- 


20 F C 


. I 8+3 


. 1 B*3 (TO SCALE ANG.RATE TO . 1 INREMS) 


5 ATTBT 



OOO 00 

2ot)oa 0 

■oaooo 1 

00000 1 
00000 1 
TOO no 1 

'50000-1 
00000 I 

'oonoo 1 

17676 0 
20113 0 


1580YTCTI; ?nEC 


.5 


7.25 OEG NEGATIVE 


20 EC 


0^ 


7 DEC 


20 EC 


tr 


X-AXIS ROTATION MATRIX 


CONVERTS miOY TO CTt 


AXES. SAME AS QUADROT 


2nEC 


.9Q200495 B-1 


COST. 25 R1 


—BUT SCALED B1 


-T 

45544 0 


50000 

noooo 

02011 


3 


1 

l: 

0 

1 


20EC 


2DEC 





S1 -N 7.25 B1 


0 


. f 2M0897 8-1 


SIN7.25 51 


34T5-T10 
34 i 3 71T 


1^76 0 
20 1 15 O 
OOO 01 0 




C O ST. 2^ B1 




EF 


4“T:7rST 545 


LOONf— 

FURST3 


00001 


F 01 1 A LS 



TO set MoaC ^ OGOOl FOR SPECIAL EXIT. 
CONSTANT AUTQCK ( OCT TGOOGT ^ 


gap: 


ASSFMRLP SFVISrON 055 PF' AGC CHMAMCHE BV fWS'A" ?021 1 n-UbI irrS"2H APP. 1 , F PmjBLb .UAj PATTr “ '5 


L P 20 -P 25 USP^’S PAGE NO. 37 £6 S 3 


P1486 S2?.l OOBITAL N AVTG AT I W“RDUT ir-TF 

R 1437 MOD I 


Pl'tB'’ FUNCTTONAL TjPSCRrPTTON 

R14:?D 1. UPDATE CSH STATE VFCTOt’ 

-R-t 4Q ■T ?. UPD ATE LANDf-TAUK POSITION 

PlADl 3. CONVERT' W MATRIX TT30M -> TO' ft OImcnSIDNS" 



R 1 47 
R 1 WA' 


ALLtD " 

TNTSTALL .TNTEGFr\r.(rETOTft. TFTREVR-TO-TP.PP-Tn-R.BVFCTOt'S.TNCORPl . !NCnRP2 
L ALnT0RV . S2?F2410. tAT-CTmG.'RnwtFIT 


‘R1495 ERASABLE'TNTTTALT7ATTDN “ 

■RT4D6 W-9X9 MATRIX 

R14'=7 aR'BHFL'AG=0 FOP INVALID maI"IX, = 1 FOR VALID W MATRIX 

171493 ASTRONAUT ENTRY OF KNOVIN.L.OFF 

R1499 8NN= NUMBER OF MARKS nECIMAL INTEGER 3-14 

R15UT) P'EESWMATS' TK ANSFOP MAT 1 ( IN MATRIX 

RISOl MACKSTAT= ADDRESS nc START oF MARK OAT? (MARK DATA OF EACH MARK IS 
R150?' STORED AS FOLLOWS. T IMF , A I G, S A, AMG . PA , AOG) TIME IS IN DOUBLE 

R 1503 PRhClSI'ON.~ArL~~DT H E RS ARE I N S 1 NGL F PRE C I S I O N 

R1504- CSM STATE VECTOR — 


>71505 OOT PUT 

R15n6 UPDATED CSM STATE ITrCTOE' 

R1507 UPDATED LANDMARK POSITION 

RTSTTB NETT S'TJTMENS 1 ONAL W MATRIX 


R1509 

■“PT51D 
R 1511 
R1512 


1511 IS, ^223 1 BANK 13 


1574 RET r 10 , T ODD SETCQC P ? 0 S 6 

1515 30.231? RANK 


DERriS 

■ P’JSTT' L I S I .CSMP'.IS . ALPHAV. hRADM, ijfl, RCL P. USTAR , 



O R; gKK S 


S22rnC, SVMRKDAT TABLE, 2? sunset .LAND MARK, CXnFF,S22C,L AT, LONG, ALT, 
TEMPOP 1 , S22TnFF , S2210FF , OSPTEMl .S22E0RM, S22TPR I « 


1515- rfF 75“ LAST' — 553 ETVTT5T 

1517 REF 1 


COUNT 35/LUORB 


1 5 1 3 

1519 REF 

1520 REF 

1 57 1 

-1522 

1523 -KEF'- 

1524 

1525 RFF 
1525 REF 


30. 2 3 12 ft62 20' 1 S 2 2 . 1 STt SSP 

3 LAST 125 30,2313 03703 0 S22RTNFX 

10 LAST 594 30.2314 00051 0 - SR- 

30, 2 315 OOO O ft 1 DEC 6 

30,2^316 66511 0 SSi> SSP 

5 LAST ■-5ftR 30.2317 02747 1 ' «KK 

30 , ■’320 00001 — 0 (OFC 1 

? LAST 97 30,2'.,:1 02/51 0 S?2L0r, 

5 LAST l?*^’ “ 30 . ■‘'■’3 03557 C FCADR SVMRKDAT 


1 


SFT ^=^^l - 1 T EM BKK +5- I 


SET MARK DATA ADDRESS INTO S22LOC 





'’F 


■n'Gr<AM-XDMANCHb BVNA5A 2 0 ZTTTT- C) b 1 


TOT7F AFP • mW? rRnU3Lb .04‘-5 PTGT *>^9 


P20~P35 


USE*? *8 PAGE NH. 3 8 


E5 S3 


1527 

1528 


RF 


31 LAST 571 



15T0 

1531 

153Z 

1535 

1534 


30,2323 

30.2334 

3TT733Z3 

3372336 
30 .2 333' 


n 

'V 




1535 

1536 1 
T537“ 


33F 

REF 

RTEF 


1538 

o 


REF 


1540 

1541 
15411 
T542 

1543 

1544 
1345“ 

1545 

1 55 7 

T54T~ 

1549 

1550 

T55T ' 

1554 

1555 
1534 
1557 


REF 


REF 


REF 



051 5W 


T 


2 


5 

9 


LAST 

LAST 

LAST 
L A3T 


565 

555 

451 

553 


RTF 95“ X4ST ““555 


T UAST 


553 


LAST 125 


REF 15 T AST 555 


30.2330 

30.2331 
30 .F2332 
30T7333 

30.2334 

30.2335 

30. 2336 


761^' 1 
01330 0 
00044 1 

77773 I 
77776 1 
07604 I 

60L14 0 
77771 0 
60326 0 





30. 
3072340 
30,2341 


30 .2342 
30,2343 
30,2 


“R1360 


30.2345 

30.2346 
30,2347' 

30.2350 

30 , 23 51— 

3D'. 235 2 

— 30.2353 

30.2354 

33.2355 

30 ,235 6 

30,2360 

30 , 23T> I 
FLOWCHART 0=0 

FmWCHARl — 
FLQVJCHAPT 0 = 9 


0 

01454 0 
0 4667 ■ 1 

16363 0 
O 5372 I 
00004 0 

05022 T 
13000 0 
0 6006 1 

43X70 n 

noooo 1 

04343' 1 

— 603 53- T 
~77TtO T 

7775 


40 
03 6 73 
OODOl 
77624 


r 

n 

0 

o 


rxc,7 


ITEC 

S22.ITr VtOAO’t' 


3XT.1 
MARKSTAT 
31S 


0.2 


STORE STMRKDAT +36D,l 

TNCR .2 T1X.1 

DEC -6 — — 

522.11 1 

— ^ EXIT — ^ 

P 22MKELG 

8 ANKCALL 


MOVE MARK DATA (5 SETS) FROM AOOP. IM 
MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS 

OCCURS 



TC 

CAOR 

TC 

trtrr — 

'^CT 
OCT 
TC 

AXT.l 


MKRELEAS 

2PHSCHNG 

00004 

05022 

13000 



BhfF 

OD 

CWnONFlG 

S22SHIFT 


lArCRtl 

DTC 

S222HIFT SXA. 1 


SETPO 

SP^FORM 


1 

27442 0 

77524 1 


EIG2EXIT CALL 


TNTSTALI 


5 0 

017-10 FL'\G=0 
THEM' m MO F L AO^ 
TKFO TTlMOFt AG = 1 


^^WNLI^tKEO SVMRKOAT HOLDS PRESENT MARKS 

E VAC AREA WHER E MARK DATA WA 3 


= 0 ' E A R TH . "1 -MOOtT 


SFT =0 EARTH, =-2 MOON FOR SHIFTING 


CALL 

S22fLGS 

060R9fLG NOT TESTED 

OfinRPFLG^ 

060R9FLG=1 


156T 

1552 

1563 

1564 

1565 
1 566 
1567 



1569 

1570 


T 


157 
15 74 
1575 


R 


PEE 




1? 

13 


LAST 
L AST 


53^ 
5 8 9 


30,2376 

30 , 2 ' 7 7 
30,' 2 400 






30 ;2362 

4T0T4" 

TT 

REF 

4 

LAST 

S80 

30.2553 

-01 7 3^1 

0 

REF 

1 



30,2364 

60367 

0 

^ £ F^ 


!* A S X 

536 

30,2365 

01635 

~rr 

^EF 

1 

- 

% 

30.2366 

504 1 4 

0 





30, 2367 

7761 4 

1 

REF 

3 

LAST 

586 

30 , 2370 

01676 

"C 

— — — — -■ 

-= — ' — 

, — 



3072*3 7 1 

^ 6 70 

0 





30 ,2 172 

00154 

t 

REF 

1 1 

LASl 

"303 

30.2373 

00051 

0 

■ 


" — ■ — * “ " ^ 


3 0423 74" 

0 0006; 
-m .jru. « ^ 

1 





30 , 

7 7214 

0 


BOFF 


0 1 200 — ” 

ORBWFLAG 
SFTWW5D 
D6nR9F LG 
SLTVANDI 


SETWW5D CtEAR 


AXT, 1 
DEC 


O r^OFlAG 
SSP 
108 

t 


DEC 

CtETR 


026 7 6 1 

1 5335 O 

O 6 5R 5 2 ClrTA R W w 5 S TOR 


6 

VtOAD 

REnOWFLG 

lEROVFCS 

V/ +1080,1 


BRANCH TO SET W0-W5 , ORB WFL AG , 0 
Ft m/CHA R T D=6 RATH 


— FLOWCHART — D=D — RATH 


OSOP CHANOF 8/i 8 / - 67 


GAPI ASSbMRLfc RfVISflJM OF 





P:TI'GPAK CHMA ^CRfc 



NASA li-Obi 


APW. 1 • 19-69 TROUBLE •OAi PTOTb 6^)0 


I 


P?0'P25 


USER'S RAGE NO. 39 


E5 S3 


l^yi. 





15 33 

158A 

15TP5 

15B5 

15BT 

VBW 

1 5 39 

1590 

T59T 

1 592 

1593 

15W 

1595 

1596 
T59T- 

1597r 

155^ 

TGTKT 

1601 

1604 


9EF 

OTTF* 

RTF 

REF 

REF 


14 

LAST 

599 

1 5 

LAST 

600 

16 

LAST 


1 

IT 

LAST 


1 3 

1 AST 

600 

19^ 

L AST 

600 


2 

LAST 

5FZ^ 


30/240^ 
5072405 
TO 72 40 6 

30,240T 

3072410 

T0724TT 


623 00 (T 
60400 0 
02005 0 

02 4 01“0 

“T 


TTX^l 


30 • 2 
30,2413 

TT724T4 


TT2zr2I 1 

7773 5 0 
02006 0 
02511 0 

02521 tr 
02531 1“ 
T7614 1 


S T OFF 

STORF 

'STDRF" 


FLnao 

CLEARWW5 

RaRRPTO 

Iff ^BT) 

W +160 



STUFF 

STORE 

STURE 

SFTVANDT CLEAR 


W0P3VEL 

w +o‘2n‘ 

W‘ 1^00 
W -i-SBO 


FFF 

FEF 

3EF 


■n: 

30 

9 


LAST 

LAST 


506 

583 



ITTST 

LAST 


50B‘ 


30.2415 

3072416 

30,2417 

30,2 

30.2421 

30.2 422 

30.2423 

30.2424 

30. 2425 


77624 
623 5 I 

34041 
27162 
77524 
61332 1 
66150 a 
02750 — r 

01242 t 


or 

I 

T 

0 

1 

T 


OFENFIG 


S22NXTIN CML 




STCALt TnECl 

IfrrEGRV 
TTStr 

322CALRC 
SXA,1 


LXA,1 


MARK0AT6 


TEF 

^EF 


2 

5 


T 

LAST 


TOT 

531 


30 ,2427 
30,7431) 



1606 

1607 

T603" 
1F09 " 
1510 

TFrr” 

1612 

1615 

1F151 

16132 

1614 


LXSn 52F 


EAST 


TO ,2431 
50,2432 
"5072455 
50,2434 
50,2455 
30,2436 


^FF 


REF 


T 

5 

1 


LAST 600 


REF 12 LAST 584 



1616 

1617 

T5T5 

161 o 
1620 
16'2T 
1622 
16 23 
162-4 

1625 

1626 


REF 

FFF 


4 

T 


LAST 600 


RFF 


4 


FEF 

F 


L AS T 
6 LAST 

1 — ~ 


565 

56F 


3 E F 

2EF 


6 

4 



-- 534 - 

LAST 567 


504 2 FTT 

30 .2440 

30.2441 
TO , 2442 
50 ,-? 4 A 3“ 

30.2444 

50.2445 
TO ,' 2 446 
TOTTWr 

3crr?450 

311,24-51 
30,245-2" 
TO ,2463 
30,2454 
30,245 5" 
3t> , 2457) 
30,7437 
30,2460 
30 •2 461 
30 ,2462 


77624-T 
47104 T 

0123S 1 

41535 X 
02747 1 

50535" T 
02746^ 
50442 O 

77525 ■) 
43030 0 
60755 0 


FALL 


52GFTOT 


G ET U O 

UM 


STHR^ 

OMPINTHG SLOAD — PUSU 

mar— 

SR3 
CXOFF 



■SR3“ 

OSU 

BHIZ 


BQN 



02 706 T 
60763-0 
7T6'24~r 
56^50 0 
7761* 1 
01471 1 
4?ai4 o 
02^66 1 
010 62 1 
AT-OtT" 0 
0046? 1 
0 5 30 7 n 
61 12 3" 1) 

55575 O 
0l2"n '7 O' 
0215? 0 
43014 0 


OAlEMFtG 


C4tr 


SET 


G I? p 2 PC 


ORBWFLAG 


TET 


StT 

OMFMFLG 
22DS P F L G 


SET 


VLOAO 


STORE 
CL f 


ER AOFl AG 
KNOWMFLG 

S 2 230X22 
UNIT 

t - s ^ pos — 

At PHAV 
BU^F 


SET DIAGONALS OF WO 


S E T D T AGONALS O F W4 


0=6X6W, l=9X9W 


CALC. RC B-29 OR 8-27 fCS^POS) 



O F NARK D ATA F O R GETU N StlBR^ 


COMPUTF tW 


TEST OFF^I 


CXDFF SCALED B-5, MUST MOV’^ TO 8-14 
BPFORE SU8T. 


B RANCH HfR F I F Off = I 
0^6X6W, 1=^XPW 


-0 ON FfPST f>ASS THRU HERE FOR D=0,OR6 
= 1 T O DISPLAY OPtOV ON F IR ST PASS 


^1 TO FaMPUTF Ff SCHTR RADIUS 


UNIT T^LS^ PUTS ABVALIRC ) IN 360 


ALPHAV H-A— SINL FOR SFTRF 


f'.AP 


ASSE‘’RLE REVTSIOlvi 0"^^ "F A5C TOTAP ' f, 1 '1 AMCHP BY 'WA' ;A “20'21 1 1 3- 05 1 


lOiTF &Pf'. n" l'?'69 rWUUBLt .U43 PTCl 6Tn 



9^ 


P2a-t^ 



^AGF NO. 40 F5 S3 


16?T 

1623 



1 630 

1631 


1 63? 


16 

16 


i3 

’.4 




163T 


TFF““ 

5 

LAST 

566 “ 

^,2 2^53 

01“r63 

~0 


■ LUNAFLArr 

P F F 

B 

LAST 

599 

30 ,2464 

04343 

1 


CMOHNFLG 

■RTTF 

1 



30 .2465 

6047 0 

1 


SJ^2C=l 





30.2466 

776 14 

r 

SET 



6 

LAST 

601 

30,2467 

01463 

1 

• • 

lunaflag 





30.74 to 

77624 

“1 s 2 2 c = l 

CALL 


PFF 

1 



30,2471 

26601 

i 


SETRF 





30 ,2472 

77 6 24 

1 

CAL L 


R E F 

1 



30.24/3 

612 ( { 

1 


S22F2410 





3047474 

7041 4 

T 

BOFE 

VSP2 

REF 

Q 

LAST 

FTTL 

30 , 24T3 

043 43 

r 


CMOnNFLG 


E RAnw= R 0"M ETF R S -B- ?9 BO T H E AR T H/MHON 


COHPdrrm- FR OM E QUA T T ON 2.4.10 

STOP EU fN" lCT8 9 * NP AC g-7 T .B- ? “> 

SCALE FtlR BOTH FARTH/MOON 



163? 
1640 
T64T 

1642 

1643 

1644 

1645 

1646 

1647 
16471 

1648 

1650 

le'^i 

i66ir^ 

1653 

1654 
T655~ 
1656“ 
165'^ 
165 8 ■ 

165? 
1660 
1661 
16611 
1662 
1663“ 
1664 
1 665 
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3 3, 7-7 04 
30, 2T05 


0 
3 

02 62 3 1 

01765 1 
40071 0- 
07531 r 
636 64 0 

0 

6354'5“’0 

07677 0 
6 3 52 5 O 
■07 67T 0 

7731537 
50021 1 
0175? 0 
606 76 0 
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CLRGO 


06t3R9f LG 
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“31,3167 

31,3150 
31 ,3151 
“TTT3T52” 
-31 ,3153 
31,3156 

31. 3155 

31.3156 

31.3157 
731677 


0 6600 1 
0 2666 I 
60220 0 
03656 1 

00001 0 
“65365"“r7" 

01716 1 
01716 0 
63325"'Cr • 
153 63 "T 

02 617 0 
■53635“0'” 

03627 1 
27621 1 
53635 0 

03621 1 
27605 1 
03621 I 
53635 tr 
03605 1=- 

"03613 0“ 


R23 .Ttr 


HLIKU 


TC 

TC 

ETT 


TJTCnnj 


ROUT 


VTCV 


FALTON 
F23,06 
SET Pi) 

SR RETURN 
0 

■RUUt 

- AYO 
AXO 

FTTVE 

DP P US N AX 
US 

im 


s rnvL 

TXV — 

STOVL 


R7C 

U8AR2 

UNIT 

U8AR2 

tmAPO 

UBAR2 


vxv 


31.3161 
^1 , 31 6 2 
3I.3T6 3 

31,3166 

31 .3165 

31.3166 

31,31-67 

31 , 31 70 

31.3171 

31.3172 

31.3173 
3TV 



STURT 

BON 


55 


RFF 261 LTTST 625 " 


31.3175 

31.3176 
3TV3TTT 

31 ,3200 

31.3201 

31.3202 

31 .3203 
3 I ,3206 
31 ,3205 
3 I ,3206 
31 • 3237 
31,3210 
3 1 9521 1 

31 , 1 2 

3 r, 5213 
3 1 . 32 1 6 
3) r32l5 


63 3 61 

OOOOl 0 
36156 0 
26 5U5 "O’ 

65215 1 

■0 

236AT-1" 

61615 1 
01355 0 
6-6375 1 
03627 I 

03605 1 
63 3T2 3 . 
02617 0 


UNI T 
UBAPO 

UBARl 

Onj 

LUNAFL AG 

HtnrrrTE 

0 

STCALL ALPHAV +6 
GFT ER A U 


OAO 


OAO 


wmrrrt — vloao 



76521 
03 605 
77725 
0 Ot) 0 3 


0 

1 

1 

1 


NXV 


POOL 

HORI Z ALT 

A E A RT H 

RUSH 

HORI Z ALT 

7UCV 

RZC 

U3AR0 

TTmr-'““ 

us 

VSLl 

UBARO 


TOSH 



TOSH 2-3 = +AX SCALED BO 


PUSH UP 


U8ARI HOT U7 


NPAC HAS RADIUS OF FISHER SLLIPSOID 
RUSH 0-1 - 2H SCALED 829 


RUSH 2-3 - AH 82^ 


329 

31 — 

P U S H 6- 5 = R H( X H, Y H, ZH ) -329 


«^DDL 


360 6 3 ty 
00005 1 

77626 1 
63 


STOOL 


CAI.L 


2 

-530 


RUSH 

AH 


10-15-^ USH 81 


XH 


61257 1 
20611 O 
00155 0 

14037 0 
00901 O 


SR7 


DMR 
50 , L 


NOI.^ SCALEH 80 


STOOL 


MP AC 
30 D 
0 
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U 


P20-P?B 


nSHR*S PAGf NO 


6T 


E5 S3 


2 832 


23 33 

2834 

2835 

28 37 

2 83'^ 




2340 

2341 
“747 


2 843 
28 44 

T54^ 

2W6 
2 34X 


2 340 
2 850 
27 57 


285 2 


2857 


"233*4 

7855 

7856 
2 337 
2853 

28SO 
~2^ 




2867 

283T 

2364 
2 Srj 5 


RFF 


LSST 627 


31.T716 

31,3217 

14043 0 

00007 0 

STOOL 

■J4D • 

6 YH 

Xl,3220 

7/624 1 

CTorc 


31 ,7 2? 1 

67365 1 


OIVTDF 

31,3222 

41257 1 

SR * 

O^P 


22F“262 LAST 627 


71 , 3 2 

31.3224 

31.3225 


20611 0 

00155 a 
41415 1 


REF 


REP 


LAST 628 


J1 , 3 22 6 

”*00037 

17 


75475 

0 

“71 ,7270 

73447 

1 

71 ,3231" 

77 72 5 

i 

31,3232 

000 2 1 

1 

31 ,3733 

14043 

0 

3 1 , 3734 

MOO 05 

1 

“31 , 32 35 

7T624 

1 

31 ,3236 

63365 

1 


Qff 


4 


LAST 628 


P.FF 


5 LA5T 528 


865 
2367 
2863 
2865 
28 70 
2 87 1 
287 2 

2873- 

2074 
287 5 

2 87 6 
2877 
“2878 
2 87 0 
2880 




LAST 62B 


2 777232 
31,3240 

31 ,33£,i 

or, 3 2 42 

71 ,2243 
21,2744 

31.3245 

21.3246 

31.3247 
3X73 750 

31,3751 
3 T .2752 
21,7753 

71,2754 
3 1 , 775 5 
51,1256 
31 ,2757 
31,7260 
21 ,22 61 
31,3262 
71 , 3367 

31.3264 

31.3265 

31.3266 
21,27 67 
3 1 , 3 270 
31,3271 


t25T 628 


7 1, 7 7 72 

3 1 , ^ 2 27 

31 ,3274 
^ 1 » 


77624 T 

67765 1 
77657 0 

20611 0 
14035 1 
“ 00001—0 

14042 0 
00003 1 

r 

63365 ) 
41257 I 
20601 2 
00035 1 
72405 0 
O 0O O T 0 

77725 1 
00003 1 
T 4 -T J47 - 0 


71 

71 i -327 6 
31 r7777 


00001“- O 
77 624 7 
67365 — 1 
41257 1 
2 06 0 1 I 


65257 1 

20627 0 
00007 0 

7T5 24 1 

67765 r 

65257 1 
20622 0 

00071 1 
14043 0 

00023 0 


OAO 


osu 


POOL 


STOOL 


C All 


t:7nr 


S TOOL 


CALL 


STOOL 


STftOl 


C ALL 


SR* 


OMP 


80.1 

IPAO 

PUSH 

300 



1.0B18 


160 
340 
4 



01 VIDE 

POOL 

1 70 , 1 
6 


OTVIOE 

onrrL 

T 


160 

340 


D! VlOf 


80,1 
2 80 

11 

340 

7 


DIVIDE 

Ot^P 


, 

280 
5L 1 
6 


POOL 


S TOOL 


CALL 


2 

74tV 

0 


SR* 


0! VIO * ^ 

0,1 


80 

B18 

PUSH 


16-17 =A SCALED B18 


P USH 18-l Q — S QR Tt A-l> 8 9 


1CH 


PUSH 20-21 = XH/A B29 

YH 


P USH 2 
^ 



729 



=21 


AH 


AH/BH SCALED Bl 


SORT( A-1 >/A 


A M. 

Tn 


AH 


8H/AH SCALED R1 
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Kwsnzrnirm 
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TBTT 

2382 



2 8 B 4 

2 R 85 


“2 8 8F 
28 87 
28B8 
78 

2890 

2891 
78^7 

2 890 

2894 


7793"' 

2795 
2 897 
7797“ 

2 899” 
2900 


290? 

2903 

790^ 

2905 


2 9 07 

2 908 
2 909 
2910 


920-^27 


3l733Tm 
31 ,3801 

31,3302 

TT 73803 
31,3304 
3808 



9EF 18 LAST 625 


31.3306 

31 .3307 

91*3310 
817 33 T 1 
81 ,3312 
8T73 313 

3 1 ,3 31 4“ 
31 ,3315 
31 • 1315 

3 1 ,33 1 7 
31,3320 
8TT3377 
31,382? 
31, 332 3 


00085 1 
72405 a 
DOOOS 1 

48325 1 
00025 0 
00031 0 

453257 
00027 r 
00033 1 

40705 T 
00021 1 
45345 r 

00025 0 
00031 0 
43325 I 

00027 1 
00033 1 
41525 


DMP 


POOL 


POOL 



8T78 



817 3827 

31 73 33 0 
31 ,8331 
31, 3332 
817 

3 1 . 3 337 

81", 8385 


2912 

2913 

2914 

2915 

2916 

2917 
2 913 
2919 — 
29'’0 

2921 
7922 — 


97F 


REF 


LAST 621 



,3336 
31,3337 
31,3340 

317 3371 
3 1 , 3342 
31 , 3343 

31 , 3 374 
81,3345 




REF 


itef 

OFF 


4 

T 


LAST - 67 ^ 


LAST 679 ^ 


2924 

2925 

2926 

2927 
7923 
2929 
29 30 


8 T 78378 

1 , 33 4 7 
31,3330 

31,3351 
31 . 

31 , 


3 5 


“f? FF 


6 


tAST 627 


•o 

<1, 


8 

,3 354 
31 ,3358 
81 , J 386 


PUSH 


TTrOTO 


28 tr 

s cr 

7? 

DAD 
20D 
74D 

osir 

22 Tr 
TFD 

SETPO 
160 
TTSU 


POOL 


"O 

15385 0 
24041 1 
0003 S 1 

537 51 1 
0 0008 ~T 
532 41 0 

OOtni” 0 

ooo 2 r 1 

5348T 
00905 1 
41441“ tR 
00013 0 

50021 T 
00027 \ 
“5334T 1 
7 7517 1 
00304 9 

63353 1' 
52175 0 
00035 1 
633 5 5 1 
52014 0 
00807 0 
"6 8 3 44 
63 388 1 
777 78 1 
"09921-1 

765 05—0 


STUVL 


VSU 


2 09 ~ 

249 
Tnrrr- 
729 
260 
TUSH* 
ZEROVECS 
320 

7BD 

UNIT 


991 


TTWr 

100 

160 


VSU 


DOT 



OOSU 


220 


USER *8 PAGE 7197 68 


55 S3 


TTON 


HOP I 7. 2 VEHAO 


HOP 1 1 . 8 BLTN 


NORFHOR 
HHR T Z .7^ 
GOTO 
2 80 

HOR 12*5 


90 TO - 
NORFHOR 
ttm 



HORT Z.8- 


HORIZ.4 VtOAO 


H 9 R 82 t 5 VXH 


RFF 


lAST 62 T 


81 ,93 5 ? 
8) , 3 360 

"81, "5 36 1 


r 

7 T65 Q 1 

0 3 556 1 
41 545 O 


HSU — - 

VS LI 
U8AK0 


G OTH 


HOfUZ.6 9LOAO 


SORFTU-R-N 

PUSH 


SORT lA-D/A 


TH 

XH/A 

ALPHA 


YH/A 

BETA 


XH/A 

ALPHA 


YH/A 

BETA 


ZERO THIRD COMP. OF T-0 VECTOR: 


RH VECTOR 
TU SH 



USH VECTOR 
T1 VECTOR 


RH VECTOR — — 

PUSH 24-75 A-SUe-ONE 


A-SU6-ZFRO 


T-0 VECTOR 


rt VECTOR 
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XJ^ PTTGF 



L 


<^20“P?‘=^ 


2931 

293? 


■EF 


1 




31 t-'TS? 
31 .3363 

31.33 64 


2936 
2^3S 

293^ 

2937 
293R 
Z93^ 

2940 

2941 


REF 24 LAST 605 


2 943 
2944 
■2946 

2946 

2947 

T948 

2949 

2950 
7951 


■TTFF^ 

16 

“T AS 1 — 

“ST? 






TTEP 

1 / 

LAS! 

^TO 

■^EF 

20 

LAST 

626 

REF 

1 




3 1 r3T65~ 
31 .336 6 
3T733^T‘ 

31 t^TTO 
31 , 33 7 1 
3173377“ 

31 , 33 73~ 



LAST 67T 


REF 



VtF 

RFF 


ETTST 


3X73375 
3X.3376 
31 ,3377 
31, 1400 
31 .3401“ 
31.3402 
31,3"403 

31 .3404 

31.3405 
3173505 


31 , 34X0 


23443 0 
52 006 0 
63174 0 
70501 1 
00047 1 
1404b 0 

00043 O 
55301 0 
uOubi U 

00045 O 
4346tr-l- 
00050 "1 

77014 1 
04343 1 
63410 5 

77775 1 

77614 1 
01T43 0“ 
63414 0 
57014 0 
00265 0 

451 ? ^ -Tr 


PLiSH 


RAOWnON 

GOTO 

HURlZ.l 


01 VIDE 


NORM 


STOOL 


MORM 


XSU. 1 


XI 
3 6 1 ) 

3 40 
BOOV 
■ST 

360 

PVtl 



RFCT.l 


BOfF 


AXT,7 

C OnrJNFLG 


OFC 

BOFF 


KECT, 2 


CLEA 


jr» 


t't lNA F L A G 

PECT.4 

GOTO 


RECT.3 


AXT?7 


7954 

2955 

2955 

2^57 

2953 

2959 

Z960“ 

2961 

2962 
”7963“' 

2964 
2 965 
79frr"' 
P967 
2 96 3 
2969~ 

2970 

2971 

“ ZRT?’- 
~ 2973 

2974 

2975 

2 9 75“ 
2^77 
“ 7977 ■ 


TT734TT 


PEF 

«FF 

15 

1 

LAST 

630 

'“31 ,34r2 
■ 31 ,3A13 

REF 

3 

LAST 

630 

31.341 4 

31.3415 



3 1,73X16 

R EF 

3 

Li 5 T 

609 

3 1 , 4 1 ^ 





“ 3XT3470 





31 ,3^^71 

R FF 

3 

LAS 1 

“Fax- 

31 ;3‘472 



_ - _ _ . * 

* 

31,3423 





3 1 . 1 42 4 

R EF 

7 

LAST " 

677 

XT r3 479“ 

REF 

1 



31, ^476 


00000 1 

71X743 0 
63405 0 

T 


RECT, 
BOFF 

o 

LUNAFLAG 

RECT.? 




R ECT. 4 


00065 I 
44575 0 
01573 1 
53257 1 
57 X76 tr 


R ECT . 5 


VLOAO 


7.MFASUf?E 

VSR 7 



VSR^ 


VAO 

0.2 



VSR^ 

0.2 

■ST^TVt RtH 


*1 F F 


R EF 


LAST 675 


2978 


31 .3427 
■31T3431T 

31.3431 

31.3432 

3 1 ,3 4 33 

, 34 34 
31 .-36-35 
31 , 3436 

Xf. 3 37 
31 .3X40 
~X 1 ,3441 

3 1 ^3442 

•4 j ^ 


01601 I 
53702 1 

*3 r 1 f^o Q 

53655 1 
01615 X 

ie 


VSR4 


^JUVCSW 

VSR=<' 


VAO 


VC VC S M 


57 1 To 


O 


03 635 X 

77616-0 

7 6 305- 0 ONg/C 

05437 1 


STORE 
RVO - 


USER*S PAGF NO 


69 


E5 S3 


SR TO S'^T 7MEAStjRE = 0 IF MFASUREMPNT 
PLANET AND PRIMARY PLANET ARE THE SAME 
OT HF P W T SF 



VFC. ANO SCALE B20 AND B7 



77 


07 &7T 


NOW SCAtED - B7 9 - — 
SCALED 33 QR R-i 


SCALED B7 OR 85 


NOW SCALED 57 


• 333564049 E-6 — 


DD3 a? 0 
•7 45 3 3 1 
00045 1 
01255 X 


AEARTH 


6373166 B-29 


A AXIS Of FAR TH( METER 5 6-29) 


7ADM0DN- ^OFC 


1734000 B --79 
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iz 


USER’S PAGE UO- 70 


P*; S3 


r’* 


2^1 

297n 



2 9 20 


29R06 

2981 

2983 

298^ 

2938 


293T 

293R 

29-^8 


31 ,8^4-^ 
31 *8445 

3'r, 8446 
31 *3447 
31 *3450 
'3T7T45T 

31 *3452 
31 *3453 
;U t34 54' 
31*3455 
31 .8456 
T1 4 ^45 7 
31.3460 
31*3461 
31, S4-, 


29 3^ 

2990 
? 9 C g 

2991 


EF 


2 993 
2994 
3037 

3ET3Pr^ 

3008 
301 j 
301005 

30101 
301 013 
TtJTOTE 

30102 


IFF 


1 


31 ,3 6- 63 

31 ,34s4 

3 T 73433 ^ 

31 * 84 7 6 
31*3467 
3T * 347 0 
31*8471 
31 *3472 
33 ■* “'■473 

31 .3484 
14* 3000 



3EF 


n 
' % 


1 



3EF 


30103“ 
301085 
3 010 4 
301045 
30105 
301055 
30T05E 
3010 61 
301062 



LAST 626 
rASr““ 6 Z 3 

LAST 626 


IFF 120 LAST 626 


9TT 


T7VST 


2F2 


1^ *2000 
1 4 * 30t> r 
37 * 2 6 2 5 
16*2000 

16.7000 
9 * 2 0 0 0 

16 .7001 
16.2002 
r6*700 3' 

16*2004 
1 6 .20 05 
15*2006 
16 *20 07 
17: * 2010 
16*2011 

16*8012 


301 




301075 

~TOTOT~ 

3011 

3012 


7 »-r 

vtef 

PFF 


1 

3 


1 


> t 




013 


T2AS3 671 


1 


irr* 7 01 4 

1 6 ,*^015 
1 6' * 
tet 


1 


016 0^ 1 
00000 1 
00000 1 

02000 0 

troooo 1 

01505 


T 9 IJN 18 

T FUN 19 A 
T.O'UH 


ncT 

TTOFT 


01.604 
00000 
t:v 3-1 s 


141 00 

Onoi2 

77467 

31461 

013 06 
“DT3D7 

00077 

00207 

00006 

10464 
12467 
^ITDOIOE 
00000 
153 73 

TT34.0- 

62627 
777 88 
007 00 

00070 


IT 

n 

< 

1 

r 

n 

0 


VARSUBL DEC 0 

VARSUBL3‘ 2DEC# 3.479-9040 E+6 


TRUNVAR 2DfC 


2.5 E-9 B+13 


V.5N49 

Vn5N70 

V05N71 


VN 

VN 

TAT 


1 

1 


nCT00077 2CT 
V50N25P OCT 
3F5TX 


0 

1 

1 

1 

1 

TT 

3 

1 
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OCT 

2orc 


0649 

0570 

Tom 

00077 
002 02 

00006 

.2688190620 


2T1EU 


2DEC 


TT 


421 5878460 


0 


R-60AO<?S 
NEG3T 
nTS7-9 

P ITS4-6 


CAOR 

ntr 

T7trr~ 


4 8 5 7 >. I 

317^1 0 


OCT 

SFTLOC 

OTTNIf- 

L aw ME MR Y VLOAO^ 



+ 3 


RT5 3 


77776 1 


BANK 

SETLOC 

BANK 

LDPLANET EXTT~ 


RVO 

CATLOG. 1 
F23S1 


3 2017 
0 4562 

20T2Tr 

-^0 4106 
0 2007 
2001 
0 6 006 


0 

1 

0 

I 

} 

k. 

r 

1 



TC 

TC 

TC 

Tt 

TC 

VLOAD 


VNPL AN23 
3ANKCALL 
SOFtAGH 
GOTOPOOM 

+ 2 

^r5— 


INTPRE T 


VXSC 


3243 3 


ST A^S A Vl 

OMIT 
1/SQR3 

S Tt rr TT- ' STTTP S A V2 


77650 1 
62 5 1 3 0 


GOTO 
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08 


* 


1/2(SIN 32.523 OFG) TRACK AXIS 


l/2fC0S 32.523 DtGJ 
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ASSEMBLE pf Vt<vinN 0'55 nr AoC 'PPOG'UM CIMANCRF by NASA 2^2lll:^-0hl 
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3013 

3014 
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RFF 


1 

3 


LAST 375 


3015 
3 016 
3015 

wrr 

3013 

301^ 





’EF 


4 

2 



4623^ 
46 24 
rTTTTTT 



1 

1 


VB56XAnR 
TCf SUPDXCHZ 
FFAW^^mnOTRFS' 


LAST 236 


02 653 0 
66107 1 


VB56CADF 2CAT)R TRACKTRW 


f\ r 



WTO 
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REF 
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5001 

5002 

600rT 

^ 5004 
5005 
SOUS' 

5007 

5003” 

SOU 7 

501 0 
5011 


RFf 


W7T62T 
4TT, 3 60 0 
40,3624 


TTrp 1 

REF 121 


'SETinC FFTAG2 

XATIK 

COUNTS' S$/P20 

"BANK ZTO 

XFTLtJC ENOPINSl 
BANK 


LAST 631 


T 


R EF r 
FFF* r40 
REF 13 
REF 30 


FAST ” 63T 


LAST 

LAST 


51R 
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5015 

^016 

^^OIT' 
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5 013 1 
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50133 
5019 



LAST 


ry 

n 


LAST 283 


RFF 


1 


5070 — 

qrp 

"OT" 

LAS r ■ 

“632 
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5022 

RFF 

7 

LAST 

233 

5023 

RhF" 

2 

LAST 
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5 03 6 





5 037 

■JtEf 

3 

LAST 
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”5030- 

R EF 

1 



” 5039 


■ - ■ 
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'’EF 

1 



“ 5041 

R tF 

1 



— 5043 

r * 

- 



5044 

-R-pF- 

- 2 

LAST 
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“ " 5045 

REF 

1 



5 046 





5047 

REF 

1 


— -^!r^ - 

5o48 





5049 

-REF 
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LAST 

600“ 

5050“- 

PFF 

7 

1 AST 

"600 

5051 





505? 

R cr ' 

7 

1 AST 

63^ 


“40,3624 
40,3625 
4nr3626 

40 , 3 62T 
“40,3630^ 
40.3531 

40.3632 

40.3633 

40 .3634 

40 , 363 5 
4^0 , 353 6 
40,3637 

4O,364h0 
40 ,3641 
~F0,3642 
40,3643 
40 * 3644 
40,3645 — 

40 , 3 64 6 
40, 3647 
40,3650 — 

40.3651 

40.3652 
40';3653^” 
40,3654 
40,3 65 5 
4a43r6-56 — 
40,3657 
40 ,'"36 6 0 
4043661 — 
40,3 662 
40 , 3 66 3 
40 , 3664 
40.-3665-" 
40 , 3666 - 


0 6006 1 
77624 1 
61701 0 


V67CALL 


COIFJTV $$/E7nrV3 
TC 1 NT PR FT 

CALL 


7TT76 "t 
3 6763 0 
0 466?' 


EXIT 

V06N09DS CAF 


20561 

1 

CAOi^ 

1 55 j54 

1 

TCr 

0 36 36 

1 

m 

TC 

’“■r 

0 36 30 

1 

TC 

cr 6006- 

1 

V06N9033^ TC 


46135 1 

02325 1 
616 44 0 
T765D r 


sroATr 


V06N99A 
B ANKCALL 
GOXnSPF - 
FNDEXT 
V06N 9 933 
V06N99DS 
INTP^FT 
BHTT 

WWOPT 

+ 1 


GGTn 


61646 t 
777T 6 t 

I ■5534 "T 

731 50 7: 
02320 1 
0232?"0 


V6N99 f NP 


XIT 


453 35 -fr 
02325 1 
?lT67~r 
51030 0 
616 64 1 

6i 6 Tr 'r r 

67130 1 
02000 0 
02001 1 
77650 1 
61674 O 


E NO EXT 
V6N99TNP LX A, I LX A, 2 

WWPHS 

WWV E L 

SLOAO OSU 


BHI Z 


SXA.l 


WWOPT 
V67 n F (32- 
BPL 

V67WnPB 

VBTwn r o - 

SXA,2 

WRFNDPOS 

WRFNOVFL 


GOTO 



V67-W tl RB — SX -A- , t 


5 05 5 


40 , 3 670 

40,3671 


02004 1 

0-R005 0 

~^765 0 1 

"614 74 n 
67130 I 


V67EXTTX 
S X A V 2 — ~ 

WOPBPOS — 
WOPHVFL 


GOTO 


V67WMT0 SXA,1 


V67EXITX 

SXA,2 
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PEF 


II 

ITT 
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^T3672 
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40,3700 
40,^701 

630 4373702“ 

40,3703 

4073734 


33300 1 
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^43014 0 
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7/7/6 1 
I 3534 T 
40020 I 
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77624 1 
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CLEAR 

3PBWFLAG 
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FXTT 
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32 
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TFF 
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5070 

5071 
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5073 

3074“ 

5075 

5076 
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5073 

5077 

3070” 
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PFF 

RTF 
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— 4073705“ 
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IT 
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0 
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000 R 1 

0 
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40. 37T.0 
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UUUU6 

15335 

1 

0 


SSP 


T7EC 


LAST 
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LAST 
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REE 


4 

5 


LAST 

LAST 
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5064 

5055 

5056' 

5083 

508B 

30B7 

5070 

5071 
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RFF 


PFF 
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3096 
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FAST 

FAST 
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?EE 
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50983 
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PFF 
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RTF 55 FAST STO 
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P.EF— 56 LAST 633" 
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3723 
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40 
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47573~tr 

77615 0 
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3743 

3744 

3 74 5 
3746" 


3747 
3750 
40 

40 , 5752 
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0006 
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0020 
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00225 
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~T 2 

48t 


TTFF 

RFF 

^EF 


.7FF 
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L7LST 


T 5 T 
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626 



^ U. 



RTF T5 

REF 123 


L A ST 
UffST 


62T 

T 2 T) 
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REF 
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ST 53T 


00221 RTF 


T 


0C227 
00228 
O02Z9~ 
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R E F 
F'EF 

7 EE 
REF 

7 EE 
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FEF 
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35 
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1 

75 

22 
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TTAST 
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TT 5 


LAST 595 
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TTAST 
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539 

53T 


ITAST 219 


0023 T -RTF 
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00233 

007 34 


ir LAST 619 


T3T7TTTTO 

35,3764 

F 7, 1625 


SEIinC P3USi 

BANK 


EBANK= +MGA 


COUNT 35/P34 


35,32 64 77420 1 OTSPNtGA 


3TT3T5T 


02570" T 


35,326 6 0 33 04 0 


TC 


"T5T3T6T 
7^5332 7 0 
35,3771 
35*3277 

35.3273 

35.3274 
"T5TT2T5 

35,3776 
~33V3277 
"33 * 33 on 

35.3301 

35.3302 


3 4621 0 — rrrsP 43 

0 4667 1 

“21057 0 " 


0 4106 1 

0 3300 1 
0 3267 1 

0 F 4TT 0 P 30PHSI 

70014^1 

O' 52T7 0 

0 6D0F>' X” 

52 014 T}- 
03664 0 
02370 T” 


CAF 

TC 

CAOR 
TC 

TC 

TC 

TC““ 


ENr)45 


TCR 
TC 
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0 0006 1 
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35*3311 


O 


0 5546 0 
00155 -TT 


EXTE 

q xc H 


TC 
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55* 145 1 


CAF 

TS 


35.3312 

35 .3313 
E7, 1412 
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55 ,3315 


3 5017 1 

0 5245 1 


CAF 

TC 
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RGEXIT 
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TIMRf LAG 


U7FLAG 



2FRU 

NVWOROl 
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USED TO COMPUTE TTUGO 

6- 



. . &FW AR E 


SET TIMRFLAG 


WAITLIST 


03260 O' 
“5 006 "^ 0 


2CADR CLUKTASK 


3^4,T316 
3 5 * 33 1 7 

3^>,332n 

3 5 * 33-7 1 


0 5177 1 
40036 0 

r 

130 00 0 


TC 
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40036 
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PROGRAM HESCRIPTinM ’’30 [TAT F T-T) - 6T 


Ro7r?4 5 “ ofKTnrr ^T'TRrrnn^ TTr^n?> p'u amd ad apt Piu euk Pii use. tzuecbi 


R00?5 FIJNCTIQNAL OrSCRIPTION — “ 

ROO?F +30(FXTERNAl. nElTA-V TARGinTTNG PR0T;RAM) — 

"P"0 0T7 TCrirPTS~ASiRUNA1JT I'^PUTS Ul- I IG , DbLV ( LVr AND COMPUTES , FOR DTS'^LAY, 

R0028 APOGE^iPERTGEE,T 1FLV(MAGT.MGA ASSOCIATEn WITH DFSTITECr^ MANEUVER 

mC)2 T I^TGENETTAt'O^^^^ AIMP-TT^ GHTOANCtl — * 

ROOZOT A GROUND RTJLE FOR Tm: T$ THE ANGLE BETWEEN THE TARG*=T VECTOR AND 

^002*32 POSITION YECTDR AT TtG^^TS NOT 1 1 <^5 OeXTREE S APART 
~TTD(m5 RASEU'nN' STORED' TN'-’UT OF nEFSET TARGFTtB + 29) AND DECTTI-T TRANS, AND 

R0031 ASTRONAHT ENTRY OP~TTGfR31 COMPUTES REOlltREt) VELOCITY FTIR- MANEUVER 

R0032 AND*FOR 0 I S^L A Y • A POGEE • P ER I GEE .Or L V ( TAG ) t -i-MGA ASSOCIATED WITH 

" ROU 3 3 DESIRED wrANETJVER 


ROnOA THE FOLLOWING SUPROUTTNES ARE USED IN POO AND POl 

■“RTTOE S3Tr.T^P5CrriNUY7 

^003E S3 1.1 (P3l ONLYI 

R0037 P30/P31 - DISPLAYS flG “ 

'RTTUIY — - T.NTIJP'TD - DTSR13AYS QELVCLVI — “ 

~ROO'’31 PARAMTO - DT SPLAYS A POGEETPER 1 GEE , DELV ( MAG ) , MG A , T I ME FROM TIG, 

RT»n3E2 marxS^ StnCE LAST th ru sting MANEUVER 


R003BT CALLING SEQUENCE VTA JOB FROM V37 


3? OOIR'A ' EXlT On r V3/ C7airn3T“T,TTnPOOH 


R00335 OUTPUT FOP P OW ERE O FLIGHT 

' R0 C JT6 V 11 ^ ; X 

R0D3~3T PTTG XSEE S30.1 

ROOTBB DELVSTN X 

VGDI SP 

“R0018G1 RTAROr X 

ROOOB^Z TPASSA X SEE S3t.l 

“110053 93 “ X ~ 


nQXJRO TH=T 1“ - - - - COUNT 35/P30 


003901 REF 1 -35.3^323 0 3353 1 P 50 TC P30/P31 

“ 003903 REF r~ 35 , 33ZA 0 33TA 1 Tt CNTNtlP^O 

0039U5 '’EE AO LAST 622 354^3325 0 53^60 1 TC OOliiNFLAG RESET U^’DATELG 

003907 REF IS EAST 586 - 35,3326 0002T 1 - - ADRES UpDATFLG - BIT 7 FLAG 1 

“ 00 590^ REF 12A LAST 6T5 3%'33'27 0 SOGB T~ TC TNTPReT 

003911 ^ Cf^ll — 

003913 REF 1 — 35,3“y5l 5 3 AT 51-- S30. I 

G0^9 1"5 3CTTT32 77776 1 ^xi T 

00391'^ -t7C|- ] 35.3''33 0 3A0^^ \ " — TC R^ARAM30 

003721 REF 36 LAST 635 35, 333A 0 55A6 0 - TC UPFLAG 
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PEE 

per 


3 

3'^+ 


LAST 
L AST 


635 


00T9 27 
0039 ?9 
00TT3T 
003932 
003P33 


RFF 

p FF 


7 

41 


L AST 
LAST 






9EF 

REF 


A2 

3 


LAST 

LAST 



536 

635 

63F 

637 

438 

15T6 


003935 
00393T REF 
THB'TTO 
003943 REF 
003^45 REF 
'OO’iE^T'REF 

003949 R EF 
003951 REF 


y 

7 

43 


LAST 
LAST 
T 


LAST 

LAST 


63 6 
63 6 
5TT 

63T 


00396 

00397 
0104Tr^ 
004iT5' 


EEF 

REF 

TTEF 

RFF 


154 

1 

“37 

17 


LAST 547 


LAST ^635^ 
LAST^ 63 7 


35 ,3 ITS 
»3336 


O0O4T0 
1 4106 0 


LES 

TCP — 


XOELVFLT 

GOTQPnOH 


35,3337 

T5.3340 

35.3341 

35.3342 
35^,3343 

"3573344* 
35,3345 
3 573346 
"T5T334T 

3 5^3350 
3 5,3351 
*35,3 352 
3 ^”,3353 
35,3354 


0 5550“ 1 
0002 / 1 


P31 


0 5550 3“ 
00T55 T 
0 6006 1" 

77624 T 
63547 1 
77776 3” 

0 3374 1 
0 3404 T 

0 5560 1 

00045 0 

1 4105 0 


TF 

TC 

■AORTFS 

TC 

ADRES 
TC 

CALL 


P30/P31 
nnWNFL AG 
IJPDAT FLG 

nOWNRLAG 

iTHR MS W 

I N f pkE f 



EXIT 

TC 

TC 

TC 

A03ES 

TCF 


CNT9L1P30 
P ARAM30 
DOWNFLAG 
XDEL VFLG 
GOTOPOnH 


35.3355 

35.3356 
3543357 
35,336 0 


56 002 0 

55*6 64 0 
rr 5546 0 


P30/P31 


XCH 

TS 

TC” 


0 

P30/31RT 
UPFLAG 



0 041 “ 

' R BF ^ 

31 

LA5T 

637 

IT, 53 61 

0 5546 0 

■ T)041'5 

RE F 

s 

LASI 

"5T6 

3 5, 3 3 6 Z 

oom— 0 

0042 

REF 

1 

- 

— ■ 

35,336T 

T3441 0 

0043 

REF 

151 

LAST 

63 5 

35,3364 

0 466? I 

0G44" “ 

REF 

10 

LAST 

63 5 

9 5*33 65 

21 057 ‘0 

0045 

REF 

3 ^ 

LAST 

637^ 

3 5,3 366 

1 4r06“0 

0046 7 

REF 

7 

LAST 

637 

35,3367 

0 1T64 1 

0047 

L F 

3 

LAST 

637 

35 ,3TTTr 

1 3 i 6 1 1 

004^ 

"REF 

38 

LAST 

635 

35 ,3371 

0 5412 0 

0049 





35.'!372 

00014 1 

“0050 

RF.F 

f b 

“LTTSl 
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J S , ^ i (5 

'~ a 5 217 0 


ADRES~ UPOATFLG 
TC - UPFLAG 

ADRES r 

CAF 
TC 


V06N33 
BAf4KC ALL 



t;SER*S P A GF NO . 


FT S3 



BIT H FL452? 


TCt^ 

TC 


TC 

ncT 

TC- 


GOTOPOOH - 
P30/31 RT 
P307P31 -fE 
PplASCHNG 
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EN D OF J D B 


SET TJPOATFLG BTT 7 FCAG 1 


RESET NDPMSW 


3IT 10 FLAG 7 


BIT 


FLAG 2 


SET UPOATFLG BIT 7 FLAG 1 


SET TR ACK F LG 
T OF I 



T-T 


0059 
00502 

0051 

0052 
00*33 

0054 

0055 
005 5 

- 0 06 r 



0067 5 

0065 
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0070 

TT071 

0072 


PPF 
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RFF 

KEF 



“REF 

■RFF 
RTF 
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9 F F 
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TEE 

“CFF 


1 
2 
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I 
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LAST 

LAST 
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490 

“537 

631 
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53T 

63T 


LAST -637 
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LAST 637 


,3374 
35,33/5 
35, 3376 
35 , 33 77 
35^3-400 
3 5, 3 40T 
7^403 



35,3 
35,3404 
5 , 340 5 
35 ,3406 
35rf3407 

•35 ,3410 

35.341 1 

35 . 3412 


36 '002 n 

55*127 0 
3 4620 T 

0 4662 1 
20720 fr 

1 4106 <y 
0“ 112? 1 
!— 5576 1 
56 00 TO 
55* 664 — (T 
5* 34 42 IT 

0 466 2- T 
20 72 0 0 

0-41T)6 1 

1 3414 I 
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TT 
TS 
CAF 
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CAOP 
TC F 



c — 

P30/RET 
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B AN KC Att 

GOFLASH 

GnTlROOH 

P MO/RET 

CNTMUP30 +2 
0 

P 2 0/31RT 

V06N4? - 

B ANKCALL 
GOftA S H ” 
GOTOPrlOU 
REFTEST 


ON TF*^'MIMAT[0M GOTWOOH 
ON PP^TEEfF GO 00 RFFTEST 



L ^ '^30\^37 ■ - - V,-- trSFF*S PAGF NH. 4 — ^7 $3 


~ 0073 RFF 3 LAST 637 33,3413 1 3406 1 TCF PARAMTCT +2 — " — 

0074 RFF 22 LAST 564 35,3414 3 5003 1 PFFTE 5 T CAF BTTIT 

REF 38 last “5^8 3571415 7“T50 /7 0 TOTTK ST A IE +3 RbFSMFLA(; — = — — 

0076 3 5,3416 0 0006 1 — EXT^^JO 

0077 REF 1 35,^417 7L~34?T 1 B 7 F NDTSET RFFSWFLAG -fT • THEN BRANCH TO NOTSET 

0078 IS'ST “ "53T 55,3420 IT^OTTST IX TK T PR EI — 

0070 '■ 35,3421 41575 0 VLOAD PUSH 

0030 RFF 6 LAST 52^ 35,3422 03645 0 OELVSTN 

“008 1 3 5,342 3 776 2 4 1 — CATt — — ^ — — 

0082 3 t'ATr 403 3T,3r424 10654 1 — - GFT+MOA 

OOB4 ■ — — 35,3425 77650 1 GITTO 

~lJUW5r REF 1 J5T3426 73433 1 F LASHMGA — — — 

~0086 ■ 3^,3427 O 0006 1 NOTSET ^XTEND — 

00B7 REF 1 =— 33,3430 4 3440 0 DCS MARSOP 

“00 S 8 RTF 0 LAS I 633 3 5 ,3441 53 *” 6 2 6 0 DXCH THG3 -i-MGAf -t-MGAFl C ONTA t NS t -00 0 01 1 

~00B0 REF 127 LAST 638 — ^35,3432 0 6005 1 TC TTITPRFT — — 

0090 35,3433 77624 1 FLASHMGA CALL — ^ — 

~ 0091'^ RTF r 35,3434 73764 “O — C TT S PnGA — — 

0092 35,3 43 5 77776 1 ^ *- X I T 

00935 PEF 4 LAST 637 " 35,3436 0 1664 1 — TC P30/31RT — 

uOy 7 ~ ^ 35,343 7“ 00000 1 MARSHP “TrCT tT OOOO (000 0 0) — f 16440 ) f^OOOQl) — 

00^3 ^ — 35,T^44 0 — ^51:00“0 ncT = 35100 

A009"5 ^ - - ( .01 ) OFGREFS IN THE LOW OROER RFGISTF 

0100 35T344T 0X441 1 V06N33 VTT 0633 

0102 35,3442 ■ 01^52 0 V06N42 VN 0642 

0103 35,3443 04043 t V16N35 VN 1635 
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0525 

0525 

05ZT 

052 3 


RFF 

RFF 

RTF 

9 cp 


3 

31 

F 


I6ST 

LAST 

LAST 

LAST 

LAST 

TTTST 


~55Tr 

652 

652 


271 

542 

5TTT 


RFF 


,32 '42 

96.3343 

04.3344 

04, *^2 4 5 
94,3546 
94T234T 

0^,3350 

04.3351 

04. 3352 

04 .3353 

04.3354 
1 ) 4 . 3 3 5 5 
04,3256 
0 4.3357 
9^T3360 

v04,33 61 
04.3362 


0530" 

0531 

0532 
0333~ 

0534 

0535 

0536 " 

05365 

0537 
0503"" 
053T“ 
0 5 4 0 ' ~ 



p r:p 

^ PF 


2 

4 


LAST 

LAST 


1 29 
653 


RFF 

14 

LAST 

555 


2 

LAST 

■559 

REF 

y 

LAST 

477 

RFF 

3 

LAST 

49H 


04,3364 

04.2365 

T473T66 

04,3367 

04.3379 

94;i3Tl 

9 4,3372 
04.33 73 
04, 3374 
94 ,3 3 '^5 

n4,R3T6 


0 "466r2' 1 
20720 0 
ir4T96 1 
9 3347 1 
0 3341 1 
3 4614 0 

0 4575 1 
0 6005 1 
“77743 'I 

02637 1 
"37413 9 
10712 1 

77624 1 
76645 1 
■77291 1 
90001 9 
03512 1 
'55315 0 

03756 0 
02637 1 
" 65325 0 


CADR 
TC 

TC 

TC 

CAf 


HANKCALL 

GOFLASH 

OUTOFnrjR 


-3 

796AI37 

VNPOOH 

TNTPRTT 


TC 
TC 

TTcrnm 

TCSI 
STCALL TTG 
SFLECTWU 


P32/PT23 CALL 


SETPO 


PTfW 


P99L 


AHVAMC E 

VL 0 A D 

an 

VPASSl 


RPASSl 

TCSI 

Pont 


036 63" 
136393 
415T2 1 

77634- 1 
72705 0 
7767'4 r 
45347 1 
77634 1 


TTPI 

2PTSC 


Tt2“ 

CALL 


INT T^^T 


CTTtr 


PASSIVE 


CALL 


9541 

“RTF 

“3 



04,3377 - 

04~. 2 409 

" 15704 0 



0542 

. 

7 

LAST 

529 

43014 0 

P32/^72C 

BON 

0543 

REF 

04 , 349 1 

01311 0 



0544 

REF "" 

1 



9443497 

314 04 3 



0545 

REF 

19 

LASTT 

64 8 

04 • 3403 

00470 1 



0546 



- _ — 


—94,3404 

531 45 0 

P?'2/P720 

OLGAD 

0547"' 

RET 

2 

L3 S T“ 

333“ 

U4 , 3 40 5 

02 547 0~ 



05475 

REF 

1 

- - - 


0 4, '3 4 06 

30002 0 

-- 


054 76 

REF 

1 



14,2000 

- 

-- 

SETLOC 


SET 

FINALFLG 

P 3 2 / T72 9 

UPOATFLG 

GQTfl 



P32/P72F 


335437 
054 1 

0549 

0550 


3193 




EF 


LAST 653 


TTEF 


14* c. 

34. '^902 
I F, '3 9 03 
34T 


4 


0553" 

0552 - 

0553 - 

05539 



LAST 653 


TFF 

RFF 

RTF 


trrsT 


33 


1 

2 


LAST —652 


05537 

0554 
0 55 5 


* ** C! 


LAST 65 r 


1473993 
1 4 ,39tl 5 
34.700 
14,3910 
94,2909 
04^2497 
nx,,3yL^7 
t)4 , 9 


2547 9 
51025 1 
15652 — T 
-30993 0 
53145~9 
036 5 6 1 
1140 7 1 


— R/m x 

P32/P72F STORE 111012 



OLOAO 


P32/072E 

G^TO 


/ I ( 

P3?/P7?P 


sf TL(x; csi /' 

BftMK 




1 


-> 


P3P/V72F STt3PF 

DSU - 


T 


RPt 


♦ »Jf» ,V. 


lli I i ^ 


gap: assemble REVTSIUN 035 nr- AsC Pf^QGiUM COMA'RUHE BY 'NASA 2021 


32 -T 33 »“P 7 P-P 73 


055o 

REF 

9 

LAST 

653 

0 4 r 34Tr’’ 

"X56 5 7 T 


6 0MTN 

0557 

REF 

2 

LAST 

653 

04,34X2 

11407 X 


P32/P7^F 






04,3413 

77 776 1 

EXIT 


0559 

REF 

T 



04, 3414 

3 4660 0 

CAE 

V06N75 ■ 

0560 

REF 

o 

LAST 

653 

04,34T5“ 

0 4575 1 

TC 

VNRnoH 

0361 

REF 131 

■Lsvr" 

653 

0 4 » 3416 

D 60o6 1 

TT 

INIPPbl 


0562 

0563 



REF 


1 

T 


LAST ITl 


04, 

04 .3 42 0 

TFrn 


0567 

05671 


056 B 



6 54 


nroT 

LAST ~r7r 


04 * 347'7 
04r5423 
04, 14 24 

04,34^5 


45 X 75 0 
3J2445 0 
7345^ 0 

26445 0 
0^4 5 3 1 
■76541 0 


03667 0 


VXOArrr CALX 


OELVEETl 

S3 2/ 33, 


STOVt 


5TDVL 


DELVXETl 
RACr2 — 
RACTl 



0569 

04,3426 

451 70 

0 

AXT, 1 

CALL 


04 , 3 42 t 

01577 “ 

■o 



“5657 

31572 3 ^X 1 =^ ^ 

04,343 D 

76625 

1 


OISOVL VC 

a 573 r“ 

(T 4 t 3 431 

77745 

1 

n L 0 A 0 



05 7T1 FTEF'—l^^ ETfSr 653 04 , 3437 03663 1 TTPX 


05732 REF~~1 04,3433 36641 I STCALl TTPTO 


0574 “ PEE 

5 LAST 529 

04,3434 

T3002 

1 


VN1645 

U575 


rr4 , 343 5 

776 50 

X 

t^TTTO 


0575 R cX 

1 

04 , ^43o 

t tx 5 6 

1 


P32/P723 


* 
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1 

P:^2-P3'i, P7 2-P73 

aSER»S PAGE NH. 7 

P4 S3 


COMSTAMT DELTA HETGI-rr iCDHT PROGRTTMS ( P33 AND P73 ) 



P 1 01 0 







^frniri 

MUD MH ^ CITCr StCTt^’N - P32-P3f>, P72-P75 



R 1 . 0 1 2 
P1013 

MOD BY VTHTTt-.P DATE lJUfT^6T 



0 ^jp PDS E 




(1) TO CALCULATF PAPAMFrERS AFSOCTATFr) WTTH THE CONSTANT OtlTA 
RIOIE ALTITUDE ;»IANEUV^n tCDHI. 


RlOl^ ^ (2) TO CALCULATE~rHESE PARAMETERS BAIiEO UPON MANEUVER DATA 

■“R10T7 APPROVED ATID KEYED TMTO TUe tlSKY 3Y THE ASTRONAUT. 


PIOIE (3) TO DISPLAY m THE ASTPOMAUT AND THE OROUNO DEPENDENT VARIABLES 

RlOl'" ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE 

SaUTD" AS fPUNAU I /UPUUNU. 


■’1021 (A) Tn STORE THE CDH TARGET PARA"METERS FOR USE BY THE DESIRED 

^10Z7 " THRHSriNG PHUU-fAM'; 


P1023 ASSUMPTIONS 


R102^ (1) THIS PROGRAM TE BAS ED URON“ PREVIOUS COMPLETION OF the 

R 1025 ' CO^En.TPTTr El'CniETlCE miTTATTDN tCSI) PROGRAM (P32/P72). 

R 1D?5 THERFDR”- 


■’1027 (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 

’1028' BET W E EN T HE AC T I V E A ND 'P ASS I V E V E H I CLE S WAS S E L E C TE D TO B 

R102'’ A PRESCRIBED AN GLE ( C ) -ITIOW IN STORAGF) FROM THF 

R1030 H0RI70NT At PLANE DEF INED'BT THE ACTIVE VEHICLE POSITION. 


RTOBl (B) THE BETWEEN ESI IGNITIDN AND CDH IGNITTflN WAS 

COMPUTED TD BE GREATER THAN 10 MINUTES. 


RT03G (C) THE TIME BETWEEN COM IGNITION AND TPI IGNITION WAS 

’’103^ COMPUTED TO BE GREATPR THAN 10 MINUTES. 


R1035 (0) THE VARIATION OF THF ALTITUDE DIFFERENCE BETWEEN THE 

R1036 ORBITS WAS MINMlZcD. 


R1037 <£) CSf RURNWAB DEFINED SUCH THAT THF IMPULSIVE DELTA V WAS 

R,1033 IN THE-HLOEI Z'TNTAL PLANE DEFINED BY AETIVF VEHICl.E 


I’lOBRB -EDSITION -AT C-SI IGNITION. 


RTDT9 TTT — rNE~PGp T CENTER ALTTTITDES OF THE ORBITS FOLLOWING CSI AND 

RIOAO CDH WERE- GT'MPUTEO TO BE GtlE ATER THAN 35,000 ET FDR LUNAR 

RlOAl — ^ ORfriT OR- *T5— NM Ff'R -EABTM WBtT. 


”10^2 (G) THE C-Sr AND COH MANp-ilVEoS WERE ASSUMED TO RP PARALLEL TO 

R1043 IMP— PtANE—or THE PASSIVE VEHICL E- O^B I T . HOWEVER, CREW 


GADl ASSEMf^LF PFVISfON 055 UP AG 



T f: )M4NCHF BY NASTT ZOi?l 1 1 3-OS 1 


rcrrz5“ 5 PR . — rrwOT — frouble , 043 — P7rCT = — ms 


^ 1044 
R 1045 


R1046 

R1047 


R 1 04'5‘ 
R 

TroTa 

R1051 


^ 1 TT 5 T 

R 1 OST 
R1054 
RIO 55 
R1056 
R105T 
R 1T55R 
R 1059 


P 3 2 - P 33 ,“? 12- P 73 


MODIFTCATTOrr HF DEITA V (LV) COMPONENTS VAY HAVE RFSULTEO 
ni AN nUT-uF-PLA71F HANEUVFR. 


(2) 5TATF VECTOR UP^ATFS“3Y P2 7 ARE DTEALtOWED OURINC AUTOHATtC 
STATE VECTOR OPOAT'TNG T'^TTTATED BY PZO C SFE ASSUYPTION 41. 


( 3 ) 


CQMPUTFD VAPTA5LFS hay FF TTHREO FOP tATFP VERIFICATION BY 
THE GROHNn. THESF STORAGE CAPABT L I TES ARE NORMALLY LIMITED 
ONLY I 0 TRF"PAR AMF I bKS FOR ONE TH R U ST ING MAN E UV E R AT 

FOR COTICFNTRTC“FL TGHT PL ATI HATrEUVER SEQUENCES 


r 4 T 


THE RERl)F/VUUS KAUAF M AY OR MAY NO | BE USED I D U PD ATF 'T H E LM 
OR CSTT STATE VECTORS FOir THIS GRAM. IF RADAR USE“TS 
DESIRED THE RADAR WAS TURNEtT ON AND LOCKED ON THE CSM BY 

'-’HEVIUU5 SFL'^CTIUN UF PPG. P' A O AR S IG H TI NG MA R KS W I LL B E MAD E 

AUTOMATTCALLY approximately once a MINUTE WHEN ENABLED BY THF 
TRACK AND UPDATE RL AGS (SEE PRO). THE RFNOEiVOUS TRACKING 
"HATK CnUNTFR T5~7ERnFP BY THE S E LEC TI ON ' O F P 20 AN D TFTFR E A CH 
THRUSTING MANeJVER. ^ 


USER *8 ©AGE NO. 




E4 S3 


RTOTD 


R 1 D 5 1 


R 1062 
R1063 
PT 064 
R1063 


RrO '66 


171067 
R 1 053 


TTT THT TTS“NEFD NOT BE ON TO C 



iS) THE OPERAT rON-tTF-r HE ^R^TGR AM-UT I L I ?ES THE FOLLOWING FLAGS - 


ACTIVR VEGTCtE FLAG - 0F-STGI‘'IATES THE VEHICLE WHICH IS 
doing RENOETVnuS THRUSTING MANEUVERS TO THE PROGRAM WHICH 

CArCTTL'ATFS'THE MANEUVER TD^R"AHETFR 5. SFT 

FAtHTrFl^iDFTVDlJS PRE-TtfRUSTI NG PROGRAM. ' 



FINAL FLAG - SFLFCTS FINAL 
COMPL E T ED THE FINAL MANEUVER COMPUTATION AND DISPLAY 
CYCLE. - — ~ — 


R 1 06 P 
PI 070 

PTCTT 
P lOPP 

■RIO^T TT) TT~T S NO RMATL T RPQU T REO T HA T T HE I SS B E O N FOR" f HOU R PRIOR TO 

R1074 A THRUSTING MANEUVER.' “ " 


R 11)75 ( B) T H I S P TOGRAM T S STL F CTF D BY THF ASTRtmAU T B Y' DSKY - ENTRY - 


"R1076 P33 IE this VEHICLE IS ACTIVE VEHICLE. 


■ in077 -- PT^ IF TKI-S VEHICt:E-TS PASSIVE VEHICLE. 


RITT'D — roptn 


Rim (I) TlPtO TIM! TH'" TPI maneuver - SAVED FROM -P3?/ P72 


EXTER^’AL 

STEERING 

THRUSTING 

t^ROGRAM. 


DELTA V STEERING FLAG 
00 I RED Etm execution 
“ PR n GRAN" SFt^t 


DESIGNATES THF TYPE Of 
OF THIS MAfTEUVER BY THE 

s - 



A^SeMBLF 05S PROGP^AM CMMANCH!^ T-Y f^^S^'~2l)?li'\3~Qbl 


ttjttb 


I 


"^3 2^ 33“P 72 - 1 


R 111? 
7? 1113 


( 2 T “ FL HV 
l TCDH 


D75TRTn- l:nS^ nT~TPI 

TTMP iTF THF COH '^ANrifVFR 


R113D 

OUTPUT 

— 

p rnnr ‘ 

(T1 

TRKMKXN'I 

R 1 1 32 

(2) 

TTOGO 

P 11 T3 

( 3> 

+MGA 

V 1 1 34 

(41 

0 I E FALL 

RL13 5 

( 5) 

T2TnT3 

R 113 6 

( 6 ) 

NOMTPl 

FTirST" 

( T ) 

DEL VL VL 


TI^E^ GO 
MTDDLF GIMRAL ANGIF 
U^-LIA ACTITUDF AT C DH 


nFLTA TI'^F FR3M CHH TH COMPUTED TPT^ — 

DFITA TTMP FRTIM MTlMtNAl TP I TO-COMPUTED TP I 
OEITA VtLUCITY AT' XUH - LOCAL VERTICAL C[ 


R1139 

R 1 1391 
R 1 1 3F2 ■ 
3111393” 
R II 39 A 
R 1139 5 
■371X39”^ 
R11^T)”3 


OOWNL TMK 


{ 1 ) Tcorr 

(2) TTPT 
TIVOTTG 

(4) 0ELVEFT2 

(5) niFFALT 



TIME OF THE COH MANEUVFP 

TIME OF THE TPT MANEtiVER 

3TF- THE CTTH ^UTNEOVER — ^ 

nLl^A VELOCITY AT COH - REFEPENCF CnOPDINATES 
DELTA ALTITUDE AT COH 

DESITTFO LOS ANGLE AT TP I 


OMMUNTCATTOM TO THROGTTHG PROGRAMS' 


R 1 r^ITT 
R 1140 A 
P11405 
P 1 1 WC 
R 11407 
R114DR 
R 11409 

ini 41" 


T 1 ) T T G ■ 

(2) RTTG 


T 3T ITTITJ 


T1 ME iJF THE”CnH MAHEUVEP 

^MISITTON OF^ACTIVE VEHICLE AT CDH - BEFORE ”01 AT ION 
INTO PLAME np PA5S1VF VFHICLF 
VELGCTTY nF“ACTTVF VEH ICL F ” AT~XOH - 



■ ■ TLITO PtAATF OF-o/vSSTVE VEHICLE 

(4) OFlVSTTr OFLTA VELOCITY AT COH - REFERENCE 
15) DbLVSAB 'TTrGOTTUDE OF DELTA VELOCITY 


COORDIHATES 


161 XOPLVFLG GET fO INDICATE EXTERNAL 


A V VG COt^PttTATION 


El 130 

R 1151 

Rn'G2~ 

R 11525 
R1153 
R 115 A‘ 

P 1 155 
Rll'*)6- 


K 1157 


SUBROUTINES USF 0 


AV^LftOS 

7n7FLAGT>“ 

PPOFLGON 

VNPOOH 


p 1 15 

P 1 1 59 
■RTTTrrr 

R1151 
RllGP 
R 1 163 

R 1 1 A 
11166 


ADVANCE 
CDHMVI 
T N T I Af T •» P 

ACT TATE 

P ASSIV'^ 


S33/34. 1 

TO-APAT- 



G^TOPOt-AIT 
S 32 / 33 . 1 



TTAPI ASSEMr^LE ^^FVlSfOM 05^. OF Ar,C PRO'JTOM " CUMA^ICHE ■■■BY"'NA S A 2(J711i^-05l 


lUt28 APK. TTTTO^ FROUBLE .043 



P37-P83, P72-^T3 


USFR^S PAGE MO. 10 


E4 S3 


R 1 1 67 


VN1645 


14-<T?7 


isoo 


itef r 


COUNI 3T7T3T73 


REF 



ISQo 
1507 

15081 
150 8? 

TSITT- 


""EE 


7 

T 

7 

7 

“T 

10 

137 


LAST 652 


LAST 

LAST 


652 
6 52 


REF 

»EF 

WF 

TEF 

REF 


2 

16 


LTTST 

LAST 

LAST 

LAST 

TTST 


65^ 

654 


RRF' 



32 

6 


LAST 


654 

554 

2TT 

653 

653 


LAST 


-553 


TO LAS! 563 


04,343T 
04 t 3440 

04 I 3442 

U 4 1 3443 

Tr4 1 36 44“ 
04,3445 
04 ; 3 446 

04,3447 

04.3450 

04. 3451 

TT4,345 2 
04,3453 

1X4, - 1-4 54 - 

04, 3455 
0 4 , 3 4 5 6 

0 4 ♦ 3 4'5 T 

04. ,3460 
"06V3661 
04 ,3462 


0 

XT 


46:2T rr 

3462~ 0 



0 46 42 0 
0 4647 0 
T"4'6"5T I 

04635 1 
0 6006 1 
77745 


r 

0 

1 


03641 
17663 
tr? 

37413 
1071? 
T76'24 1 
76645 1 
77624 1 
13230 1 


0 

I 


? 

T 


LAST 654 


LAST 


04.3463 

04.3464 
' 04,3465 

04,3466 

408 O 4 ,3 4 67 


157 5 


1 

i 

N 

0 * 

1 

1 

1 

RFF 

2 

L AST 

101 

1527^ 





1528 

REF 

2 

LAST 

101 — 

152^ 

7 FF 

2 

LAST 

65 3 

is ^ 4 ) 




“1 

1531 

OEF 

4 

LAST 

653 

]^^32 





1533 

REF 

--5— 

LAST 

‘65 2 

15-34 

I'.EF ■ 

8 

LAST 

556 

1535 

pff 

7 

LAST 

‘*79 


0^ ,34'7n 
0 4,3 4Tl 
04,3472 

Om ,3473 

04,3474 

OA , ^475 
04,347r6 
04, 34 7 7 
04,3500 


77^01“3r 

00001 0 ^ 

03546 0 

45115 0 
02453 1 
63671 1' 

77624 1 
4533 7 tr 
77201 1 

00001 0 
02617 0 
45115 0 


02625 

636/1 



1 

1 

t” 

I 

0 

1 “ 


1536 


15 3^ 
1*^30- 


15 40 
1541 
T5Ar2 

13-43 

1544 


“TEF 

REF 

■RFF 

RE F 

“^n=T 


LAST 464 


1 

TTT 


LAS T 66T 


4 

XSS 


L AST 



2 ^ F 
7FF 


?0 

41 


LAST 

LAST 


662 

-6Tr 

6-53 

653 


04.3502 

04.3503 
'OF', 35 04 
04 , 3505 
-fV+ , 3 5 06- 

ttxt 

i 3~3 l 0 
0 4,351 I 
O F , - 3512 
04,351 3 
04 , L5i;“4 


45247 
43145 
1 7 565 
03461 1 

363 64 0 
7 2 ? 16 1 
77454 1 
24000 1 

t 


-20770 0 
0 41'>^ I 


TC 

rc 

P73 TC 

P33/P73A TC 



AVFLAGAi 

R337FT3A- 

A VFL A GR 
P20FLGON 

V06M13 

VNPnOH 

TNTRRFT 


T C DH 


TJLOAD 


STOOL 



TTPm 
TTPF 
TCDH 

STCALL TIG 

SELECT Mi l 
CALL 


advance 


CALL 



SFTPD 


o 


OVL 


VLOAO 

00 

YA CT T 

CALL 

PACT? 


CALL 


rptr 


POVL 


ACTIVE 

- VL O A O 

00 

VPASS2 

CALL 

RPASS? 
IM-T fNT3P 


CAirt 


OLOAO 


PASSIVE 

SET 


ITSVfICH 
STGALL NOMTPI 
— S53 -7 3 4 1 


5 7 E 


Ttr 


T 
CAF 

-TO— 


C AOR 
TC 


EXIT 

P33/P73C 
ALARM 

611 - 

V05N05 

BANKCAL -t: 

GnFLFSH- 

GOTOonoH 
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USER'S PAGE NO. 11 









1545 



T)4^.3 313 

0 T5T 7^ t 

TC +2 



134 S 

p 2 

LftST "SSe 

0'^",^5^16 

0 3 44? 0 

TC P33/P73A 



1 547 

REP 133 

Last 638 

04 » 33 1 r 

0 6006 1 

TC INTPREl 



1543 



a 4. 3320 

77745”T 

DLtTAD 



1 5 40 

P^F “6‘ 

LAST 658 — 

“On,T521 

11366 T 

— 7EP0VEC 



1 330 

REP B 

LAST 658 

■ 04, T 522 

363 64 0 

STCALL NON! PI 



13 3 01 

REF 2 

LAST 658 

04.3323 

24000 1 

P33/P73C 



13302 

PEP I 


12,2000 


SETLOC CSI/C0H2 



iT^TTir 



12.2000 


BANK 




1551 



T5 


-I 

^ D 


VTF 

p-EF 


1 


rrsT — sTj 


2 . 7 0 OX) 
T2 ",TTJ0 I 

12. ZOO? 


1 544 

RFF 

70 

LAST 

T53 

12.2003 

1 53 T 





r? t 20 0 4 

1353 

R^F 

9 

LAST 

65': 

1 2,2005 

1339 

RFF 

17 

LAST 

65 8 

1“2, 2006 

1 360 
1561 

kfch 

TF 

L AST 

63 9 

12 , 2007 
12. 2^10 

1562 

PFF 

5 

LAST 

65 B 

12,201 1 

15621 

R EF 

r ' 



ITTTHl. 2 

15622 

15523 

4 F F 

3 

LAST 

653 

04,2000 

04,3524 


43014 0 
Trr7TT~0“ 
74^004 0 

0047a 1 

43345 1 ■ 

02364 1 
03563 1 
03663 1" 

52075 1 
02635 or 
115-24 I' 


P33yP73C BOK 


P33/P73D DLOAO 


3TDR5 

DSU 


1563 

1354 

15S5~ 

1566 

1537 

156 3 

156^ 

13^0 

1571 

137? 

1573 

1 574 


R cF 


3 

7 



LAST 
TTST 

LAST 

~4 LAST 

19 LAST 


4 


PIEF 




rirsT 


LAST 


1 3 B 0 

1 3 'll 

RFP 

3 

LAST 

15 14 

y Fp 

-> 

LAST 

^ ..A. -dM. 

1535 

RFF 

€§ 

LAST 

1359 

y c F 

h 

LAST 

IS'LO 


- 



13 75 

1 3 7S 1 

PEF 

REF 

1 

6 

LAST 

659 

15753 
1575 5 
15T6 

REF 

A 

L A ST 

-6'3 3 





T5T7 

k EF 

2 

L A ST 

b3 4 

15 '48-“^ 

F EF - 

11“ 

LAST 

7)5 8 

15Tr 

^EF 

1^4 

LAST 

659 



51023 

15652 


333 6 63 1 
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000 01 O' 

00047 I 

'^7657 0 

zoBtn: 1 

1 7464 r 

00001 0 
33465* TT 
51545 I 
034 6^- I 
45206 1 

15677 0 
71240 1 
20370 1 

50025 0 
15 7133 1 
20 3 63 0 


NPWTH 


OLIO A 0 


SIGN 


15703 1 
tn' 464 1 
03464 1 

1 


8TnRE 

OCOMP 


STOOL 


trtOAO 


600V 


SR 


STOOL 


OLOAO 


P USH 


OSii 



• 1 r3A 

NEWTN 

S32,1F3R 

MEWTN 

SIGN* 

F I EPSD P 
040 — 


GAMPPEV 

OELOV 

OAD 

OELVCSI 

DELVCST 

000 


S32. If 3B 
S32. 1 F3A 


G~ A 5FRE V 
CSI /P2 “ 
NORH- 
7140 


XSU,1 


X2 



OflDV 

000 

UA MR REV 

AOS 

OELOV 

TISU — 

E^S ILUl 
OLOAO — 


C S T / Silt 


OEL^AXl 


OLOAO SIGN 


CSISTEP 


STHRE 
0 1 3 A O 


OFLMAXl 
o e LOV — 
UFL-UV 
OSU 


“LuotJ 



• — ' • r • ♦V • •• J ‘ 

y ^ * 


* • * . 9 ►' ♦* ^ t' I ' • i • s •• • -.•■*•,•"••.*•. j* _ 

* . ' V' ‘ . 4 * • 7 • ’r ' , ’ , • • - 


^ '* • ■ r«, .-. ;• » ■» ^ . , <» ! 

« ' . v<* •. f '. V ’ 


I '. *! 

’ f 
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FJT28 Apw. rrrw^ — trouble *0^3 — PirrrF — sis 


’^32-P33, P72-P73 


tlSEP^S MH, ^5 


S3 


5 904 ' 
590S 



5907 
5 900 



VAST^ 


^TFF 


3" rars i 


TaT?3D’4 
10,2355 
173, -2 365 

10,2367 

30.2370 

10.2371 


03462“1 

03464 1 
37462 0 

15756 1 
77145 1 
03460 0 


DFLVCST 

05LDV 


C ST /SOL DLOAO 


STCALL DELVCSl 

CSI/Bl 
AXT, 2 ~’ 


P05TCST 


5910 

5911 


-- - — - - — - - 




- ~ 

10 . '>^.72 

1072373 

00007 0 

521 50 1 

2 

L X A , 1 GOT 0 

5912 

2Er 

1 1 

LAST” 

66 6 

”1372374” 

”037 45 1 

irm 

59121 

RFF. 

1 




1 0 , 7375 

636 10 0 

CSr^TETT4 










59123 


r 




3X72000 


SETLOC CSIP'»nrj9 


5912 3 


59 IT 

5915 


RHF 

REF 


1 

5 


LAST 558" 


5917 

5918 
59 1 0~ 
592Xr 
5 921 
5 9 23" 

5923 

5924 


RFF 


LAST 669 


RFF 

REF 


5 926 

5977 

59 ZR 

5929 

5930 
5933 


RF 
RFF 
TTFF 


2 

6 

8 

6 

5 


I A3T 
LAST 

LAST 

LAST 


6T3 


31', 7 6T0' 

31,361 1 
31,3612 
31, 3613' 

31 .3614 

31.3615 
31 1 3636 

, 36 1 7 
,3620“ 



66 9 
66 B 
650 


31 

31 

31 

31 

31 

3T 


OFF 


RFF 


ITrST 450 


LAST 673 


31 

3T 


5937 

5933 

5934 

5935 
5935 
5 937 

5938 
5039 

050 

5^41 

5942 

5043“ 

5944 

5945 
5056“ 

5947 

5948 


REF 

RTF 

RFF 


22 

- 9 - 

5 


LAST 

LAST 

LAST 


669 

673 

659 


31 

31 

31 

33 

31 

31 


,3671- 

,3622 

, 3623 
73624 ' 
362 5 
,3626 
^3627 

,2630 
, 3 63 1 
73632 

,3633 
, 3634 


"50023 

33444 

63642 

71374 

00003 

03477 

50073” 

53464 ^ 
6 

45345 
02635 
0 2637 


0 

0 

1 
T 

1 

0 


COTTTEXTA OSU^ OMO 


“7 XT , 2 


0 

O 

r 


osuo 


P3TMF -2. 1 
SCAT>SnL 
D I n AD 

3 

PDSTCnH 

mn 

•P1«!F1E -7,1 

SCNDSHL 


T 

0 

1 

o 

o 

0 

T 


OLOAD 



TCDH 

TCST 

rrirm 


f j 


635 


rEF 

R EF 


3 

I 


L3ST — 673“ 






RE 


REF 

7 

LAST 

672 

rr-pp 


LAST 

673 

RFF 

4 - 

LAST 

664 

REF 

22 " 

■ LA 5 T 

66 3 

RFF 

4 

LAST 

665 



31 , ^ 

31 ,3637 
31,3 640 

31 ,3641 
31.364 2 
31, 3643 

, 3644 
,3645 
,36 46 

,3647 
,'3650 
73657 “ 


45374 
00004 
"36146 
77040 0 
63642 I 
"00005 1 

-45345 1 

03663 1 
”02 535" 0 

0 3 6 5 6 I 
51025 1 
"35146 1 
1 1400 O 

43014 0 

11316 0 
05743 I 
11316 O' 
71334 0 

03664 0 


AXT ,7 OSU 


4 

6O05FC 

AXT.? 

SCNOSOL 


OLOAO 


DSU 


nsu 

TTPT 

TCDH 

121013 

3 PL 

600SEC 


SCNDSOL BON 


P32/®72C — 
WFf 

— S 3 2 ; 1 F 3 A 


SXA, 7 



, 365 ^ 


'O 



43014 

05660“ 


0 

1 


OlrF 


ALMXIT 
S 32 . 1 F 38 
AL n X I T 
OLOAO 

C S I At P M 
26Rt1 V F CS 

S T ^ 
S 3 ?* IF! 
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USFP'S PAGE NO. 76 


EA S3 


5949 9EF 4 LAST 672 “ 31736r54 (75461 1 

5950' ‘ ”31.3655 43014 0 

5P51 oEp-— s iraST' ”'673 31 , 3'6'5'6 05662 0 

5952 REF H LAST 673 3T.3657 056^63 7 

5953 REF 6 LAST 670^ 31.3660 37764 0 

REF r”‘ TlTTbFT r57T5“D 


F 32 . 1 F 2 
CLEAR CLEAR 

S 32 . 1 F 3 A 
S 32 . 1 F 3 B 

5TCALL LOOPCT 

csi/e 


A S S F MB L 1= R V I ^ I n M'-T) UK ■ A : X "TT? C )(; 


.CUMA^rnt B'Y NASA"70‘21113-0 51 


TD:23 APP. 1,1969 r TOUBLE > 


P37-P33 , T>T7-PT3 


tlSF^'S PAGE NU 


27 


f 4 53 


P6000 


AHVANC! 



Sim 



R6091 



y 


6093 


6100 
“6X01"“ 
6102 
6103 
“FTW“ 
6 10 5 
61055 
“6106" 
6107 
6103 


6lPro 
6110 
6 1 1 1 


6113 

61 14 

61 13“ 
6 1 1 5 

6117 

6113 

6Trx 

6T20 

6121" 

6122 

6123 

6124 

6125 

6126 


PRECSET 

RCTT/rTE" 


REF 


7 rEF“ 

P EF 



REF 


PEF 


33 FAST 

33 LAST 

34 LAST 
““5 C7i"ST 

5 

TT~ 


REF 

REF 

TEF 

REF 

RFF 


4 

3 
TE 

4 
4 


rA ST 
LAST 
LAST 
LltST 
LAST 
LA5T“ 


D iTf: 


REF 

REF 

PEF 

IREF 


> 

31 

6 


TTTST 

LAST 

LAST 




o 


REF 

IREF 

REF 

REF 

■RFF 

XEF 

REF 


10 

33 

5 

2 

“3 

4 

3? 


L A ST 
LAST 
TTTST 

LAST 
LAST 
LA 
LAST 
LAST 


LAST 662 


37, 2000 
3772745 


SETLOC C0HTAG3 
HANK 


753 

658 

641 

53T 

637 

57TT 

66 B 
66 8 
57TJ 

6 68 
66B 


37.2645 

37.2646 

37,2547 
3T, 7 65 0 
37,2651 


712 20 1 ^ AOVA-NrCT ^STO 


OLDAO 


« , 

37,2653 

3777534 

37.2655 

37.2656 
'37 , 2 657 

377256 0 
37 7256 7 


37, '3562 


LAST 675 


F5R 

67 D 
54T 


37 ,2664 
“3T;2665 

■37 , 26 67 


669 
66 8 
657 
64 0 
675 



3777570 

37 . 2671 

37.2672 
37 , 2573 

33,^674 
37,^675 
37 ; Z6T6 

37,7677 

37,2700 


■ 02370 1 

03413 1 
34041 O 
“ 452T5"0 

77214 0 
01067 1 
03562^ 0 
02617 0 
27512 1 
03554 0 



47755 

03517 

7^656 


~03540 

37632 

“T3770 

02453 

26-541 

03546 


■ 0 * 

1 

1 

0” 

0 

1 

rr 

I 

0 

■ 0 “ 


37640 r- 
13220 0 
02533 0“ 
3 750 if 1 
02370 1 


5UBEXTT 

T I G — ^ 

STCALL TOECl 


STORE 

STfJVL 


"PRECSET” 
on 0 A 0 
XOFLVFLG 

VPASS3 

VPASS2 
VP A SSI 
RPAS53 
"HP ASS 2 
RPASSl 
“V7V 


VP A S S 1 


UNTT 
UNIT 

STovr 

PACT3 

STCALL PTIG 



STORE 

STOVL 


R4CT2 

R ACTl 
VACT 3 ~ 
STCAtT VTIG 

— ROTATE 

V AC T 2 


51 

STCALL VACTI 


Simex IT 
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USER’*: PAGE NO 


23 


FA $3 


P6? JO 


P OT ATF 


ATTFT 1T7F 1 ■ !75',"?'a00 SFIL'JC LDHIAG 

62^9 0^,3^220 ^ BANK 


6300- (75,3220 A1406 "0 RIK ATfc PT33FI PUSH 

6301, "■ ~ 06,32Zr 7A2A1 0 ^ n^T VXSC 

6302 PEF 6 LAST 675 05,3222 02611 0 UP! 

61 Ul TTFF 7 CTST 1576 05,322 3 02611 0 U P l 

63D't ■ — U5;3r2A 51362 1 VSf2~ BVStJ 

6305 05,3225 63256 O UNIT POVL 

67015 “ 05,322 6 1A2A6 1 ABVAL 7XSC 

6307 ^ 05,32-27 A3572 0 VSL I RVO 






TTI^ 
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NASA MZl 113-051 
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L ~ 'P32-'’33 . P72-PT? " ' ~ ~ ' USPP’S PACT W. 2*5 PA S3" 

PTOOO^ .... . INTINTNA ^ 

7(Tgg ^TFF I ; 31 , 2')00 SFTL0(, l.UHI4(.i2 — 

7 0^9 " ”3TTT57r2 BANK 


TTOTi 31,3662 55323 3 r N Tl N T 2C PDUL Pmst 


7101 qpp 7 LAST 673 "31,3663 0263-7 1 TCSI 

710? REF 10 LAST ‘ 673 31 , 3564 02 63 5 O TCOH 

■7T03 31 ,3565 4162b 0 TOTTi: PTTSFI 

7104 SPF 3 LAST 475 31 ,3-666 -33107 1 -“-TWOPI 

7135 - ^l ;36-67 77650 “T GnTO 

7T05 RTF 5 rXST oFO 3TT3F7Tf i'? lOb 0 T N T I N T — 

7107- -31,3T>71 6-5375-0 TNTTNT3P POOL POOt 

~710B RFF 11 LAST 677 31.3672 02 63b 0 TCDH 

( 100 RFF 23 LA’S! 673 31 , 3673 03663 1 TTPl 

7110 51^3674 4lb?6 0 POOL PUSH 

7111 REF 23 LAST "673 31,7675 15335 0 ZEPOVFCS 

7117 3173676" 77650 1 GTTm 

7113 '’EF 6 LAST 677 31,3677 -72705-0 - INTINT — 




* 


% 


G“5PT 



U5'5 nr CUMANCHb ' "FY NASA ^(J^iLli-Ubi 


P32-P^3, P72-P73 


P7400 


S32/33.1 


VT^(5 


R7^-31 



S32/33 .X 


74 9 3 

7419 


R 


LAST 663 


36,?noo 
*3457 


750T) ~ 

7500 1 '^ FF 


CAST 675 



7600? 
7500 4 


REF 


last 654 


35*3457 
35 *3460 
35* 3461 

35,-1462 

35,3463 


"7501 ' 




36*3464 

7502 

REF ? 

LAST 

662“ 

35*3465 

7503 




35,3466 

7504 

REF 1 3 

LAST 

662 

35* 3467 

7505 




35*3470 


75051 

75W 


“TT 


ET^ u A:51 B4T) 


35*3 471 
35 43 4 7 2 


07 


750? 

T5ir7 

75X0 


TEF "^3 “L AtST 


34 LAST 67B 


35 , 3 473 
55434T4 
35,3575 
?5 *3476 


76trzo 

023 70 I 
"0X5 ZI 0 
776?4 1 
76625 1 
77624 1 

2 6 23 r XT 
61375 I 
03405 0 

00001 0 
77772 0 
03646 0 

51400 1 

“27554 '0 
'7 7 650 1 


02370 1 


SFTLOC CSI/COH 
3ANK 


I $ 32/ 3341 ST0 


V0 


AXT*1 
SUB LX I T 
0651 


CALL 


01 SDVLVC 


CAT L 


VLOAO 


S32/33.X 

VXM 

OFLVLVC 

on 


VSLl 


RUSH 
S TO V 1 
GOTO 


OF LVSTN 
ABVAL 
OF t V S A B 


S UBR X I T 
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^32-P33, P72-PT3 



789 .^ — 

“PIT" 

7 S 3 ? ' 

7900 

'7901 

— 

7302 

^EF 

7003 ' ' 


790 A 

7905 

REF 

TO 0 h 


79 U 7 

R EF 

7907 



S32733.X 


T 


9 


-ytTTTw 

“79X0 


LAST 676 


ir LAST 675 


LAST 6T^ 


TTTzuun 

13,2231 


13, 2-231 

13,7233 

TT;7?3A 

13 ,273 5 
13,7276 
13,2237 

T3,27 4rr 
13, 27 A 1 
1 3 , 22 4 2 
,72 A3 


5!^ HOC COHTAGS 


77201 1 

oaaoT 0 

D26I1 0 
632 /6 1 

02 5 AT 0 
37A56 1 
A72 06 0 


332/3 3.x SETPn 


VCUTP" 


0261 1 0“ 
77777 0 
00001 0 
77616 0 


UN T T 
PUSH 

VSLl 

S TO RE 


VLOAD 

6D 

UPl 

PDVL 

R AC T 1 

vroMP 

vrv — 


utr 
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P 8000 


P3;?-P33 . P72-P73 


USER'S PAGE NO* 32 


rOHMVR 


F4 S3 


R 80 3 0 




R8031 

R“RTrS 2 

R80S3 


VFCSHIFT 



5HTFTR1 


-rtf 2 LAS I oTTJ 05,709a' SETLOC CDHTAG 

B099 TrS,~T730 RANK — 


'3100 

8101 

8102 


FTTF+ 

81 05 
BTOB 
8107 
8103 

8109 

8 110 
8111 
8TTZ 
8113 
8 1 1 A 
'8X18 

3115 

8117 


ZT3TT 


/ 



tr 5 

“08 

TTS 
0 5 


.8748 
,32 44 

,3245 

,3246 


REF 


LAST 68tX 


811H 

REF 

“TO" 

— LAST 

”670“ 

8119 





8120 

RFF 

9 

LAST 

66 T 

8171 

'^TF 

7 

LAST 

680 

8122 

— — 

- - - ■ 

- - ' - — — 

■ - 

H\23 


5 

LAST 

675 

8T2''V 

'9 t f“ 

3 

LAST ■ 

66 7 

8125 

REF 

12 

LAST 

6S7 

81 26 

_ ^ 




81 27 

'-fl 

6 

LA“ST^ 

667 


R t F 

8 

L AST 

667 

8129 

RFf 

7 

last 

66 7 


■or 

05 
0 5 
1X5 

85 
05 

trs 

05 
05, 


,375 0 
,3257 
, 3252 

r3 25 3 
, 32 5 4 
, 32 55 


65316 O- 
73 755 
45302 I 

72566 1 
57315 1 
77635 1 
02675 1 
65741 0 


02611 0 

555 65 0 
51045 1 
07625 1 


05 

05 


, r25 6 
325 7 
, 3 260 
, 3261 
,3262 
,3263 


451 15 
026 17 

■t 


, 37 5 4 

c. 


0*^ 

05 
~tT5 V 3 265 


,3 26:3 


RTF ‘7? LAO T 639 


8132 

8133 

8 1 3 4 
6135 
8T35 

51?^ 

8133 


05 

05 

05 


,5767 
,^77 0 
73277 


0 
O 

26746 0 
77614 1 
03665 1 
36657 0 
24743 0 
5375 4 1 
03 7/'-6 1 
57576 1 


00 02 3 0 


O 


, :> c 


'>FF 


3 LA ST 6 3 0 05 , 32 7 3 

73275 
^-37 7 5 
V 3276 


75451r-ir 

O 5545~0 


05 

05 



57576 1 






O'; ;' 37 '30 ■ 

77220 1 

COHMVR STO — 

^ F p 

35 

LAST 

67 8 

05,323T 

02370 1 


RFF 

7 

lAST 

67 6 

05,3232 

02453 1 

' - — 





0573733 

“53405“ O 

PUSH 

RTF“ 

1 



0 ^ f 3 2 3 

2 ^546 0 

STOVL 

REF 

5 

LAST 

o7 5 

05,32 16 

02 62 5 1 






05, 3216 

50255 ■■ 0 

UN I T 

RFT 

2 

LAST 

680 

05,3237 

03546 0 






05,3240 

72406 0 

PUSH 

“TTEF 

7 

L AST 

554 

05, 3241 

T6734 0 

STOOL 


DSQ 


STr2“ 

SORT 

POVL 

v x v 


HOT 


S TGN 
STOVL 


POVL 


STHVL 

CLEA8 


VLOAD"^ 
SU8EXTT 
R ACT2 

irm 


UNVFC^ 

RPASS2 

Trrr 

IINVFC 

SLl 

C 5 TH 

POOL 
nPi/4- 

trsti — 


SLl— 

VCHMP 


RPASS? 

POOL 

trot 

ST Aim 

SN^H 

RP A: S 57 

CALL 

VPASS2 

VVEC 




STCALL RVEC 

TIMFTHFT 

VS tR 

RTX2 

0,2 

-fSO 


UR SUB A 



S TTR P 


5LT^ 

UNVF( 


P O V L - 

Sl^- 


A OVAL 
POVL 
0,2 


50 


V 50 8 PV 
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USER • S t>AGE NO. 33 


S3 


B 1 3 
T31 


LAST 680 



8 1 43 

HT^r^ 


F FF 



8145 



B146 

REF' 

33 

8 147 

"TTPF — 


8148 



H 149 

REF 

11 

81^0 



8151 



6 1 5 2 

8153 



8154 

-REF 

5 

8155 



8156 



8157 

— - - - 

. 

81'^B 



8159 ■ 



8160 



816T 



8167 



8163 

' 


B164 

RFF 

34 

B 1 6 5 

~RFF 


8166 



8167 



srs 8 ■ 



Bit"" 



8170 





8 17? 
3173 
817A- 

8175 

8176 
“BTT7 

5173 

817^ 

“TTTTT 

Ht^l 
318? 
““8TFT 
?184 
8 18 5 
8I'36‘ 

3177 

8188 


7 PF 


5 


RTFF 

?Er 


R pc 


LAST 

TAGT 

LAST 

last 


231 


671 


TTF\3?77 

05.3300 

06.3301 

05,33D2 
05,3303 
■057331X27 
0 5 ,3 3 05 
05,3306 


3FT 


LAST 669 



LAST 681 


05 V3T1 2 

05 ,3 31 3 
05,3314 
Tr5T3Tr5 

05733 16 
05,3317 

Tr5733?’n 
05,3321 
05. 33?? 
05 , 3 J23 


03653“T 
65246 T 
77625 0 

00003 1 
16633 0 
02 744"3r 
65301 0 
00047 T 
00041 1 

77624 3 
45263 1 
56362 0 

414-57 1 

2 01 74 1 

6522 > i 

02637 0 

563 0?- 0 

00005 r 

75406 1 
41275 1 
00007’ 0 


ABVAL 
050 — 

stool 


TACT? 

POOL 


20 = LENGTH OF R SUB A 


NORM 


5RTT 


TTSTT 


SR2 


PUSH 

OMPR 



000 o r TO 


LAST 

nrsT 


631 

664^ 


TTTST 
L A ST 


67Z 

631 


3I5737Z5- 

“71573376“ 

05,3323 

05.3330 

“057333T" 

”05,333? 

0 5.3 333 
"05, 3334 

O P r73 3 5 

05, 
“05,3333 

05.3340 

05.3341 

05.3342 
05 , 3345 


O 


51 3R 


00003 
65301 
47 


03750 
563 4? 
65257 


0 

I 

0 

1 
1 


NORM 


SRI 

SL=^ 


70174 I 

00005 1 
65301 0 
00050 — T 


NORM 



SRI 


XT LAST 650 

”5 LAST” “680 


, 3344 

05.3345 

05.3346 

05.3347 
05.3350 
OTfO 


05,3352 — 
05. 33 5 3 


^ 4 


LAST “681 


-05, 
or, 3355 
-(T5 v77^ 


> ■> _> '.1 
05', 3 35 7 




f J 


O: r 




57604 1 
63525 0 
00011 1 

75421 1 
A 7 31 5 71 
tr7 6T T " 0 • 
0 35'^46 O 
74256 O 
00013 0 

74315 O- 

03 54 6 — 0" 

or 

764 55 I 
776 26 O 


D 


DDL 


BOSU 

POVlr 


070 

OI^^FALT 

RIA 

POOL 
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2 

LAST 

686 

27 ,2630 

— 50105 

TT 

13685 

"VF 

2 

LAST 

684 

24 ,2000 

- 


13686 





?4 , 2326 




STTLHC P40Se 

BANK 


EBANK= OAPHATRl 
COtJNT - 2 " 4/^41 


P4rCS^ 


TC 


UP FLAG 


AORFS ENG 2 FLA 1 G 


TC INTP^^lT 

OLQAO — 


HTSZ-FRDS 

STOT^E CCTEEP 


DIDAO BtW 


FMCS2 — 
NJETSFLG 



mu 


GOTC 

FPCS 2 

P40$/F 


SETtnc ^ 40 S 

BANK 


1369 
1 370 
1 T 71 


OFF 

TEF 


1? 

7 T 


LAST 

rrsT 


370 

"5F5 


2 4 t 


TTTT 

1374 


■RFF TTT 

7^ EE 1 


LAST 

LAST 


37 


24,2327 

24 ,2330 

24 .233 1 

24.2332 


683 ” “^ 24 , 2333 


4“Ttrrt 

T 'EOl 7 

0 ootm 

1 23 
24 on: 

t) 00 0^ 


T E41 /P 40 
T) 


ts 


^300Rf G 

TmF— — 



EXTEND ' 
B2E +2 
T N CP — ^tr- 


n 


TC 


0 



R EF 


REF 

TTp 


■^'"3 

13 

26 

~7 


425 


LAST 

LAST 

rA5T 


683 

62T 


34 
?4,2335 
r6, 1466 
?4~,2336 
?4,2337 



TTC/D 


P 5 1 n2 D 


0 5134 1 


022 54 
5 Q 066 


tr 


TC NtVVAC “ 

£ 8 ANK= DAPDATRl 

3Ntni^ — 



lorzs APR. r,T9B9 nrou B L E .-043 P A CF BTre 


USER *3 ®AGF U0\ 


E 6 S 3 



1379 — 

FF 

~46' ■ 

TIVST- 

“584“ 

24,7340 0 


1350 

nrr 

4 

LAST 

684 

24,2341 0 









133 2 

FFf^ 

27 

L AST 

5 3 8 

24 , 234? 1“ 


1385- 

- 

1 



- ?4-v 2-'’.4 1 3 


1384 

REF 

3 

LAST 

ft 5 



1385 

REF 

1 41 

L''ST 

66 8 

24,2345 0 


0 55 60 1 P 40CLK 

00155 0 


TC 


D UtmFt A G 


ACRES TIMRFLAG 


3 24 0 


tec 


1 45 -T 


CAF 

-TS- 


TA5 Kt t V F R 


UVW'iROl* 


^6006 1 


TC 


INTPRFT 


5ET FOR RCS 



2JET THRUST FOP S40.1 




= 1 2 -JFT 
= 0 4-JET 


A T CALL LHC 


P4l 

P40 


TS ” AT CAL L 


TASK — 14 . 4 — PR0TFCT5” f t l 



SET UP FOR-NeNFLASH V 06 N85 BY CIOCKJOB 


■ A$SeMRLe"T?£vISIOM 05^ fr'^nc C'^MANCHT RY 20Zrm-0bl 


TO: 2 'AM'' 


r7T915^ — TROUBLE .045 PAGE ^^9 


P4n-p^.7 


USFPVS PAGP Ntr* 


S3 


T 386 

REF 



- - - 

24,7X46 

“ 77624 

1 

1387 

I 


“24,2347 

50370 

“0 

nnr 





24, 2 35 U 

TTTT6~ 

"T” 

1389 





“7^4 ,7353 

2 00 06 

1 

13D0 

RFf 

2 

LAXT 

6B6 

24,2352 

T 24 6? 

0 

1 3-1 

REF 

6 

LAST 

68 / 

24,2363 

63 ■ 2 2 ^ 

1 

1392 

PEF 

1 3 

LAST 

6S5 

74 ,2354 

0 5322 

V 

1393 





24,2355 

40036 

0 

1394 





247235X' 

■ 00234 

1 


CALL 

PA0CNV85 

FJm 

OCA AC AON B 5" 

OXCH AVFGEXIT 

TC 2PHSCHNG 

nCT 40036 

on ?T4 


COMPOTE — 

VGTTG IN CTRL COORDS 


on CONTROL COOPO CALCULATION AFTER AVFG 


6,3-CLnKTASK( lOOCS) 
4',23=P40S/5VCPRT012) 


1395 

■ 3EF 

1 



1 

; 

-P^ 

1 

1 2177 

0 

TCF 

P40S/RS 

T3T)7r 

XEF 

2 

L A 5 1 

6 8 ( 

24, 235U 

3 2424 

1 

■P'41RFTJSP CAF 

■ \n6M8 6B 

13 ^^7 

REF 

4 

XARF 

6 8B 

24,2361 

55*1 45 

*- 

TS 

NVWaRDl 

1393 

REF 

3 

LAST 

686 

26,^362 

3 2416 

0 

CAF 

SFC2X. 96 +l 

1 3 a 

K h ^ 

25“ 

LAST 

6 y 6 

2 4 , 33 

■Q 5 24 6 

1 

Ti 

WAITLIST 

1400 

P FF 

27 

LAST 

688 

E6 , 1 46 6 



F8ANK= 

DAPDATRl 

1401 

RTF 

2 

1. AST 

714 

“24,2364 

023 3 4 

1 

7CAt)R 

TTG/0 

1 40 i 





24, 2365 

50066 

1 



1602 

REF 

22 

LAST 

62 6 

24,2366 

4 5015 

1 

CS 

BTT3 

1403 

RcF 

1 



24,2367 

1 2 5 66 

1 

TCF 

TTGPHS 

14(1^ 





24,23 70 

'fU22U 

0 

P4aCNVB5'5TQ 

SETPD 

1405 

REF 

2 

LAST 

124 

24 , 23TT 

03730 

0 


OT F *'*P 1 

1 4r^o 





24,23T2 

ooo 0 V 

XT 


0 

1407" 





24,23 f i 

4T5T5" 

() 

VLUAD MUSH 

1408 

XFF 

1 

- 

— 

24,2374 

03721 

0 

- - 

vgprf:v 

1409 

- 

- - - - 

- -- — - 

— — — 

24,7375 

17e7A 

1 

CALL 



4X0 
1411 
14X7 


RFF 

RF^ 


6 

3 


CAST 

LASX 


78? 


24,2375 
774 V 23 77 
~24 *'7^400 


454 31 
3 T6 65 
03730 


(T 

0 

0 


STCALL 


54TT 
VGRODY 
QTFMPl 


FNTHR FROM P41 
REDISPLAY NONFLASHING 



/V.4 = TTG/0(?906CS) , PR ECHECK ( -OCS ) 


FQUALS VGTTG (TARGETTING INPUT) 



14127“ r^EF 
1413 REF 
' 1414 

14V5 REF 

141 S 

14IT -RXF 
1413 

141 REF 
X 42D 

1420 

1421 

1471 

A 1422 

1427 


1424 
142 3 

1425 

147 7 

1423 2EF 4 LAST 185 


23 LAST 63 7 
142 LAST 633 

1 

— 7 — c AST — -Srxg 
1 


E6, 1466 EBANK= DAPDATRl 

24,2401 0 6006 1 CALC N35 TC TNT^RFT 

24,T4TT2" 776 24 1 CALL 

24 1 240 3 51104 fT ~ flPDATfVG 

24,2404 77024 1 CALL 

-24 ,’’40 5 5 03 7 0 0 P4DCNV35 

74.2406 77776 1 EXIT 

24.2407 0 3215 1 TC SEPVXT 

■74, "2 41 0 0221 7 1 F E NG 2DEC ^ ,1133544 B-7 - 

“24^2411 06650 1 ' 

"24 , 2 41 7" 0001 3 0 F R C G2 2 O^C • 0574 3 733X 9 7 

74,3413 0 611 2 0 


NEW VO, S40.B(-»-MAYBF S40,9) 



SPS THRUST (2Q50 0 L 13 St, - i 


RCS ULLAGE ( 149.6CnSlO LBS ) * SC.AT 


e+7 NE WT0NSA‘=+4 


-24,2414 047O0- 1 55024.96 DEC 2496 

X4 jRTllB tnirTC O 1 SEC29,96 2 D E C 2^ 9 6 — _ — _ — 

7 4 ,24 16 056 64 0 

74 , 2 41 7 - 034 1 0 I 1 5S F C DF-C 18 00 — 

24 , ? 4?n 007 O X 1 P 4 0 CKLS 2 OCT 204 

24,2421 37730 1 40CST6 -fJCT 37730 40 C $ FOR JMr T5 CLOCK 

55 77 — nCT12 TF^? 


(Tap! Asse^BLT p vtsiON 0';?" rjp ir,c p«rif;RAM-cn'^\MCHF bv mas's TO■2■nl■^-obl 


ID r??r “A PR . rrrrCT t 







Xm PAGE 


L 


P40-P4T 


USER'S ^AGE NT), 


E6 S'^ 


14R9 2^t2'^22 0AI23 0 

I43(r' 24T242 3 01525 1 

1 4Tl 24,2424 04175 0 

1432 ■ ^ 24*7425^ 01450 i 

1434 7“4,24Z6 04050 O' 

“ 1 47"5 ^ ~ 24TZ4Z7 00027 I 

1436 24,2430 “ 000r5T“3. 

1437 24, 2431 00035 1 

“143 5 27 DTST 5117 E5.1455 ^ “ 

1439 "4“ I AST 251 “ 24,2432 03153 0 

1439 24,2433 12066 1 

' 1440 24,2434 00026 O’ 

A 1441 “ 

A1442 

5-1443 

1445 T3EF 33^ EAST 633 24,2435 3 5017 T 

1445 REF 1 ““““24, '’436 1 215 7 1 

144T HFF 2~ LAST “Lr35 2^frZ^Tl 3 3064 0 

1443 D^F 7^ last 689 24,2440 0 5245 1 

1449 ref 42 LAST 686 E7,1412 

1459 RFF ^~2 CITST 2T5 2472441 02555 0 

— 1450 “ 5006 7 0“ 

1451 REF 130” LAST 55 5 24,^443 3 5 021 1“^ 

14^7— -ttEF 5 LILST 2472444 55“n45“T" 


VI 683 VN 1683 

V06Na5B VN 0636 

V16N85B VN 1645 

V06N4 0 VN —“0640 
V16N40 VN 1640 

DCT27/24 nCl 27 

T7CT 53 OCT 53 

nCT35 OCT 35 

— — FBANK= nAPOATRl 

T5rDL24 2CAOR T5TnLnC 


3 MOOT Die — " — 8 6.317 5796 B'16 3SEC ?TASS LOSS 1 53.5 tBS/SBC) • SC .4T 

= KG/SEC (NOTE, EMDOT IS PAO-LOAOEOt 

BMOOT IS NOT A CRITICAL OUAMTITY* SO 

rSTtTPTM CAF 3IT1 ““ SET UP FOR GIMB DRIVE TEST AND TRIM (>1) 

— TCF TRTV^JNLY +l 

TTGBtm CTTF” 55FC XALL TTGAVEG IN ^l¥i SEC 4T TIG •^30—“^= 

TC TLIST — 

eeANK= TIG — — 


e4F- ZERO OISABtE HFREi NOT IN P40BLNKR 

TS NVW QP Dl 


1453 

REF 

4 

1. AST 

145 + 

2FF 

TD” 

LAST 

1455 

RFF 

43 

LAST 

1456 

“ REF 

1 


1 456 

k F F 

L 


145T 

REF 

3 

L AST 

1455^ 

REF 

2 

LAST 

“ 1459 
1460 

~EF 

28 

LAST 


571 2^4,2445 3 50 66 l“—“ CAF PR 101 4 

6FB 2472446 0 3134 I TC NDVAC 

690 17,1412“ “ — — — F3ANK- TIG 

24,2447' — 02234”0 ^C^D^ P40BLNKR OONT RKOTECT-R FSTARTS BLANK OSKY 

247245Tr ______ — ______ 

226 24,2451 4 43 6'> 0 CS OCT37 4.37 ^ TIGAVFG (500CS) 

437 “24,2452 O' 4114 1 P40TSK TC NFWphASE 

— 24,2453 00004 0 OtTT — 4 ________ 

6B8 24,2454 0 “5324 I TC TASKf.tVER — 


1461 -t^TFF “44 "LAST “590 E7,1412 

1462 REF 1 24,2455 

1462 REF 1 24,2456 

1463 ITET^ 45 1 A'ST 690 E7 71412 

1464 REF 1 24,2457 

1464 RFF 1 “ — “ 24,2460 

1465 RTF 30 LAST 590 E 5 , T 466 

1466 REF 1 ^4,2461 

1466 REF I ““ ?4r2462 


Tf - 0 

02511 0 ACA0NR3 2CA0R CALCNR3“ 

50067 0 

03227 O SEP VCAOR 2CA0R— SERVEXIT 
T6067 1 

E B ANK = O APDATRl 

02491 9 ACADNSS 20 A9R eAi::9NR5 

50066 1 — 


(TAPT- 035' i:^ nROGPAM I'nMANCHE BY 



2(T71VJ 


lO'i'Z'T'A'P'^. — rrvT^ — r-’nuBLE' .043 — Pixtn= — 


P40-P47^ 


USER’S PAGE NO. 


B 


F6 $3 


PT^ 


P pn GPA^ ITFSC p TP TTOR ^ 


1503 


REF 


CnURT~ 2 ^/P47 


T5T)^ 

1510 

1511 


c. 

1 5 IF 
1514 


J 

1515 

1517 

T5TF 

1519 

1519 


1521 



PEP 
R EF 


“4^ 

165 


*Tr 



1522 2 

1525“ 

1524 





REF 


REF 


REF 


1530 

r53T 


12 

27 

4T 


PTEF 

RTF 

79 

13 

-REF 

1 

REF 

7 

RET" 

9 

RPF 

20 

REF 

43 


-REF 

2 7 




17551“ 

17151 

LAST 

rA5X 


LAST 

LAST 

LASl 

1A5T“ 

LAST 


L AS1 
LAST 
LAST 
1 A S T 
LAST 


5W 

687 

684 

5T7 


690 

65T 



41 LAST 687 


LFST” 535 


59T 

690 

691 
214' 


L AS T 
ITTST 


588 

B59 


1412 


24^2464 

24.2465 

24.2466 
25 r246 7 

24 ,2 47 r 
2442472 
E7t 1412 
254F4 73 
24r2 


0 4662 1 
17653 1 
JT'ETJVRS 1 


P47C5M 


ZT5 43 0 
TO 1 55 ■ 0 
55* 6 7T 1 
0 5245 1 


02500 0 
50067 0 


24,7475 
24,2476 
2 4 r2'47T 


0 F412 0 
40574 0 
T TTIT - 1 


^7,1672 

24T25TTO 

24, 2501 


24.2503 

24.2504 


0 000*^ 1 

3 2456 1 
53-* 223 1 
3 ■ 437 r O 
0 5134 1 


TTGGN 


f f 

74', 750 5‘ 
24,2506 
24,2*^ 


24,2510 


02534 1 
50067 0 
4 5016 I 
I 25 66 1 


EBAMK= TIG 

TC “ BANKCALl 
CAOR R02BnTH 
OX 


INTT^PET 


XAIRTT 


RrDT0AV2 
“MPAC 

TS P40T^^^ 

TC WATTLTST 

EBANK= TTG 


ICAHR T IGON 


TC 

net 

TCF 


PHASCHNG 

40574 


EBAMK= P40TMP 

FXTENn 

nCA ACA0NB3 
DXCH AVEGEXfT 



TC 


NUVAC 


ETANK- TIG 
2CADR 


CS 


8 [T2 


TMU STATUS CHECK 



c:>:> inaiv ITTOO 
CS. MlfH A TPAGREE. rNT.lNTT,) 


TTGON IS REQUIRED TO MATHCHTAT AND AVEG 


A . 4 • 5 7 


TTGON (r>40TMP CS) 



m OF N 83 B E FORE SERVICED 


4,2 = PRECHFCK (-OCS). P47BnOY (PRT030) 


1 532 Pie "49 1 AST — B9I E7 , 1412 ~ EBANK= TTG ' 

1533 REF 144 LAST 691 ^4,2511 0 6006 1 CAt,CN83 TC fNTPPFT 

15337 24,2512 77601 0 SFTPO SET UP PUSHLIST FOR S41 . 1 

1373 6 74T25T3 00001 — 0 0~ 

1534 24,2514 53375 O VLOAD VAO 

1535 *^FF 1 24,25 16 03665 ^ — ^^“DELVCTL _=_= _ 

1536 RET 1 24725T6 05433"0 oflVRFF _ 

1537 RET 1 24-^^251 T "034 60 — 0 ~ ~STORE DV47TEHP FOR COPYCYCLE BELOW ~ 

1538 24r25:>0 45006 0 PUSH CALL 

T53F RFE 7 cast 539 24 , 25 2 1 45431 ' O S41.1 — 

1540 TEE 6 LAST 2S2r 24^25 22- 376750: STCALL DELVIMU 

1541 ^EF 2 "CftTT 540 24,75 2 3 7O547“0— SI 1.1 CALC. VI, H, HOOT FOR NOUN 62 

1542 — 24T2524 TTTTr — J— PXtl _________ 

154^ 7EF 42 LAST b^^'l -24,2575 0 5412 0 TC PHASCHNG — 

1544 '>4,:>576 10035-0 0X1 10035 


iTSPl ASStM-^LE '^PVISIT'''J 0'55 Of- AGC PS i/GWM COMANCHE UY NASA 2071 ll■^-')‘il TTTrzmFF; rmro n lJU B L E .043 — p^TITF — 5^ 


T T>4n-P47 USER’S «AG;F"l<fn.^ <5 E7 S3 


1545 REF “14 LAST 571 ?4,25?T ‘73~552? 1 CAT FIVE 

1546 RTF 11 LAST 575 24.2530 0 5506 I TC GENTRAM 

1T47 ^F 2 OST 651 74TT5TI 0145 7 0 ADRES — 0V47TFMP 

1548 RTF 2 LAST 691 24,?532 017564^ ADRHS OELVCTL 


T 549 FFF ?~XA5T 5W 7477573 0 1215 1 TC SERVXl 

1550 REF 145 LA5T* 69 1 74 725 3 4 0 60 06-1 P47BnnY TC mTORET 

1551 ?4,2535 77775 1 VLOAM 

1552 REF 15 TATT 55 B" 24,2 536 153 35 0 HI6ZEROS 

1553 -RFF “T LAST 57t 24,2537 - 03675'0 STORF DELVI^U CLEAP-OISPLAY AND ACCUMULATOR STORAGE 

1554 REF 7 LAST 692 7 4 , 7 54 D 03665 1 STllRE' flFtVCTL UPON INITIATION OR-ENTER-RESPONSE 

" 1555 24,2541 77776 1 =Xn 

1556 REF 3 LAST 336 24,2542 3 5067 0 P47BnD CAP PPIMIS LOWER PR lO THAN CALCN83 (20) 

15563 REF 0 LAST 586 -24,2543 0 5210 ) TC PRTOCHNG TO PREVENT INTERRUPTION OF CALCN33 

155635 REF — 43 CAST 691 24.2 544 0 5412 0 TC PUASCHNG 

T5564 - 24.2545 05024 1 OCT 05024 TYPE C GROUP 4 BELOW FOP NOUN 83 

15565 -24,25^,6 15000 0 OCT 15000 PRIO 15 

15565 — REF- I 24,7547 ■7 2 422 7 P 4 7 /0 SF- CAF V16B3 

1557 ref 166 LAST 691 24,2550 0 466? 1 - TC BANKCALL 

1553 REF 30 LAST 658 2472551 20720 0 CAOR GOFLASH 

-T559 REF - 47 XAST 677 24,2552 0 4106 1 TC GOTOPOOH 

1560 PEE 44 LAST 692 24 ,255X- 0 41 06 t TC GOTOPOOH 

1561 RFF 3 LAST 691 24r2554 X 2534-0 TCF P47BOOY RECYCLE - CtFAP ACCUMULATED VELOCITY 


V,^PT 



f P'P VISITM'05b i 'f- A .;L MULK;KAM C'lMAMCHfr 113-0 3 1 


io!28 Apw, — rrr^nv? — r RouBi E .043 p ag e — 


L 


O40-P47 


USEP»S PACT >n. 10 


-rr S3 


P156J 


pnUTTT^ ^^TTG-30^ DFSrPTPTl 


T5S3 RFF SO LAST 6-91 ^T4r4T2 FBANK= TTG 

1589 REF 2 LASl^ 684 TTl “E.'BRT 1-55 15^^ OniWT Z4/P40 


ISCSQ 


7 L!\ST 

24*2555 

a 23 2B 

1 

TIGAVEG " TC 

P41 /P40 

TASK (4*37 PROTECTS) 

1591 

REF 

1 

24 , 2556 

1 23 60 

1 

TCF 

P41 R FDS^ 

^41 


1592 REF “2 LAST 624 2^4T2557 3 2425~0 CAT VOSN^a - UN8LANK DISPLAY 

1593 TEF 6 LAST 24,Z550 ^5^145“! TS NVWrTROt — 


1594 REF 1 “ 24,7561 3 2414 1 CAP SFC24,95 

“1595 ^0 LAST 691 24"r2562 5 5245 1 TC“ WAITLIST 

~T5^ rnn^— 5rr EAST 5^, 14X2 EBANK= TIG 

1597 RTF 3 LAST 216 24“,T563 t)2574 TT -2tADR Tif;-5 

n5T7 ■ 24*2564 “ 50067' 0 

TSTT RtF ^3 LTTSl 5T9 ■■24,2 565 6211 1 ITS — STK 

1599 REF 3 LAST 690 24*2566 0 4114 1 TTGPHS TC NFWPHASF 

1600 74*25^7 00004 0 OCT 4 


1601 PTF 2 LAST 539 24,2570 10 763 1 — TRECHETK CCS PHASES HAS SERVICER RFFN RESTARTED 

1602 REF 29 LASI^ 690 24 *25712 “1 53 2 4 0 TCF TASKOVER YES* DONT START ANOTHER ONE 

1603 RTF 44 TASI 634 24 ,‘2 572 0'"470I ■0 fTT PTTSTStmP 

1604 REF 2 LAST 21 8 2 4,2 5 73 76 7 01 0 CAOR PRERtAfl — 


ENTRY FROM o41RE0S«> (0411 WITH A=-4* OR 

FROM TIGON (P47y WITH A=-2 


Ci4P: •iSSV'IBLt KcVISlUN ()‘'S i!F TSTiC C^lMiNCHb HV NASA 2021113-051 IT:?'? APR. 1 1 1 "76 9 TPO UgL P .0<»3 * S'?** 


T P40-PA7 USER’S P4GF NO- 11 E7 S3 


P1605 ROUTINE *^?‘Tir7-5** DESCRTPTTnu 


16242 

REF 

52 " 

■"LAST 

693 

F7,14T? 



FBaNIC= 

TIG 

16 26 

R EF 

3 

\ AST 

690 

24 , 2574 

3 3064 

a 

T T 0 - 5 tr A F 

5 SEC 

^627;“ 


29 

L AST 

693 

24T23T5 

7T 5245 

7“ 

TC- 

WA TTL I ST 

1 6 27 

TEF 

31 

LAST 

690 

E 6, 146 6 



EB ANK = 

DAFOATRI 

1628 

REF 

3 

LAST 

217 

74,2576 

02 612 

0 

2CAOR 

T 1 G-0 

~IE73 





2 4,25 / 

5Q066 

1 




R EF 

2 0 

L A:>T 

549 

24 , 2600 

4 500 7 

1 

cs 

.. . ■««» 

RI T5- 

1530 

REF 

7 

L AST 

693 

^4^, ^6 01 

55 • 1 45 

1 

TS 

NV^CR 01 


wm- 


WILL CAUS^ V99 FLASH 


1^31 REF 14 LAST — 639 7^^’* 2602' 33 3372 1 TC 29HSCHNn 


1637 


24,2603 

— 40074 0 

OCT 

40074 


A, 4.7 = TIG-0 <500CS) 

1633 


24,Z'6"04 

00033' 1 

■■■ ncT 

00033 


A, 3.3 = S40,13 (PRI020) 


1674 REF 4 LAST 68B 74t7605 3 500^ 0 

^'633 REF 21 LAST 563 3r^“4T Q 

1636 '^EF 6 LAST 213 57,1427 

163T REF 2 LAST 713 74,260? 732427 1 

“T63T 74T7BTD 34067 1 

1638 3tF 30 EAST 693 .24,7611 1-5324 0 


CAF '>RI020 

TC FTNDVAC 

E8ANK= TGCr - 
2CAnR S40.1? 


TCF TASXnVFR 





■ ftr VI^ 1 lIF"' AHC PR Cn 



:hi- by NA^/r^u"znn-o5i 


rasZB ff^FR. 1,19 6^ rROUBLE .043 RTTCT 6V3^ 


L 


D 40 -P 47 


USrR^S PAGE' NO 


12 


ET S3 


p 16 t; 


^ #TT G- 0 SMT ^ ^ T GTvl inDN"^^ 



16W REF 32 LAST 694 E6,T466 lEBAW^ mVPOATPl T ASK, 4. 7 PHASE , “OR 4, 77 (-OCS) IN R40 

164?S REF ? LAST 1"^ 2442612 4 0103 T TTG-Q “CS PLAGWRD7 SET IGN FLAG 

TET 24^ ‘ T AST 6W 24 ,2613 7 S003 0 mSK RTTT3 =^— 

1648T'FEF 3 LAST 695 “24,2614 26 103 1 AOS FLAGWRn7 — 


T 6 ’ 4 Tr 

2660 

16*^1 


RTF 4 LAST“"W5 24T2ST6 30 1U3 0 CAE FLAGWR07 

^EF 25 LAST 507 24,2616 T STTCT'l MASK BTT12 

^ 24,2617 0 0006 2 EXTEND 

RTF 31 LAS! 694 24,2620 I 5324 0 ffTF FASKOVCR 


CHECK ASTM 



V9H 



WATT FOR V99P 


16522 PFF 
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RFF 

KEF 


1 

?S 

40 

23 


LAST 
LAST 
L ART 


EOF 

696 

453 

EOT 


2 A, '30 I 
^4 »30 72 
Z"4“* 3 0 1 3 
?4,3DT4 
7 ^4 , 3 0 75 


4 30 8 5 
0 0006 


0 

1 


TVC7 AP 


Z4,30TG 


03 017 T 

4 5017 O 
55*303 I 

FD2T 1 


I NH T ATT 
CS 

EXTFNO 

3rA7?D 

CS 

TS 


nCT 0??07 


CTTAmT 
BI T 1 
OK T I N D 

•“I 


15272 

RFF 

9 

LAST 

695 

74,3077 

55* 145 

1 

1828 

» F F 

13 

LAST 

69 6 

2^^, 3] 00 

4 5005 

0 

1 829' "■ 

3EF ' 

3 

' T AST 

675 

“23 , 3 1 DT~ 

7 0103 

1 

1830 

OFF 

o 

LAST 

699 

24, ; 1.02 

54 103 

1 

18 31 

R, EF 

163 

LAST 

69^ 

24,3103 

D 0002 

0 

1 872 

7 cF 

' “47 

3. A S T 

639 

Ef^ , 1 466 



1833 




■ 

23,3tD > 

43 020 

1 

1334 

8EF 


LAST 

633 

7/^i^3^n5 

03 7 3D 

0 

1333“ 

'’FF 

T 

L AST^ 

634 

2 f 2 1 3 f> 

0 131)7 

1836 

- -^-F' 

1 


“ 

-24, U07 

5 1 1 3 3 

1 









1 337 





24,7110 

5 f 1 1 7 ■’} 

0 

1S38 

p - • 

3 

1 AST 

6 84 

24, ■^111 

0 3 3 4 ^ 

0 

183-^ 

^ t -E" C 

' ^ L- < 




74,31 i? 

51137 

0 


TS 

CS 

FASK 

TS 

TC 


NVWDRUl 
B I T i 1 
Ft-A17VB'3TT 
FLflGWPDT 
0 

D AE D AT Kr 


M^DATFVG STO 




O CODtV F ti-^ 
CALL40. S 


SLOAD 


NHRCYCI S 
SLTilP. O 


CHECK IF OK Fnr tptm- ttpdate — 

THESE CHECKS ARE ONLY NEEDED 
FOR A LESS than 0,4 SEC BURN 

Tirr, INITIAL I rTrrroN ttot cghpiftf 

YES, CHECK IF TVC 


NO, NOT TVC YFT 

UPDATE TRIMS WITH D*=LFILTFP VALUES 


MAKE OP 5SEC 


PITS 7.8.11 for CHANNEL 12 TVC/OPTICS 


DISABLE TVC AND OPT pRR CNTRS, REENGAGE 

OPTICS OAC 


FNA8LP TARU'^T OPTICS MON I TOP . . . . PERM I T 
OPTICS-ZERO BUT NOT OPTICS-DRIVF 
CtrEAP^ NV ■‘PT^Crt tFE CAS F — CtGC K JOB A I T f NG 

CLEAR TTMPfLAC Tn STOP CLOKTASK 



GAP : aSSFMRLP I^vFViST HKi df AG 



^CiTMAMCRt l>Y NASA 7n'21ir3"051 


iTJT7^~2rFR7 — rrrw ^^ — trouble . 0 ^ 3 — too 


040 -PAT 


Ij5ppf3 page WU, 17 


E6 S3 


18 AO 
18A1 

ipr7 

1843 

1844 




:TF 
TEF 

o z:f 


T LAST 
T 1 A^ 

I 




tff m nm' 


RTF 

REF 


4 

9 


LAST 

LAST 


6R9 

IQT 


24 7TT1 3 
24,Tn4 
ZATTTTS- 

24 * 311 5 
24r,31IT 
2TrrTT2Tr 

24»?1T1 

24,3122 


553T5 0 
033 4^ “0 

rrT433 0 


VLTAD VAO 


03353^ 
7TTT& 1 
3''50i^ 1 
6 1742 1 
55’ 743 1 



DEL VSUM 

TTETVRFF 


TJFLVSUl^P 


TS 


OTTF 

UTRCTCL^ 

NBPCYCLP 


1&48 

1849 


REF 46 TAST $T8 


f 


Q 3A12 0 
iarr3*s o 


TC 
TTCT 


PHASCHNG 
too 3 5 


1850 

1851 


REF 

REF 




TR53 

1854 


RFF 


3 LAST 700 
“5 LlAST 700 
46 IASI 692 

2 LAST 700 
B^LAST ‘TOXT 


T?4,3125 
24 ,3126 
24.312 / 

24t3130 

24,3131 

"24,3132 


3 1743 0 
55*742 0 
O 6005 T 
77775 T 
03353 1 
03345 TT 


CA 

TS 


NBf^CYCLP 

N3RCYCLS 

"niTPRFT 


VLOAO 


■STORE 


OFLVSUMP 

OFLVSU^i 


1856 


TF5T ^FF 
T35B 

1 



“5 L A^ 


24,-31 33 
24T3T34 

24,3135 

24,-3135 


77624 1 
34153 1 

77350 - 3 : 


CALL 40 ,8 CALL 


Gon 



S40, B 


OTFMPl 


1860 

1861 

rS62 

1863 

1864 
TSoS 
1 366 
1867 
T87>'R 

1869 

1870 



1 

r 


PEF 


LAST 700 


RFF 

RTF 


35 

2 


TTESI FTHT 

LAST 124 


3871 

1872 

1873 

REF 

- 

2 

1 A ST 
LAST 

" TOD 

6 89 

IBTV 

1875 

1876 

R EF 
REF 
REF 

6 

22 

41 

EAST" 

LAST 

LAST 

6 94 
699 - 

1877" 

REF 

1 

A 



1877 

pff 

1 



187"- 

RFF 

IT 

LAST 

-693 


24.313 7 

24. 314 0 

24.3141 

26.3142 

24.3143 

24. 3144 

24,3X4 5 

2473146 

247 31 4 7 

24.3150 

24.3151 
3 4,315? 

24.3153 

24.3154 
■247315 5 

24,3156 
F5 , 1466 

n 


67214- r 
01310 1 
“^T54Tr 

1 


S F TOR, R 


SLO/iO 


FIRSTFLG 
SORELY. 9 


O 


33344 
74301 

U004 

03 705 
53257 
20563 “0 
03646 0 
77651 0 


NORM 


7JBRCYCLP 

VXSC 


0 

1 


VSR^ 


BUT 

VAO 

0 ^14D. T 
VGTFMP 


VSO 


03345 
037 21 
77776 


tr 

0 

1 


OFtTVStm 

STORE VGPREV 


t) 5 1 47 0 


SURELY. 9 EXIT 

CAF^ 

— TC 


1879 

1830 

1881 

1832 

1833 
1884 


np 147 last 70tl 24 


IFF 

RFF 


8 LAST 
11 LAST 


5 46 
555 


f ^ 1 > 

24 , 16 0 

24,-317>l 
24 - , 3 t 62 

24,^163 

3164 

2 4.3165 

24.3166 
24 ,-31 6 ^ 


O 


53 7 2 


02302 1 

0 
I 

— 00051 — 8 

- 10035 9 
~Q 6006 3.“ 


f I NOV AC 
FBANX= OAPOATRl 
2t A9R S 4 0 .9 


TC 


2PHSCHNG 
0005 1 



T 
TC 

V til AO 


10035 — 
INTRRFT 


01171 1 

27570 0 


STOVt 


» 

R INI T 


TYRE -3 RESTART BELOV! AND 5.3 RFRFAOACCS 


tNORM HANDLES 7ERn PRO^^FRLY) 


3, — tT5 


DO40. -9- , - R R fFl i -0 


ACTIVE VFHietFTAOfUS VECTOR AT T1 


G7i.P 


^■ST*-Wr‘P'':VKT!jN'TT5TT)T““ACC or^oGkAM COMA^iC^TC"5Y“NATA >102iii3-0bl 


lU'i'ZB AP^.. IVLP ’69 TRfJUBLE .043 PAGE 


^40-^4T 


USER^S PAGH tgn. IE 


E 6 S3 


1E^5“ 
1 BB6 

Tmrr 

1 889 
I89U ■ 
1 891 
1892 
T891“ 
189 A 
1 895 




9.EF 
TT 



“9 

10 


L^9T 

LAST 

TTST 


54 6 
555 


“RFF 


r LAST T22 


RcF 

PEF 

HEF- 

RFF 

REF 


TO 

9 

17 



18 

6 


LAST 
LAST 
IRFST^ 
1 7TST 


847 


642 

692 


701 

700 



7^4V81Ta 

74,3TT1 

"24,3172 

24. 31 7 3 
74 , 31T4 
24,3175 

24.TTT6 
24 , 31 77 
24,3700“ 
74.320ir 

24.3203 


01TT7 1 
17 576 XT 


VM 

STOOL VIMTT 


01205 1 

83474 O 
7782r 1 
03658“1” 
27423 1 
T533 5 Cr 
T7345“Tr 
1 


STOFT 

BDSU 


*^■811 ME 

TMIT 


STOVL 


STnuc 


1897 
1 RQH 


REF 


2 

42 


LAST 

LAST 


699 

700 


24. 
F6,1465 


~V 
0334X13 
77650 1 

51133 1 


STOTT 

GOTO 


rR4SS4 

nELLT4 

HITZEROS 

TTEtVSURl 

HT 6 ZEROS 
NBRCYCLS 


1899 

REF 

1 48 

TAXr 

700 

24,^205 

TTXTTW 

“T 

1900 

_ . _ ^ 

-- - ^ — 



24,3 20 6“ 

XT6 24 

r 

1901 

REF 

2 

LAST 

6B9 

2^,3207 

51104 

0 

T9T)7 





24. 32 i U 

77776 

1 

1903 

REF 

23 

LAST 

697 

2U,32l 1 

3 5 007 

0" 

1904 

REF 

13 

LAST 

697 

24,3 212 

7 0076 

r 

TTOS" 

R Eh 

8X8 

LTTST 

89X 

24. 3213 

10 000 

0 

-A 

1 906 





74,3714 

1 371 T 

1 

1907 

RET 


LAST 

-693~ 

74,X?1X 

0 4701r x 

1998 

RFF 

2 

EAST " 

69U 

24, i 2 1 9 

rrzrrr 

IT 

1900 

^EF 

3 n 

LAST 

698 

~2^,3Trr 

3 5003 

1 


1910 

191 1 

191? 

1913 

1914 

1916 

1917: 

TOUT 

T919 
192 0 
19 21 

1922 

1923 
IQTzr 

1925 

1926 
T92T 


24 "LAST 


RFF 

TTET 


3 

3 


LAST 
LAST 
LAST 697 


■598 

692 

59T 


REF 57 
'FF 263 


r 


REF 

RFF 


\ 

RFF 

^'EF 


22 

269 

— r 

270 
1. 56 


LAST 

LAST 

LAST 

LAST 

LAST 
L A 5 


70 1 

691 


698 

701 


701 

701 


1929 

T93Tr 

1931 

1932 

1933 
19R4 
1 935 


tttF 

REF 

RET 

98P 

^<FF 


135 
“87 

6 7 

136 


LAST 

LTTST 


I 




12 

31 


LAST 
1 AST 
LAST 
L AST 


6 99 

Torr 

69 6 

701 

59T 

701 

Cv97 


2 4 * 372 0 
■24. 3221 

74,3222 
24 .3773 
24,3224 

-7T1412 
24.3275 
24, 3226 

"24,3227 
24 .37X0 
24,3231~ 

24.3232 

24.3233 

24.3234 

2 4, 37 3 5 

74¥323r 

7 44 37 3 ? 

7493^40 
2 4 ^374 iT" 
74, 37 42 

74 -,^1743” 
74,3744 
24, 324? 
^4,3746 
24,3247 


0 0006 1 
~ rmr 
0 0006 1 
1 37 15 0 
0 '3366 1 


0 0004 0 
X Oa06'T 

3 1413 0 
52 155 1 
0 0005 1 

4 0075 T 
20 155 1 
o r? 2 4 1 
30 155 O 
10 00X 0 
T- 


l 3242 I 

3 5071 1 
■“6 5 017 t 
56 OOl T 
5X71 1- 

5 3 * 430 0 

X 1 430^X 
-0 5245 1 


CALL 40 .x 

EBANK= DAPOATRl 


STEERING TC 


UPOATEVG 


RXTT 

CAF 
MASK 

CCS 
TCF 
TC 

C AO R 
C3F 

EXTEND 
TANO 


BITS 
L AGWRn2 

A— “ — — 

+3 

POSTJUMP 


R I T 1 3 


TEND 

8Z*= 


SERVXT 



EBANK= TIG 
I NH I NT 


OCA 

OXCH 


TIG 

1MPAC 



OAS 


CAE 



T I MF 2 

MPAC 
O P AGRFE 
MPAC +1 

-A — 


TCF 

CAF 

Afi 


CA 

OXCH 
8 A 
TC 


+ 2 

ZERO 

ONE 

L 

ZE^n 

TXn 

TG9 +1 
9AI TLI ST 


ACTIVE Vi^HICLF VELOCITY VECTOP AT T1 


CHECK IMPULSW 


PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF 



CHFCK TNGINF-ON/-OFF 


ENGINE-OFF. SO PRE- IGNITE OR POST-OFF 


<LESS THAN 6 (OR 4) SFCONOS TO GO I 
PROTECT AGAINST NEG/ZRO W.L. CALL 


GAr>; ASSC''3Lt" REVISION fi?)5 AGC PniOG'UM COMANCHE NA'^A 1 1 a- Ob I 


AMH. ■ 1,1<569 PROUBLE .04? PAGf TXTZ 


PAO-f’AT 


USER'S PAGE NH. 19 


E7 S3 


1936 PHT= n LAST "'01 ^7,1^27 EBANK= TGH 

1937 RTF 3 . LAST 697 ?6,32S0 02766 1 2CADR ENGlNGFi^ 

“19T7 TTTTTTTI S0067 0 


1933 REE 13 LAST 700 24,3237 O 5377 1 TC 2PHSCHNG 

1 < 57-9 - 2T7TT33 40153 1 Cnri 40153 E NG I M OPE ( T G O -H )....N OT L OSKmiP 

1040 ■ ■ 24.7274 10035 0 OCT 10035 5.3 = -ReREAOAC. AND START BELOM 

19402 !5EF 47 LAST 633 24,3255^ 0 5560 1 TC 00W7FLAG CLEAR IMPULSW, FNGINOFF 1-S NOW SET UP 

10407 RFF 2 nrST 203 24,3255 00044 1 A ORES I-wPOLSW R E S T AR T S OK 

1941 4 LAST^ 701 24T3757 1 3215 0 “ TCP — SERVXT 


;^SSFMBLE f<EVISiUN Obb {IK"A^;C PPUGI^AM LLITCMCHh^ BY M^SA ^;0^lI13-051 10 ! 28 A^R. It ITS-?: — 'm O UBLE > 0 ^3 


L n4o_p47 PAGF NO. 20 F7 S3 


D 1 ^^2 R ni ITTN c 3KT A SK TTFSTTP I PT I ON " 



o *- 

1970 

1971 

irnr 

1972 

1973 

1774 


19542 


58 

LAST 

TOl 

^7,141:2 

1 955 

REF 

1 9 

LAST 

6 9 

24.32 60 

1956 

^EF 

7 “ 


699 

24t ^261 

1957 

9EF 

157 

LAST 

701 

“24.3262 

1 

RPF 

1 



27h.3263 

1959 


'TT 

LAST 

f U 0 

f 3 2 6^ 

196 0 





24.3265 

1951 ~ 

RFF 

34 

LAST 

Tf9B 

2Ft3266 

1962 

- 



— _ _ _ 

7A,3T67 


REF 

23 

LAST 

701 

r4,3770 

1 96 4 

RTF" 

7 

L As i 

i!87 

24 t 52 / 1 

1 965 





“24,5272 

1955 

REF 

59 

LAST 

703 

- 24.3273 

1959 

FEF 

H 

L AS I 

TOT" 

24V37TV 

1963 

REF 

14 

LAST 

699 

2A,3275 


T BOOS 1 

T~aT03 1 

10 000 0 
7. 32 67 0 
0 5472 ^ 

00006 1 
0 5324 1 


CtnKTASK 


F3ANK 

CAS 

T^ASK 

CCS 

TCF 

TC 


TTG 
BI Til 


FtAGWRD? 

A 

Cl OCKON 
FHASCHNG 


TASKOVER 


ITTF 

7:ef 

RPF 


T2 

60 

S 



XAST 
L AST 


TOT 

703 


7 - 4 ; 3776 

^7t1 412 

^4^ .7 2 TT 

■24TT3W 


0 0006 1 

3 0023 0 
53^661 0 
O 0006 1 

4 1413 1 
2T ^ 6 61 0 

3 51741 1 

IT 5245 1 


CL OCKON 


TXT5NO 
OCA TI^1E2 

oxcH rroGo 

FxrrNo 

TIG 
TTOGD 


GAS 


SETCLOCK CAF 
TC 


0 3250 0 


SHANK 

2tAnR 


WAITLIST 

TIG 

CLOKTASK 


REF 10 LAST 699 


REF 


1 


^4-, 3301^ 

2^77352" 

2^ 1 3303 


50067 0" 

11 • 143 1 
330 5' “O' 
1 3315 r 


CCS 

TtTF 

TCF 


NVWnRDl 

SFTT86 


19 742 

1^75 T^EF 

19752 
19 753 — 
1-9754 PFF 


2 

11 


24^ 3 304 1 3305 0 


LAST 

LAST 


703 


24.33a3 

24tT3n6 

2473307 


4 

6 

TT 



2473 310— 1 3320 1 


CS 
AO 

B7F 


41 — — “ 

706N85B 

NVWrjROl 


'3irr 


SETUPOYN 


T976 

1977 

1773 

1979 

1979 

1930 

19B1 


RTF 

REF 
R E F 


“2 

22 

43 


LAST 5F5 

LAST 698 
LAST 701 


7FF 

REP 

ttEF 


1 

12 


LAST 54 2 


35 LAST 703 


24 1 3 311 

24»3 513 
F 6 tl 456 
24t3313 

24.-3314 

-2473315 

24.3316 

24 . 3317 


TT S -S- F - 
0 5134 


P R T U27 

TC MO VAC 

EBANK- DAPOATRl 


Cr 3339 “tT 




SET TBS 


CS 

T 3 - 

-TCF 


T IN El 
TBASF6 
T ASKOVER 


19822 RTEF 

REE 
193224 R2F 


-19R2 76 
1 93 2 ?9 


3EF 

R c F 

REF 


23 
4 4 

1 

2 


LAST 

LAST 

t.AST 


703 


-703 


2 4.3320 3 7 6 64 

24.332^1 
“FOt 145-6 — 







2 4/3 32? 


LAST 703 - 


24 . 

24 T 3^3 2 4 


rr 

500 66 It" 
1-3315 1 


TC FINOVAC 

EBANK^ DAPDATR^l 

OYNf^TSP - 




SET TBS 


IS TIMRFLAG SET 


KILL RESTART 


CHECK FOR V06M858 (941) 


V06N35t SO OPOATF M85 FOR DYNAMIC OISP 


SET GROUPS TTMFBASE 


SET UP A JOB TO U R 0AT E 



PRl^VOSl 


TCF 


CLOSE Ot»T CLOCKTASK 


gap:’ ASSEf^3Li: REVISION 055 


L - d4o_p47 


GT” AGC f’POGRAP 


C’HMASfCHE BY NASA 'Z'Oi'l 1 13-051 


Rfl23 PPF 149 LAST 701 T4.n7‘^ ' 0 SODS T 0YND ISP “ TC TAITP'^ET 

I9^i23? ?4,3326 ^7524 1 CALL 

1GP2 34 WF “S LAST ~51T5 2”4. 3327 S0370 0 P40C.NV8b 

198236 ~ 24 n 33 0 ' 77776 1 EXIT 

1982 38 3EF 1 24,3331 1 3342““D TCF CKflVViRDl 


I a; ZB" App. — mw? — trouble .043 — pttcb — rm 


USER'S PAGE NO. -2t E7 S3 


UPDATE N85 FOR A DYNAMIC VOftNflS IN P41, 
“ PRIOR TO BLANKING AND AVEG (V16N85) 




TTS'STMtTri^rVTSrTKrDT^Th' v;c CUMANCHb NASA''202111 


10:2B APR 


1 » 1 969 TROUBLE ,tr^ — TUB 


I 


pr4n-P4T 


tJSE1^. * S ®AGE W 


2? 


E7 S3 


P I W3“ RTlUTTfiTF^ ^ C OJC K J OR TTE5 C RT PTTON 



2003 
200^ 

■ 2007031 
20W02 
200403 

200403 
200406 
“^0T34T — RTF 
2004? 

200 4 4 

~zon5 ' 

2006 
2007 

2TTCn 
2000 
2010 
201 1~ 

2012 
2013 
T2Cri“4‘‘ 

2015 
20!6 
“ ZOTT^ 

2.013 
2019 
2020" 


RFE 

TFF 

3EF 

RFF 


^ U 


REF 

REF 


REF 

PEF 


REF 

REF 

T? 

\ ^ 

RTF 

REF 

TEF 

REF 


2024“ 

2TT73 

20267“ ^FF 


12 

~T 


T6B 

1 

T 

1 

1 


169 


1 

1 

1 


13 

TTU 


L AST 
LAST 


HAST 

LAST 


LAST 

LAST 


LAST 

FAST 


703 
6 95 


LAST 637 


LAST 392 


LAST 703 


LAST 631 


705 


705 

705 

733 


705 

733 


F6 • 1 4670 

24,3332 
Z4V3333' 
24,3334 
24 ,333 5 
Z4T333F“ 
Z4,333T 
, 337ftr 
3"3 4 1 


F3Af4X- UAPOATRl 


3 0032 0 CLOCKJOB CA 


COUX 



TTr 

24 
24 
TT 

24 
2 4 * 33 46 


3343 

3344 



Zh 

24 

24 

23- 

24 

24^ 


#3347 

,3350 
.3351 
73332 



3334 


, 

24 * 3 35 6 
.24, 335T‘ 

24, 336 XT 
24,3 


LAST 540 


24.3362 

24 . 3363 
24 # 33'64 

24,3365 


54 772 1 
3 0033 1 
54 766 1 
3 0034 0 

54 770 0 
0 4662 1 
47555 1 

0 0004 0 
11*145 1 

1 33 63 0 
1 5217 1 
1 3355 0 
3 2425 0 

0 4662 1 
20715 0 

1 343T 0 



3 2425 3D 

0 4 6 62 T 
20TT5'' 

1 34U2 0 
1 3410“U 
3 — T374” O' 

31*145 0 
XT 4662"3 

“207'" 


rs 


FA' 

TS 

TC 


— CAUR 

CKNVWRDl I3HINT 



FATtlTSP 


TC 

C AOR 
TCF 
TCF 
TCF 


E“NGREgST CA*= 

TC 

TTAO 

" 

TC F 


NOFLASH 






3X 

c Acm 


CDUSPUTX 

CnUY 

COUSPOTY 

njTTT 

COUSPOT? 
3 A NK CALL 


OUTCTRIG 

NVV^OROl 

TFTFtTtSTT" 

ENDOFJOB 

FNGRE OS T 

V06N4 0““ 

3ANKCALL 

CLOCPLAY 

V97^^ 

V9TT 


V06N40 

BANKCALL 


V99T 

V99P 

V 99F 


OETERMINE RUMCTION, INDICATFO BY NYWOROl 


SPS FNGINE-OM-FNAPLE V99 FLASH 
SFS E NG FN r - TTr iF TtD VTT FL A S1=1 — ““ 


PROCEED 

ENTER 


NVWORPl 


TERMINATE 

PROCEED 

ENTER 


DISPLAY NVWOHDl NORMALLY 


REGODSP 


2027 REF 5 LAST 648“ 23# 3355 3 5060 1 E7SETTER CAF EbANKT 

202B REF 3? LAST 648 24,3367 54 003 0 IS EBANK 

2CPT RTT= 6T — L7A SI 733 5TTT4T2 EBANK= TIG 

2030 REF 164 LAST 699 24#-3370 0-D032 “0 T C Q 


2031 7-^E in LAST 5T4 24 , 3371 T "5 057 o E6SETTER CAF FBANK6 — ' ‘ SET UP EBANK6 

203 2 REE "33 LAST 705 C24#33T2- 54 003 0 TS EBANK 

?n33 REF 46 LAST 705 E5il566 — DAPDATKl 

2334 REF 165 — ITVST nTT 24# 3373 0 0002 0 Tt 0 


20245 


7Xy3y 

202;6 

2037 


REF 

REF 


47 


TF 


LArST 

FEAST 


705 

TTTZ 


7^ 6, 1 465 


? 4 #32 7 4 
Z4 , 3 3 75 
T 4t 33 7 6 


00006 1 
05024 1 


FB-ANK 

TC 

OCT 

OCT 


OAPDATRl 


7®HSCHNG 
00006 
05 024 


Kill PR:E40.6/rLaKTASK PROTECT! 
C. PRIORITY NEXT, JOB BELOW 


G A ' 


A 


S e MRL - ^ - V i S I rv.) wn'G'PAM OMANCHe P-Y' N\SA 2021113-051 


TTrrzm^ 


TTTT^ TRHUBLE .0^3 


T06 


L 0^0-047 


?037^ ■ 24,3377 27000 I 


? 0 3 3 

R”F 

3 

LAST 

698 

2'*,3A00 

0 3070 

0 

VOGEJOB 

2oT9 

2034? 

fTEF 

R'F 

'Z' 

tAST" 

6 96» 

24,3 40 1 

1 T254 

T“ 


43 




— 


LAST 

7 05 

76 ,14^6 6 



?02ro 

6rF 

277 


7(75“ 

2 4*“' 40 2 

n 53T7 

1 

■ VOGT 

2041 




• “““ - - 

24,3403 

00006 

1 


2 042 





24,3404 

05024 

1 


207^74 





^ 4 , 4 0 5 

"27000- 

1 


20 43 

R -F 

4 

LA ST 

706 

24,3406 

0 3070 

0 

VT^T JOfP 

2044 

RF'^ 

5 

LAST 

657 

24.3407 

1 ???'" 

1 



nCT 27000 

TCR TVC2AP -1 

TCf 1^4011773 


FBAMK= DABHATRI 

TC 2PHSCHNG 

nCT 00006 

OCT 05024 

UCT 27000 

rCR TVC^AP -1 

TCF P0ST41 


USER'S page no. 23 E6 S3 


WTPF OUT TVr* CLOKTASK 
VTBNBB POST-PURTsT OPERATIONS 


(FNTPY F’^OM V07T FLOW TOO) 

KriL PR F 40 ,6 /CL OK TASK PROTECTION 
C. PRIORITY NFXT, JOB BELOW 


WIPE t)OT TVCt CtOKTASK 
AVEGFXIT, SETMAXOB, GOTOPOOH 


2045 24,3410 0 0004 0 V09P INHINT 

7043 — Rev- s L TST 703“ 2473^413" ' 3Tr-T03~0 CA^ FL AGWRO? CHECK ASTN FLAG FOB ^lOR V9RP 

2047 PFF 26 LAST 695 24,3412 7 5004 1 MASK BIT12 

2043 PFF 158 LAST 703 24,3413 VO 000 0 CCS A 

204F5r 1 74, 3'414 I^“3477 7 TCF" V97F/TTG YFS , TIFFS ^US T BE" 7\ Ff ST AFT FN f R Y 


20436 RFF 
2.0437“ 7 EF 
2 051 EF 

2052 ■ FFF 
2 OFT 

2054 PFE 


27 LAST 706 24, '^415 3 5004 0 ASTMV99P CAF RTT12 

9 LAST 706 '74,3 ATS 26 T 03"~1 TUTS FLAGWR07 

10 LAST 706 24,3417 39 T03 0 CAF FLAGWROT 

31 LAST 701 24,3420 7-3003 0 ^ASK BIT13 

24^ 3421 a -OO’OF- T — EXTEND 

2 LAST 706 24,3422 1 342 7 I B 7 F VGOP/TIG 


SET ASTN FLAG 


CHECK IGM FLAG FOR TIG-0 ARRIVAL 


NO, CLEAR THE V99 AND WAIT FOR TlG-0 


?0'5T 

- - p-pF 

41 

L7V5T 

6^9“ 

24,3423 

29S6 

RPf 

33 

1 AST 

703 

24,3424 

2057 

R rp 

49 

LAST 

706 

56 ,1465 

27153 

REF 

2 

LAST 

“2T7r“ 

24, 3 4 > 5 

2057 





24 , 3426 

206X)5 

REF 

6 

LAST 

705 

24, 34:27 

2 0 6 0 6 


14 

LAST 

705 

24^,37“VT1 

2061 

OFF 

81 

LAST 

705 

24,3431 


2056 5 TFF 
2067 REF 
2 0 6 3 
2059 

2070 REF 

2071 REF 

2073 R^F 


■ 6 

"97 ST 

“677 

7:^,7277 4 

21 

LAST 

706 

2 A. 3 -=‘ 5 ? 




24,3433 




24 , 3434 

42 

LAST 

706 

24 , 3435 

4 

LAST 

43 6 

27 ., 3436 

2 

-L 5 7 

216 

24,3437 

8 ? 

LAST- 

^0 

0 

1 

1 

1 

1 

2 "-* . 3 440 


3“5017 1 
0 57 45 T 


02625 1 

50066 I 
3 2425 0 
75 ' 14T T 
1 5217 1 


0 5 3 72 1 
00006 1 
4Tr6T4"0 
3 5017 1 

0 5735 P 
“034 41 — D 

1 5217 1 


r un V9 D PT TTAF rrr r r 

T9 WalTLIST 

FBANK= nAPOAT^^l 
2CADR IG N IT 

VP^'P/TIG CAF V06N40 

— TS NVWnRDl 

FN0V99P TCF ENOnFJOB 


V97T 


EBAN K-°9S^m aSS 
TC 2PHSCHNG 

ncT 00006 

-OTT — — - 40674 

CAP 3ITI 
TC TWTOOLE 

A ORES V ^ ^ 7 TTA 9 K 

TCF ENDOFjnB 


- T TG -O HAS ALREADY 

SET UP ignition MERP 


CLEAR THE V99 FLASH AND WATT FOP TIG-0 


KILL group 6 (CLOKTASK) 

A7' 4> 67 = V <^- TTASK "T— O T3A $ F N OW 


keep PB - ANK 6 F OR -M ASSf 5 , S PS O-F F , ET C . 


2074 TFF 

2075 R9F 13 7 

20 76 -^-7 15 

“ Ttrr" “ — "ttf r~ 

207y Off R 

2 0 7*-’ REF 6 


L .TST-^ TOO ETTlrTT* 

LAST 701 ^ 26^,3441 ^ 5021 1 

LAST 706-- 23, 7442 55*146 1 

3 4 43 3 2434 0 

LAST 706 2 r3 44 4 6 1474 I 

L AST 699 24,3445 5 2 0 


P -B A t tK^- es-M-N6arSi 

V^OTT T A S K - C F 7E R O 

_ 


CTE 3 MOf .IT 

AO CSMHASS 

rs masstmd 


OISAHIF CLOCK JOB 

3 - S E CnNOS OF W >OT (2-4 S EC F N GFA H 

OETPCTrOW) NOT LOST BECAUSE THRUST 
FAILFO. COPYCYCLF FOP MASSBACK 





:vr or' C JMT^iCqE BY NA^A :> 02 im-Obl 


TDi Vy APR. 1 • 1T5^ RnUBlE .O^T oflGlF 


20-0 

20^1 

20j^2 



20-^S 

20^6 

?007 


P4 0-047 


'^FF 

^‘^FF 

R fc F 


7EF 40 (.AST 703 



LAST 

tXST 



TOT 


LAST S9B 


2 4 • 344 A 
7 - 4 , ^44 7 

,243 0 


451 


24 ,3 

’T7; 


n 541 2 0 
0'^014 1 

~n!fr 0 

0 301^ 1 
TT' 


24. 3453 

24.3454 
2 4,= 455' 


T)' 

0073 4 0 
0 5267 1 
OO'TTT’T 


3CT 


ntc 

TCR 
TC ■ 


TJCT 

TC 

TJFT 


PHA SCHNG 
05014 
^ 

SPSHFF 

PHASCHNG 

00714 

FTXOFLAY 

■Z50 


USPPTS PA5E NO. 24 


F6 £3 


C, OFLTAT MFXT, TASK BELJ^W, IN 

-0 CS 

SHUTOnwi«.| SPS ENGINE, ^^ASS UPDATF, ETC. 


A, 4.71 = VPT'TRCS 1250 CS), TBASE HLO 
DELAY 2.5 SECONDS FDR (POSSIBLE) TAIL 

-LOSS) " 


TTFF 



20BB 

27)7Cv 

20^0 


~) r p 

7 . r 

PTF 

REF 

Q Pp 


20TZ 

2093 

2094 
2 0^ 4 

2095 


2 0^7 
20P3 

2099 

2100 
71DT 




REF 

REF 

REF 


7TTT3 

2104 


PTF 

RET 


FEE 


3 2TD6 
A 2 1 07 
2105 
210^ 
21 IP 

2 in 

Til'’ 

211^ 

2114 


REF 

TE~F~ 

REF 
P EF 
TEF 
REF 
RE 


211 5 

zr 1 7 


50 

77 

3 

4 


LAST 
L A ST 
LAST 
LAST 


706 


6,14 o 6 



7^,3'4-56' 0 4 740 D V^TTRCS 


74,3457 

24 ,3460 


42024 1 
3 7564 1 


43 

5 

2 

33 


LAST 
LAST 706 
VAST 2T6 
1. AST ■^06 


6 

y 


rTTST 

LAST 

LAST 


TOT 

70 7 
105 


7 

'16“ 

I 

T5 

1 

51 


LAST 
L A ST 
LAST 


706 

TOT 

688 


tTS3 HIT 


LAS! 7r)7 


LAST 707 


21 IS 
2119 

21TO 

2121 


0 r p 


PF 


'-f 

r 

OFF 


5 

6 3 


5 3 


I AST 
LAST 
t .rST 
L AST 


702 

~zrrr 

TO-T 


> 

/ . 


■24',34To- 
24,3467 
74,34 70 
74, H471 
24,3472 


40734' 

3 5017 
0 5235 
03473 

r 5217 


u 

1 

0 

1 

I 



, 1644 


76 , 34 73 
24,3 6 74 


3 I • 4 44 1 
55*643 0 


24,3475 

7^T3TT6 

24,3477 

24.3500 

24.3501 

34 ,350 2 
24,3 50 3 
24,3504 

74 , 3 50 5 
7 6 , 330 ^ 


3 24?5 0 


0 5546 0 
00030 I 
TT “T5T5 T 


00042 1 
0 T4-1? 0 
0 0 134 r 
0 5267 1 
00310 0 


F 177 7 

24,3 50 7 
2 7, ' T i n 
, 33~1 I 
?4,P5! 2 


0 55 4^ 
' 000 30 
0 5412 
0 0 0 *7 4 


T 

r\ 

0 


KcF 

“Z3“ 

t:a‘5T“ 

703' 

2^,T46T 

Tr‘5T34~ 

r 

kFF 

51 

LAST 

707 

P^6,1465> 

' 

- 

REF 

2 

L AST 

705 

24,?462 

03402 

1 





24, 3 4 6 3 

500 66 

i 

PFF 

36 

LAST 

703 

74,2464 

1 5?2A 

0 








R F F 


LA ST 

59 B 

E6 ,14 44 



2 EF 

50 

L AST 

707 

74,3465 

0 5412 

0 


FBANK 
Tt 

CAOR 

CAF 

Tcr — 

SPANK 

2CADR 


DAPOATRl 

TBNKCALL 

PCSP'APnN 

PrTO?? 

NCVAC 

n'^POATRl 


EMDVOTT TCF 


TASKOVER 


V97P 


E3ANK 

TC 

ITCT - 

CAF 

TC 


V97VCNTR 
PHASCHNG 
4X7734 
B I T1 
TWIDDLE 


TCF 


EMODF JOB 


V970TASK CAE 

TS 


V ^^ T /CNTR 
T77VCMTR 
vr.NTR 


CAF 


TC 

A ORES 


AORES 

TC 


TC 


VD6N4D 

NVWnRDl 

UPFL AG 
I [<LFFA IL 

ttP- p - LA O 

STEERSW 
PHASrNNG 
00134 

F I XDELAY 


vjf 


1 P40FNA8L 


EBAA»K 

TC 

TC 

ncT 


wnnCARES 

D01*!NF<. AG 
-fTt-" 


PH A SC MNG 
00 DO A 




?“TETn-KrG- T3^ BTTT TD 
KUL TVCFXrC/TVCROLLDAP STARTS 
SET DP V99r FOR TVCZAP AWO PDST41 (SET 
■ MA X OB 



EBANK6 FOR SrTMAXDB IN PnST41 


a, A. 7 3 - 



TTlTTr.- TBTSF Ntn< 


GET YASS UPDATES (TVCFXEC) GOING AGAIN 

(FURORS IF FLASE THRUST-LOSS AND/OR 

P DO D S Y M CTr-nF-H AN -tt At PNGTNE"^Q17 AHO 

THE VERB 97 PROCEED) 

REDISPLAY Vn6N40 


SET TOLEFAIL TO ALLOW R'-l-BY^ASS, IN 

CASE Of unfavorable S40.8 SYNCH 
SET STE E R S W TO RE-ENAB tF^ ST EER T N G - 


7Lt 4. IB - R40ENAB t- (2 0 Q e 5 -I > - TBA ^E 
WAIT ? SFC0N05, THEN 


RF-fNABLE R4D BY CLEARING TDLFF^II 


KILL GRnU‘> 4 


G A pT^ AS3T VI ’ ' FvT^~r:Fr(y^5 ^\y nasa 20?iiM“T)'^r 


HM2^ APT 


mPTfT^ nOiTBLE -043 FA-GE~ 708 


L 


p/,0-P47 


USER'S PAGE m. 25 


E7 5^ 


?12o 




3T LAST 707 


24,3513 1 5324 0 ENnVq7P ICE 


TASKHVEP 


2124 P5F 5 LAST TOT FT, 1777 E3ANK^ WHOfAPFS 

2125 REE 53 LAST 707 24,3514 0 5412 0 V^TE TC PHASCHNG 

2TZK 24 , 3 5T 5 4 05 34 1 OCT ' 40534 A, 4.53 = VPTETASK (-0 CS) , T3ASE 'TjnW 

2127 RTF 44 LAST 707 24.3515 3 5017 1 CAF BTTI 

2173 pfF 34 LAST 706 24,3517 0 5243 1 TC WAITLTST 

2 1 2 5 REF ^ t AST m3 17,141? ' EBANK= TTG 

2130 2FF 2 LAST 216 74,3320 03523 0 2CA0P V07FTASK 

2130 74,3321 30067 0 

2731 7EF 54 ^ LAS? ^TOT 74 ,?5?2 — IT 571 7 ”1 TCF 5TTnnF jno — 


2132 

REF 

213 ^ 

K bF 

2T3 4 

REF 

213S 

RTF 

2135 

F F F 

21 "7 


21 

R EF 

2T^v ' 

REF 

2140 


2141 

Pl=p 

214P 

REF 

2143 

— - ■ - - - - 

2143 

A FT" 

2146 

T?-p 

2147 


2147 

'"FF 


7740 


63 

L A S T 

70 R 

5 

L A S t 

r 3 

64 

L AST 

70B 

8 

LAST 

707 

T7 “ 

LAST 

TO? 

3 

1 AST 

697 

Q 

.* 

LAST 

706 

7 

L AST 

T06 

10 

LAST 

707 

3 

LAST 

706 

5T " 

t71ST“ 

70B 


4 LAST 

55 L AST TTS 

5 LA5T TTT 


^7,1412 

~74 7T523 4 41 1?' O " “ 

74,3324 55’412 0 

24,3575 3 2425 0 

“74 ,3325 35 m.?5 T 

74,3527 0 33 71 1 

F6. 1474 

• 24, 15 30 “ "T 2434 0“ 
74.3331 6 7474 1 

74, 353 7 55 « 657 0" 

24,353 3 0 54ir cr" 

'^4,3 33 4 00754 I 

74,35^5 0 3017 1 

~24T3 336' ir?417 "0 
24,3537 00114 0 

24.3540 0 5767 1 

24.3541 00377 1 


F8ANK= TTG 

V07FTASK“Tr5 aCT2'4 

TS tig 

CA? V06V+0 

— yxp WYWn^TTT 

TCP F6S^TTFR 

F3ANK= CS^’‘TASS 

T AT — 3?nrrr— ■ ^ 

AO CS*^TASS 

TS VASST>1P 


rcr 

OCT 

S'’SP'FF97 TCP 



ncT 



tK)754 

SPSOFF 


00114 

FIXOFLAY 



FtTRCC — R1 op V06N40 TO “RTAtT 
REDISPLAY V06N40 


RETtiPN TO FBANK^. FOP PFST OF V97ETASK 

3 S EC ONDS OF AIT 

DETECT ION J NOT LOST BEC AUSE THRUST 
FAILED.. ..COPYCYCLE FOR MASSBACK 


At 4.73 « SPS0FF07 (-0 CS), TRASE OLD 


At 4.11 ^ V97E40.6 (250 CS)t TBASF OLD 
DELAY 2.3 SECONDS FOR (POSSIBLE) TAIL- 
— ^ O F F ( FALSE THRUST-LOSS ) — 


2 1 50 

IFF 

32 

LAST 

70 7 

F6. 1446 

2T5T“ 

F HF 

f 


TRrB“ 

24, 1542 

2V'i7 

REF 

35 

LAST 

707 

2-^, 3543 

2 1 53 

RFF" 

2 

FAST 

675 

E 6 j 1447 

2 1 5A 

E b 


latst 

21 8 

P ^ f 3 F ^ ^ 

2154 





24,1545 

21^:, 

^^EF 

2 5 

LAST 

707 

24,3546 

215 6 

Tv 

. $ 


1 S T 

707 

2?,“?T4T 


EBANK= DAPDATRl 

3 3017 — t V97E40.tr?AFr ^ BTTt — 

0 5245 1 TC waitlist 

E8ANK= CNTR 

02241“ 1 2 C ADP 

40066 0 

0 4740 0 TC IBNKCALL 

4 2 0 2 4 ~~T ^ ADR RC SDA P ON 


\2157 


2155 REF 2? LAST 

706 ?4t 3 5 30 

D 33 72 

1 

TC 

— ■ #>•% «0 T* 

?r50 “ 

" ■“24T3R5? 

0002 3” 
05014 

0 

1 

ncT 

1" 

2160 

24. 3 5 5 2 

uC T 

21 .02 - 

24, 3333 

77777 

0 

DEf 


2PHSCHNG 
O O D76 

05014 

-0 


USE $4Qi T R ir ^ A RT ENTRY TO TRI M -ENGf ATE 

RCS DAP IN 0.6SEC» SETTING T3 BITS TO 

Kr l t T EX e C/TVCKOLtOA? - STtAR T S > 

- LEAVE NARROW DEADBAND FOP REIGNITE 

-At — 6 t“ 2 — = — PR F40 .6 — t*“OCS )* ftOKTASK T IS PC ) 
C, OELTAT NEXT, TASK RFIOW, IN 
-0 CS 


2161 
2142 - 

• c F 

’’FF 

3 

11 

LAST 

LAS'I 

7 0 

706 

24, ;v5-*^4 
24,0553 

4 3066 

7 0103 

0 

] 

% - 

OtilfKIGN CS 

MASK 

2160“ 


~~3T 

1 TTST 

IT 0 o 

2 4 ', T 356 

b 50^*^ 

1 

AO 

2 I 64 

- rp 
_ ■ 

12 

1 AST 

70 B 

24,5337 

34 103 

1 

TS 

2 1 >5 

■TF 

7 

LAST 

TOO 

24,3*^60 

0 3267 

1 

TC 


PR 1014 CLEAR ASTNFLAG AND SET (GNFLAG FOP 

FLAGWPD7 IMMEDIATE RESPONSE 


FL AGWP0 7 

FTXDFi AY DELAY TO ALLOW TIME fOR PRF40.6 




, . I - T r 


■V \ 


• r *. 


» ■ -• 














■•7 , 


•f 4 





I 









* 









GAP: ASSFmBlF PLVISION 055 OF 

- A'oC PRDG'^AM COMANCHE BY NA SA “ZOR 1 1 1 8-Ob 1 

10:28 APR. 1 ,i‘iA9 ” 

trouble 

TTnn PTtCF TXT} 






L P 40*“ P47 


USER’S PAG F 

NO. 26 

1 

1 

1 , 

k 1 

1 

II 

1 

C/^ 

1 


2^T3 5^1 


00036"T 


DEC 


30 



THT? 
2168 
2169 

2 ITT" 

21*71 

217? 


“21T3^ 

2174 

^ 2175 
~2TTC 
2176 
A217r 


WEF 

RFF 


RFF 


REF 

REF 


TB 

23 



14 

3 


OfRT 

L/\5T 

LAST 


LAST 

CAST 

LAST 

LAST 


TDT 

70 8 
708 


694 


69^ 


ref T8 LAST 70S 


■24t3S62 4^ 5007 1 TWFOTSmrS 


24,3553 

24.3564 

24. 3565 

24.3566 
2 ^ ,3 5 6 7 
Z4 , ’35*70 
ET , 1437 
34,3571 
24, 3 S fZ 

34 , 357 3 


55^145 1 
0 5372 1 
"407 74 1 

00033 1 

3 5002 0 

514 7 


XJ 


U 


03427 t 


*34067 1 


TS 

TC 

3CT 

OCT 

CAF 

TC” 


BTT9 

NVWOROl 
2PHSCHNG 
40774 


00033 
PR 102 0 
FI NOV AC 

TBATrK= TGO 
3CA0R 540.13- 


'=N0V97E TCF 


TASKOVER 


CAUSE V99 TO FLASH 



= TTG-0 C- 



T7F3TVC 


3.3 = $40.13 ( PR in 20) 
SET UP TIME BURN 


WAIT FOR CLOCKJOB (IMMEDIATE) REACTION 

TO FLASHING V99 RESPONSE 


R2178 
"T2179* 
R 2 1 80 
R2181 


nn NO? 
• TD D 'EY 


LOG SECTIDN P40--t^47 






R213T 

R2184 

K21F6 


^2186 
R 2 1 '^7 

rr 


r? 

R21B9 
R 21-0 

■F3m: 

R2192 

^2143 

■R3TT4 

R2195 

72196 


R 2198 
R2T99 
3330Tr 
R2201 
R 2 202 
8 2203' 


K2205 


32205 

82207 

R2303 

33209 

K 2 2 10 
P2211 


FU^4CTT^NAL DFSCRTCTTHN 

COMPUTE INITIAL THRUST DIRECT lOKM UT ) 

VECTOR XYGTTGTT; 

CALLING SEQUENCE ^ 

L CALL “ 

X+I S4U.1 

TIORHAL FXIT MODE ' 


IMITI VALUE OF VG 


AT L^-R OF CALtIMG SEQUFNCL 
ERROR RETURN IF NOSHFLAG = 


(GOTO C-f-2) NORMAL RETURN OR 


r 


S UBPOiiT I NC 5 ' C ALL ED 

C 5 MPR3C 

mTTVEt — 


■ calcgr:av 

MIDGTM 

A LTLRR-n 4-ABORT~EX I T MOOES 


L + 2 
ER A S ABL E 


TF 


OF CALLING 5EOUFNCE,UNSOLVABtTirnNlC IF NOSOFLAG=1 
IMITI AL IZATTON REDUIRED — ~ 

U E TCFTT/G^" ANTTCT RATED 'lAC. OF VEKtCtE '^A-CS 

XOFVVFLG r-DEtTr-V MANEUVER, 0=AI MPT STFER 

OELTA-V MANEUVER 

DEL VS IN S PE C T F TE D D E L T A-V RED O 



D E tT rO AB 


IN^PTIAL COORDS. OF ACTIVE VFHICLF 
AT TIME OF IGNITTON 
H A G . ' OF 



VTIG 
C STEEP 


0 


POS I TTON AT T I HE O F I G N I T I ON 
VtLOCtTY AT TTMF OF IGMITICN 

rrp 


VECTOR B7M/CS 

-OP B7M/CS 

VECT0R-”ft29M 
VECTOR tt7M/CS 


IF 

TF 


ATHPt-llUT STF' 
ATHPT STEC^» ' 

ttg m 



MG — 




7F-T 


t 1 


on 


03 


8-23 0 S 


RTARC POS^n !-O0- TARGFT t[ME 

CSTEEP pCSTTF^tG’> 0) DP f^l 


VECTOR ?3 29M 



I 


G A P : AsT'E 'BLF PFVISUJ 




aTTC program C)MAf>rc'nF""FrY NASA 'iy2riT3-‘05 1 


TO'iZB 4PR, 1 , 1969 TK 


n^o-P^T 


R221? 
k221 3 


TPASS^ - TIME nF“AFfPIVAL AT ATMPniNT 


OUTPUT 


R2214 

R2215 

R2216 



R 

R22ia 
R221 0 


R22?^ 
P 2225 


2227 

2223 



““ITT 
VGT I G 



F 

RDT 


1/2 tlKHT' ?FCTOR' ALTGMf’n WTTH'T'KRU^T ottfECT lUN IN KTF'CTTOK 

INTTTTi: VALUE np VELOCITY ~ 

TCr FF'TAINEO (INEPT. COOPO.T VECTnp B7M/CS 

O/GTTG IN LOG. VERT. COtJRDSV B7M/CS 

NOMINAL THRUST Pip ENG USED FOP S40. 13 DP B7 M-NEWT 
V RFOUIPPD AT TTG -V ^EOUIFEO AT (TIG-2SEC) 



“^GTrr TUFT SAO. 13 — — 

P TT G C Atrr T N S 4 0 . 1 B ( A T M PT ) FOP S40 .7, 3 

POSTTrUU AT TIME HE IGNITION 


VECT BTM/CS 


VECTOR 329M 


OEBTTrS 


REF 


rTTFMPT 

MPACtOPPET 
PUSHLT ST 
■ ITT X2 V R I X 1 


1 


14,701 1 
16,2000 
T6T?G7n 


B A NK 1 

SETLOC P40S1 


trSER’S PAGE NO. 7T 


1X43 FUnTE nV 


E6 S3 


2230 


REF 


1 


COUNT 16/S40.1 


2231 

2237 


23 3 

2234 

2235 


2237 

223B 

2230 

2240 

2241 
T224TT 

22417 

22413 

72Tr4 

2242” 

7243 

22Tzr" 

2245 

2246 

"2247 

224^ 

224*^ 

273a" 

2251 - 

2252 - 

2253 ■ 

2254 

2255 


p 

' \ 


LAST 7G0 


REF 


TEF 

REF 


REF 

REF 


TEF 

REF 


r\ t 

'^EF 

REF 

7 c F 




ppF 


PTE 

-Er 


1 

10 

3 


"5 
1 T 


2 

B 

rz 




2 

1 

3 LAST TOO 


15 ,7020 
15,707 1 
16,2022 

r6V7023 

16,7024 



609 


Ti5T7TTZ5“ 
TE , 2026 
Te,”207T 


7T21 4 TL 

oioTo r 

TT556~r 

0 3 705"U 
43020 1 
03657 0 

0- 


^40t1 


SET 


LAST 

LAST 


6T8 

678 


16 ,2030 

1 6 ,~2 03 1 
15,2X132 


34 11 (TO 
51 575" T 

03646 0 
03654 0 


LAST 

LAST 

TTST" 

LAST 

LAST 

LAST 




16,2041 
16 ,7047 



2 LAST 


770 

103 


T6T204T 
16,3044 
1 6 04 5 
7 6 ~ t 2 04 5 

16,704 7 
15,7050 
7 5 , 20 51 

16 . 2 05 3 

15. 2053 


2771^ I 
03632 0 
03 570 0 
65236 0 
00045-0 
56275 1 


3415? 0 
4 J 2 05 O 
036 -5- 4 0 
03t)76 0 
77671 } 


STORE 

STQ 


vloao — = 

FI-^STELG 

LPB ZFRG S 

BO T 
BOF 


T 


STORE 


XOELVFLG 
S40. IB 

ABVAL 

OELVSIN 

Df-LVSAB 


77207 1 
0000 1 0 
03 6 4 O' 0 
03576 0 
53435 0 

16,704 0 03'532 0 — 


SETPO 


VLOAO 

0 



STORE 

VXV 


VI NI T 
UNIT 


STOVL 



VSO 




OMP 


UT 

RTIG 

RINTT 

P13UL 

360 

uov 

THETACON 

OMP 

t rEt V SA B 

WETOHT/G 


ODV 


LAMBERT 




COMPUTE for P30/P40 INTERFACE 
T^ HUS PE f T Mt TT ttt O M LmUt E- O N L 7 -EttAN^ 


UR IN UT 


P 40 -P 4 T 





“3“ I 



2 257 
2 7 b 5 


n nrsrr 


TTIT 


225 





4 


LAST 711 


2254 

2265 

7755- 


2268 

2267 

727 0 

22 n 

72T2 

2273 

2274 


TTEF 


R5F 


5 CA^ ~7TT 


LAST 6B5 


22 76 
2277 


RFF 


LAST 711 


2 2 7^ 
2280 


RFF 


LAST 711 


2231 

2282 

7Z8T 

2234 


RFf 

TTFF 


6 


LAST 

LAST 


TXT 



RFF 


LAST 648 


77F6 


REF 


LAST 642 


15,7X154 

16 . 7055 

16.7056 


03727 0 
240IT 1 
03646 0 


12 LAST 711 


16,2057 
16.2060 
16;2061 
16,2067 
” 1677063 " 
T6,“7'064 
157 706 5 
16,2066 
16 , 205T 
16,7070 
”m27TTT" 
1677072 
16.7073 
r 677 T) 74 " 

16.2075 

16.2076 
■T6,2077 

16,2100 
16 iTlOl 
T 6 T 21 TTT 


167 
L6 . 2104 


16,7105 
r 67710 X^ 
1637 


7230' 

2?O0 

2291 

REF 

9“ 

65 

~UAST" 

LAST 

^xr“ 

708 

“7797 

- -RTF” 

1 



2 2^3 ■ 

-R<:F 

36 

LAST 

686 


”RFF 

1 1 

LAST 

701 


77 '^5 


22Sft 

REF — 


LAST 

71 1 

jf 

729T 

REF 

10 

LAST 

^0 I 

2'2'T3“ 

HtF 

2 

LAST 

^>4 1 


^>8F 

13 

LAST 


7300 

641 

230T 

R EF 

7 

LAST 

711 

2r^02 

RFF 

6 6 

LAST 

71 1 

2303 

^er 

38 

LAST 



16 , 21 10 

15.2111 

16.2112 

16.2113 

16.2114 

16.2115 

16.2116 
16 ^71 1 7 
16 , 2120 

16 ,-7121 
iev71 2 ? 

16,7 1 2 3 

16.7174 
16 it 175 
6,7126 


1 6.7177 

16 rtlia 

16, 2 131 

16.2137 

16 t 


7 42 41 0 

03/13 1 
03713 1 
41552 0 
55245" r 

03646 0 
OOOlTr 


63356 1 

00007 0 
53435 0 
03713 T 
45561 I 
50056^ I 


00017 1 
74346 0 
74755 0 

03721 0 
00045 a 

53352 0 


T7676 O 

74057r 1 


77656 1 
27713 1 
03 T ?1 O 

4300 6 0 
0107 2 0 
77624 1 
1064T a 
77650 1 
03657 0 

1 


GAP3 A 5s F ^T bl^E' F E V I S1<W055 ' Or"^ A G7!“FP. OG RAM CO M A MC HL "FY'"MA 5 A 2021113-051 


in:73'A'PR 


TTTTOO IKUUBLE .043 PTTGE TIT 


USFPIS PAGE NO. 28 


E6 S3 


S40,1F 


03413 1 
36001 O 


14041 1 

1 


77625 o 

tmo4i i 
37473 0 
6165 1 1 
77775 1 
“036rl t 


17 7 13 1 

X) 343: 3 1 
000 A 1 1 


STOVL 


1 4 0 

DEL VS IN 


rroT 


VSL2 
B VSU 


STM 


vxsr 

irr 

UT 

PUSH 
PTJDT 
DEL vs IN 
14^0 

POVL 


vxv 


60 

UNIT 
^ 

VXSC STADR 
STOVL VGTIG 
UNTl — POOL" 

140 

cns VXSC 
““ VXSC 


Ym 


VGTIG 
3 60 


VStt VATT 


STAOR 

STORE 


VGTIG 


UNIT 

STOVL 


PUSH 


UT 

VGTTG ■ 

SET 

AVFLAG 


cinn: 


0X1 TO 


I OG I M 



OLOAO 


S TOOL 


DSU 

TIG 

T WQP T ■ 

TT1EC1 

TPASS4 


TOECl 

STCALL nELLT4^ 

A G A T- N - - 

VLOACr 


STO ni 


STORE 


VI P P I HF 

tlT — ' 

T I G 
T 0 E C I 


(DELTAV.UPIUP SCALED AT 2(+7) P.D.L. 0 
DELTA VP SCALED AT 2t+7) «».OTLT 


UNIT(VPXUP)SIN(THETAT) IN VGTIG 

OTP'I — m FrDvt . 6 — 



VG IGNITION SCALED AT 2(-^7)M/CS 


THRUST DIRECTION SCALED AT 2{^l) 


VGTIG IN LV COOR AT 2 IT 7 IM/CS IN DELVLVC 


LAMBERT 


t 


TTKp 


ASSEMBLE RFVISfC'lN 055 OF ASC PROG’^r 



&Y"NASA'2O'^^lHB-0Sr 


10 J 2 B App. — rrrw5 — TT^T)ijBLr' •dab — — rrz 


i 


P40“P4T 


XrSER«S^ t>AGE NO. 


E6 S3 


2304 

2305 
TJWh 
2 30^ 
230P 


V FF 



REF 


12 LAST 

rAST 

3 LAST 



231 


> 3 


REF 



2^317 

2313 

2319 

2320 


REF 


REF 


2322 


2323 

23Z4 

2325 

2326 


?.EF 


F 

5 


23 27 

232Er 


TRFT 


T3 

12 



2331 

2332 

2333 
2314 
2335 
'ZT^F 

2337 
233 8 
2339 

23 AO 
2341 
2 342 

2343 
12344 
2 34-5 
2 34 h 
234? 


RTF 

REF 

PEF 

RFF 

REF 

REF 


zr 

r) 

13 


711 

7TT 


711 


RTF 13 L A S I 
REF 10 LAST 


F4Z 

7TT 


^TF ro LAST 
RTF 3 LAST 


7TT 

7T1 


1 4 •2134 

16.2135 

16.21 36 
16, 213T 
15,2140 
16,214J 

16,Z14T 
15, 2143 
T'6;T144 

16 ,2 1 45 
IF, 21 46 

16,2147 

1 6T21T 0 


771571 1 
^3656 1 
37423 0 

51551 1 
41575 0 
■D3646 0 

03721 0 
45014 0 
01072 0 
r064T 0 
5 2 0 OF t 
TO 001 ■ 0 

61704 0 


^TST 

TPASS4 
STCALL DELL 14 


““ AGAIN 

VLOAO PUSH’- 


STORF 


5ETP0 


DELVEET3 

VTTTG 

CALL 

AVFLAG 

5inG.!'«’ 

GOTT 

T — — 

CALCUT 


16, 7 151 


“16 ,2T52 
30,7000 
30,354'5“ 


00024 T 
13714 1 


THFTACON 20EC 


. 31830989 B*=5 


SETLOC P4T53 
B ATJK 


COUNT 24/S40.1 


3 0^36 45 


04000 T 
OOtlOT T 


EP4t45>H 2aEf. 


125 



"3 0;35 47 

301355 0 
30 , 355 1 
30 , 3652 


00707 1 EP4(10)H 2DEC 


LAST 



03435 t 
45020 1 
03730 0 

27071 
65134 3 


AGAIN 


STO 


SXA,2 


CALL 

OTENPl 

THIS OR EC 
SXA.l 


550 

673 


TATT 
LAST 
L AST 



7 

12 


LAST 

LAST 


64 0 

710 
710 
6 53 

7 1 0 
710 


RTF 19 LAST 701 


REE 

RTF 


LAST 637 


> F p 


RFF 


30, 3656 
30, 3 
30,3660 

303661 

30 7366 2 
3073653 

30.3664 

30.3665 
30T3556~ 
30, 3667 

30,3670 

30735 rr" 

30,3672 
30r3T)7R 
30 73oT4' 
30,^675 
30 , 36 T 6 
3 0 ,35 7 - 7 


03746 T 
03T45 1 

777 75^3 

03632 0 
7 T51^ 0 


T X 1 


VLOAO 


STORF 

STOVL 


03640 O 

0 


03 5 76 


57201 0 
00001 O 
15335 0 
43125 0 
21646 O 
03 705-0 
616 77 0 
77745-1 

irt 1 


STORE 

STORE 

SE TPn 


POOL 


RT IG 
R I NIT 

VATT 

VT fG 
V!NIT 

S L-t T A T 

0 — 
HI 67F^^nS 
-&tlN 

F-P4( 45 )H 
N OR M S W 
^r3 


DLOAD 


LAST 555 


4 -5-00 6 0 

TOtTTTO 22000 1 

>001 1 


3 0 , *> 701 


> 4 


PUSH 


SFTPO 


f P4no)H 

-e-^ -L i: — =- 


I ‘-OTVEL 
GOin 


TDrp= A55£MCLe RPVISIOM 



CTPTANCHf RY NA?A 2021 1 1 H- Ob 1 


10i:>8 API-'. HTW? rPOUBLE .0A3 PStJE TTBT 


l^'CP- P -57 


USER'S RAGE NO. 30 


E6 S3 


23 

73'*-i 


?337 



J 

2355 



235« 

7T5"^ 


2 55 1 
2362 

2353 
23 64 


2555 

2366 

236T 


2369 
73 


2371 
2377 
73 


2374 

2375 
YTTE 


23 7 T 
T3T 9- 

^330 
2381 
2332 
23 33 
23^4 
34 


SEF 


7 LAST 712 



10 

1 


9EF 


r 

2EF 


33F 


7FF 


2 


o 

\ 


LAST 712 


LAST 711 


■31)4 ITUr 
30,3703 

“TnTTTW 

^0,3T05 

3X1,377)6 

"3XT73TTrr 

'30,3710 

30,3711 

30,3/12 

3T),3713 

'3X3,3TT4 



7T3 


LAST 638 


EF 11 LAST 712“ 


PEF 

4 

LAST 

711 

REF 

3 

LAST 

7 1 0“ 


T7FF 

3FF 


10 


t AST 
L AST 


T13 

711 


30,3715 

3 01 37 16 
30,3717 
30 , TTZ'Or 
3073727 
30 ,3722 


aoxror“o 

03730 0 
45T75 0 

03632 0 
77353 1 
TTJTT2~TT 

21747 0 
52315 1 
03 1. 1 2 1 

037 13 T 
52341 0 
2T77r7“TJ 
72 5 61 0 
03703 0 
24^015' 0 

03721 0 
41 4 55 0 


CALCUT 


30, 1723 
30,3724 
■ 30 ,3725^ 
^3X1,3726 
30 , 372 7 
■JO, 3730 

30.3731 

30.3732 

30.3733 

3Xr,3 734 
“3X173 73 5 

30. 3736 

30.3737 

30.3740 

30.3741 

,3742 
30, 3743 
3033774“ 

30.3745 

30. 3746 

30.3 7 4 7 


74241 0 
00015 0 
OOOO'l 0 

51332 r 


00 0 15 
T40T5 

0 3 72 7 

56261 


030 76 

63316 
00015 0 


0 

3 

0 

1 

r 

0 

0 


7/636-7 
75421 or 
76561 1 


"5 3 4 55 
00015 


03657 
01440 
OOTT! 


0 

O 

3 

0 

0 


VLUAD 


200CS 


VSTT 


PDVL 


V7SC 


VXSC 


STnVL 


t jtvi f T 


DOT 


VSL2- 


STOOL 


SRR 


OSQ 


VSO 

BOStJ 


YA3 


ST tAtL 


20EC 


O" — 

0TEM21 “ 

■CTxrt: 

RTIG 
CALCGRAV 
V7SO 

20DCS 

VStJ 

VTOR IML 

LIT — — 


GDELTAT IN nPAC AT ?(4“7)'^/CS 


G AT 2(-5) M/CS.CS 


203CS“ 

VSL2 

CSTFER 

720 

VGTIG 

PUSH 



UG PDL 0 SCALtO AT 2(+l) 


VXSC 

120 

0 . 

8VSU 

12D 




WEIGHT 

PDVL 


/G 


F/MASS S0tl4RE0 POL 6 AT 2 ( - 1 0 ) M/ ( CS .C S ) 


SORT 


IT 
120 
trr 

QTEMP 
2 00 B 


-12 


GAP 


D • 


ASSEMBLI^ 



0 S'J OP AGC—PRHGRA * COMAMC HF 'TTVM'A'SA -2U2i L I i-Ub 1 


TUTZH 


1,1969 


TROUBLE ,0-^3 PAGF — 714 


t n4o_p47 — — “ USeR^S PAGE WJ. 31 E6 S3 


P23RS PROGRAM DESCRIPTION S40.2.3 DATE IF, NOV. 66 

R232S MOD NO 2 LOG SFGTTDN P40-P47 

MOrV “RT 'TTLniN 

R23RB FUNCTIONAL DESCRIPTION 

R21R? COMPUTE GTM^BAL ANGLES IF THRUSTING OCCURPsED WITH PRESENT I MU 

R“2 3 90 flRI tNTAOTDM, ’^INGS LEVEL SPACECKAEUHfcAUS UP 

^23r^\ ““ COMPUTE X AXIS OF ENGTNF FELl 

R239? ■ ‘ COMPUTE PREFERRED TMU OR I ENT AT T ON ( X SCR EF ) 

ITZTTD ~ “FOR THIS CALCULA 11 UN • ASSUME X AXIS OF 5C ALONG UT INITIAttT, — “ 

R23D4 YSC=UNIT(XXR),7SC=UNTT(XX(XXPrrRAND ROTATE ENGINE BELL ALONG UT 

R239S NFV^FC AXES WILL 3E APPROX, WINGS XEVEL AND NEW SC AXES IN REF. 

■ ITZIDS ' — - 

R2397 COMPUTE DESTlreo THRUST DIRECTION IN SM COUPDS . 

R239P CALLING SFOUHNCE 

^ 23 q ^ U CALL 

R2400 L+1 S40.2,3 ' ~ 

R2401 NOPMAL EXIT MODE 

RT402 AT LF2 nr'XATLTNrrFEOUENCE (GOTO L+2) ^ 

R2403 SUBROUTINES CALLED 
R2404 CALCGA 

R74TT5 AL APTr nP ABORT' HOHES 

R2406 NONE — 

'~“RZ4-07 ERASABTE I NT TI At I 7 ATItPrTtEDU IRED 


■ RT4TTS ~ PACTOFF rnTAf 'PTTCH TRTM""ANGLE SP AT 1.07^ Bill REV. 

R2409 YACTOEF TOTAL YAW TRIM ANGLE SP AT 1.07'95lll REV. 

R2410 UT DFSTPEO THRUST DIPECTinN VECT . B2M/ < CS . CS ) 

FZ^TT RTTG PO S ITI ON A T TI M E O F I GN ITI ON — V FCT . B ?S W - 

R2412 ■ ENG2ELAG hn^pCS 0FF=SPS — — ' ' ' 

P2413 OUTPUT ' " — • ' 

R 7zn tT— ■ "SCAXT S — ^ ' im T V E C T . AL T GN EO W IT H E N G B E tT T N- SC COO P 6 1"" 


R241T XSCPEf UniT-VECTURS- At IGNED WITH PREFEPREtT IMU Bl 

P2416 YSCREF 

112417 rSCREP — — 

P241R GIMBAL ANGLES IN THhTAO 

R2419 POTNTVSM UNIT VFCT ALONG DESIPEO THRUST DIRECTION IN SM Bl 

Tr2FRD DTBRTS 

R2421 PUSHLISr,OPPl T.MPAC 

R2422 OTFMP TEMP. ERASABLE 

Z423 24'*3F/4 — 3ANK 

2424 FF 3 LAST 638 24,2000 — — SETLOC P40S ; “ 

2425 ■ 24,3574 B&NK - 

“T4Tr6 RTF 1 — COUNT ’ » $ $/S40.2 — 

2427 “ ^ 24f35'?4 64375 1 S40.2,3 VLOAD MXV 

2428 pff 10 LAST 713 24,3575 03713 1 UT 

242 9 ~ CFST "irZZ 24,3ST6 01736 1 — RFESMMAT — — 

24 30 “ ?4,357? 441T2 0 VSLl STO 

2431 RFC 11 LAST 713 24,3600 03657 0 QTEMP — 

— 242T “RTF 5 LTST — 6T2 2 4,3601 . 03357 0 STORE P^ T NTYS“M THRUST — TN — SM — AT 2 

243* -24,467)2 43001 1 SFTPO BON 

P434 24,-3603 00001 0 0 - 



iSLE"i^F.Vl<;iONi 0 



OF AGC “PROGRAM COMANCHE tiY^AYA ' 202 1 nT-051 


TDTZH AP^^. ltl969 FROUBLE .0^? PTTtTE TXS 


Df»o_p47 


USE!5«S PAGE tin. 3? 


E6 S3 


24TS REF 3 LAST h^H 



24^"3 RFF 20" LAST" 712 

” 2Wr' ■“TrFF"' 3 LAST m9 
2441 ~ “ — 

244? REF 1 

"?443 “ 

7444 RFF 1 

2445 

“^744Er "■ " "■ 

2447 

244? R^F 14 LAST 699 

~74T9 

2450 r^PF 2 LAST 715 

2451 

~245E RFF “ 1 

2453 

2454 

““?455 RFF I 

2456 

2457 

■ 245E 

2459 

246T ™ ” 

2462 

7463 


24 ,3 50 AT 
24 ,3605 
24, 1606 
24,3507 
24,"36r0 

~24TTSnr" 

24.3612 

24.3613 
24, 3614“ 
24,3615 
24, 35T~6“ 
74,3617 ■ 

24.3620 

24.3621 

24.3622 

24.3623 

24.3624 
"24;3E25 

24.3626 

24.3627 
Z4,3630 

24 , 3631 

■2 4V^33 
24,35 34 
24 , 3 63 5 
24,3636 

“24,3 637 
24,3640 


O0T04 1 
51713 X) ~ 
"7T74T 1 

1 5335“TT 

672 06 1 
TJ3025TJ 

72405 0 

11754 1 
■414TT 1 

11756 O 
663 46 0 — 

41556 1 
77735 0 
03024 t 
"72405 0 

11754 I 
41415 1 
llT60r-0 

65346 0 
41556 1 
14323 0 " 

00007^0 


00005 T 

6:276 1 
00007 0 
7 2405" rr 
000 03 I 
77666 1 


E MG 2 FLAG 

540.2 ,33 

— uumu 

H16ZFRnS 
PUSH SI GAD 

YAC TUFF 

- 0HP “StT 

TRIHSCAL 

— DOT PUSH 

Y'^I'\S — 

COS POOL 

— STN PUSH 

"Stu A n 

PACTOPF 

— QT«^p srr~^ — 

TR IMSCAL 
OAO PUSH 

“■ — “ ctBIAS 

COS POOL 

SIM PUSH 

S T ' ) L) L ZSCRFF 

6 

— ^DMP SLl 

4 

— DCOHP pool 

6 

“ - ^trt 

2^ — = 

VOFF 


— -2464““RFF I 24,3641 14307 O — STOOL X^CRFF 

“ 2465 REF 2 LAST 715 “2^^,3642 00323 O — ZSCRFF 

2466 r-" 24, 3643 72 405 0 TTHP STT 

2467 "24,3 644 00005 1 4 

2458 24,3645 4T325 0 POOL O^p 

2464 RFF 3 “LAST 7X5 2473546 00323 0 ZSCREF 

2470 - 24,3647 00003 I 2 

2471 “ 24,3650 57552 1 SLl OCOMP 

247 2 “ — — 24,3 551 7T6 66 1 VOEF “ ““ 


24 73 ^FF 4 t4ST 715 -24,3652 14323 0 STOOL ZSCRFF 

2474 24,3653 77666 t VOEF 


2475 REf 1 24,3654 14314— 0 — 

242F RFF 5 LTST — 7X4 2 4,3655 90 323 0 " 

34 7 7 24, 3646 6532 5-iD— 

247R RFF 2 LAST ■?15 24,3657 003 lO t)— 

2 4 79 “R’FF 2 “TrAST““7r5 2 4 " ; 3660 0 030 7' 0 — 

2430/ :?4,366t 77666 1 


STUOL Y SC RFF 


POOL POOtr-- 


— XSCREF 

VOFF 


f 


ZERO POL 0 


CnStY +Y0} POL 2 
SINfY +YOr POt 4 


CQStP -f-PO) POL 6 
SIN(P ^PO) POL RO 


-SINl v+YO)eOS< P+PO) POL 10 


PO POINTER AT 6 N€W SC X AXfS SCALED AT 


PO POINTFR at 4 NjEW SCZ AXIS SCALED AT 2 


PD POINTER ATO NEW SC Tf-AXlS SCALED AT 2 


GAP: ASSEMBLE RE V IS 1 GTrJ55" 



TITGl^AM -CHMAL'CHE BY NASA 202llli-0bl 


IX3:ZB"-AP^. 1,1969 rmUBLE .04^ Finrr ^6 


L 


24 31 


2454 

?43‘^ 

T4T1& 

2437 

2488 

■2W9 

2490 

^491 



2473 
2494 
7475' 
24 76 
2497 




REF 

R^F 


2479 
25 00 


REF 

TCEF 


2502 



2704 
2505 
2 5 06 


2 508 
2509 
25TTT 


7-FF 


2512 

27T7 

2 514 
2515 
Z5T7 

25 1 7 

2518 


RFF 


P40- 

P47 


'^EF 

15 

LAST 

REF 

11 

LAST 

REF 

11 

LAST 


T 


t AS T 
LAST 


4 


LAST 


T 


6 


“ITS 

T2 

5 


LAST 

LASr 

L A ST 
LAST 


2520 


2532 

2533 
2 53 4 


REF 

RTF 

2FF 

RTF' 


r 

5 


LAST 


5 

to 


622 

714 


713 


LAST 715 


716 
71 5 


716 

TTF 



TTE 


^ EF “12 LAST — rnr 


TT5 

716 

716 


RFE 12 LAST 716 


24T36 6 2 
24,3665 


24,3 665 
24,3666 
2 4', 36 6 ? 
?4,36T0 

24.3671 

24.3672 


27351 0 
03713 1 
53515 0 
03632 O 


5T0VL 


FUTU 


SCAXI S 
UT 

UNTT 



YXV 


715 

716 


LAST “TT6 


LAST 716 


7T6r 


r> pv 


T 


2 53 7 
2533 

25 T? 

2540 


?FE' 13 LAST Ut 


,3573 
25,36 74 
25^.3575 

2473576 
2 4,36 77 
24, 3700 

24, 3 fOl 

24.3702 

24. 3703 

24.3704 

24.3705 
2433706" 


,3707 
-2^f , 3 710 
■74,3711 


00001 0 

41456 O 
77624 1 
51734 0 
57435 1 
00001 0 
F3372 I 
00307 0 
76 5 05 0 

on 00 1 tr 

24307 0 
00315 0 

00001 0 
24315 0 
00323- 0“ 

76503 0 
OOOOt ^0^ 


UNIT 
CAI L 


vrtinp 

o 

PUSH 


TSTRTin 


VXV 


TSCl 


VXM 


-STOVL 




STOVL 


0 

pn vT — 

X SCREE 
VSLl 

o — “ — 

XSCRFf 

YSCREf 

VSLl 

n 

YSCRFF 


VXM 


VSLl 

0 


00323 O 


3712 

t r 


2 4. 3 71 3 


2T737T5 

24,3715 
0 4,33T6 
24 , 

24 , 3 72 0 
24T37Z1 
24, 8722 


52001 r 

% 

000 01 31 
03657 


STORE 

SETPn 




S 40. 2-. 3 8 VLOAf) 



24,3724 


15333 O 
27 3 5 T' O 

03 713 I 
00307 0 
34 3 5 0 

0363T 0 

35007 T 


GOTO 

0 

OT E MP 
UNITX 


— STOVL 


STORE 
VXY 



^tr 

XSC-^EF 



R T f G 


STCALL 6 D 



24,3 72 6 
24,3727 

24.3730 

24.3731 
24,373? 
24T3 


94. 3734 

24.3735 

24. 3736 
24, 3 737 
2 4,3740^ 
24,3741 
;> 4 , V742 
24, 37 43 


00315 0 
57435 1 
00307 0 
77772 O 
34323 1 
OSeST 0 
46 145 O- 
00045 0 

— T 


STORF 

VXV 


YSCREE 
VCOMP 

XSCREf 

VSLl 

STCALL ZSEREF 


TSTRXUT OLOAO 


43 575 T 
00007 “O 

-o 


VLOAO 



0 

0 


BADVCTOR VLOAO 


PDVL 


BHTZ 
3 60 

B ADVCTOR 
R VO 
60 

UNIT 

FT LG 
ON IT 


,)SPo#s page mo. 33 


E6 S3 


ENGINE BELL SCALED AT 2 



X OF PREF IMU,X OF SC I N 


COOR. AT 2 


Y OF PR*=F. 


.Y OF SC TN REF COOR. AT 2 


TOT PR EF. rMU,2 -OF-S C IN R E F COORr “AT 


ZNB AXIS IN REF COOR 


^AP 


ASXl^'MP.LF 'PEVlS inM 05*5 HF' A :;C PRiIGT^A.M CJMANChE BY NASA ^OZm’^*OSl 


loizn APR. r,19TS9 rROUBLb .U4J PIS^ TIT 


X 


2^41 

2542 



^44 
2 545 “ 
“-254^- 
2 54T 
254P 

254^ 

2 549 
“2549 

^2550 

A2551 




R2553 

R2554 

9:2555 

R2556 
P 25 57 
R 255 er 
®2559” 
R2560 
■R 755 T 
9 25 52 
R2563 
"R 2 5 54' 
92565 

92 566 

R25'67 

192563 

R2569 

1125TU 

R2571 
R257^ 
R257?. 
R2574 
R2575 
— 25To 


P40-P47 


USER'S PAGE NO. 34 


56 S3 


P5F 


3 CAST 712 


RXX 15 LAST 716 


7 4 

24,3745 
24,3 ^46 

24T3T47 
2 4,3750 
'24, 3751 
24,3752 
:?4,3753 

24.3754 

24.3755 
24,375 6 
24, 3757 

24,3760 


037 r 4 tr 0 
53372 T 
53435 ■ 0 
037T3 1 
77676 0 
n 0 U 07 0 


VSP3 

vxv~ 


VTTG 

VAD 


UN I T 
UT 


77616 0 
21215 1 

12215 1 

00053 1 YBIAS 
07423 0 
77636 1 — PBIAS 
446'55 1 


VttTMF 

STORE 
RVQ “ 

TRJNStAL 2DFC 


750 


1.07975111 B-1 


20HC 


+.0026338B889 


YAW - -WECH BIAS (+0.95 OEG, THRUST ON J 


?OH 


-.-00597222222 


PtT CH '~MX CH B I A S ( - 2 . 



REFERENCE, TRW 68.6520.3.3-40 27FEB,196S 


257^ 
7B 


25 79 
2530 


o7 

2583 

2584 

2585 


PROGRAM OESCP IPT [ON S4i.I OATE 805066 

MOO N^^l LOG SECTION P40-P47 
MOD BY 7.EL0TM 

FUTTC T TON AC “OESCRTPT TON 


COMPUTE VEIOCITY TO BE GAINED INITIALLY IN REF CODPOSt 

TO CONTROL COORDS. 

CAT L TNG STOUENCE — 

L CALt — — 

l+l S4T.1 


OOPKAC EXIT MODE 

AT L +2 OF CALL! NO SEQUENCE 

SU8POUTINES CALLED: 

=— C7nX5NST: — — 

CDUTRIG 

At ABM OR .ABORT “NO DES — 

none 

ERASABLE TNIT TALI TAT ION BE QU IKED — — — 

VG IN REF. COOPD;r POL L PlTNTEITAT L+5 .S41.1 WILL RETURN WITH 
p-g-f'lvixER AT C TX BE T ESS THAN OR = -70 1407 


OUTPUT 


OTBFTS: 


HPAC CONTAINS VG T N CONT ROr^OROS 


VECT. B7M/CS 


QTENP 

QPRET 


TEMP ERAS ABIE 


BEE 


REF 


COUNT 22/S41 .1 


1 


^ 2,2000 


2 2 , 3 431 


S^ETtOC -P 40 SE 

BANK 


22 4 3 1 45 020 I S 4 1 . I 


STO 


CALI 


BEE — 14 — nrsT 


EF 


1 AST 



TIB 

95 


22 , 343 2 

22 V 3432 
22 , 3434 


2 t 


REE 

REF 


19 LAST 714 
3 L^ST 595 


22V3436 

22,3437 


036 5T 0 

47477 O 

77 ?Tr 5 -T- 
• 451 2 1 1 
0 173-6 I 
47644 I 



CDUTR TG 


VtOAO 


OTrtt 

REFSMmat 


G A P : ASSEM6LF RFVTT 



055 TF AGC Pi; 



BY NASA 20:^lllJ-051 


I0!28 flPH. TTHTOT r POUBLE .043 


y 



L 


T5TfO-P47 


USFK’S PAGE W). 35 


E6 S3 


25B5 22V34<fO T4321 1 “ MXV 

2587 PEF 3 LAST 414 2Z.3441 05003 1 

P EF 1 22 1 3442 0 5446 I 

2589 ' ■ 27,3443 G2072 0 VSL5 

2590 PEF 15 LAST 717 22.3444 03657 0 

2 5n ”■ 2 2,3445 24000 1 rENBNKIA 2DEC 

2591 22,3446 00000 1 


VXSC 

OUADBOT 

TbNBNX14 

GOTH 

OTEwp 

rovB'^- 


VG I N C O N T ROL Ca O R O IN M P A C S C AL ED A T 
VG IN CONTROL COOROS. IN MPAC AT 2(+7> 






~^'S ION" a'5-S' ■ ^U' V^^ilG i-’AM CU HI! BY"N'ASA ?Cr?in3-0 5 1 


Tir; 




1 * 1 TT-nUBLF .0A3 T 1 9 


-PAT 


UScR'S PAGE NO. 36 


E6 S3 


P 2 5 P Z 
R25^3 


N AME ■ 
FUNCTION 


.F -TTFOSS o^OnUCT ST^'^^TNG 

( 1 ) UPDATES THE VEinCT TY-TO-BE-GAINFO VECTOR. 
rZT GbNhFAfFS ANGULAR KAFT SI bliM 1 NG 


FEIP AUTaPTLOT. 


^5 


R 2595 2 

R 2 5 P ^ 
R2SP^ 

P 2ED9 " 

R2600 

R26ni 

R2602“ 

R2601 

R260A 

RZoTFT" 

R26TJ6“ 

R2607 

R260- 

R2602 

R261A 


EArTTNE -SFO 
INPUT 


nuTPin 


R261S2 
22615 3 
E"T61EA^ 


( 3 ) ESTA 3 LTSH-S ENGINE CUT-OFP SIGNALS AT APPROPRIATE TIMES. 
(A) TNITTATES THPUST-FATL ROUTINE, RAO 

c ATX~E A nvr — 

VGPPFV - FAST VALir- OF THE VEIOC I TY-TO-BF-G AI NED VECTHR “ 

PMPR TO UPDATING IN METEPS/CS AT +T. 

0 E L VR EF^-' 'CR -A^TGE^ rFr~ VEmCLT V F LnCTTY S I NCE LAST M E ASUREMEN T^ 
JA| mfTERS/CS at ^7\ 

RDT - EFFECT OF PATE OF CHANGE UE REOUIREO VFLnCITY AND 

~~ GEATITT DURING OT TTPUN^ V E LOC I T Y- TO -BT-G A T NFD I N 

''FTERS/CS” AT ^-T. 

• SCALAR OF THE STEERING LAW, SC. AT R+l, USED FOR 

'STS“ AT ^mnOT STTF^ NG MAN E UV E RS 

IDLFFATL- A FLAG TO INHIBIT tlOLEJ THF THRUST-FAIL ROUTINE 
STEERSW - A SWITCH TO P^'cCLUDE NFEOLLSS CONOUFT OF STEERING 

RTTSHTOT*"OA P OAT^IG ' P I PT T^TE — _ 

ERFPFPAC, ^TOECAY, KPRIMEDT FOP TVC 

TTIIGO - TIHE PFMAINING FOR ENGINE BURN IN CS AT ^-28 
TTHEGTnZ" - HP VFCTOR FATF COMMAND, SC. AT — I /T 2 T V C DTT ~REVG /TEC 
VG, VGPRFV, VGOISP, TGO, TIG, SCALED AS NOTED IN COOING 

STEERSW. TO-^ULSW, N'/WOSOl 

PE'PFPAC. Cf T^ VCN T F, VCNT RT H P FO R ' TV C ( P 


CSTEFR - 



R261 6 
R2617 

DERF IS 

SUP POUT IN 

OMEGAXC 
FS USED 

f + l 

- ^SYNO^ 

26in 

2619 

REE 

2 

LAST 

710 

1 r. , 7 O 0 n 




1 b , p 1 5 3 

2620 

REF 

53 

LAST 

70 B 

h , 1 A. 6 6 

26T1 

R EF 

1 










2HZ2~ 





16*215-^ 

2623 





16,21 54 

2624 

RFF 

16 

LAST 

71 B 

If ,2165 

26"25 





1 « il i, ^ 

2626 

RFF 

3 

LAST 

rcro 

16,2157 

2627 

PEE' 

4 

LAST 

710 

16, 7160 

262 6 





16,71 51 

262'’ 

PFF 

3- 

LAST 

700 

1 b , 2 1 6 2 

2 63 0 

RFF 

4 

LAST 

120 

16.^163 


ALARM 


SETLOC P 40 SI 
BANK 

EBANKi^s^ARTlAT^T 
COUNT 16 /S 40.8 


A^noi 0 

00001 D 
03657 0 


SAO'. B " 
SPBITl 



TtTTAT 


03A-33 
03 70«v 
T T S ^'S 
03721 
03A60 


0 

0 

T 

0 

n 


OOn 

OTFMP 


DPLVREF 


CtmiHUlCT SG.AT ^/CS 


r FT 


LAST 6 B 5 


25'’! 

26 52 
2T>3 3 

263^ REE 56 LAST 70 fr 
2635 


16, ? 

1 6 v2 1 6 5 
TG.TTGB' 

16.316T 
1^,2 170 


776 A6 0 
03771 1 
- T TT T6 - T 
n 5412 0 
10035 O 


STORT 

ABVAL 

STUPE 

^KTT 
TC 
uc T 


VGP^EV 

VG 


VELnCITY-TO-BE-GAINEO. SC * AT B + 7 M/CS 


VGOISP 


FUR OlSPt AY PURPOSES 


PHASCHNG 


TYP^F B RESTART BELOW AND *5 i 3 REPFAOAC 


2636 RFf 150 LAST 704 16, 2171 0 6006 1 TC LUT’^oFT 

2637 16,3 172 — 777 75 1 VtUAO 


GAP: assemble RlTTrsfllN 0^5 OF 



'PAM CHMANGRE BY MASA“20 21 1 


LOt^B APR. 1 tl9'<S^ rRQUBLb •043 P7S0t TZtr 


1 

? 40 - 

P 47 














2638 

REF 

3 

L AST 

719 

I T, 217 3 

03460 

0 

2639 

RFF 

4 

LAST 

719 

I 6 t 2174 

0372 1 

0 

~ 2640 “ 





rSTTTTS — 

77214 

0 

2 64 1 

RFF 

2 

L AST 

707 

15,02176 

01344 

0 

2642 

REF 

IT 

LAST 

719 

" l^,ZT 77 

03 657 

0 

■ " 

R£F 

4 " 

LAST 

7 W 

16, 7700 

U 3453 ' 

~Tr 

2644 





16 , ? 2 0 1 

41446 

1 

2645 





16 . 220 ? 

41335 

1 

ZF 2 i~T” 

^ lT I 

1 



15,2203 

U 1 3 5 ^ 

1 

2 6 ^^5 A 

^xFF' 

1 

' — - 


““ 3 : 6,2204 

^60 11 

1 


USER’S PAGE NO 


37 


£6 S3 


STHRE 

BLIEE 


ABVAL 

SLnAi) 


2647 

2648“ 

— 

— 265 0 
2651* 
“2652 ' 
26 53 
2654 


REF 


'’FF 


fX 

TTFF 

RTFF 

RFF 

■RFF 

REF 

RFF 



X 

2 


719 

OTE 

706 

708 

TTD 


LART 105 


T 6,2205 
T 7 > , ZZO 6 

16,2207 
16,2210 
16, Z2n 


77621 1 
77440 1 

40222 1 
31 ’4 66 1 
7 5002 1 


3ns U 



16.2215 

16.2216 


10 trot) n 

3 501 7 1 
50 000 “1 
3 1 • 4- 2 1 1 

55 * 64? 1 


CAE 
MASK 
CCS 
CAP 
INDEX 
CAF 
TS 


2655 

265?r 

■Z65T 

2653 

265^' 

2660 

2661 

2662 

ZE^T 

2665 
26-6 6" 

2667 


RFF 151 LAST 719 


1 6- , 2 2 17 

16 , 2 22D 


"RTF 

RTF 


T 


721T 


LAST 719 


REF 


LAST 720 


RTF 


T" 

r 


“TFTZTTT 

T6, 2222 

16.2223 

16.2224 

16 , 2TE5 

1 6-, 727 7 
15,2230 
lb ,22 


~0 50 0 6 
313 76 
— 03433 

03 705 
776 56 


1 

1 

rr 


TC 



REF 


T 



EE“36 LAST 700 


52639 

2670 

2671 
2672' 


REF 15 LAST 631 


26 




r- 


EF 3 7 LAST 72 0 


— 7575 — 

2676“ 
26 TT- 



REF 

1 “ 

26 7 P. 



— 2679 - 

RET 

1 

26B0 



" 75ST 



26 P2 

RFF 

l‘i LAST 709 

2 683 




“16,2237 

16^2233 

16,2234 

■T672235 

16.2236 

16.2237 
“16 t 224 

1 f ■ vZZ 4 I 
16 , 2 24-2 
16,2243 
“TT, 2 2 4 4 
16,2245 
1 6 , 274 6 
16 ,3 247 

16.2250 

16. 2 2 5 1 
16 , > 752 
16,^253 


0 

1 
3 

03460' 0 
56244 0 
40214 1 

36005 1 
41215 1 
11564 0 
70501 


UNIT 

OGT 


BPL 


DAO 


00047 


1 

1 


NfJPM 



F00 t 


00045 0 
00050 1 

5 3 664 0 
00040 0 

5 7 607 1 

T1405 0 
36003 1 
“543 


9nnv 

XS0,2 


0MR 


VG 

VGPPxFV 

VIHAD 

STFFRSW 


3KTP TGO AND CROSS-PRODUCT 



DEtVREF 
PUSH — 
OMP - 
nVTHRE! 

OPS -9 


“CHECK FOR LDTHRUST 



EXIT 

LfJTHPUST 

OAPOATRl 


ENABLE TVCDAP CG TRACKING 



B I ^ 1 

^ 

FRPPER AC 
RFPFR AC 


VH= 



IMTPRFT 


TGOC A1_C Vtn A 0 B VS U 


GET OFtVG 


D E LV P EF 

BUT 


PUSH 

VG 

onv 


10 0 01 



ANGLE SHOULD BE GREATER THAN PI/2 
- — - T )TSP 13Y ALAR M IF NOT 


2VFXHUST 


SRI 

XI 

NOR M 

3 50 
X2 


(DOT PRODUCT UP FROM 000) 


(MAG DFLVG) 


SL’*^ = 

XI 

0 - 9 0 , 2 

PUSH 

-FOURDT 


( 00 D ) 




ETDFCAY 
1 40 

S T A OP 


ETDFCAY SC. AT B+14 CS 


743 4 7 
7 76 1 5 


1 

0 


BDSU — 

STORE TGtV 


TIME TO GO IN CS. AT 


l^'APT ASSEf^BLE REVI 5 T 



■woGP.A'H' cDHmcm sY^f^iA 



1 13- OS'! 


0:28 APR. 1, — TKOUBLt /O^T PAGE 



P 40 - P47 


USER^S PAGE NO. 38 


E6 S3 


263A 

76^5 


R EF 
REF 



26R7 

2683 

26in" 

R'epo 
27^ ‘FI 

2607 

2603 

2673 
2606 
75^ 
2673 
2639 
2 TOT) ' 
2^01 

2702 
2TTJ3~ 
2704 

2703 

2706 

2707 


9 EF 

R'EF 


TTEF 

REF 


RT 


REF 


REF 

RTT 


RFF 



RFF 


2709 
'2709" 

2770 

2710 
7711' 

2711 

2712 

2712 
271 3 
271 1 
2714 

2713 


TT-ir 


EF 


7 

67 

TE 

1 

~T 


LAST 

LAST 



“2Trs 


REF 


E 

6 


E — TTTST 


REF 20 LAST 
TTFF ^ TTST 


2 LAST 
~L 


1 


271 7 




2713 

V PF 

3 

LAST 

2710 - 

-REF - 

21 

LAST 

2720— 

REP 

6 

LAST 

Z 1 




2792 

•’EF 

15 

LAST 

2723 

REF 

3 

LAST 



T27J 
LAST 713 


TZTT 


T LAST 720 


717 

TT7 

105 

TTT4^ 


^7*7 13 LAST 720 


15.2234 
16 ,2755 
6.2256 

16.2257 
16,2 2/^0 
T6.2261 


16,:^262 
"12,2263 
1 6 . 7264 

16.2265 

16.2266 

T 6. 22 67 
16,2270 
■T 6 T 227 T 

16.2 272 
l‘^,2273 
15.2274 
1 6 . 227 5 
16,2276 
■16.2277 
76,2300 
15,2301 


01205 T’ 
17413 1 ~ 
03'43n 0 
50025 0 
36007 0 
402 01 71“ 

74375 0“ 
113702 - 77 - 

03703 rr- 

52352 1 

03433 - 0 ” 

63256 0 
0346tr 0 
47R56 0 
A5121 1 
01736 1 
47644 I 
77761 1 
03235 0 
03126 1 


STODT 


~05tr 


PIPTIME 

TIG 

T0T1 

BMN 

F 0 URSEC 

T 40.81 


XPRODUCT 


VLOAO VXSC 

BO I 


VSL2 


UNIT 


0 Tm 

MXV 


CSTFFR 

VSU 

DELVREF 

POVL 

VG 

TTV 

CALL 

REFSMMAT 


(REFSM.MAT/ 2 ) 



VXSC 



77650 T 
03657 ”0 


GOTO 


KPRIMEOI 

* G 

OTEMP 


(KPRIMEOT SCIAT ^ 1/8 RAO) 


17,^000 




SFTLHC 

17^9000 


■ 


BANK 




LUUN 1 

17.2000 

00000 

1 

TWOOT 

20EC 

17, 2001 

00310 

u 



17.2002 

777 15 

1 

-FOUROT 

2DEC 

1 7.2003 

77777 

0 



rr, 2004 

1T6 OT 

0 

2VEXHUST 

20EC 

1 7 . 700 5 

251 ^'5 

1 



— 

17.2006 

00000 

1 

FTURSEC 

2 DEC 

IT, "2007 

V J u 0 -c u 




17, 201 a 

000 40 

0 

9RB-9 

2DEC 

1 T .2011 

00000 

1 




TTTS 


200.0 8-23 


2 SEC 


-“500 3-18 


- 4 ( 200 CS). SC.AT 8 + 18 CS (-4 FOR SCALING) 


53 ; 02 0792 B - 7 


400.0 8-28 


2 1 1 033 8 . SC . 47 " OrT” 74 /C-S^ 


4 SFC 


1 R-9 


20,2000 

20,2201 



0AP$6 


BANK 


t O tJN T 2 0/S40.3 


702 


T 1 5 
72 1 


20,2201 
20. 22 02 
2 0“,220 ? 
20 , 21^ 


77214 0 S40.81 


SET 


1 


0106 -5' "0 

1 53 55 - 0 - 
03126 1 - 

777 75 - 1 " 

2 0 - , 2 2 0 6 3 4777 I 

“20, 220 7 85 *44 7 0 


RATFZRfJ — STOt^E 

E XT T - 


VLOAO 
TMR t tt S W 
HI 67 EROS 
OHFGAC 


TGO LESS THAN A SECOMOS 


ENGINe-OFF CAtt 


TVC TO ATTITOOE HOtO 


CAF 

TS 


POSMAX 
r 


INHIBIT SWTTCHOVER/TVC EG TRACKING 


r.AP: ArSfMBLE P.EVISIDM rt55 OF AfiC "PWLTC'iar-! ' CJMSMCHC ’BY' "NS S# 2D21 1 1 B-OS 1 


APP 


i, 14)69 rKOUBLE .04 3 PTiTTF 



P40-p<V7 


USHP'S P.A'iJH W 


39 


E6 S3 


20, ^^10 0 6006 1 TC INTPPFT 

20. 2211 5201*, 0 Ct^AP GOTO 

20.2212 0126A 0 SIhfcHSW RESIARTS OK 

20,?713~ 03657 0 OTEMP 

20,ZnA 77776 1 INC9SVG~6XTT ALARM INDICATIMG THAT THRUST IS POINTING 

ZOT 22 1 5 0 5650 1 TC ALARM I N W R ONG D T REC TIO N. 

20,2216 01407 0 OCT 01407 ^ 

2a.2217 0 6006 1 TC INTPRET 

20,7220 /765U I GOTO 

2733^ P.tF 20 LAST 722 20-.2221 03657 0 QTFMP 


— 27T4 20.2222 77214 0 — L'lTHRUSI BON VLOAO 

2735 'REF 3 LAST 707 '20,2 2 2 3 0 0 711 0 lOtEFAlL 

2736 REF 21 LAST 722 20.2224 03657 0 -QrTEMP 

— 2737 TT^ 27 nrSi rZT. 20, 2225 r5335 0 HI67EPOS 

2733 REF 7 LAST T2T 20,2226 03126 1 STORE OMCGAC 

■ 2739 ■ 20,2227 TT^To 1 EXIT 


T HRUS T -F A I LU RE ttO -O K -NO) I N DI CATF O 

SETBY V97P. ALLOWS 1 BYPASS IN CASE OF 

UNFAVORABLE S40.3 SYNCH 

S T A RT-TTF t-NGTI'iE-F-ATt tRTtrrt'TTRFRATtONS 

PUT TVC IN ATTITUDE HOLD 


27?-+ 

RFF 

152 

LAST 

72 0 

272 3 





27T5 





2727 

2728 

'^FF 

19 

LAST 

721 

7T2T“ 

2730 


“27" 

T 4 ST" 

65 8 

2731 

RSf 

153 

1. AST 

722 


2740 

REF 138 

LAST 

706 

20, ’230 

27^1 

^EF 3 

LAST 

707 

20*2231 

2742 

TFF 2 

L AST 

106 

TO * 2 23 2 

2743 

REF r 

LAST 

T20 


2744 

TEF 69 

EAST 

im ~~ 

? 0 f Z Z 3 ^ 


4 5021 0 CS ZERO 

55*643 0 TS VCNTR 

55 *"6 53 1 TS VCNTRTMP 

5E*642-T-‘ ^TS REPFRAC 

6-5"*r45 T— TS - NVMORni 


KILL eSMMASS UPDATING 

tT V CF XEC LOGIC R EO U T RES TH IS— TOm 

KILL TVCDAP C& TRIM TRACKING 

SET UP ENGI'^T^-FAIL '/97FLASH (CLOCKJOB) 


2745 

2746 


2743 


RFF 154 LAST 722 20,2235 0 6006 I TC INTppET 

20,2236 52014 0 CLEAR GOTO INHIBIT STEERING AND TGO CALC (MANUAL 

REF 4' XAST -722 20 rz ? 3 7 01264" O STFERSW SHUTDOWN IF NOT SET UP AGAIN) 

REF 22 LAST 722 20,2240 03657 0 OTEMP " RESTARTS OK 


TTWi A3T}- WE“RT V I 



UF""AnC" »^L t-ji^,v4CHI- BY NASA "?0Z1113-U5i 


Tt)T?B APR. It 1969 TBOUBl g ,043 




p40-P/*7 


OSHP^S 1^AGE NO 


40 


€6 


P2 74^ 
R2760 
TTTT^r 
R?7S,? 
P2751 
R2754 

R275E 

R275B 

1^2757 

R2753 

P 275^ 

■RTTT.TT 

R2761 

R2T62 

1727BT 


MAMF~ 

FUNCTION 



CALUTNO^SEO 

INPUT 


S4D. 9 “ VTDGATN t^TMPCTINT MANFUVFK S 
(1) GFNFPATFS RFOUI RETT VFtOC I TY AND VELnCITY-TO^BE-GAINED 

VtCIORS FUR URf- DURING AIMPUIMT MAN&UVbKS 

T?) UPDATES THE B VECTOP. WHICH IS USED THE FINAL 
CALCULATION OF EXTRAPOLATING THE VELOC TTY-Tn-EE-GA I NED 

VTA'TTNDVAX AS NFWjnB. 

TNIT - ACTIVE VEHICLE RAOTUS VECTOR IN METERS AT -I-29, 

V^aT - ACTIVE VEHICLE V’^LOCTTY VECTOR IN METERS/CS AT ^7 

VRPRFV - LAST XOHPUT Li) VFL ' JC I TY" RE QU I RED VtCfOR IN 


NOMTTG 
‘DELL 14 
TNIT 
GDT/2 


WTERS/^ +7. 

- TIME OF IGN. USED IN T ARGETT ING ROUT INFSt+2B« 

- TRANSFER TT'ME FROM PtPTIHE TO TAPGETX+2B" 

- TIME OF RNIT AND VNIT TN CS AT +2B 

“ HALF OF VELOCITY GAINED IN DELTA T TI«F. DUE TO 
ACCFRERAl I ON ~OF " G RAV TT Y T N M ET EPS/C5 


R7Tu 


r~: A 


DFLVRlF 


R2 765 

Z ^ 6 


NORMSW 

R2T67 

' 


P2 76R 



7 2769 

OUTPUT 

VGTFMR 

R2770 


XOGA 

P2771 



R 2777 


"GORL/? 

R2773 


VRFREV 

R2 7T4 


BUT 

R2TT^ 

subrtjuttnfs used 



“ CHANGE IN VELOCITY OUR ITIG LAST -2 -SFC^TN 

METERS/CS AT +T. 

SET=CENTRmr ANGLE B E TWE E N ' R T ARG"" AN D PTT G IS 

166 TO IP 5 hporfES 

RESET=CENTRAL ANGLE ntJTS IDE CONE 0HSCRI8ED ABOVE 
VFTOCITY 'TO BE GAINED VECTI 



“ INPtJT OF INITIAL GUESS FOR LAMBERT FROM S40. 1 0 
OTR PREVIOUS RAXS THRU S40.9 

“OBLA TE N E SS Tc RF r ~T N " ' AVG "GR AV C ALC“G G 3L ^ RSQ/MU 

RED VECTOR TN METERS/CS AT +7. 


T M 


2 776 
2111 


REF 


LAST 71 F 


- VEtnCITY RF': 
“ B VFC 
TNTTVEL 
16 • 7 


METERS/CS AT +7. 


16 t 2307 


SETLOC P40S1 
BANK 


7TTB 
2 779 


2780 
2731 
270? 
2780 
77? '+ 


2TB3 

2786 

2737 

2700 


REF 


% ■ ^ 



O 

2771T 

TT^T 


A C 


“R Er ‘ 

7 

LAST 

TOl 

REF 

1 



R EF 

155 

LAST 

722 

REF 

2 

CAST 

710 


12 


LAST 712 


6 1 1 


16,2002 

16,2003 

16,2304 

16,2306 

16,2306 
16 ; 2 3 0T 

16,2210 
1 6 , 23 1 1 
16, - 23 1 2 

to-,-23t3 
I '- ,2 31 4 
7>, 2315 


-?7-7A- - 

TTEf- 

ntF 

— F 

L AS T 

4 B9 16, 7^3 1 6 

X?796 


16, 2317 

5 1 




16,2 37 0 

2 7^r5 7 


5 7 

LAST 

16 . ? 1 

2 7^?5 3 


- - 


16, ?32? 


0 600 6 
7 1201 
07001 

11566 
77725 
344 2 4 
71214 
0 3 70 5 


1 

1 

tr 

i 

i 

0- 

0 

0 


“O0O7S t) 
22002 “ 0 
7 77 76 1 

O 5A12 .0 
05021 I 


S40.P 



EBANK= UBRCYCLS 
COUNT 16/S40,9 


TC INTPRET 

SFTPO DLDAO 

= 000 " 
L06ZER0S 

POOL 

FP 4(45rL 

BOM DLOAD 

MftRMSW 


TC 

OCT 


FP4( 10) L 


PUSH 

c lear CTFtt: 


GUESS W 
HAVEGUFS 


PHASCHNG 

06021 


SAVE TIME 8^ not PFOOING I AMBFRT CALCS 

c, priority next, job below 


TTAp^ US I l 0 "n o s' 



COMANCHE "VY H^S^ ’^021iU-U^T 


10228 ' APK. 1 ,1969 rROUBLE .OA^ ~^At^ T 2 ^ 


X 


P4r)~P47 


VSnR*S t>Ar;H f^Q 


41 


€6 S3 


27^54 
27 9SS 


REF 156 LAST 723 


27^ 
279T 
2798 
27 9T 
2800 
2801 
2802" 

2803 

2304 

■2^05" 

2 806 
2007 


REF 

1 


LAST 710 


15 


?817 
2813 
2819 
2320 
2821 
YWZZ 


2829 


2830 

2831 
2B32 
"2333 
233^^^ 
2 83 ^ 


RFF 3 
1?FF 2 


LAST 

LAST 

t A5T 


713 

122 



701 

122 


REF 


1 


1 6 V232 3 

15.2324 

1 5. 2 325 

16,3326 
1 6r,23 2T 
13. 2 330 

16 . 2331 

16.2332 

16.2333 

“10.2 33 5 
16,233-6 

3:6,7337 

1612340 


loooo a 
0 6006 1 
77oi4 1 

01310 1 
34345 1 
52375 1 


OCT 

TC 

tNULAMB BUIT 


10000 

TNT9RCT 


VLOAO 


03 6 
03466 
45 32 5 

03474 
03 4 T6 
55261 

20222 

34420 


0 

T 

0 

1 

T 

1 

0 


POOL 


■sr 


TPTTB — 





16,2341 — 

— 7776 1 

"1 

2809 

2610 

RFF 

7 

LAST 

79 

1672342 

1 072343 

* 

L 6 A S 1 
0120 7 

0 

0 

"ZBll 

7FF 

7 

LAST 

72 1 

15,2 344 

03 705 

0 

2812 





16,:^345 

37535 

0 FIRSTTME 

2813 

REF 

14 

LAST 

712 

16.2346 

03 74 7 

0 


VS»J 



PFF 



77640 0 


343 6 5 “Cr 


OFF 8 
RFF' 3 

R EF 1 


LAST 

LA^ 


721 

^34 


Id-,2357 


17 V 73 53 
16,2354 



TWT 


VLrmo 



2 

2 

8 


LAST 

ITTST 


70 

TOO 


173,2355 
16,^355 
1 ^ , 2 357 
16,2360 

16.3351 
1 c“?2 3 6 2 
16123-63 


45345 1 
01205 1 

“CT 


56205 O 
34472 t 
00043 O 


OtOAO 


OMP 


LAST 724 


53 — LTTSl ?23^ 


15.2364 
16,7365 
Id. 2366 

1^.7360^ 


O 


53 3 61 0 
01715 0 
036-4 6 O 
036 46 0 
77776 1 
"5412“ O 


VXSC 


STORF 

'100MCASL EXIT 


04021 0 


OCT 


3FF V3T 



T5“,"?3T0 0 6006 1 



REF 

-TEF 

REF 

-REF 


4 


3 


16 


LAST 

LAST 

LAST 

LAST 


724 


If . 23 71 

1 0,2372 
T5T7 


774 

724 


28-36 

2837“ 
283 3 

REF- 
- REF 

4 

m 

2339 

REF 

3 

2<?'+r> 

RFF 

59 

28'fl 

... — 

. 


37 4 


16, 7375 
15.2375 



LAST 


16,2 37 7 
16,2400 
161 7 501 

16 i 2502 
1 6.2 403 


77745 1 
034 74 O 
• 7T 4 7 5 ~- T 
03612 1 
03466 0 
77414 0 
-01270 O 
4 5017 O 
55* 742 0 
0 5412 0 
00001 0 


OLOAO 


ST O Vt 


STORE 

CLEAR 


-2 


cs 

T3- 

EAOS40.O TC 

OCT 


FTP 5TFLG 
E TPSTTME 
"VSTT- 

VTPPTME 

ypppPV 

A. . ^ ... 

Dsn 

TMIT 

TOTTP^EV 

Bonv 

17T» 

200CSHI 



VSLl 

GOT/Z 

wr — 

DCOMp 

PTX2 


R03NCASE 


UNIT 

n — 


osu 

PI PTI ME 

tr OM T lG 

ODV 

E4P THMIJ 
34Tt 

VAO 

GQ8L/2 
VG T^ M P " 
VGTEMP 


FHASC TTNC- 
0 4021 


T r T T P p-r f- 
TNI T 

TNITPRFV 


vippimf 

VPpPEV 

«-tT 

FIPSTFLC 

KTIC 

I '* L, 


NHRC Y CL 6 

PHASCHNG 

00001 


Mfrr g — NO TEST" IS - M AD E T(l-5tt6TPrA€ T OflB t 
INSIDE 165-195 DEGREE CONE AREA. 


C, JOB BELOW 


RED040.9 (RESTART) FNTPY TO END S40.9 




A s 5; e M BI tyi ^ I Ki C)<?5 



OrVRAM C 1 TOMt'RE 'BY “RAS A'“?D 2 11 1 ■^- 0 b I 


10;^8 APR. 1,1969 IRDUBLE .U43 FATTF rZ5 


L P^O-F47 


USrP*S FAt;E fsrOv A? E6 S3 


23^7 


F:EF "STB "LAST 70TT 


r6 . 74ir4 n. ~^2T^ i 


TCP 


FNOOF JOB 


~2Tr421 ■ 

REF 168 

L'A"ST~ 

724 

— 16,2405 — 

0 60 06 1 — 

RFHtUM'J.O — TC 

— INTPRFT 

23422“ 




“16T27T)6 

T7775 1 

■ VLOAtr 


2 3^2 3 

^ 9 “TT 

REF 3 

LAST 

723 

16,2407 

11566 1 


XTrsZFRPS 


? 8 4T7r ;^FF 6 L7^5T TUI , 27rL Q' ™ T7T45 U “ STOOL — OFLVSUM 


28425 RFF '+ LAST 725 16.2411 11566 1 “ LOBIFROS 


28426 ^EF 

P 

LAST 

724 

16,7412 

277 43 

0 

STOVl 

N8RCYCLS 

284262 

3 

"ns:rr“ 

'UQ 

16.2413 

03721 

0 


VGPREV 

2842 64 REF 

4 

LAST 

17 4 

16. F4 1 4 

03646 

0 

ETORF 

VGTEKP 

2 8427 




16,241 5 

777 76 

1 

EXIT 


'2'B42Tr ref ' 

1 



16,2416 

1 24U(J 

0 

TC F 

ENtlS40.0 


TFRMINATF S40.9 SO THAT IT CAN BF 
SET UP WITH LATEST R,V,T NEXT PASS 

(TYPE C PHASE POINTS *04021^ Wt'L t 

^ FOPXE NtlRHAL S40.9 TERMINATIONS, 

RATHER THAN LOSE TIME OP BRAND NEW 

— PASS -'-QLITCK OLD DATA" BFTTER TETAN 

NONE) NOW CAN GO THRU SETUP. 9 

WITHOUT DISTURBING VGPREV 
S TORE 0,0 CnV ER-ptr N g RC YC l S . PIX 7JP S 


2843 

2843 

2842i- 
2 844 
2 84r5 

2845 
2 8 46 
2846" 


16,2417 01440 0 200CSHI 20EC ?00 B-l^ 

16,2620 "000 no I — — 

16.2421 56340 0 EARTHMU 20EC=F -3,-986032 ElO 8-36^ 

16,242? 61710 0 — 

T6.2423 04000' 0 EP4(45rt 2060 .7725 

16.2424 OOOOO 1 

16.2425 00707 1 EP4(10)L 2DEC .027777777 

T6,Z42'6 03434 1 


G5P1 A S r m UT'^ - V I S IW Tl S ^ I- 




PRf'JfVA.V '’.UM/WICHp:' by ^JAS■^^"^0■m 13-0 51 


io:'2‘8“ffpR. — rrtrrs^ — tr o u b i r 


7?6 


L 


P2a47 

R2d^a 

R28‘'3r> 

R2a'Sl 

R2B5a 

R2a54 


P40-^47 
'] 'y r- 

F U^!C T T OM 


USFR^S PAGF NO. 43 


F6 S3 


S40.1? “ TTMFaURN “ 

(n DETERMINE WHFTHER A GIVFN COMBINATION OF VELOCITY-TO- 
BE-GTrN'En AND' TNCrNt CHOICE RFSUL! — IN A RiJRN TIME S’JFFTCTENT 
TO ALLTJW STFF:7 ||.jq THt VEHTCI F DU R INC THE BURN, AND 
(2T THE ''AGNTTTIDE OF RESUtTTNG BURN TIME - IF IT IS SHORT - 
”ANT7“THr SSSOrTATEJ TIME OF TH*' FMGINF-OFF SIGNAL. ’ 



2 8Fa 
R2857 


n 


R?86n 



R2B6 2 
R2863 
^2ES> 
R 2 c 6 5 
2856 

2 86H 

2 870 
2671 


2 873 
2874 


2B7‘5 

2876 

287? 

28877 

287? 

2330 

28'^: 

2882 

2833 


827 
2 835 


TCTTT 

2887 

2 8B^ 
287fr 

2891 

2c '7 


2 3 

2 393 


T H ' ■ 

CATLING SEQ VTA FINDVAC AS NEW JOB. 

INOUT VGTTG - VELPCITV TO BE GAINED VECTOR ( ME T ERS/C . S . ) AT +7 

■ “ WIGHT7G - MT^SS T)F V t H I C LT“ TAT "K (TTE- AT" TTG — 

F “ ENGINE thrust IN h.nfwTONS AT +7 

MOOT - RATE OF DcCREASE OF VEHrCtE MASS DURING ENGINE BURN 


UTPUT 


“ 1^4 KrCnGP AwS/rT-MTT SECOND AT +3 

REOUIRE MOnTFICATION EHR SATURN BURNS. 
IMPULSW - 7^R^1 FOP STEERING 
- -tine for ATTITUDE HOLD 



TGO 


TIME TO BORN IN CENTISECONOS AT +14 


TH- QUANTITY M.N'^WTON SHALl. 3E USED TO EXPRESS WEIGHT IN TERMS OF 


( KTL OGR AM^M^ETERT/ (CENTTS ECONTT^C ENT T S ECOND ) 
(1) M. NEWTON = (lOnOO) NEWTONS 
17 LAST 721 F7. 142 f 


EBANK= TGO 
" COUN T r 6/4 0 .13 


REF 150 LAST -T25 


16 


R rE 


!.AST 721 


?EF 12 LAST 713 


TS 

1 6 
16 
IT 
16 


rr^ — Zn L"A SI 67R 


P '•E 


LAST 5^^ 


IFF" JO nrsT — rzB 


ref 1 

RTF T 67) L'AST 726 




I 


% ♦ ■ 




I 


V LAST" 71^ 


2 LAST "688 


To 

1. 6 
16 
TE 
16 

15 
T6 

16 
16 

15 

16 
16 

TB 
1 S' 


^ FF 


r 


LAST 72 6 




TF 


} 


TfT 

16; 

t 

rc 

V6 


248 7 


0 15006 
43001 

oooni 

0 1 06 6 


2430 

2^431 
'2432 

C— I- — 

2434 
2'435 77776 

2436 — 3~*ra 

7477 
24-+0 


1 

r 

0 

0 


.13 


INTRRFT 



0 3 7 2 1 


T 

n 

1 


0 0006 1 
06 031 0 


“TX 


"+4T“ 
2442 
2 44 3 
"7444' 

7 -^48 

2446 
744T 
24E0 
2451 
"T4T2" 
0 46 3 
74 84 


0 0006 
1 2525 
0“60 06 
66226 
360 21 


7 2414 
70700 


T 

1 

0 

r 

0 

1 

O' 

0 

a 


TC 

— SET pH" 


I MPULSw 
A BVAL 

VGT IG 

EXIT 

CTXf BTT7 

EXTEND 

RXHR CHAN31 

TASK 8T1T 

EXTEND 

eZF MOT AHOUL 

TC T NT&ftET— 

POr>L 


BON 


7 7621 
5 63 2 5 


1 

0 


S40. I 30 


BOSU 

POOL 





>487 


8 00 2]! 


tr 

0 

1 


ODV 

S40.135 

WETGHT/ C 

SLl 

NJETSFLG 

S40.130 


ODV 

* ^ A * A m 

K I T At: 


BOSH 


2 46 0 

>46 1 


0 0 D 0 \ — O 

1 


Wt IGHT /G 
BMN 

■ono 


1 6 , 2 4 ^ 


3 "4 S 04 


4 


‘} 


POOL 


S 40.131 
ONP 


ASSUME NO STEERING UNTIL FOUND OTHERWISE 


VELOCITY TO BE GAINED AT +7 


T K ANS L frT f ON 


000 = ^AG OF VGTIG AT +7 
COMPENSATION FOR 7 JET ULLAGE AT +24 

M ASS IN KG M S AT +16 — — 

DOUBLE CORRECTION ff FOUR JETS 


000 = MAG op VGTIG CORRECTED FOR ULLAGE 



TGO LESS THAN 100 CS 
020 ^ TEMP] at +7 


GAP^ ASS[:mbLl REVTSinr>j i’F ' A-7C PPOiTl^'^ Xa'^ANCHE BY' MASA 202ili'^-0bl 


101 TPR. I V i 69 rRPUBLF .0^3 


72T 


L 


P 40 - P ^7 


ZBW 

2900 

TTOr* 

2^02 

2903 



2905 

2906 
TOOT 
290P 
2C09 


2911 
291 2 


2914 

2915 

2916 

2917 
291R 
ZOTT 
29Z0 
2921 
29TZ 

2923 

2924 
7925 
2926 
292 7 


797^ 


29'»0' 

TOTT 


\ u 


REF 


7 

- 

1 


LAST 693 


TTEF 

REF 


R E F 



ITEF 


lEF 


2FF 


TEF 


RTF 

RFF 

REF 

7EF 

pEF 

REE 

7EF 

REF 

REF 


6 

2 

1 


LAST 

LAST 


T 


-TP 

7 

271 

67 

139 

19 

— r 


LAST 

LAST 

LAST 

rrsT 


5 

6TT 


LAST 

LATT 


"87 


T6T7463 

17,2474 

16,2465 

T6,ZT166- 
^6,7 467 


90111 0 
3701 5 0 
■65271' 0 


B D S U 


17 . 2 4 7"0 

16 . 2 471 
16,2472 


a307F“Cr 

01775 0 
TSOATFTTT 

36017 1 
414 1 30 



LA61^ 77T 


1 6,7674 
16, 2475 
16,7476 

16,2477 
16,7500 
16', 2 5'OT 


LAST 727 


16 1 

16,2503 
17775104 
16 , 250 5 
16,2506 
Tr,"2 507 


51021 0 

0000317 
34520 1 
65 3 46 “n' 

43205 I 

36017 I 
T60T1 0 

77650 I 
34 5 1 1 0 
41345 n 
03076 0 
56215 I 
01972 1 


nnv 

BUSU 


15,2610 " 01 T T4 1 


xiTST — rZE 


353 

701 

TOT 


L AST T2T 


726 

774 


D ^ 

F3, 1427 

16,2512 
363 2513 
T632614 

16,2515 
t6,^rl7 
T6476TT 
16 ,2 520 
16,2521 
T6T2677 


0 7226 0 
■3 0154 t 

66 oon 


3 5021 I 
“5 3 • 43 0 O 
~ 0" 26 22 0 

77414 0 
01266 1 
~D' '543 2" ■ 0 
16,-7323 -00003-1 


S40.HT 


T7 7 76 1^ -S 41 .1 32 


otOAn 

DMP 


3Vf 
POOL 

WEIGHT /O 
FANG 

"SRT 

"56EC ONO 
PUSH 

“BFC 

“020 
S40, 133 

Bonv 


SSECaND 
IS EC 20 


S40.132 

n t O A O — TTFP — 


DAO 


WEIGHT/0 
DDV 

K2VAL 

K3VA|_ 

EXIT 

EBANK= TGH “ 
TC TPAGRFE 

CA HP AC 

XOH T 

CA 


OXCH 

TC 

S40.133 CLEAR 


Ton 

640T134 

EXIT 

r MPULSW 


S40VT34 TC- 

OCT 


FH A SC H M3 


tJSER*S PAGE NCr, 44 


E7 S3 


5ES FLOW RAT5 30, AT 84-3 KG/CS (SP, NOTE) 
350 CS AT +14 - 


500 CS AT +14 
04D = TF^*P2 


TGO GRFATEP THAN 600 CS 


500 CS AT +14 

100 


TFTTTESS THA-NnOO CS 


AT 

H. NEWTONS AT +10 


IN CS AT +23 


WILL STEER VEHICLE 


X t rt “ G E O U o "3- 


2933 FEE ~36 — L A S "r 72 6 


1 5 , 762 4 r 621 ? 1 




7934 R EF - T61 — LAST 776 16,2 5 2 5 0 6006 1 NQTA P OUL TC INTPRFT — — — - - 

2935 - 16,2526—77650 1 GOTO — — = 

29'-?6 PEF 2 LAST - -7 26 - — 16-, 267T ~ 34454 0 = S40,130 +1 DO NOT COMPENSATE FOR 7 SEC HE ULLAGE 

293 7 RTT 2 ttrST 771 1 7 , 2000 SETLOC DAPS? — — — 

2933 — — — - — -lr‘n-21t7“- BANK 


7939 RFF 1 

2940 1 

2^41 TE9 1' 

2942 PEE 1 

2943 


E3, 1067 


+3,1 7 7 3 

10 i >f»12 

-T'-nm 


COUNT 17/40 . 13 


XIVAL ^ ■ ETIVAI 

K ?V A t = — E X ? 3 ^ A t 

K3VAL = ^K3VAL 

0014^f O- 1SEC2D ZDEC 100.0 B-14 

- o oono 1 


DR PAD Lf>AO 
D P P AD LO 
SP PAD LOAD 
100.0 CS -AT 


6 + 23 NFWT0N-SEC/'^ + 2 



B + 09 
+ 14 


NEWT0NS/F+4 


Sp : ASS - 'IP, 


TFVTSTDM 055 IIP Ar,T; ■pP'Kii-irT'XnMRNCHE BY NASA Z07111'i-0S1 


AMP. 1 , 1.969 TROUBLF .'JA3 PAG E ~ T?8 


o40-P'*7 


USER’S PAGE NO 


A5 


E7 S3 


2944 ■1“'. 2014 “01774 1 3 . SSEC 20EC 15G.0 B=^ ^-SO.O CS AT +13 

2P44 17,2TT15 00000 1 

2‘P4^ rTTTTjr^ 00 744 1 bStCr'NO ZTTFC 500.0 B-14 500 CS AT +14 

2045 1742017 00000 1 ^ 

2944 17,202 0 00 000 1 S40.135 20EC 69.4005183 B-23 f’lPULSE FROM 7.96 SECS 0^ 2-JET FIRING 

■TT47 I 7.2021 04263 1 

A294402 7496Tl99.6)CnS(10> LB-SEC, SC. AT 

4294503 — 8+23 NFWTON-SFC/E + 2 (7 SEC ULLAGE 

4794504 TO G O . p LO -S' 0. -9 6 SEC FPO M P I PT mFl 


tWBLF"?^FV [SI nN''T35!r i'"* UG(-’ A ^ t'JMANCHI- KT'NASA ^0 .? 1 1 I -i- 05 1 


10:?3 AP 


T , T7-69 T ^ n UBLF .04^ ' ' 7 2 9 




US^^*S NO, 46 


E7 S3 


D 2 Q 47 
R 2 ^4 
~V~ 2 ~ 9 h 1 
R2?30 
P 2951 

■R2 752 
R 2 ’-^ 53 
R 2954 



P 2956 
R 29 57 
P 795 R 
RP-^SS 
R 2960 
R?" 76 T 
R 2-62 
R 296 '^ 


P2965 
R2 966 
■R2^6T 
P ? 9 ~S 3 

R 2 Q '■’ 9 

P 2 97F 
P2971 
P 2972 
RZ^rrr 

R? 97 if 

P 2975 

— FTZTTTT 

P 2^77 
R 2^72 

~~TrZ^TT 

R 2 9 9 n 


in 9 >jn 5 


S4Cr. 


FNF 



nr-MBiu: F^Tvr test ANH/rnr gtmbal trim 

DATE 9 ^’APCH, 1^67 
C'n'^'TrmoN P 4 n-P 47 


r* 


UMCTIONAL nuSCPIPTinN 

Gr»1BAL IVF TPST . . . .0 , + 2 ,-,?, 0 
T^JTrtr 77 rrST~FTP^' 


OFGT’pP ENGIMF CDMMftMnS, AT 2 SFCOND 

rTTFTi~rT''VTrvrr 


ASTRONAUT 



"IN PTTri-r. 

np GIMBAL MPTTP'M ON GPI 

GIWAL TPTNI. . . . AFTF' A 4 SFCOfin nPl AY.ENGINF CHMMANDlD TH 

-piTF -r:()KPllT=D r''T>‘ ■ P O SlTUrn. ASIPriNAUI VI H IFICATION ON GPI. 

PPFAO.F. . . .RFSTAPT FNI'Y TO RP-on "StjrO. 6 , ONLY TF PCS TG ON - IF TVC 

IS NGT ON - ORIMAPII.Y TO GFT iCTUATPRS TRIMr^rO FNR IGNITION. 
BYT’ASS A SFC iJcLAT;,"^ “ ^PEPP is CKIIICAL N^AP IGNITION. 

IF rvc IS ON (TVCDAPGN DP LATER) THEN REDDTVC WILL TAKE CAPE 
0 F“RESTAPT 1 NG ACTUATORS. 


CALLING SEQUPNCF.... 

WAITLIST, WITH-aCAn- FOR S AO . ft (Of PREAO.6), 
NUPNAL EXIT NODE - F I X^'L-AY , TASKOVER 

SUHROUT I N FS" C A LTFTT. . . . — 

OUTPUT (INTER NAD 
FTXDELAY 

«LA"M OR ABORT FX IT NnnFR 


WITH EBANK= CNTP 


o ” 

FRASEABLE TN I T I AL I 7 ATT mm - r>E Qy I 

C^'tTR - +0* NnRMM^LY SET TMP 040 CALL AT TST,TRIM 
“ mKRT^TTr. PnSTTTVE F ■'R "OTWAL DRIVE TEST AND TTr^CAt (mJTHt 

NEGATIVE FOR GTMBAL TRIM ONLY 
PACTOFF, YACTHEF SC.AT R5.41 APCSEC/BIT (V45N4T p.YTpTM) 

.TStrxDT^T rr sw iTC[-i~zrr~", vcMcrr“rA/o^t:oNTPOL svttch“At , .cnc7,7 — 

ACTIVE SRS GIM3AL ^fJTOR P0W‘;O(<;), PITCH, YAW 

output 

~"~“7-VCYAW, TVCPTTCH (TTTTS RELEASCrn — — 

TVC ENAPIF AND r)PTTCS cRPOR CHUNTER ENABLE 
TERRIS 

TF1M^60,' CNTP 


279 I 


'T r* 


F 


2 LAST 721 


I / . 202 2 

20,2000 


27 rT 






BANK 17 
SETIHC DAPS6 
BANK"" 


2914 REF 4 LAST 721 F',144"' 

295-5 RT^F r — 


EBANK- CNTR 
rn UNT ? 0 /S 40 r 6 



■9 9 D 



REF 

Trpp 


2988 ■ 
p r* 7 



( 


23 LAST 
T 2 “*X'ATr 


XT — trTST 


699- 20, > >41" 4 0102 H PKE40.6 

■ ' "707-27 47 T 410'5 X 

20,2'"43 C 0006 1 

-"70, 274 A - 6 2244 O 

-7r^ ?Cn -7 245 r 0 


CS FLAGWRD6 

M ASK " — OCTft O OO O 

EXTEND 

B 7 ^X 4-2 

TCF TASK t TV f R 


RESTART ENTRY TH 540,6 (1)0 NOT PERMIT 
TF TVC, Bt TS - i r5 f -h4 ^ 

TV f , R P OOTVC WILL R E ES - TARL TRH T -NTERFACF 


2D 'VO 


■> 


h 


A 7 LAST 72 


'0,72 46 4 501 ' 0 


CS 


L I 1 1 


HCSt SO DO S 40 . 6 , 


GIMTRIM ONLY 


GA'^: 
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r,T^^69 irroUBTF 


T30 




2991 


RFP 
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2n»R247 1 


T$ 


MTKPTMP 


tJSF^'S PAGf? NO. /^^7 


S3 


2qo2 

2993 

A^7994 


REF 

PEF 


48 


LAST 

LAST 


729 
T2 9 


~2T).225 0 
70,2^51 


3 50TT 1 
•447 0 



299 5 


2907 

2^93 

2 wr 

3nm 

3^01* 

3002 

30 n 3 
^004^ 


30 OS' 
3 006 
3007 


30 08 
300^ 


-2 


0 T C 
3011 
A 30 1 2 


GFF“ 

1 40 

r'ATr- 

7 3 0 

M MM 

— FKTTWr 

REF 

L AST 

72 7 

20*7752 

RFF 

24 

LAST 

699 

20*2953 

^EF 

28 

LAST 

691 

20,7754 

20,2266 

2EF 


LAS \ 

‘6*79” 

20*2256 

7eF 

1 

— 


20 ,725 7 


4 5021 O 
55*303 I 


S40.6 


^ FF 


TEF 

^ rF 


4-. 


2671 


RFF 

30 

LAST 

73 0 

20 , 2 ? 6 T 

T^EF 

B 

1 AST 

TD5 ' 

“2Tr*2'262’ 





20 , 2263 






7FF 

2 ' 

L AST 

TTD 

20,2 266 



— -■ 


2 O'* 226 6 

7FF 

31 

LAST 

73 0 

20 * 775 ^^ 


4 5016 1 
0 0006 1 
03 012 ■ 1 

3 3344 0 
0 ' 0006 T 

05 012 1 


O 52 5 T 1 

0000^ I 


LAST 730 


20,7267 
20 ,2270 


7 LAST 730 
1 




0, 171 
20 , 2212 


5016 
0 00 Of; 
05 012 


0 

1 
1 


0 5267 I 
00002 0 


11*447 0 

I 2337 0 


CAP 

TS 


BIT! 
C N TR 


EBANK= CntR 


CS 

TS 


7 bR ri 

HP T I r-J 0 


CS BIT? 

r x I f \in 

WANO 


or TOP 700 

p^XTEOD 

WOR CHAN I 2 


TC- 

OFC 


p-* 



^:Y 


■RIT^ 


-PXTENn 

WOR 


jr 


F T XORL AY 
2 


RSTRTST CCS 


CA'TR 

G!MTP TM +2 


FOR RFVISPO S40.6 TIMING FOR RFSTA^TS 
TO INOICATF A RESTART ENTRY tCNTR IS 
N O RMALL Y *0* 



INHIBIT OPTICS ACTIVITY 


DISENABLE OPTICS ERROR COUNTERS (ZbRO, 

AND INHIBIT PULSE TRANSMISSION - 
N O R M AL STATg) 

TVC ‘^NA3I6' (SPS SEP VO AM^s SFF DAC 
Vnt T A G ES 1 RNO trrS^ NGTTGE^R / 0 AC 


60MS P R n CFn < J R-At'- D Et: AY -1-40-M6 MI NttltlMT F OR 

- PEtAY LATCHING 


ENAStr OPTI C S E R Prm COUNTERS 


20MS PPOCEOtjRAl DELAY (4MS MINIMUM) FOR 

^Ft.AY LATCHING 


CHECK FOR restart ENTRY (PPE40.6) 
RESTART FNTRY.. ..BYPASS 4 SECOND DELAY 

RETS -TO ON-N O RM- A L ENTRY 



3013 
30T4‘ 
301 5 
3016 

3 017 
3 0 13 


3019 

3070 

■30? 1 

3022 

307j 

3 n 7^- 


027 


T? EF 
RFF 


I 




EF 


RcF 

RFF 


t « r ^ 

f 


141 

9 


1 

1 

r 

2 


LAST 
1 AST 


LAST 
t AST 


4 LAST 
^ 17167 T37T 

2 LAST 730 


730 
73 0 


f D V 

730 


R“F 10 I AST 730 


70,2273 

20,2 7 7^^ 

20*2275 

20,2276 


70.2277 

20,^2300 


20,7301 
20-* 7 302 
TTTO'^ 


f ' t 


2Orf^3 0 4 
20, 2305 

6 f 0 


> {> 


1 f) 7 


31 *445 0 
65 •‘467" 

0 0006 1 
6 2330 0 


- 5021 0 

*^51447 0 


73 46 ] 

0 7 U 6 1 

3" 234^ — 7 

0 23 1 5 t 
3 2346-1 
O—T^TEr- jr 


TS 

FXTFNO 

M7MF 


-GOTSf rU7 CS 

TS 


GIMnT‘=:ST CAP 

TC 




TC 

CAP 

TC- 


a 


CS 


mrkrtmp 

-CNTP- 

GIMTR IM 


CNTR 


+ 2 ACT DEG 
nOTPUT 


OUTPUT 

+7 actdfg 

nuTPUT — 


CHTR 


CHECK FUR TFST/TRIM OR TRIM ONLY 
""H RK -RYMP- S A - VES R OR RE STARTS 

(TRIM ONLY) 


GTMQAt ORfVF TEST SETUP, FQR ^iJCH 


GTMBAL drive TEST, 1ST INCREMENT 

(LEAVES Gi^BAL AT ^2 DEG) 
- 2 N D T Ne- R. E M E*-t f -e tEAV F S GI M BAL -AT 



3R0 INCRFMFNT (LEAVES GIMBAL AT -0) 


CHECK completion OF YAW TEST 
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USEB’S t>AGE NH, 48 


E6 S3 


3036 “ 

REF“T6r 

LACT“ 

T2D 

302T 

StF 3" 

L A ST 

'730 

30^A 

Pee 49 

“lAST" 

'"no ■ 

3029 

REF 1 1 

LAST 

T30 

3030 

REF 1 




Z0V2310 10 000 0 CCS TV — “ 

“20.23Tr I 2330 I — TCF GIMTRTM 

20,2 312 4 3017 0 US BTTT 

20 7 23T3 35^447 0 TS 

2072314 1 2T01 0 TCT= GI^^TFST 


CnwPLETFD^ GO TP GI^BAL TRTw ROUTINE 
SET UP YAW TESl * 


FHP YAW TEST 



ZORl 
037 



T3ST TOT 


2072315 

2072316 


0 0005 r “OUTPUT 

Ti' T46 '0 


EXTEND 
VXCR 


FBI PR 60 


3033 

”3034^ 



RFF 


12 

T 


LAST 731 


20T2317 51*447 3: 

20,2 3 20 54 054 1 


INDEX 
TS 


CMTR 

TVC PITCH 


3035 

REF 1 3 

LAST 

731 

2ny2m 1 

51*447 

1 

INDEX 

30377 

RTF 20 “ 

LAST 

703 “ 

20, 2322 

3 "TO OT 

1 


3^03 7 




^0 t 23 23 

0 0006 

1 

EXTEND 

303 T 

REF 5 

LAST 

183 

“ 20 ,2 3 24 

05 014 

1 

WOR 

303 P “ 

REF 10 

L AST 

73 0 

20,2325 

0 5267 

1 

TC 

3040 




20 V 2326 

00310 

0 

DEC 

3041 

RTF 5 

X AST 

^51 

“ 20 t 2 32 r 

0 11 46 

0 

TC 

















3 042 

RfcF TT“ 

LAST 

T 3 T“ 

20 ',"23 3 0 

0 52 67 ^ 

T“ 

GIHTP I M TC 

3073 ' 




“ 20 V 23 T 1 

_• _ . , 

006 20 

0 

DEC 

3044 

RTF 142 “ 

LAST 

730 

‘ 20 , 2332 

4 5021 “ 

" 0 “ 


3045 

R^=F 15 

LAST 

715 

20,-233 3 

6 1423 

0 

AD 

3 0477 

^ EE 2 

LAST 

T 3 t 

20, 2334 

54 0 54 

1 

T S 

3 04 7 

R EF 1 4 3 

LAST 

711 

20 f 2 ^ 3 5 

■ 4 5021 

0 

cs 

3043 

TEF“ 4 

LAST 

715 

20 .2336 

“6 1424 

1 

AD 

— 3 04 7 

R EF ~ 1 



20,2337 

54 0 5 3 

0 

TS 


CN TP 

•B T T ll 

C^-JAN14 


FIXOELAY 

200 

TF'-'PP60 


4 0 0 


PACTPFF 

TVCPITCH 


YACTPFF 

TVCYAW 


OUTPUT THE INCREMENT... *SAVEO 


WAIT 2SeC, WHILE ASTRONAUT VERIFIES 

GIM3AL MOTION ON GPI 


Wfl3 T 4 SFCONOS BEFORE GIM8AL TPt M 



P ICK31P -T* >IM VALUES A ND 

(AVOID +0) ENTRY POINT FROM 
ON A— RFSTaRT, TO AVOID 4SEC 


RSTRTST 

DELAY 


3050 ' 

T> 

m 

Tl 

2 

LASI^ 

169 

2 0 ,^3 40- 

3 

50 62 0 

CAF 

PR 106 

RFLEASc THE CaiNTERS, BITS 11.12 

3051 





20 f 234 1 

0 

0006 1 

EXTFND 



3052 

REF 

6 

LAST 

73 1 

20 , 23 4 2 

0 

5 014 1 

~ WtTR 

CHANl 4 


3 05 3 

RFF 

40 

LAST 

72 9 

20,2343 

1 

5324 0 

EN0S40.6 TCF 

TASKDVER 

-- 


30533 
3 0*^4' 
3055 - 


tty*l3nA 023110 1 — CCT0220G OCT 02200 BITS Bfll FOR CHANNEL 12 TVC/OPTICS 

20,2349 T t 32T t “4ACT P E6 D E C =1riT8 - -2 f »?ACT0 e G) t W H OL E BITSt NO ROU N DUP 

2fFr234 5 710124 0 ^-RACTOEG DEC -=rf!4 — ^2 DEG* SC. AT 85.41 ARCSEC/SIT (+840> 




R 3056 C ALLED 8Y • . DONOt J N43- . . ( VERB -483 , “ORr Di-RECTL Y 


3033 

-“RTF 

j— 



3 05'-? 


55 LAST 

720 to , 2 2 <^7 3 1466 1 

S41.2 


BY . .ERESHOA^^. fRCS DAP) VIA IBNKCALl 


COUNT 20/S4l. ^ 


C A 


OAPOATPl 





I J U 


■aP\/IS ION'"o‘^'^' OF" ro^'PPOGRW COMANCHE BY 


SA "70211 13-0 bl 


iOz'/H APR. mW9 TROUBLE .043 RATTE 732" 


P 40 -P 47 


USER'S RAGE NO. 49 


E6 S3 


3060 

RTF 24 

LAST 

6 96 

20,2350 

7 5214 

r 

■ mask 

THREE 

3061 

REF 162 

LAST 

731 

20,2351 

6 0000 

1 

AO 

A 

306;? 

4 

OTT 

“4X5 

20 f 2 ^ 2! 

55' 130 

7} 

TS 

R AI tlNUX 


3053 





20 , 73T3“ 

0 

0004 

0 

3064 

KEF 56 

t A'ST 

TTT 

ZD, ^154 

31 

■ 466 

T 

1065 

RTF 

10 

LAST 

691 

2n,Z355“ 

7 

4371 

1 

3066 

REF 

1 



2 0 . 

6- 

7705 

1 

3 06 7 





20,235 1 

0 

UCT06 

T 

3063 

REF 

1 



20,2360 

1 

23T5 

I 


TNUINT ~ — ~ 

CTTE DAPLTATRl rS“LTir- ATT AtETETT (BITS 14, 

HASK RTtrOTTr “ =10) 

ACT -TTT14 (OCT57T77) 

bX! bNU — — 

BZE - THt^TITER YES 


3069~ 

Rbb 

9 0 

TATT 

"730 

3070 

RTF 

13 

LAST 

708 

3071 

lEF" 

1 4 

LAST 

73 2 


20 t 2351 4-3016 1 CS Btr? N H y UNS ET FLAG 

'?0,27f,2 7 0103 1 MASK E t AGVR 07 

70,3363 54 103 1 TS ELAOWKOT 



20,23 6 4 1 23 70 0 


TCP 


3073 PTF 
3 074 RTF 
3075 REF 


T5 "TAST T32 2 0,2365 — ^“0103 I TOGETHER CS PLAGWP07 - — A T T ACTEO, 

31 LAST 732 20,2356 7 5016 1 MASK 8!T2 

16 LAST 732 20,7367 26 103 1 — = AOS ELAGWkn7 



3076 


20,23 70 0 0003 r — RELINT 


'30T7 RTF 57 OTST TTT 70,2371 3~TT6^T 

3073 REF 75 LAST 637 020,2372 7 5014 0 

3070 20,2373 0 0006 1 

3 0 BO “ “ 2nr,'2 3TZi. 6 2375 1 

3031 REF 1 20,2375 3 2475-0 

3032 FTP 1 20,^376 6 2477Tt 

TOTT RTF 4 — TASI 637 20,7377 557725*^ 


— CA O A P DA T R l 

MASK OIT4 - — 

EXTENO - _ 

- B Z M F r2 — D EC 46 MEANS NAR - RQ W OB 

OA-- OEC 409 - — 

AO 0 EC 46 DEC 455 MEANS WIDE 08 

=OrS AOB — — 


30B4 REF 53 LAST 732 20,2400 3 1466 1 CA OAPOATRl 

— 30T5 RTF "3I~ EAST TT8 20, 2401 T 5011 0 MASK BTT7 QUAD 80 — 

3085 70,2402 0 0006 1 EXTEND 

3037 20,2403 6 2405 1 87MF +2 

3033 RTF“3T LAST *T24~ “20,2404 3- 5017 1““ CA“ ONF 

3039 REF 2 LAST 109 20,2405 55*631 0 TS XTRANS 

305 0 REE 59 LAST 732- 2*^', 2406 3 1466 1 CA OAPOATRl 

30^1 TEF 27“ FAST 5T2 2077407 7 5006 0 MASK 0 1710 QUAD AC — 

3097 20,2410 0 0006 1 EXTFNfl — 

30"^3 20,741 1 6 2413 0 87ME +7 

“"3034 RFF 55 TEATT 73 2 20 , ?4 t2 4 “501 T O CS TNT 

3 0 95 REf 3 LAST T32 20,2415“ 27*63l 0 AOS XTRANS 


3095 





20 •• 24 1 4 
20,2415 

- 0 0004 

-n 

1 

3 097 





0 0006 
! 2421 

309 8 





20^^TI6 

1 

309 9 

RTF 

"TO 

LAST 

5 93 

20 »24'1 7 

4 00 7 > 

1 

3100 

9’T 

33 

t AST 

6 9 6 

7 420 

1 5001 

1 

3KU 

REE 

2 0 

LAST 

732 

7 (r , 2 4 7 1 

26 0 75- 

1 


I N HINT — 

F-XTr-NH 

B 7 F >5 CLEAR NJETS»=LG <4 JETS# OR NO JETS) 

CS PLACW^Dl S E T-NJ E TS F LG (2 JETS, AC O R B D QU AD S ) 

MASK RfTlB NJETSFLG = 1 f'OR 2 JRT ULLAG*:- (AC OR 60 ) 

ADS ELA*;WRf>l — 




Tr^irTTBiF"'^rvr$ri)Ki os? of acc p.^ogra^^' comamchf- bv wsa ■202ui:-i-0’3i 


l0i2B APk 


TTTTiS^ r 


TFf 3 PAVyE 733 




USFR’S PAGH M13 


50 


E6 S3 


310? 





20 , 2422“ 

1 74 26 

*1 

TCF 

3103 

pTT p “ 

34 

LAST 

73 2 

20,2423 

4 5001 

1 

CS 

3104 

REF 

^1 

LAST 

732 

20,2424 

~7 00*75“ 

1 

MASK 

3105 

RTF 

22 

L AST 

733 

70 ,24*25 

54 075 

1 

TS 

3106 





20*2426 

0 0003 

1 

R FLINT 

■ ' 3107“ 

- p pp - 

Z 

LAST 

280 

20,2427 

3 146’ 

0 

C A 

31^8 

RFF 

33 

LAST 

TO'’ 

20.2 430 

7 5003 

0 

MASK 

3109 

_ . - 




70*7431 

0 0006 

1 

HXTEMO 


+ 4 

BTTtS 

FTAGWDT 
FLAG¥R 01 

DAPDATR2 

BTT13 


NJHTSFLG = 0 FOP A JET (OP 0 JET) ULLAGE 


TTITJ 

^111 

3112 

"FTIT 


REF 86 LAST ^2 


20,2432 

2tr, 2413 
20*3434 
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3114 

REF 

7 

LAST 





3115 

REF 

3 

TTSl 

LAST 

3116 

7 EF 

78 

-- 3117 

REF 
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LAST 

31 15 




- 3119 

DCp 

87 

LAST 

3120 

P EF 

7 
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7TT 

1 


“ 312? 

R t F 
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LAST 

3123 


3 

LAST 

31?4— 

R EF 
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3125 

RFF 

26 

LAST 

3126 

RFF 
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LAST 


TT3T 

3128 

312"^ 

3130 


^■PF 


2^^ A ST 



3112 



RFF 88 

LAST 

RFF 4 

LAST 

RFF 5 
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”TFF 32 

LAST 

7FF 165 

LAST 

■”7PF 
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PFF 2 ~ 
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R i: F 166' 
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7EF 145 

LAST 

REF 3 
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REF 6 

TITST 

RFF SO 

L AST 

REF 166 

L AST 

t A 

RFf r5T“ 
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Pf 90 
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*REF 4 
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t 
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6 2434 0 
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T3 
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20*245 1 
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BITIO 

A 

^F4 

ONE 

f?ACFAIL 
B OF ATI 
Z F 

<?ACFAI L 
TTAPtrATR? 
6114 
A 

froF 5rnr— 

ONE 
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12075 O 
0 6006 1 
“7762 4 I 
3 453T^ 
77650 r 
32100 1 

0 6006 1 
77745 1 
" 01046 1 

7762 4 r 
3A^661 1 
77624 1 

22331 Or 
77776 1 


TC 


+6 

INTPRET" 


ORLC 


P52LS 


Gnrn 


TC 

OLHAD 
CALL 


0570 

INTPRET 


05 2D 


orcr 


EXIT 


3 2160 T 
0 4662 1 
20720 0 
0 4106 1 

0 2161 0 
0 6006 1 
“77650 1 

22100 r 
0-6006 
776 ?4 


P52J 


TC 

CAOR 

TC 

TC 

TC 

OOTtr 


62Tr 

730 


016.^2 


12“ 



01 64 

KFh rT5 

LAST 

740 

0165 

REF 


LAST 

635 

0166 

R EF 

48 

LAST 

“74^7 

016 7 





0168 — 

REF 

1 



0167“ 

166 

LAST 

T4Tr 

0170 


-- 



0171 

PEF 

16 

LAST 

622 

OT7T 

- ^ 

■ 1 



017T 





01 Th 

REF 

1 



0175 




740 

0 1 r 6 

REF 

1^6 

LAST 

0177 

^ tr 

1 

•A 

- 


01 7. -i 

ref 

1 



Ol"''? — 

- RFE 

1 6 2 

L AST" 

*^40 


T5 ,^1 TO 
1 5.21 16 
7572TT7 

15 . 2 1 20 

15 . 21 21 
T5,2T?2 


30770 

77414 


1 

T 

1 

0 


TC 

OAtt 


CAL53RFT SET 


"'01462 0 
0 5412 0 
00024 0 
T~'50 2 5" 


P52C 


1:5 .2123 
15 f 2 124 
15,21 25 
15^2126 
15 , 2127 

15.2131 

15.2132 



0 4662 1 
21045 0 
■ O' 41 06 'I 
0 2^1 30 1 
0 2142 1 

B c r o s - 

43234 0 
45510 1 
32 2 64 0 



RTB 


I S . -> I 3 4 

15,2135 
75571:36 
15,21 



TAtt 


16, 2 140 


75-72747 

15 ,-2-1 4 -> 


OIRO 

0181 


2' 


> « 


T45 





TArS-T 275 




01 
01 i 3 


■^FF 47 LAST 740 


75t2744 

15.2145 

15.2146 


0 4662 1 
30333 1 
Or-2 1 47- 7 

0 6006 1 
^76 2 4 " 1 
- - 305 - 32 -0 

77776 1 

0 4 1 06 I 


P52P 


5X1T 

TC 

CAOR 




S52.3 



•2 


VS06N22 

8ANKCALL 
G^FLASH 
GHTOPnOH 
CQARSTYP 
I MT^RFT 


F5 20 
lAlTPRET 


OA L 5 3 A 
EXIT 



PHASCHNG 

04024 



RANKCALL 
GOPERFl 
G O TO P O OH 

f2 

P52F 

TNTPRFT 



LOAOTIMP 

IGHTl 


LUCSAH 


SANKCALL 
PICAPAR 
R521 


P5 2F 


TC 

CALL 


I NT PR 


5-57 


EN0P50S 


FXI T 

TC 


GninPOOH 


NON 

LS 


COMPUTE NOMINAL IMU 
"ORIENTATION 



COMPUTE GIM5AL ANGLES 



oisplay gtmbal angles 




RECYCLE- VEHICLE HAS BEEN 

" ~ . — ■ — — — , M m ^mu • \ m _ _ _m ^ — — 

MENUEVEREO 



ROUTINE 


ALIGN 


V33 

s 


06 STAR SELECTION 


2 STARS NOT AVAf LADLE 

-2- STARS available 





0 ^ 



Pk'iGRAM COM 


'CHF I’V 2(J71ir:i-041 


M'l'. 1 , Vih<^ PROUBLE .043 RSGE 



L ■P51-'^53 


USER’S “AGE Wn. 5 E5 ST 


0T'’6 TTEF 28 LA5T^T2? 18, 2147 ' 0 56 50 1 P5Tr TC TSIARR 

0197 ' IG,7r30 00405 tl OCT ^ 405 

OTTB RTF 5 nrST BBTT 15;“15 1 1 50 50 1 CAT V05N0y 

0199 REF 177 LAST 747) T5,2T52 0 466? 1 TC BANKCALL 

0200 “REF 33 LAST 740 15.2153 20720 0 CADR- Gn^LASH 

OTOT TEF 50 TACT r47) 15,2154 D“4T06‘1 TC GGTOPnnH 

0?O2 R5F 2 LAST 740 15,2155 0 2142 1 TC P52F PROCEEO - DO FIME ALIGN^^RSI 

0203 ret 2 LAST 739 15,21T6 7) 2120 0 TC P57C RECYCLE- VEHICLE HAS BEEN HANUEVEPEO 

02 04 15,215 r 0144'2- "1 V06N34 V15 00634 

0205" ' T5",2160 Ot426~n VB06N22 VN 00622 

0205 REF T LAST 161 15.21:61 3 5024 1 C7ARSTYP CAE 0CT13 

0207 RTF 1 75“ X71E7 TCI 15,2162 0 4662 i TC BANKCALL 

0208 RFF 4 LAST 740 15.2163 21045 0 CAOR G0P5RF1 

0209 “EF 51 LAST 74V 1-5,R164 1 4106 0 TCF GOTUPOnH V34 — ^ 

OTTO ITEF 2 EITST 739 15,2165 1 2113 1 TCF P 52J 73 N O R^HAL 

0211 REF 165 “LAST 740“ 15. “165 0 6006 1 TC INTPRET GYRO COARSE 

0212 15,216“ 64375 1 GYC^S VLUAO MXV 

0213 RFT T' TTTST “73" 15, 2170 003070) X SHD — — 

0214 REF 21 LAST 721 15,2171 01736 1 PEFSMMAT 

0215 15,2172' 77656 1 UNIT 

02TB 9EF 4 “LTrSl 54“F 157 2173 — 26714 1 STOVE XOT 

0217 REF 3 LAST 73 15,2174 - 0031-5"O YSHD 

0215 15. ?1~75 53521 1 3XV ' UNIT ' 

0219 Ri“F ""2T LAST 741 '15,2175 01736 1 RFF50W5T — ' 

0220 REF 4 LAST 544 15.21 77 26722 1 STOVL YDC “ 

0221 REF 2 LAST 73 ^ 15,2200 00323 0 ZSMD 

02 2 2 15,2201 5 3521 1 *OCV 07TT — 

0223 '3EF 2'3 LAST 747“ 15r22-02 01736 1 PffsmmAT 

0224 “EF 4 LAST “544- rS.R'^aO' 367''0 0 STCALL ?0C 

0225 REE 3 ETST 544 15,7204 47205~0 

0226 ■ - 15,2205 43014 O 

0227 RFF 1 15,2206 01260 1 

— 0223 RTF T ~ 'L'AST " 740 1572207 01662 1 

022“ “ 15,2-710 7777rD 1 

0230 -REF 1 15,2211 3 2244 i 

0231 '“RFF 179 "LAST 741— "15,2212 0 4662 1 

0732 REF 2 LAST 391 15,2213 206''6 1 

0233 REF I 15,2214 3 2323 1 

0234 REF rao LAOr — 741 1 .5 ' ; - 27t 5 — 0 4662 1 

0235 REF 5 LAST 446 15,2216 17206 O 

0236 REF IRl LAST 741 15* 221 1 0 4.662 1 

0217 RFF 8 CTTST 445 1 5 . '?7?0 17577 1 

“0238 REE 1 18,22? I 0 5757 1 

023'-' RFF 64 LAS! 740 15*2222 0 5412 0 

0240 15,7223 04024 0 

- 0241 — REF 169 LIST 741 15,7274 0 6006 1 

— 0242 - 15,2225 75160 1 

0243 FTFF 4 L AST 741 15', 2226 00306 1 

0744 RFF 24 LAST 741 154 2227 01 735 1 

0245 - . .. 77624 1 


CLEAR CLEA'-- 


0“ !FrF(.G 



EXIT 

CAP 
TX — 
CAOP 
CA 

le — 

CADR 

TC 

CAOP 

TC 

“C 


AXC , 1 


V16N20 

• FA ' M I CCAIL ' 

GOOSPR 

R55f OR 

M. m. A AAA 

BANKC ALL 
«5ANKeALL 

CURTAINS 

RHASCHNG 



AXC * 2 
X S ^ U 


Rpf=SM‘^AT 


CALL 


GAP : ASSF;-^BL^ Wh V ( 5"F’ N 



aGC - v;y 1 1 -i-OSl 


TTrr?B“^rPT^^;^ — i * 1969 — frouble .n^3 — ptoe — 


P51-P53 


trSF»«S PAGE NO. 


E5 S3 


0246 

0247 
DT^T 
0249 
02 50 
TTTBT 

0252 

0253 


REF 


I 



PEF 


7 LAST 


OT4- 

741 



8 

18 


LAST 

LAST 


66 A 
434 


0256 

TJ25T 


T.eF 

REF 


2 

1 


L AS T 741 


025vT 

0259 

0260 

02^51 

R0262 

lRa27rT 

R0264 

P0265 

R0267 

R0268 

K f J O y 

R0270 

R0271 

Pr02T7 

R0273 

R0274 

K 027 5 

R027S 
R0277 
7^ 


R 

REF 


2 LAST 
1 ^ 


157 


13,2231 
i5,7232 
TTTZZTT 
15 ,2234 
X5V2235 
15,32^6 
15V2237 
15,2240 
L5,2241 

“l'5ir224^2 
-T5 T 2245 
15 , 2Z'44 

5025 

IStTOOTT 
16,25 iiO 


31053 
4301 4 
012 73 

014 62 
77234 
31275 


0 

0 

~U 


CLEAR 


0 

1 
0 


RT3 


rTATNOVF 

SFT 

PFRATFLG 
RTFSMPLG 
VLOAO — “ 


11556 1 
0147? 1 
52014 0 

01060 0 
30655 r 
04024 


STHRF 
021 


O V16N20 

ALRM15 


SFTl /PT) T 

ZfcROVEC^ 

GCOMP 

GOTO 

-ORXFTfL0 
R0 IK 

1 62 0 


"IN 

XOtlALS OC T 15 
SETLOC P50S2 
• BANK 



01521 1 V06N89^ VN 


0659 


NAME-P52LS 
FOTCTiaN -“ITT 
I ONGTITUDE A^4 
THE KEYBOARD. 
2RTFM 

LX r : 



“ DTSmY THF'X AND 
0 ALTIT'JDF. ri ACCEPT 
TO COMPUTE TH^ LANDING 
P52 OF; P54 


rT lJDE, 
‘W DATA VTA 
STTE 


V 


“XrS“ = r A NO I NG SITE VECTCP 

= CSN POSITION VFCT2R 
= CSN VELOCITY VhCTOR 
N THE L ANOIN'G 

XSMD = UNTKPLSy— 

YSMO = UNI T(7SMD-X swot 
7SMD = 



IN REF 
IN REF COOPOINATES 
IN REF COORD TNATES 
TOFT 



Twn 


CATt 


INPUTS- 


P 0779 
R0280 


TIN 
CALL 

P52LS 

■DSPTF0I=TTME of ALIGNMENT 

RLS = L ANOING SITE- 'O'-XTOR-IN MOttN F 


D COORINATES 


OUTPUTS- XSMD, YSMD, ZSf^U 
"SOHROOT TOES- RP-TO 




AH 



>^0232 
R0 2S3 

OERPIS- 

v^c, 

0284 

0235 

0256 

" RFf 

pfF 

2 

16 

LAST 

LAST 

ozir 




02^^^ 

REF~“ 

36 

L AS T 

023^ 

REF 

2 

LAST 


72 
6-3 0 


1471511 
16,25 32 
li * 2 5 33 


43020 


003 00 
01463 




1 

1 


irr — 

OMAJ 

LtlNAf L AG 


740 

93 


0290 

02 91 
0292 


-REE 


•& 

7 


0294 


R f' E 


EAST 
LAST 644 

LAST 742 


1 5 , 2 534 
16 ,2515 
15, 25 3 6 
16,2537 
1 6 , ">^5 40 
16 r''^54l 

16 , " 543 
,25 44 


OtOAO 


1 

1 

O 


01 046 
02607 
431 75 
02G26 i 
00462 1 
14 00 1—0 

02607 i 
34007 1 


store 

VLOAO 


OS'^T EM 1 

TSf GHT 

lEt ^ 



PLS 

HR A OF L A G 
■0O 


STCALt 


T S I GHT 
60 





r'056 "nF" AT.c PR AfT'xn'M'ANCT-ih by na sa ■zrr2i 1T3-0 ^ i 


Twrzw~7rpK: — r^ouBLF .04 3 — PinrE — 


0?^o 

0217 

UZ9Tf 

0797 

TI300 


7 51 -P 53 


9FF 


USER+S PAGE' not 


95 S3 


lAST 605^ 


FEF 

PFF 


TXT 


UTTST 

LAST 


ZT 

742 


754‘5' 
1 9 ♦ 254 6 
16, 754 ^ 

1 6 .7559) 

16,7551 



0302 

0303 
-03W 
0305 
0305 

TTTOT- 

0303 

0309 

Timr 

0311 

0312 

0313 

0314 

0315 


4 TTSTST 


L 


608 

— 14,2552 


16,7 553 

603 

IT) , 7554 


REF 

REF 

'R'EF 


1 

132 

“54 

52 


LAST 741 

UTTSl r4T 

LAST 741 


TTEF r“ 

PEF 170 LAST 


KFF 


RE 


~03T5 

0317 

0318 
03TO 
0320 
0371 

^322 

0373 

0374 
0325 
0376r 

0327 

0328 

0329 

0330 
033T 

0332 

0333 

0334 
R0335 


REF 

TTEF 


~y. 

5 

”5 

11 



LAST 


743 

644 


^FF 

REF 


5 

6 
39 

6 


lAST 
CTTST^ 
LAST 
LAST 
T ' 


74T 

743 

711 

oO 


16,2655 

167255 5 

16 .75 5 7 
16, 2560 

16 ,7 56 f 
16,2562 

15.2553 

16.2554 
16,2565 
1 6, ? 5 66- 
16,7567 

16,2570 

I6,257T 

16,2577 

75.75 7T 
16,2574 


55344 1 
77742-0 
16T52 0 

02607“ 1 
77624 1 
26 370 1 

77674 1 
52365 O 
77776’"T 
3" 2530 0 
0 4662 1 
“ZOTTTm 
0 4706 
0 2 5 64 
0 2556' 

0 6006 


L SO I SP 


16,7575 
16,2576 
7577 


77624 

45145“ 

02 607 
26441 

53575 
027 57 
14307 

02607 

34041 


1 

1 

TT 

1 

1 

0 

0 

1 

T 

0 

0 


PEF 

PTF" 

REF 

TXEF~ 

REF 


->2 


t. 

27 


LAST 

LAST 


71 2 


6 LAST 743 

3“ XTTSl r4T 

7 LASr- 74 3 


16, 
16,7600 

1 6-, "269)1 

15. 2602 

16 . 2603 

16.2604 

16.2605 


473 75 
000 0 I 
00007 
5 3 435 
0030 7 
00323 


“O 

1 

0 

7 

0 

"O 

"TT 



4 


16,5 
1 6 , 2t>0 7 
16 , 2610 


O 
0 
IT 

53435-0 

00307 0 



3 LAST 742 
1 


00300 1 


16,2X7 1 
1A,^000 

— — 

NAME- AUTOMATTC DPTICS POSIT ION IMG ROUTINE 


VSR2 

STOOL 


p p^Trr= 


ALPHAV 

TSIGHT 


CALL 


LONG 


CALL 


LLASRD 


EXTT 

CAF“ 

TC 



TC 

TC 

TC 


TC — 
CALL 


V 0 6 M 89^ 
BANK CALL 
GOFfASH 
GtnOPUOH 

+ 2 

t S O TSP — ■ 
INTPRET 



OLUAO 



VLHAO 


STCALL 


CALL 
TSIGHT 
HTORV 
UN I T - 
ALPHAV 

T SIGHT 
TOECl 



VLOAO 


VXV 


VXV 

RATT 

VA TT 

tlNIT 

XSMO 



VXV UNIT 

XSMt) 

470 AL L Y S ^O 

QMtAJ 

SFTLUC P50S1 
BANK 


9 0334 
R0338 






LHS OF TH E OPT IC S AT A STAR -f^ LANDMARK 



FYTTS K 3 r I MP U 7 


(2) TU POINT THE STAR LOS OF THE OPTICS AT THE— LFM OURING REN057VnUS TRACKING OPERATIONS, 


37 0340 CALLING SEQUENCE‘S CALL 45 2 


R0341 
R 0342' 
R0343 
R0 344 


INPUT- 1. 


3. 

4 « 


TARGIFLG 4N7 T^IZFLG- FRESFr-&Y CALL 

PN OV T FIG AMn T T ACKFLG- PRrs ei ^33 r ~ CA r rEP — 

STAR GOOF- PRESET BY GALLFR. ALSH INPUT THROUGH OSKY 
LAT, LONG ALT OF t A NO^SAR »< - INPUT THROUGH 05KY 


g ap :' A~$ S E^'L E“^E Vl l“nN" (TdT ’OF ATrC'"P1^0r,‘^'’A M C(W ,WR'F' "B^ N A ^A^202l l O-O'S T 


10t:^8 APP. 1 , 19 69 FROUBLE .043 T4A^ 




USER'S '^AGE NO. 


E5 S3 


R0345 


5. NO. OF WAPKS(^A’^,KTNDX)- TRESHT BY CALLER 



R0347 


R0349 

R03S0 



R03S2 


0354 
"(7355" 
03T3 
03 57 

0359 

0360 


036? 


VTK^ 
0 36 5 
0366 
03”67 

0368 

0369 
03 10 

0371 

037? 

03TT 

03T4 
0375 
0 376 
0377 
03'^8 
T)3TT 
0330 
03^1 
3JTRZ 

03^33 

0334 


OTJTPl^T- DR 1 V F"SfTAFT “3Nn"3 R0NNlUN LOUS 


SUBROUTINES- 1 



. FIXPELAT" 

3. GGFL'ASH 

4. P5? 

57" 



'k_T 

fc < 

10. 

TT. 


CLEANOSP 
GUnSPR 

PEFLASHR 
R52.2 
R‘5? .3 


13333 3FF 


T 


3FF 

3EE 


2 

1 


ITLST 


kEF 

REF 


8 

o 


1 TT 


LAST 

LAST 

ITTST 


25 


1 


REF 

3EF 


1 

■E 


RTF 

RFF 


TTEF 

REF 
R EF 
3FF 

REE 


REF 


03 BE 
0337 
03 83 

03 89 
03<^0 


REF 
TTF 

3rF 

REF 


'1 

1R3 

1 

3 

1 

45 
— Z 

Z^ 

40 


LAST 


REF 

" E F 


1 

-31 

-4T 

17? 

2 


SR 52 .3 



93 


510 

453 

733 


3 AST 73 a 


3FF 17? LAST T^r/r 


031 oTT 


I AST ?4? 


14,2011 

3372312“ 

14,2013 
14,^014 
14,2015 
14,R916 
14,?ni7 
34,3320“ 
14,2021: 
14T2023 
' 14,207 3 

13,2073 
14, 2 OR 5 
14,2026' 

34 , 2027 
34 ,2033 

14. 2031 

14.2032 

14. 2033 

34.2034 

14.2035 
14, 20 3 6 


43020 1 
“32576 I 

04265 1 
77776 1 
3“0C36 3 

33K)T6 1 

533 61 1 
0 5006 1 


R52 


STO 




743 


LAST 737 



14,2040 
14, 20 ‘+ 1 
1 4 , 2 0 42" 

I 4,2343 
1 4 ,30-4^ 
14,204'^ 


00271 O 
77776 1 
O Sn33"T' 

43aT4“3r 
0007237 
00705 CT 

3011? 3 
774 14-3 
03660 3 
3 1314 0 
0 03 05 1 
6 2140 rr 
0 4662 1 
26244 1 
T 



3 2133 O 
0 5546 0 
— 00013 0 


LAST 

73 3 

14 , 204-3 

3 

5006 

1 

LA*;! 

739 

1 4 r 

7 

0075 

1 

L AST 

739" 

14,2050 

10 

300 

0 

- - - 

— „ 

1 4 r205 1 

0 

?0 61 

1 

L AST 

5750 

1^,205? 

* 

501? 

1 

A 

tTCFT" 

744 

1 , 20 5 3 

7 

0074 

0 

LAST 

7 4 4 

14, 20 5 4 

10 

000 

0 

LAST 

744 

- 14,2055 

1 

'>061 

0 


CLEAR — 
SAVgR32 


R52VR8 


AOVTRK 

EXIT 

T XTE N O 

OCA cnuT 
OXCH OtSORTT 


BSP 


CLEAR 

OPTIMO 


R53FL AG 


EXIT 


BFT 


CLEAR 



R520 


TNTPFFT“ 
- B3M 
TP-UMFLAG 
T A R GI F LG 
R32H 
EX I T 

— T E RMTFLG 

CA SWSAMPLE 

EXTEND 

B7WF 

TC BANKGALL 

CAOR SP52.1 

R5 ?t — 

R52 J 




P52JA 


TC 

AORFS 
CAF 
♦^ASK 
1XB 

TC 

CAF 


UPFLAG 


Tt tU M FLAG 

B I TIO -- 

state +1 
^ 


CCS 

TCf 


81 T6 

STA 3 F 

A 


IS OPTICS MODE IN AGC 


AGC 


G P 90 BE GREFS 

GR 50 DEGREES 
LS 50 OFG^'FES 
SET - TRUN'^L AG — BIT 4 


Ft AG - 6 


fS THIS A LEM 


NO, IS R53FLAG SET 


YES 





ASSF’^^^LE PEVISION 0^5 ol- A"C P‘>.0G'<A'^ COMAr^CHF 



N1A3A 20?1113“051 


10 : 2r AP^ 


' • 


1,1969 rRiJUBLF ,043 PIHTE r 45 


P51*-’^53 


pa(;e no. 


E5 S3 


0391 

0392 


P'EF 



03^^ 
03 95 
0396- 
0317 

039B 

039"'T 

OAOn 

0401 


N 

FTF 

FFF 


RTF 

FEF 

REF 


1 

184 


LAST 744 

74T 


9 


LAST 744 


1 4 .20 56 
14,2057 
T'4;2'a60 

14,2061 
14, 7062 



— T 

42 

28 

TTJ 


RTF 



0403 

0404 


0400 

0407 


RFF 

OT1 


0409 

0410 

0411 

0412 

0413 
0 41 4" 

0415 

0416 
0r41T 
041S 
0419 
Tr47Ty 


9EF 

REF 

RTF 

REF 

RFF 

RTF 


j 

8 

5 

“T 

185 

11 

30 

43 
174 

I 

35 

44 


LAST 

LAST 

TA3T 

LAST 
T7SrST“ 
LAST 
LAST 
T1\TT“ 
LAST 
LAST 
1 AST 
LAST 
LAST 

L AT T 
LA5T~ 


73 9 
742? 


453 

744 

738 

452 

536 

745 

6B-7 

744“ 

745 

745 

733 

745 


I 

173 


LAST 744 


REF 


LAST 74-4 


0427 
042 3 

0474 

0425 

0426 

0427 

04^8 

0429 


REF 186 

TFT 2 
REF 45 
RTF 2T 


LAST 
LAST 
LAST 
1 AST 


745^ 

5 6 4 
745 
3FK 


14,7053“ 

14.020 64 
14,2065 
14,2065 
14 , 2067 
14,2070 
14."?071 

14,2072 
14^,2073 
14, 7074 

14.20 75 
14,2076 
T477T7T 

14.2100 

14.2101 

14.2102 

14, 7103 
T4,"?in4 

14.2105 

14.2106 

14. 2107 

14.2110 

14.21 11 

14,7112 
14,2113 
14,71 14 - 
14, '>115 
r4'“,7TT6' 

I F ^ 


3 2160 1 
0 4662 1 
20676 I 

3 1314 0 
0 0006 1“ 
5 ZOTATT 

4 0074 0 
7 F014 tr 

10 00 n 0 

0 2077 O' 
3 1 775 0 
55 • 1 50 TT' 


T57 E 


3 1773 
55’ 161 
3 5036 

0 4667 
01732 
5006 


0 

1 

T 

1 

0 

r 

1 


R-SZF 


CAF 

TCr 

CAOFR 

CA 

FXTEND 

TTHF 

XS 

MASK 

XTTS 

TC 

XTA 

“TS 

CA 

TS 

XTAF 

TC 

CAOR 


V06N92“ 
BANKCALl 
b! jOSPk 

SWSAMPLE 


AfO 


R52F 

ST AT E 

BIT4 

TS 


DESnPTT 

SAC 

OESOPTS 
T5 



7 0075 
10 000 0 
T“7TT3‘ 1 
T 5001 0 
7 01X3 T 
0 00 06 


1 2 035 
0 6006 
77 65 0 

025 7 6 
77 7 76 

Tr4667‘ 


REF 


I 


14,2120 


-7 655 7 
7 0075 
r 5013 

0 00X6 

1 2107 


X 

I 

1 

X 

1 

1 

X 

1 

0 

X 

\ 

1 


P 52 X 


MASK 

CCS 

TCF 

CAF=— 

MASK 

EXTEND 

BZF 

TC 

CtJTX-" 


BANKCALL 

DEIAYJOB 

BITIO 

STATE 4-1 
A 

R52HA — 
BI T15 
STATE +7 


R52C 

INTPRET 


R52EI 
T57 


— SAV0P52 
(IT 

TC B ANKCALL 


CAOR 

CA 


P 61 CSM 
STATE 4-1 



EXTEND 


R52Q 


REF 46 
REF 33 
REF T75 
REE 1 


LAST 

LAST 

X“A$T^ 


745 

733 

745 


14.2121 

14.2122 

14.2123 

14.2 124 


4 0X75 1 
7 5011 X 

m 000 0 

1 2131 I 


CS 

^ASK 


TCF 


STATf= +1 
BI 

4 — — — 

752 SYNC 


043 X 

04Xr 

0437 


RTF 

TFT 
7 FF 


-"47 

31 

176 



t 

lAST 745 


1 44 7 125 
IT, 71^6 


T-O I OT 1 R57T 


LAST 


745- 1 4 r217 7 


X5X06 
I O XfTX 


0 


XA 

MASK 

CCS 


XP(Tr~ 

OA35 

'7EF 

X” 



T A, 2130 

XTTXTCrx 

TCF 

REF 

1 

LAST 

745 - 

14 , 7131 

3 2 2 04 u 

2 

14 , 1 ^ / 

i 70 75 X 

0436 

^ EF 

53 

LAST 

7 39 

14, 21 '’3 

0 5560 1 

0437 

REF 

3 

LAST 

744 

14 ,2134 

OOOT 0 


STATE -1^5 

TITIO 

A- 

t> 


T 5 2 SYNC CAF 


X. esTC 
P 52r 4-1 


IS OSS IN CMC MODF 



IS TTUNFLAG SET 


NO 




NO 

TS TEPMIFLG SET 


NO 

YES 


LEM 


TRACKFLG 


UPOATFLG 


PRFTRKAT = 1 

MAKE OP FOP t.OST TIME 


R52J 


TC- 

ADRES 


OrtWNEl AC 
TTUNFLAG 


CLEAT TRUHFL AG 

BIT 4 flag O 


TTSP: ““5'^FraX'F' I WO 5 5 


7T!r 

J I 


.i"(;c "PP OGRAM 



NAS4 J-Obl 


AWJ. 1 , I ‘/6’J rPdUBLE .043 P7:TrF 



D 5 ■p. D t; 3 


t'S OAr,F NO. 10 


E5 S^ 


0A1P RER 29 LAST 741 14,2135“' 0 5550 1 TC ALARM - SET 407 “ALARM 

0439 14,2136 00407 1 OCT 407 

■04~4i tTcF I 14,2137 a"'20'46 1 TC R52JA 

0441 REF 3? LAST 744 lA.'ZTAO 3 5012 1 R52M CAF BtT5 ^ IS P53FLAG SET 

0442 REF 48 LAST 745 14.2T41 7 0074 0 MASK STATE 

75-443 PFF”r77“ L AFT “ “745 14,2142 — nmw-rr errs T 

0444 REF' 3 LAST 745 1442143 0 2074 0 TC “ -RSaF YES 

0445 14,2144 0 0004 0 TNHINT NO 

0446 FFF r 14,2145 r 7661 1 CITE PRT024 — 

0447 IFF 25 LAST' 709 14,2146 0 5147 0“ ^TC FINOVAC 

0448 RFF 9 LAST 745 E5 , ITTT E8A71K= SAC — — 

7J443?' RTF I 1472147 '02153' 1 ' ■2CA0R R53 JOB 

0449 RTF 1 14. “2150 300 65 1 “ 

0450 14,2151 0 0003 I RELINT 

“045T RTF 4" LAST 745 14 , 2 1 5 2 r~7074- 1 TCF ITBZF 

0452 REF 174 1457“ 745 14. ->153 0 6006 1 ^453108“ TC IHTPRET 

0453 “ 14,2154 77624 I CALL 

X )-444 r-FO 7 ' L AST “520 r4“,“ZT55 TITOO' "0 (753 

0455 14,-2156 777T6 1 ENOPl AC EXIT INTERPRETER RETURN TO ENOOFJOBIP22 USES) 

0456 REF 58 LAST 739 14,2157 0 5217 0 TC tNOOEJOB 

0457 TAIE" 150 ' 01534 I V 0611 9 2 YN 00692 

0458 - 14,“21 61 01531 t V06-N89A VN 0689“ 

0459 14,-2-162 10464 O S MAX IS- 20EC •53'^6351241 8=1 — — 

0459 14, ■’163 12470 1 


0450 14,2164 OOOOOl 20cC 0 

“ ' FT. 2165 00000 1 

0461 14.2166 15-3^''3 1 20EC .6431766920 8-1 

0461 “ 14,“2r6T 1T554 0 

04 62 REF 32 LUST 745 14',"2T70 3 5006 1 E52L C'AF DITTO IS THIS A LEM 

0463 REF 49 last 746 14,2171 3- ot> 75 1 MASK STATE -+1 

0464 'REF 178 LAST 746 14,2172 10 000 0 CCS A ^ 

'U4-65 RTF 2 TAST 74T 14,2173 0 2133 1 TC R52 J YES 

0466- REF 1 - 14,2174 3 2203“! CAE ()CT404 

0467 —REF 137 LAST 745 14,2175 0 4662 1 TC flANKCALL 

0453 RTF“ 1 T 4, 21 7 6 21T66 -0 CAOR P<’ lOLARM 

0469' REF 2 LAS! 232 14,2177 I 2205 0 TCE TERM52 TERMINATE 

0470 REE 5 LAST 746 14.2200 1 2074 1 TCF R52E PROCEED 

0471 ’’EF' “6 LA'S! 746 14,2201 1 2074 1 TCF RCTF — NO PROVIFIDN FOR NEW DATA 

0472 PEF 89 LAST 746 14,2202 1 5217 1 TCF EN0OFJ08 


0473 1472203 00404 — t OCT404 OCT 404 


0474 14,2204 0&264 1 l.BSEC OEC 180 


0475 -REF 4 t A-ST 232 14 t22'05 “O 5-536— 1" T ERM52 TC CLTA-RMRK 


04 7 5 FTEF- 1P3 LA ST 746 1 4 % 2 2 0 6 0 4662 — t f€ SANKCAL-t KILL — MARK SYSTEM 

0473 2FE 6 LAST -599 I6,pp07 15063 0 - CAOP MKREtEAS 





ftr-VniON 



4CC PROGRAM cr iANCHE BY NA^iA i’021 1 13-0‘il 


L P5T-P53 


10: PS' 'APR. 1 , 1469 IR-JUBLE PAIJE PiT 


U^^PR'S PAGE MO. tl" E5 S3 


OA^'J RFF r46 LAST TTZ r-'+.TPia "3 5CT2Tn CAF TFR.n 

OAT? REF 3 LAST 2A7 lA.PZll S5’3?3 0 TS ^ OPTCADR 


OARO" RtF'lR9 LAST TA6 1A,‘Z2I2 0 A6F2 T TC BAMKCALL CLEAR OUT EXTFNnEO VERBS 

OARX REF 3 LAST 5T3 XA.22T3“ 20560 0 CAOP KLEENEX - 


OARP REF 53 LAST 7A3 1 A, 271 A 0 A106 1 TC GOTOPOOH NOW GO TO POO 


OA R A 
0A35 
ffAOS 
OAST 
TTAOB 
‘OAR 9 
OAGO 


1A.7215 "43020 1 AfJV'IKS STO SET“^ — SE T S UP AWA N C Fn OR B IT T R 

REF A LAST 7A? ~1A,22T6 025TO-I SA-V0R57 

REF 2 LAGT 7AA XA.TnT — OA 065 -0 “ADVTRK 

lA. 2220 A3U1A 0 SET SET 

REF 17 LAST 7A2 1A,2221 OlA-63 1 LUNAFLAG — 

RFF 3 LAST 7A2 1AV2222 0t)A62- 1 ERADPLAG 

1A,2223 rT B S C r T GCTTO 

REF I 1A,222A 3001A 1 R52VPP 




hi At;( ( UV^A MLHfc BY NASA ^02X113-051 


10 ! ^8 APR. rri ' ^^ 9 T P nu ? L B >043 743 


P '3 1 - P 5 3 


USPR^S PAGP 


12 


P 5 S 3 


P 0491 

R0492 



NA*'> 1 E 

NAMF 

Fll 



-S 50 
- LOG 
l^W 


R 0494 
R 0495 
RO WS" 
R 04 Q 7 
R 049 3 
■RX )499 

Rosnn 

90501 

“pro 5 U 7 

"R 0503 

R 0504 


ALIAS LOG SAM =— 

- TO COMPUTF OOTTTTTGS'TIS TED BfLOW VUSbL) IN !Ht 
im ALTGNMRNTTRTIGRAHS ^ 


0 E F T \i E : 

■ -R'ATT 
VATT 
RF 


= PUSI TI JN ' VtCr DR iJl- 
^VELOCITY VECTHR OF 
=RADIUS HF EARTH 
^^ 7 i^HUS Oh ’^HUN — 


TH 

Cf^ 


Wm — PRTT^ARY BODY 
WRT PRIMARY ROOY 


FCLIPOL=“PntF np-m.I^TIC-SCrALtT> 3Y TAWGPNTTAL VFtOCTTY OF FARTH 


vnr rrrsm over 


REM' =PDSITTWnF MOnM WITT 


THE VELOCITY OF LIGHT 
■f^ARTH 


RES 
C = 


=^^GlTinN OF GUN 
VELOCITY OF LIGHT 


WRT EAGTH 



“R 0505 
ROSn-r 
R 0503“ 
R05DP 
R0510‘ 
■RD^l 
R05ir 
R0513 
01 T 13 T 4 
R051 3 
R0514 
RD 31 T 
P051 3 
R0519 
R052D 


EARTH IS oRTwarY 


1 «roON IS -PRTM-ARY 


VEARTH =-1 (RATT} 


VFARTH=-1 ( t’^=M-i-RATl ) 


VMnON^ mreh-fatti 


YI'^N -^TT-RATT t 


VSUN = IttTFS) 


VSUN = 1 (RFS-^EM) 


C EAR TH^COSIG^TH (RE AT T ) + 5 ) 


CFARTH=COS 5 


Ra 52 T” 
ROErr 
03 73“ 

^052^4 
R05 73 
RT)52 6 ~ 

R0527 

R0523 

RD529 

R0530 

R0531 

R 0532 

R0533 

R 053 A 

R0535 

R 053 G 

9053 ”^ 


R 0539 
9 0540 


GHOO^I^ CITS 5 


— = — 

CMOON“COS( SIN CR‘V9ATT)+5» 


csim = errs is 


= cos 15 


V^'-L/C = VSUN X ECU POL + VATT/C 


CALI - 


OLOAO CALL 


RET T TTMF 
lOCSAl®!' - 


INPUTS 


Mf>AC = TIME 


trU T P U T S “ V E AR T H * M , V SU o i GEAR T H rGMOON , C SilN .-V EL / C 


ES- LSPnSsCSH C O^rTt 


HEBRIS - VAC AREA, SEE SUIPOUTINFS 




O'SS OF Af^C PROGRAM X'JMANLHb BY NA^A “^0211 i I 


10! 2 AM^' 


rROUBLF .043 Rt^tTE TW 


L P51 -P53 “ - USEP^S PAGE-t^^O. 13 ^*=5 S3 



0541 


054? 



2 LAST 743 15^,2000 

'14', "7275 


SETLOC P50S1 

mm 


0544 


PEF 


CnUNT^ $$/S50 


0545 

0546 
TJ547 
0545 
0 54 9 


PEF 


H 



TJ550" 

0551 

055P 

TT553"" 

0554 
0 555 

0555 

0557 
0555 

9 

0560 

0561 

055 7~ 

0563 

0564 
0565~ 
0 5 5 6 
0567 

0558 

056 0 
0500 

0571 ■ 

0572 

0573 
0574' 

0575 

0576 

057T 

0573 

0579 

0550 


PEF 
RFF 
7 EF 


^ EF 


7HF 

REF 
R 1 5 


■RFF 

RFF 

■RFF 

RFF 
75 F 

OFF 


4 

7 

1 

7 


I TT S T 7 "43 
LAST 743 


OLST 


55 


7 

7 


1 AST 

r 


40 

5 


LAST 

LAST 


95 

747 

743 


REF 10 LAST 634 


3 
7T 

4 


F A S T 

T 


F4^ 

743 


LAST 740 
FAST — 745 


L AS T 


75 


K h r 

— P- 



RFF 



1 



RFF 

1 



R FF 

1 



P F F 

1 



R EF 


LAST 

749 

RFF 

4 

t.AST 

749 

RFF 

1 



RFF 

5 

tArST 

749 


14,7775 
1^* 272 5 
r4,2226 

74,72 77 
1 4 *7230' 
14,2271 

14,2732 
14* 2233 
14,2734 

14.2235' 

14.7236 

14,2237 

14,2240 

14.7741 

14,2247 

14.2243 

1 4, “22 4 4 

14,27'45 

14*2246 
14,2^47 
T4 ,225tr 
14.2751 
'F 472252 

14.2253 

14.2254 

14.2255 
14.7256 


77620 O 
00 TOD" r 


LHC SAM 
S50 “““ 


S50 


STO 


366 07 Cr 
54110 0 
26757 0 
00003 1 
16744 1 
02607 1 
34041 0 
77114 0 
“5113T 0 

00052 0 
00000^1 


5TCAFL 


STOVL 


STHDL 


STCAIL 


55F 


30265 0 


tT 2 " 752 ~a 


OOOOT“D 



77655“ 

26 7 52-“0 


UNIT 

STOVL 


1 4 .225 T 

1 4 . 22 60 

14.2261 

14.2262 

14.2263 
4,77 64 

14.2265 

14.2266 
TFT 


5T456 1 
16736 I 

2?5t)'3" 

77624 1 
30325 0 
14017 F 

5226 6 i 
74073 O 
0 27 4 - 4^- 1 

7765“6 1 
36744 0 


UN I T 
STOOL 


CALL 


rrm: 


STOVl 


QMAJ 

TSTGHT 

LSPnS 

VMnrrN ~ 

20 

VSUN 



TOECl 

CSMCONIC 



S2 

0 


1 ETtFTCOT^' Vl^AO VSM 


VMrjpN 

R-ATT 

VMOON 


VCOMP 

VFAR^TH 

n 


occos 

CFARTH- 
CSS5 
CM 

VStJN 


UN 1 T 

STCALL VSUN 




405 75^ 
02 757 0 
5 13 6 2- 1 


MOOKfCNTR VLOAO^ 




05 212 

RFF 

5 

L AST 

749 

0532 





— tr5^ 

RFF 

6 

L AST 

" 74 9 ~ 

0524 

0505“ 


6 

t. A S T 

749 





— 0586 

0557 

FF' 

75“ 

LAST 

— 74rcr 

0533 

RPF 

4 

“LAST 



1 4^22 TO 
1 4 vTTTt 


1 4 , 22 T 2 

14 ,227 3 
14r2274 
14,7775 
14 .2776 
14^7777 


07744 F 
77656 1“ 

25T4'4~t- 
027 57 tl 
53455 

OOOQl 0 

77676 0 
76736- 1 


Y5R5 

VMOlTN 

BVSV 

VSUN 


UNIT 

STOVL 


t- 


VAO 


VMOON 
IF4 1 T 

RA T- T" 


VCOMF 

5TnVL 


VFAPTH 



^4 

^ 9 


GAP 


iSSS'^'^L- RPVIS 


pij] -053 


nSEP’S PAGE 


■# I r t ^ * 




os 8 9 

0599 
05 9 1 
0592 
0598 
T55^9T 

0*^95 

0596 



059^ 
0599^ 
TrSTTTI" 
0601 ' 
06r07 
a6D3 

06 


REF 

26 

LAST 

749 

lA , 2300 
1A.2301 

“TEF" 

# 

V * 

1 

LUST' 

74 T 

14,2302 

K EF 



T4.Z303 



T ^ ^ Z 3 0 A- 

“TTFF 

2 

~orsT‘ 


■■T4',2 305 

RFF 

2 

LAST 

7/j.o 

14, 230 6 

REF 

2 

LAST 

74 0 

14,2307 

REF 

2 

LAST 


~nrr73TTr 

R EF 

T 

LAST 

^740- 

14.2311 





14,7312 

RFF" 

1 



14, 2 31 3 

REF 

7 

w ■ 

LAST 

IFT 

1 ^ f Z 3 1 ^ 

REF 

?2 

LAST 

743 

l^f,^ U5 


00001 0 
5TA56 1 
TET5T~XJ 


32 2 46 0 

1 


UNIT 

SI-JUL 

CALL 


7 ATT 
VCOMp 

T^TTOM 

RSU5M 


' ^9 . . t 

f • 


.f-. 


3032 5 0 
14023 0 
32266 1 
740 1 7 


STOOL 


T 

1 

1 


STOVC 


REF 


1 


06 05 

REF 

3 

L \ST 

750 

0606 

RFF' 


CAST 

"TFIT" 

0607 

REF 

1 



0608 

REF 

1 

TAFT ■ 


06 0 9 


- 5 - 



0 T»TTr 

0 6 nr 


1’4 , 2 3 lET 

14,7317 

14,2370 

14.7371 

14.2322 

14.2323 

14 .2324 
14,-7 375 
14^7376 


1JE17“ 

061T- 

0614 


REF 


1 


“ ”T)'6T5“ 
0616 
0617 
■ 06TF" 
0615 
D61^ 

0619 

062 0 

0620 


RFF 


LAST 738 


0621 

0622 


0623 

0623 

062"4 


14 ,"737 7 

1 4 , 2330 
14,2331 
14. 7332 

15,20tra 

1577743^ 

15,2245 

-15,7246 
15,2747 
"17," 2750 
15,7751 
) 3,7252 

1 5 V? 253 
15,2254 
15.7255 

"15-, 225 6 
IF, 77 5 7 
15,226^ 
1 3, - 7 


02744 
77635 
37256 
27474 0 
00007 0 
361~0 
0 
0 
19 

32 2 TO O 

34021 0 
TO300 1 

704 71 1 
00045 0 
43336 rr 


OCCOS" 
OMOON 
CSS5 
C "ARTH 
VSUN 


ENOSAM 


vxv 


snvi 


vxsc 


322 54 
034 7 4 


Ftrrnoir 

VEL/C 
VATT 
TAD ■ 
1 /C 
VE L / C 


SToor 


STCALL 


ODV 



327 57 (9 
70546 r 
TT51 6 0 


COS 


CSSUT 

CSUN 

goAj — " 

SRI — 
3 6 D 

mtj— — “ 
50F0REES 
SRI 


SETtrDC P5 0 S 
RANK 


000'55 

01265 
003 02 
743 


R SUR^ 



I 

O 


RSUBE 


2DeC 


rT3 


6370166 B-29 


M OON RADIUS ! 


cr 

0 

r 

0 

i 


0624 

0625 
0625 

0576 
062 7 
05T.8 


15V2262 

t5,72F3 

1 3 7 77 04 

001 6 

" -00 20 
007 7 


003 43 
21616 

131 43 
00000 
00000 
71117 0 
33231 1 
0 0001 0 

iir 5-? o 0 
00001 -11 
16 7 00 1 


50EGREES 20EC 


•013888R39 


SCAtFH IN REVS 


r/c 


2 DEC 


,^0 1 104 76^ - 3-1 4 


FCLIPOL 2aEC 


0 


-.00007896 8-1 « 


tutt 


.00018209 8-1 



O N t -Y- 


TSIGHTl 2DEC 


24000 


-C EARTH 
C SUN 


V 


0 629 


1 

I 


.2265 

,226b 


07 7 60 1 

145T3 1 


C SS5 - 


1 4 f> 
160 
tim 


2DFC 


2 4^-^0 475 


ions 5) / 4 




GXpI aSSeMbLc RfJvlSlON 055 OF ?^GC“TCnr,!5AW“CniTONi:HE BY NASA Y021113-0bl 10:273 -^?!!. 1 , 19 - 59 — TKOUBLE . m3 — PTC5 T31 

* 

c D5J_P53 ^ USER’S PAGE NO. 15 65 S3 

0630 r5TT757 T)T554 IT " CSSUN ZUEC ."Z?! 45 COS 15 

Zr63Tr ' r?7 2Z70 15O'f2“0 


TJTTFl Wf-VISrUN“7Tb'b Mh AGC 


TfiT^NCHF 


T O : 28 APP. 




tr« P Ang T 5 2 


P 5 I-P 83 


P0631 

P 0637 


PPOGRAf'* NAME - PlfAPAR 
MOD 1 



HAT’^ aECr ~20 6 6 

LOG SECTION P51-P53 

ASSEMBLY" 3TJNDTSK RFVW 


R0 634 
R0635 


BY KEM VINCENT 



rio 

R06 37 
R063 3 
RU63^“ 
K 0640 
R 0 S 41 
^TTS 4 Z~ 
K 0 643 
R0644 
R064~ 
RT)6^6 
R 0647 

T^TJS 4 ?^ 
^0649 
P 0660 
Hots T~ 
R 0652 
RT) 643^ 
TT 0634 ~ 
R 0^ 56 
R0656 
P 0657 ’ 

R066^ 

R0659 
R'067-,D'" 
RU66I 
P 0662 
Rn663 

R 066 4 
R0666 


FUNCTTUIT 

THIS PROGRAM READ THPTTO-CDUS ANT COMPtlTES TH^ VEH ICLE OR I ENTAT ION 
WITH RESPECT TO I NERTT AL ^ P AC P • IT THE-N COMPUTES THE SHAFT AXIS (SAX) 
^TTH KbSPbCl TO REFERENCF~TNERTTAL • EADET STAR IN THE 


R066? 

R0663 

RXnTTT 

0670 


0671 

06 72 
0 6 TT 
0674 
~06 7S 

06 76 

06 ' >’> 
0679 


TO DETEP^TNF I F rT-rS-ntt 1 1 1 T StTOTY L IT HER“ THE TARTH, SUN OR ^OON . IF A 
STAR IS NOT nCCULTED"~THEN IT IS PAIRFD-WITH AtL-SIAR Of LOWER INDEX. 
T1TE P1AT R FD' "STAR 1 5 TE ST E D FOR nCCm T A TT OM. P A I RS O F ST ^R ^$ T TfA T P ASS 
THE OCCULTATION TESTS AEE TESTED FOR GOOD SEPARATTON.A P A I R- TTF- ST ARS 


HAVE GOnO SEPa^^ATiaN IF THE ANGLE BETWEEN THEM IS LESS THAN 66DEGPEES 

TllirnMUITE THTOT^ I HOSE" P AT RS OF S T A ^^ S "V TIT H GO O D S E PARA TIO N 

ARE THEIT TESTED TP SET TF THEY tl F IN-CURRENT FIELD OF VI ET^. ( W I TH IN ^ 


?3DEGC’EES OF SAX). THE c»AIR WITH ^LAXIMIJM SEPARATION IS CHOSEN FROM 
THOTTE W TTH GTTDD“ SEPARATION, AND TN-'FlELn Dp- 


CALLING 

T* ‘ 

L+1 


T T 7 


OUTPUT 


SEQUENCE 

~TC RANKCALL 

CAOP PTCAPAP. 

ERROR PE TURTT ^ -NTTS T AES "TN' E IT 1:0 TIE VTETT 
TjnRM’AL' RETITN 


D^^STTt RESTD ~-STNG~L'!^ 'P REC, I N T EG E RS ,S T AR NUMB E RS TI M E S 6 
VFLAG - EL AD B IT SET P'TPX I FS NO STARS' mTTEtOTDF VTTW 


T NI TT AL TZATTON 

DA CALL TO LOCSAM MUST-BE MADE 
-2)VFAPTH = -UNIT(f^) WHERE: P HAS BEEN tDOATEO TOO APPROXIMATE TIME OF 
“SIGHTINGS. 


DEBR IS 
'WDFCK“ 

X ,Y ,7MB 
SINCOUtCOSCDU 
STAPAD STAR 
PEE 1 



COUNT 14/P I CAP 


USER'S PAGE NO. 16 


E5 S3 



R 


'•‘EE 

ITFE 


S — CAST 7TD 


3 

S 


LAST 574 


T 4 - t 2 T }Q 0 
T 4 ,TS 33 
14 7 2 -"^ 3 3 
14,2334 


SETLOC P60S1 


^^'E 175 LAST F46- 


RTF 


IT-,- ^ 

14, 2336 

14 , 7 ‘V 37 


0 47 1 1 1 
53 '7 ?T 0 
0 6006 I 
776 24 1 
"47477 0 


PICAPAR 


BANK 

TC 

TS 

TC 

CALL 


MAKFCAOR 

Q M T N 

INTP^ET 


C^UTR IG - 


i 
* 


1 
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0944 ~ 

0945 
0943 

~094T' 

094B 

0949“ 
■“0950 
0951 
095'’ 
■0953 ■ 
093 4 
POO 5 5 

R 099 T- 

P09S<’ 


F -P55 GYRO TO ROOF “ 

FUNCTinN-COMPUTF AND SFNO GYRO 

UTCLING Stg- LALL kbb 

INPUT- X.YVZOr- PF 
OUTPUT- GYRO t’^ULSES 
-SDBPnrjTTNFS^ C ACC G I A , Gl JhL AS H t 


PUL 


WPT PRESENT 


E NFMBEtr 




FF 


LAST 750 


13.2000 

15.2271 


"PPF 


REF 



GODSPPt T WU F TNEt I1 5U P UL SE . G UPE RF T 

SETTOC P50S 
BANK 

- COUNT!*' 



R55 


LAST 755 


REF 


4 


LAST 


41 


THF 


T 


"’EF" 


LAST 

REF 

35 

LAST 

PTTF 

56 

L AST 

!5FF 

1 


REF 

1 


PEF 

66 

T A ST 

ref 


LAS T 


T5T 

743 




199 

6 

196 

— 9" 

2 

67 


XAST 

LAST 

LAST 


T5Er 

741 

T59 


LAST 

LAST 


759^ 

T4T~ 

741 


15 . 22 TT 

13.22T2 

15.2273 

15.2274 
15,33 75 

T5T22TF 
15,“22 7 7 

15.2309 
.2391 

15.2302 

15.2303 

rZ 3 Tr 4 " 

75,2395 

15.2306 

15.2307 

15.2310 

15.2311 

15.2312 

15.2313 

15. 2314 
T5G 


77620 
02777 
7T624 
47205 
77 7 ■^6 
3 2322 


0 
1 

r 

9 

1 

“9 

1 

0 


sra 


CALL 


PULSEM 

R 5 5 . 1 


EXIT 



0 4662 
20729 
O 41TT6 
0 2304 1 
0 2317 0 
5412 TT 
90314 1 


TC 

CAOR 


R55.2 



REF 1B4 LAST 753 


RPf 


LAST 759 


15,2316 
1 r2 3 1 7 

15 .2320 

15 . 2321 

15. 2322 


Tr -4652 

1720 6 
0 4 v 5 62 

175 77 

0 5757 
0 5 41.2 

05024 

13000 
0 60 06 


09777 
015 35 


0 

I 

T 

t 

0 

T 

0 

1 

T 

1 

0 


CADR 

TC 

CAOR 


R 55 RPT 


TC 

TJCT 

aCT 

TC 


V 0 6N 9 3 


REF “76" 
PEF 1 


AST 6^+4.— 

14,2714 
RO'JTINE NAME- CHKSOATA 

MOD NT*- TT — 

•lODIFlCATIUN PY- LxINSKF 



VN 

— EOA - QR 


R54 




CALCGTA 


V06N 9 3 
BAMKCALL 
GUFLASH 



R55.2 

R55RET 

PHASCHNG 

00314 

R55C0R 

I YU‘^ULSE 
BAMKCALL 



CURTAINS 

PHASCHNG 

13000 

IMTPRET 


OMIN 

0693 

OtTC 

CHKSOATA 


DATE- JAN 9, 1967 
1 - 136 -s - e e T 
ASSEMBLY- 





7 AltO I T Y flf A P A I R UP STA R- SI GHTI Nr7S . i ^IEM H A -p -AlR OP 



R 0963 
R096R 


P UN CTtO NAL - 

3Y THE ArSTRONAUT THI SRtOttTI NR OPERATES AN-U CHECilS THE OBSIRVRO SIGHTINGS AGAINST STORFO STAR VECTORS IN THE 
COMPUTFR TO IM6UP-- A PRUPfR“SIGMTf^?G WAS MADE. THE FOLLOWING CONPUTATIONS ARE PEREORHFO 


R0967 OSl = tmSERVEO STAR I VECTOR" 

R0963 — E1S2 - OBSERVEtl^TiAR 2“VreTtlR 

R 09 59 — SSI - S Trr?F n STAR I — V E C TO R 

R09 70 SS"2“= ST'r''EU “STAR '2 "VECTOR 

R0971 A1 - -^^U7f^S(0Sl - OS?) 



gaF: viSTijfN CP AGC"'PTrn7;RAM"rriM'2rfv[C'FrF ^ "i^A!m?n2iir3-05i 


10r?B APR. — rrm^ RtnjBLE •D47 



r>5i_ps3 


USER'S PAGE ^^0. 24 


E5 S3 


R097^ 

R0R73 


A? 

A 


ARCCOSCSSl * SS?) 
ABS(2(A1 - A2n “ 


R0G74 
R 0975 
a 0975“ 
R0978 
R09S0 

R0981 
R09B2 
“RTmT 
“R09B4 
09R5 
“0737r 
09^7 
0993 
0987 

0990 

0991 
09^ 

R09^n 
009 4 


THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRtTNAUT ACCEPTENCE 
EXIT MODE 1. FREEFLAG 5FT TNPLTHS ASTRONAUT WANTS TO PROCEED 

klFLAG Rf-SEI — rHPLTFS ASTRONATJT' WANTS TO RECYCLE ~~ 

OUTPUT - 1 •VERB 6 , NOUN 3- niSRLAYS ANGULAR DIFFEREMCE BETWEEN 2 SETS 

7. STAR VECTORS ERDY STAR CATALOG APE LEFT IN 6D AND 12D. 



OF STARS 


RASABLE INITTALTZATTO^r-REOUIREO - — — 

l.MAR”K VECTORS AR7 STORED IN STARAD AND STARAO +6. 
77CATAXTJG' VECTORS' ARE STORED TN 6D AND' 12D. . 


DEBRIS - 
REF 4 LAST 


75? 


14,7000 
T4 , ? 7 1 4 


SETLOC P50S1 
BANK 


0995 

099^ 

09W 

0999 

1000 


F9F 

1 



14,2714 

43020 1 

7FF" 

REF 

■ 

8 

2 

LAST 

LAST 

759 

757 

r4^,2TT5 
14,7716 
14,271 7 

00074 1 
77760 0- 

REF 


LAST 

757 

14 * 27 20 

Tr7TT5 r~ 

- - 








14 rz 77 1 

47T73 t 





14, 2 722 

00001” Cr 



— 


1A,?723 

000 OT' 0 






1^,7724 

65552 0 


COUNTS $S/R50 
CHKSOATA STQ SET 



EREEFLAG 


CHKSA8 


AXC ,1 


SET XI TO STORE EPHEMFRIS DATA 


t MK 5-3 


YtDAf)^ OOT^ 


eAtv ANGLE THETA 


f 

5,1 


n 



1007 

10D7 
DTTzr 

] 005 
1005 

locrr 

1003 
1009 
ID TO 
1011 
1017 

1013 ■ 

1014 

1015 

Tors" 

TDl? 

1013 

7DT^ 


REF 

ITEF 

REF 


3 

T 


LAST 750 


FAST 760 


REF 


LAST 750 


14,2726 
l4r2T2T 
14,273 O 

1 A r2T3 1 
14* 2732 

74.2733 

14.2734 

14.2735 



REF 


I 


STEF 


LAST TSXT 


977=^ 

R EF 


7 

1 


'504 


p-EF T47 
PPF ^97 


t > c- g 

N u r 


LAST 
FAST 
tOA 


TOO 

747- 

7^0 


14,2/37 
14, 2740 
14G7T4r 

14,?T42 

14,7743 

14. 2744 

14.2745 

14.7746 

14. 7 74 7 


'*30l4"“O 
D03r94^"0- 
30740 I 
00174 0 
71360 1 
00006 1 
00075 n- 
00023 0 
7705trr 

30771 0 
45345 1 
00025 0 
00023 0 
47046 3r 


SLl 

ST O R E T H ET A " 

^BOFF INVFRT 


branch to CHKSD if THIS IS 2N0 PASS 


AXC. 1 


F R E F F 1 AG 
CHK s n 
F-REFFLAG 
DLOAD 


CLEAR FREE Ft AG 

SET XI TO MARK ANGLES 


CHKSD 


STORE 

G O T Q ^ 

DLOAD 


THETA 

IBD 


A8S 


XHKSB 
DSU 
TH ET A 
IFO 
RT8 — 


RETURN TO CAL, 2ND ANGLE 


COMPUTE POS OIFF 


l^i2750 

14,2751 


14,2757 


4 5 544 ~tr 
01045 1 
7 741470 
-O OO T 4 - f 
3 50 21 T 
0 4652“ 1 
20703 I 


STORE 

SET 


CAP 

TC 

CAOR- 


S G NAGREE 
MORMTEMl 
^ X I T 

PRFEFLAG 

ZERO— 

BAliKCALL 

CL E ANOS -2 


1020 


R EF 


1 


1 4 r27^3 3 7767 U 


CAF 


VB5 N5 


CrS151 Af^'sEMBLE r’T^v/isiON 0S5 OF ACC. P'5 Ol^TWT'rDMAMCHE BY NASA ^OkllUi-Obl 


lOiZB APP. 


7TW5 fROUBLE .043 PAGE THT 


X 


P51-P 5B 


UScR^S RAGE NIT. 25 


E5 S3 


“ TOZI RTF T98 XAST T6Tr PfVPTTA T) 4F62' 1 “ TC BANKC ALL 

102? REF 36 XA^T 15^ T^f?:755 20120 0 CADR GOFLASH 

1021 RTF ST LITST TW r4,2 736 i 4106 0 TCF GninPHOH 

ia?T“ REF — 1 — - 14,2T3T 0 2T6A 0 TC CHKSOA PRnCTTO 

~ 1075 c*EF 185 LAST 75G 1A,2TS0 0 6006 1 TC INTPRTT 

Ta2T “ 14,2 761 570 IT D CXTAR GXmT — — — 

' 1027 REF 6 LAST 760 ^4,2752 002T4 0 FRFEFLAG ““ “ 

10?3 REF 0 LAST 750 r4,2763 02777 1 OMIM ~ 

1027 RTF "ITT LASI /6l 14,2764 O 60U6 1 LHKSOA TC [NTPR^l 

1030 14V2765 77650 t — — 0017? ' 

1031 REF 10 LAST 761 1472766 02T77 1 OMIN— — 

1032 “ 14*2767 01405 1 VB6N5 TN 505 

RlOl^ NAME - CAL53A — ^ " — 

R1034 NAME - CAL53A — ^ 

TTT03F FUNCTIUN' -~TXrA RSr AL I GN T H E T MU. IF N E CESSA R Y. 

R1036 CALLING SEQUENCE - CALL CAL53A 

R1037 INPUT - PRESENT GIMBAL ANGLES - COUX * COIJY , COU? 

21031 TITSI^ FT GT'-’BAL AMTLES - THETA D .Ft .7F2 — 

R1039 OUTPUT - THE t MU COOROTMATES ARE STOREO IN REESMMAT 
R1040 5UBR0UTTNF5 USED ~ l.TMUCOA^S 2. IMUSTALL 3. CURTAINS 
1041 RTF 2 XAST T60 TD — TTIT 44 ^=4^ COUNT T4/P50 


1042 
T 0 42 

1 044 

1045 
1046’ 
106 7 
1048 

T04cr 

1050 

1051 
T052" 

10*^3' 

1054 

1 055 

1056 
105 / 


1059 

1060 
TOOT 

1052 
1 0 65 
'T05^ 

1065 

1066 
T057 

106i5 
1 06 9 


RTF 


REF 


2 — EirST 


I 


740 


FFF 2 T“ XTTST 755 


OFF “ '15 T ATI 55T 


REF 


I 


^EF 


1 


OFF 


T 


LAST 761 


RTF 61 — X7AST 750 




76 1 

425 
76 1 
7 50 


14,2770 

14*2771 

1 A , 27 7 2 
14,2773 
T472TT4 
14,2775 


4 , d 


74.2777 

14, 3000 
1 4,3001 
1^: ,300 2 

14,2003 

14,3004 

14,5005 

16.3006 

14.3007 
14,3010 

1 4 ,30 1 1 
1 4 ,30 12 
5413013 

14.3014 

14.3015 
1 4,1016 
1* ,301 
14, 3020 


14,30 22 
1^4, 30 2 3 


77624 


22331 

66 254 
32324 

■ar 


1 

5 
1 

0 

OOOOl 0 
403 70 r 
"00003 1 
00005 I 
70543 1 
“OTIFI- 0 
70523 I 
00005 1 
5T425 0 
45206 1 
31066 0 
~T12 40 1 
31042 0 
1025 1 
31067 — t 
31042 0 
77776 1 



“04024 0 
0 4662 1 
16663 0 

0 4662 I 
17577 1 


CAt55A 


CALL 


PT0 


• 2 . 

SSP 

POCOUS 


MAKE 



ANGL E S 


REAO COUS 


1 

AXT.l SETPD 


CALOOP 


0LOA04 SRI 

-T H ET A D 3-3 D , 

POOL 4 SRI 

4,1 


T^USH 




OEGREEl 

OLOAO — ^ 
CALtlORl 
BPL 



CALOOPl 


COARflNE EXIT 
TC — 


T 
TC 

04 9 3 

TC 

C At>R 


P HASCMNG 

04024 

3ANKCALL 

t M t l O OARS 

BAN KC ALL 
IMUSTALL 


PEPfURM COARS E ALIG NME NT 


REQUEST MBOE SWITCH 


gap: 


ASSEMBLE PEVIS TTtfV! 0^‘3 OF 



^ 'cnMANCHb BY' :^omiH-a^r 


iO:?R~'AL>K. i* 1969 “TPyUBLE ,043 



1070 

1071 
107T“^ 

1 073 

1074 
1 0T5^ 

1076 

1077 


^Gl-F57 

17tF ■ 3 

r- FF 201 


USER’S PAGE MO. 26 


E5 S3 



LAST 

LAST 

LAST 

LAST 



14V3074 

14,3025 




17FF 187 LAST 751 



TTF* 



14.3032 

14.3033 

14.3034 


1079 

1080 


RFF 



1032 

1083 

17134^ 

1035 

1056 


REF 
n> 


1083 

1039 

TCTTT 

1091 

1092 
1D93’ 


REF 


TTFF 


r094 

1095 



1097 

1095 


TOW 

noo 

1101 

TTTTZ 

1103 

1 1 04 

775 


TEF 


1106 

1107 

TTOTl 

110^ 

1110 

TTTT 


95F 


11 IP 


9 

19 

3 

1 


LAST 

LAST 


742 Pf 



LAST T4 2 


14,3036 
T 4. 3037 

14.3040 

14.3041 

TTrOOTT 

14. 3 043 

14 .3 04 4 


0 5757 r 
0 4662 1 
ITUT3 0 
3 4662 1 
TT577 1 
05757 I 

0 6006 1 
T7234 1 

^12^5 0 

115 65‘T 
01472 r 

”5201-411 
01060 0 
31044 0 
”77700 rr 


TC 

TC 

CAOP 

TC 

CAO^ 

TC 

TC 

RTR 


CURTAINS 

BANKCALL 

IMUFIN20 

BANKCALL 
I MUST ALL 


STORE 

SET 


CUTTATNS 

TNTPRET 

VLOAD 

SETl/PDT 

ZEROVEC 

0C0E1P 

GOTO 

ORIFTFLG 

FIN^^OMLY 


TEST 



TTAtornn 


RTF 31 LAST 

28 LAST 


53T 

758 



2TAST 742 


I 


16 r AST 
REF 12 LAST 


1 4,3 04 6 
1 4,3047 
444 3050 

14,303r" 

14 ,3952“ 

1 4.3053 

14.3054 

14.3055 

14.3056 
14 , 3X15 7 
19.5060 

14,3061 

1443052 
' — 14,3063 

1413564 

14,3065 

14,3066 
CAST 759" “ 15,2000 

15 ,2324 
15,2324 
,2325 
15,2326 
15, 


310 01 1 

75160 1 
07671 0 
01735 I 
77624 I 
31053 0 
7 76 50- T 
321 1 6r-a 
■77773 T 
00001 0 
10001 1 
T77T3 1 
00007 0" 
lOOOT 1 


FlNFnNLY AXCfl 


C ALOOP 
AXC ,2 


RTFSYNA 


CALL 


GOTO 


CAL53RET 


MAT’^nVE VLOAD^ 


STORE 

VLOAO^ 


0,1 

0,2 


60 , 1 

- p 


VtOAD^ 


00015 or 
10015 1 



STORE 
TVO — 


f 2 


000 56 
37 7 22 


1 

I 


OTGRETl OEC 

DEC 


46 

1633 3 



705 

596 





—T 

13 

LAST 

70*? 

762 

' 15 ,'7330 
- 15,2331 
15,2332 

10 

LAST 

705 

1 5 23 3 T 

14 

LAST 

76 2r - 

I t , ?: 3 3 4 

- 


- 

15,2 ? < 5 


''EF 5 LAST 
NAOT - GIYB 


5 4 7 


72335- 

a 

i 5,23 3 7 


0 0004 0 
3 0032 O 
50 120 1 
54 oat 1 

3 - 00 33 - 1 

50 120 1 
54 00? 1 
”3 0034 0 
50 1 20 1 
54 003 0 
0 ^0003 — f 

0-6030- 1 


pocnus 


BANK 

INHTNT 

tr^r 

INDEX 

TS 

24 — - — 

INDEX 

TS 

eA 

INDEX 

TS 

RCLIMT 

TC 


TOttX 
F IXLOC 
1 

CDU Y 

F IXLOC 
? 

CDUZ 

F IX toe 

3 


n A N 2 f G 



READ CDUS 


'^KpI ASSFMBLE '’EVISIOM 



tJMANCHE BY NASA 2 ();'lll 3 - 0 bl 


1 0 S Z 3 “ A P K . 1 , 196 y TKUU 8 LE .OA 3 FTSTTE T 6 S 


P^l-P53 


USEP.'S P*GE NO. 27 


E5 S3 


RI120 

Rll?.? 


FlJfvICTinM - TTET^c mtTje A ^TD COMPOTE TTIl^ DFSTpED GIHBAL ANGLES TT BE USED 
CALITNG SEQUENCE “~X 7 aL GIMR 


FOR COARSE ALIGNMENT 



Rll 24 
Rll 25 



1127 

112B 


- 'ObSIRbO TMU IN-"T I AL O'^TENTATTON V EC njRS-XSMD • YSMT), z 

OUTPUT - GTETBAt ANGLEr LETX“TN THETAD , +1 

SURROUTTNES IFSEX - ITCOUTRIG 2.CALCSMSC B.C^LCGA — 

2 “ 031 7X7“ rXTZUCro SET LUC P5f)S2 

IB ,2612 


REF 


bank " 

COUNT 14 /INFLT 


1X20 

1130 



REF 

TTFF 


16,T6I2 

13,7613 


^13A^ X) CAtCSMSC DLOAO OMP 


rrsi — 5XX 


1103 


ITFF 


2" XXTl 3XX 



106 



113B 
11 ^9 
IT 4X 
1 14T 

1142 
IT4T 

1144 

1145 

TlXET 

1147 

1143 
ITX 9 

1T5TT 
1151 
1 15 T 

1153 
1 1 5 4 
1 15 5 

1156 

1157 


'^EF 

ITEF 

P EF 

REF 


1 

3 



LAST 753 


3 

3 


LAST 545 
LAST 


~TB ,' 23 1 4 

“13 ,7 51 5 
13 7261 6 
“XOT23TT 
“13 ,262 0 
16,2621 
1 6 , 2 622' 

16,262"3 

16.2624 

16.2625 

“16,2626 

16,262T 


00737 X~ 
00747'Xr 
176 76 0 
70525 1 
00741 0 
41325 0“ 
00745 1 
00747 0 

76466 1 
02714 1 
4133 5” O ' 


DCOMP 

POOL 


POOL 


VOEF 

STORE 

DLOAD 


00743“T 


REl 


2 — LAST 763 


RTF 


3 

2 


LAST 54 5 


LAST TS3 


16.2630 r7752 1 

16.2631 

16.2632 

16.2633 ” 

36.2634 
, 263 5 

1 3 • ; 2636 ^ 

16,2637 
16 ,2340 



RFF 

RFF 


T/rST 

LAST 


362 

7 63 


REF 
R 


^EF 


4 

3 


LAST 

LAST 


76 3 
763 


1159 

1160 
msr 


RFF 


3 LAST 763 







5 LAST 753 


1134 
1 1 6 5 
1 166 


^EF 


6 

4 



LAST- 
LAST 324 


16, '2343 

16.2642 

16.2643 
137 

16.2645 

16.2646 

15,264T 
16 , P 650 

16 , 2631 
13, 2 6 52 
13, 2 6 53 
L6-,2654 
16, ? 655 
137 2656^ 

16 f 


00033 r 
77605 1 

413 25 t) 
00751 1 

00745 1 

77625 0 
41325 0 

00745 1 

00 747 0 

0 


SLl 

STORE 

DMP 


SINCOUY — 
CnSCDUZ 

SRI 

S FNC DUZ — 

DMP 

cnscouY 

CnsCUUT 

VSLl 

XMB 

XTMp 

SINCDUX 
S INCDUZ 

26D 


PDDL 


OMP 

CnsCOUX 

CO S C BUY 


osu 

POOL 


DMP 

$ 1 NCDU X 

cuscnuz 



OCOMP 

Root 


007S1 1 
00737 1 
4137; 0 
0074*5 1 
00033 1 


aii i a - . - 

DMP 

coscnux 

S INC BUY 


■ DDL 0 ^*^ 



77772 0 

I 


76433 1 
02714- 1 
t32 7 2 2—1: 


— 

0 /SLl 
STORE 
VX V 


eUSCDUY 

26 D 

VtmF 


ZMB 





Rll 
R 1 1 69 


, c u O i- 

lAtME - P51 - TMU ni'IENTAilUN 

^*^^,N!:;.2 21 OEC f:.6 


77613 0 


5 turf 

RVD 


ATSin 

X MB 
YNB 


Or TERN-rtTA T I ON 


LUG SECTION 


P51-OS3 


GAP : "a $ S M B L R i: vTSl nTTlT 


P 5 r-P 5 


n^T^C PTIOGRAM CHMAMCHE BY 'RASA 202111^- 3^1 


10:Z5'“TPR. 1U96V FROUBLE .043 



Tm 


USSR'S PAGE NO 


2B 


E5 S3 


R1171 


MOO 3Y STURLAllOSON 


assembly SUNOISK RFV15 


^ITTT 

R1174 

RITTS" 

Rll7a 

~RTT7^ 

R118I 

R 1 133 
R11B5 
GTITBF 


FUNCm 3 vJAr DE 



^TTTW 


DFTERMTNFS THE TNERTTAtrOR TENTATI ON OF THF IMU* THE PROGRAM IS SELECTEO BY DSKY ENTRY 

roa T I is ZMizi^ Jr' collect ihe cuu cnuNims and shafi and trunnion angles for ^ a sighted 

THEN PPnCESSFn AS FOLLOWS, 


the sighting 




1. sextant ANGLlS AR"E computed in TERMS' OTNAV It: 
trunnion angles fTTFSPECTTVELY. “THEN, 



BASE COORDINATES 



THE SHAFT ANtI 


R113T 


V = (STN(TA)^n$(SA) * STN(TA)ASIN(SA), COSITA)) <A COLUMN VECTORI 

- 

THF“'niJTPirrTS a half-unit "vector storpd in sttskm:; 

?. THIS VECTOR IN NAV.BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES 


R 1 1 3^ 
R119C 

T»:TiTr 


V 


T T T “ 

0 ^ WHER'P 

“1 ? T“ 


NF 


E 1192 

TrrTTT 

RIL^S 

R 1197 
R1T3T 

Ri?oa 

RIZOT 

R 1 2 12 
R12 03 

R 1 2^ 
R 1205 


(COS (I or 


0 


T 

( 

( 

1 


-S TN I TGI ) 

r 



A A. A mm Mm. 

ANGLES 



ERGM- 


0 


ST "U TFT 


TF 


y f 
) 

cost TGI > 


IG=INNER GIM3AL ANGLE 


THE CDU COUNTERS AT NBSM (USING AXIS 
ROT AND COULOGIC) 


1 'Cost 33) STNCMG) 
t — ~ 

0 = (“SrN(MG) CCS (MG) 

” 2 ~“F 

( 0 0 


V 


0 


1 




) 

), MG=MiaDLE GIMBAL ANGLE 



I 


RT2DG “■ 

R 120 T 

R1208 

-1209 

R1210 

R1211 


R 1P12 


R 121 S 

R1215 
R 1 217 
R 1 2 r 9 


( 1 
( 

q- =— I XT 

3 ( 

( — G 


3. THE” S TAP NUMGFR I S "SAVED AND TEtE SECOND STAR IS THEN SIMILARLY PROCESSED-. 


A. T H F AN G LE ~ BETW EF N T^^ ^ - T V O STAPS IS T HEN CHECKED AT CKSDAT A 


s."^ffsmmat is then computed at- axisgfn as follows. 


LFT S AND S Ti^O ST AR VPO^O'>S EXP^E SSED IN TWO COtOROINATF SYSTEMStA AND 3 (BASIC AND S T ABL E ‘ MEMBER ) . 

I 2 


0 0 ) 

) 

COSIOG) STNtDGI — ), OG=OUTER GIMBAL ANGLE 

) 

-SIN(nG)- COS<nG) ) - 


(Tapi nr ■■■A'-TC P^'OGrTM'-CI’^AMCHe BY 'NASA “20 2 n 1 '^-Ob 1 


rOTTF" A P . 171969 FROURLh .043 PAGE TB^ 


L 


P 5 


1-P53 



P 1221 



R 1223 - 

11 T 2 ? 7 ~ 

RI 22 ^ 


USn3-»-S P AG1=^ NO . 2 9 


OEFTNF • 


V = S 
75 


AT 


V 


IJNTTfT; X~S 

““ A 1 


T 


E5 S3 


PI 227 W =~a XV “ 

R1223 A A 

mu — — 

R1230 ^ 

R1231 V 

mrZTZ B RT 


CJ 12*^3 

R 1 237 “ V ■^UNTTl 3^ ^ ^ - 

R1235 B B1 R2 


R 12 T 6 - - 

R1237 ~W = U X V 

RT333 n n — R 


R1239 TMFN - - 

R124T X = 0 + V + W 

iu? 7 t ‘31 — A BT — 7 r““ 3 rr-"-A 


R1242 — — “ - _ (RFFSMMAT) 

pQ-^ 7^3 y VT|- ^ + w — ^ — 

■“TTtZTT B2 75 R2 A B2 A — 


— rxzttt- — — — = ^ 

K 12^-6 ^ — U + V ^ W 

' R 12^(7 g-? A B 3 A BV A 


R124R THT INPUTS CONSI'^T HP THE POUR HALF-UNIT VFCTORS STORFD AS FOLLOWS 


RT2"A’^ 

R17-sn S IM 6-11 OF THE VAC ARtA 

R1251 A1 


-Ri 2 sr 

R12V0“ S IN 12^17 np THE VAC“ AREA 

R12‘'4 R2 


R 1255 
P12'>o 
R 126? 


— S IN STA^. \0 

Bl— 


4 


GAPi P^VIsrTTN 6^^ HF ATTITTlTnGP AH ' COMANCRE^TTY MA SA " 2021 i Li-Ob 1 


TTTrz^ fi P R 


TTTTFP TROUBLE PAGE 


p 5;^ _T» ^ ^ 


USF«^«S ^AGE NO. 30 


E5 S3 


R125B - 

RI2S=^ 5 IN STARAD +6 

i^ntT) m 


R1261 CALLING SEOUENCE 


R1262 THE PROGRAM IS CALLED BT THE ASTRONAUT RY DSKY ENT^TT. 


RTZF3 SUBRUUT I HFS“CA LEE D . 


^l2hA 



R1266 

R12S7 

1<T2W 

T?1 ZED 
R1270 
T^l 271 
R127? 
R 12T7 
RI27A 


DTTPfRFIR 
GODSPR 
IMUCHARS 
TMfFTTgZO 
R53 
S X T N B 
m 5 M -- 
MK RE LEAS 
CHKSDATA 
M ATM HATE 


R1275 


ALARMS 


R1276 NOME. 

R 1277 ERASABL E t NI T I API 7 ATT TIN 

R1278 TMU ZERO FLAG SHtHnO BE SET. 

RT2T9 OUTPUT — 


R12RO REFSMMAT 

7T20T REFSMFIET 


R12B7 OERRTS 


R1283 WORK AREA 

R12E^ STARAD 

T TEPE snap Tvn ~ 

R12S5 BEST I 

R12RT BESTJ 


ITao- REF 5 LAST 7ty0 t4v?0DG SETLUC P5QS1 

1237 — — = 147M)67 " BANK 

1290 *n=r 1 — C O U NT 


^ EOUALS P3-i 

1T92 ^-PEE 42 tOAST n^»306T 4 1320 0 CS 1 MODE S3 0 


1293 

-^cf- 2 A 1 AST 

77 F 

I'ii?'.)?© 

-7 ‘SOO? 1 

- MASK 

R T T-P 


'<EF 17V LAST 

74^^ 

- 14,3^771 

10 000 0 

CCS 

A 


4 



nwi jrs'S'MbLE: Rt^visr :'w 055 o'- 


10:^8 AH'-’ 


1 .1469 rROUBI.e .043 TC G E — rST 


on; 


51-053 


PAGE MG. 11 


ES S3 


129 5 
1296 
TTTT 
I29P 
12^9 
1^99 

1301 


1303 

1304 
I3‘:)5 

1336 

1 30 7 
T303 


1324 

1326 
132 5 

132 r 
1323 


5 


133 7 
133 0 




1 

30 


PEE" 5 R 
KEF 203 

1 


1 

21T4 

6 

59 


REF 

lEFF 

REF 


REF 


LAST 


L ART 
LAST 


ETTST 

LTST 

LAST 



LAST 

L/rST 

LAST 


709 
-REF 2 
■RE^TrO" 

13 

REF 6 

Ttr 


" L A ST 
LAST 
LAST 
LAST 
LART 
LAST 

TAST 

LAST 
L ^\ST 
“'ITAST 
LAST 
LAST 
“EASE 



14r,3T72- 

0 307 6 

0 Ff ) 50 

0 


Ttr 

P51A 

ALARM 

746 

14,3 0 73 

1 


T C 


14,30 

TTOTTO" 

1 


TCI 

— rm 

761 

14* 39 75 

0 4105 

1 


TC 

GOTTPOriH 

T62 

14,3075 

0 46 62 

1 

P51A 

TC 

BANKCALL 


r4'73TTTT 


17667 0 


TFT 

757 
76 7 


6 9 r AS T 761 


T5T 

T6T 

76 7 


3111 


““TFT 
LAST 44^^ 


TFT 

767 
76 T 
TFT 

7tl 


TF2“ 

le^T 

763 

7FT" 

767 

767 

TB'T 


14.3100 

14.3101 

14.3102 

14.3103 

'14, U04 

“TA- , T105 
1^1 ,31 06 
14,3107 

14,3110 
14, 
“IFTFITT 

14.3113 

14.3114 

14 .3115 

14,'^ 116 
1^,3117 
~rFT3T2tr 

14.3 IT 1 
IF , 3122 
IT, 3123 

14, 3124 
14,F125 
14, ^ 1 2 6 
14, 3127 
14,3130 
,3131 


3 5035 0 
E ■46 62' i 
211)45 0 
0 4106 T 
E' 3140 " I 

0 5412 0 
05024 1 
— 13000 0 
3 5021 1 
55*1 55 0 
5T*TE6~rr 
55*157 I 
3 3273 1 
T 4 6" 62”! 


P51AA 




. * 


,E132 
14,3133 
IF , "313 4 
14, 35 

14.3136 

14.313 7 


“206 7E r 

32 74 O 
“T 4662 r 

20673 I 
0 4662 1 
— 166 53 "O 
0 4662 I 
17577 I 
0 5757 1 
0 466 2 1 
17073 0 

~T}~46Fr r 

17F-T7-1 

0 5757 I 


05024 I 
13000 0 

"T 


CAOR 


CAF 

TC 

CAOR 


ITT 

TC 

nCT 

OCT 


TS 
TS" 
TS’ 
CAF 

TC 

CAOR 

CAF 

TC 

CAOR 

TC 

CAOR 

TC 

CADR 


R02ZER0 

PRFMSTAO 
8ANKCALL 
GOPFRFl 
GOTOPOnH 
■PF 1 B — 

-RH A Sr HOG 
05024 

1300 0 

P5izeRn 

THETAO 

THET AD 
THETAO 
V6N22 


TERM. 
V 33 


ZERO THE GIMBALS 



GODSPRET 

V41K 

BAM KT ALL 

GOOSP<^FT 

BAMKCALl 


NOW DISPLAY COARSE ALIGN VERB 41 



BANKCALL 

TMOSTALL 



TC 

CAOR 
TC 

CAOR 

TC—- 


TC“ 

OCT 

OCT 


BANKCALL 
IMOFIN20 
FATJK C A LT 
IMOSTALL 
CtlR TAINS 
R HA S CHNG 
05024 
13000 


C AG I NG O R - BAD END — " — — — 

SCHEDULE IFAILOK AND IHUFINEO TASKS, IN 5 
AND 20 secs. DIRECT RETURN AND NO STALL* 
I F CACt NG, miT ET3m:E-^-ZFRn CtH^ E^^ATn. 


IF PUT TO SLEEP, IMUFINFO WIl L WAKE US 
UP. 


p-5-TAF 


C O A -R SE ALIGN 





m 



ztp : i^PvrsTO\« o 



;p5M'T.r 



NASA ^O;eilli-Obl 


rOT^TTlIPR 


1 t 19^9 


T)43 PAGE 768 


L ^51-^^53 


PAGF 32'- E5 S3 


P1340 nn STAR SIGHTING AND CnMPUTF NEW REFS MNAT 


TFF 71 TTAST' ~T^7 0 5412 0 P^TTH 

1.342 14*3141 00014 1 

1343 ref IRR LAST 762“ 14*3142 0 6006 1 

1^44 14,3143 40331 I 

1345 RFF R i,\^j T68 14*3144 00305 1 

1346 14*3145 00000 1 

1347 r4T317r6 00001 0 

1347? = 77234 1 

13?,74 peF 3 LTfST T6r2 14,7 15 q 31275 0 ” 

134T6 REF — 1 0 ^LlTSl TF? 1473131 11366 1 

1343 RFF 20 LAST 762 14,3152 — 01472 1 

13432 - - 14,3153" 43014 0 

13484 REF ^ L AST 762 r4 * 3 r5"4 OTFFO 0 — 

13436 RF^ F LAST 755 14,3155 00667 1 

1340 14,3156 77776 1 — 

1350 RFF ~55 C AST' 756 ' 14* 3157 3“ 501T nr” " “ — “ 

1351 ■ RFF 7 LAST 756 14*3160 5^^ 301 1 


Tt PH A 5 CHNG “ 

OCT 00014 

TC TNTPRFT - 

ESP SETPn 

STARTNO 'INDEX-STAR 1 OR 2 ' 

~0 “ “ 

0 — 

RT5 VLOAD 

SFTl /POT — — 

?2ROVt:C 

STOPF GCOWp — 

SET CLEAR 

— TAPG2ELG SHOW MARK IS STAR - NOT LANDMARK 

EXIT 

TS — ^MA^KINOX INITIALIZE FOR ONF MARK 


T 3 57 ref “T2" " LAST 763 1473161: 0 


1353 

1354 

1355 RFF TO 

1356 

1357 OFF 1 

1358 ^“FFF"1F5 

135F 

1750 RFF 2 


1352' ITEF — r 

1363 REF 190 

13o4 

1 365 7EF 3 

1366 

1367 RTF 2 

136 5 

1369 

13T0 FFF TO 

1371 7EF 1 


1372 

1373 REF 


1374 

1375 RFF 


1 376 


trEF 


13 73 - 


U 

I 





1380 RFF 

1331 REF 


8 

1 




14, 315? 05024 -t 

147rTt53 1307)0^0 

rSST 523 14,3164 0 5364 0 

14.3165 00065 1 

14,3166 I 3174 I 

TTAST 768 ~ 'T4,“3T57 0 6006 1 

14-3370 77624 1 

LAST 755 157r5r71 36056 1 

7473172 77650 1 

14,3173 31177 r 

LAST 768 14,31 74 tF^006 1 

746 14*31 76 31300 0 

14,3177—77624 1 

14732 00 ‘360 22“T 

14,-3201 77606 1 

14,320? 53135 0 

76 r — °' 14*320 3 0 03 0 5 -1 

14.3204 31211 1 

14.3205 455 75 1 

T5S 1 -4 7 7205 7 5T60 - 1 

14,3207 77650- I 

14 ¥3710 312 17 1 

14* 3 311 — -45 57 5 1 

LIS T 7 5 8 ■I4~,"32 l? 6Tl 66 7: 

LAST 757 14¥-32T3- 02607 1 

r4- , 72r 4 77624 7 - 

LAST 757 14,3215 — 32340 1 

LAST 753 14t3-316 02601 1 


LAST 


EAST 


ntfST 





^IC* 1 


7t= 

OCT 

OCT 

“TC“ 

TCF 


CALL 


rn a <7 

05024 
1 3000 
CHFC KM W 
53 

P51C*1 

INT P RF T- 

R 5 6 


P5 1C . ^ 

TC INTPRFT 

FAH 

R53 

CALL 

— 

PUSH 

SLOAO 87F 

— ST AR T NO 

j n 

VtOAD S T ADR 

store STA R SAV2 

GOTO — 

P511* 

VLOAD STADR 

STOOl ST-ARSAVl 

TSIGHT 

C A LL 

Pf ANrT 

STORE PI ANV/EC 


BACKUP PROGRAM 
-NOT P53 


SIGHTING ROUTINE 

COMPUTE LOS IN SM FROM MARK DATA 


DOWNLINK 


gap: as Gamble 


O c 


visijM 05 ' l.f- Ar.c~p'^n'^57re~(:'TSi7P5rviE"{rv "MiSA < 10:^1 l^^-^' 5 l 


r0r28 APK. TTTT?^ 



T 69 


P51-P53 


USPP'S PAGE NC 


33 


E5 S3 


T3F7 
1 3 83 
T3FT 


''FF 7-^ LAST 76 F 


1386 

-REF 

211 

LAST 

1 5 P 7 

REF"' 


L AST 

1 3 B3 

RFF 

11 

LAST 

13R7 

REF 

1 



"PTF“ 

74 

TrST 

1 3^ 1 




139? 




T3TT 

P E F 


“TTST 


RFF 

17 

LAST 

13^5 

R8F 

1 

■ 


767 

T5T 

76 8 


TF^J 


T6F 

769 


14,3720 

TFTTZTT 

14,3327 
^ 4,3223~ 
14 , 3 Z7F" 
14 •3275 
T4,327 6" 

"PTTFTTT' 

T4,323Cr 
14, 733 r 

34,3737 


14,3733 
14,3 234 


77776 1 
0 5417 0 
05074 1 

13trXT0 0 

0 4667 T 
"TSUSTTl 

10 304 1 

1 3735 1 

0 54I7""0' 

^ 6 074 r 

13000 0 
3 501 T r 
5 4 3 04 1 

1 3161 0 


JIA l I 

TC — 


1396 

1377 

13^-8 

33^^ 

1400 

1401 

14:0 Z 

1403 

1404 
1403 

1406 

1 407 
"14 OFT 

1 409 
1 4 1 0 
1411 


Tan= 75 TAFT 


ZFP 191 CAST 


^FF 

RIFF 


11 

4 


LAST 

LFST 


TER — 

r4,3235“ 

0 5412 

3} 

- - , - 

14 ,333 6 

05 024 

1 


14,3737 

13000 

0 

TER 

14,3740 

- 0 5006 

T 


14,3741 

45145 

0 

76 3 

14,3247 

07607- 

1 


P5 1 F 


□CT 

OCT 

TC 

TTOR 
CCS 
TCF 
TC 

OCT 
OCT 
CA P 
T3 
TCP 
TC 


PHASCHNG 

05074 

13 000 
3ANKCALL 
MK^ELEAS 
STAR I NO 
P51F — " 


PHASCHNG 
05074 
13000 
■RTTI 

STARINO 

P51C 



OCT 

OCT 


05024 

13000 



OtOAD 


7F3 


REF 


1 A ST^ 763 


REP 

REF 

RTF 

REP 

RFP 


6 

8 


V 

9 

2 


LAST 
L asT 
TTTST 
LAST 
LAST 


76P 

760 

T5B- 


14,3743“ 

t4 V 3T4 4 
14 , 3745 
14, 3246 

14,3247^ 

1-4,3250 


T7340-T~ 

24015-“a- 
07^ 01 t 
24007 


STOVL 


02611 

26736 


76T 

750 


T4T3 
T 4, 3252 

14,3^53 



tr 

0 

1 
rr 


STO VL 


STOVL 


CALL 

TSIGHT 

P LAN ET 

12D 

Pt ANvec 

ST) — 

STARSAVl 

STARAO 



76744 
30 714 




STCALl 




1413 

T4T4 


REF 

REF 

REF 


7 

1 


CAST 761 


LTTSI 76T 


14.3755 

14.3756 
14.3257 


O' 

77 414 0 ~ 
00314 1 
31260 1 


STARAO +6 
CHKSOATA 


PREEFL AG 
P51G 


0 33 00 0 


1415 

1 4 16 

“REF 

3 

LAST — 

757 

1 4,-T260 
14 r3T6 1 

77674 1 
474RI 1 

1 41 T 

1418 

1 4 19 

REF 

REF 

5 

29 

LAST 

LAST- 

741 

762 

14,3262 
14, 3 7 63 — 
14,3254 

75160 1 

07713 0 
0 1 735 1 

1 42 u 





1 ^ , 3 265 

45014 0 

1421 

Rf*E 

8 

LAST 

747 - 

14,3255 

01562 T 

1422 

RFF 

3 

LAST 

TbZ 

- 14,3767 

-31053 0 


P51G 


Ttr 

CAl. 


AXISGEN 

AXC , 2 



RFFSM^AT 

CAIL 

REE SHF LG 
"MATMOVE 


1493 


T4T3 



J V. 


1424 

K ^ T“ 

-“9- 

LAST 

77>9- 

14, 3 2Tl 

1425 

-RFF 

2 

LAST 

755 - 

1 4 . ;> 

1 47'5 — 

"TEF 

3 

L AST 

742 

50 25 

14T/ 

M F F 

148 

1 AST 

76 0 

50 2 X 

14^3 

- "^ f .F 

16 

L AST 

6<^6 


TT29 





14,3273 

1 430 - 

— 



- - - - ■ - 

14 , 3R7A 

1431 

R eff 

13 

LAST 

704 

14,3275 


014-57 0 

321 45 O 



0- 1 - 42 - 6 -0- 

O 
0 


12 ^ 

3 00 7 5 


R51?rRO ' - 
RirlFl-Ve 

V4)i4 VN 

SETl/PDT CA 


Rf FSMRt G 
E NOPE OS 

OCT15 

/.PRO 

FIVE 

0622 

4100 
r i MFi 



ZERO MARKSTAT 


STAR 2 


GO 00 SECONO STAR 


CHECK STAR ANGLES IN STARAO AND 


COME RACK WITH REFSMHAT IN X9C 


ASSEMfeLC keVKinN 055 



: PP.PGRAM Cf'M&MCH F Fy NASA V i J^ni j-Ubi 


l(J!2y Al'"'. 1 ,1'‘69 r ROUBLE .0<f3 7T0 


rsi-P53 


USSR'S P«GE NO. 3A 


E5 S3 


TA3-'’ RFF 10' LAST 53^5 l^. 3TT5 ~55*nT!rT TS 1/PtPADT 

1433 P.FF 6 LAST 762 T4, 3?Tr^ r 6X730 T) TCF DANZIG 


% 




ASSir^IHLb KfcVISiriN Ubb hh AG( PT^TTGRAW t ' I M ANt HF 3Y N A SA ~7 D21 11 3-05 I 


10 : 28 AP‘V^ 1,1969 



Ttm- — PAGE^ 771 


°51 -^53 


tl SE 9 • S P AG E 3 5 


E5 S3 


P 1 A TA 


5XT5I^ XDMPUTET^AN EOS' VECTOR ITT^SK" COORD EPOT GCDII 


TGDU 3 ARK DATA 


T^TT? 




T 


1 43 7 

1439 

1440 
1X47“ 
1447 
1^43 

1 444~ 
144*^ 

1 446 

1447 

1448 


7T7 


05T 750 


REF 33 LAST 6?2 


T} 


EF 12 LAST 769 


REF 

PFF 



760 


REF 274 TAXT 


754 


f 3 


144 
T43G 

1A5T 

1432 

0453 


1 7,20UU 

17 , 7077 

17 , 202 ? 

1 ',20 2 3 

17, 2024 

17.702 5 
17570265 

17, 20 27 

10 , 2030 ' 

17,2031 

17.703 2 
17,2033 
“17070345 
17,203 5 
17.2035 
TT7 

17,2040 
17^^2041 
T0,2O4Z 


77670 0 
00300 1 

70740 0 
01330 0 
00001 0 

02607 1 

66744 0 
00304 0 

41722 0 
76744 1 

00154 1 

oooni 0 
10001 1 
77743 r 

0 n 006 1 
10006 0 
77624" 1 


50TLOC P5053 

RANK — ^ 

STQ " 


LXC ,1 


STTIR 2 
LXC ,2 


LXC ,2 


ST 'OR 
OLHAO^ 

STORE 

trArt — 


“OMAJ 

OiaAD^ 

markstat 

Of), I 

tstght 

StOAD^ 

S T A RT ND 

MK DNC DR , 2 
VLOAO^ 

MP AC 

0,1 

0,2 

5.1 

5.2 


145 ^^ 

RTTf 

4 

LAST 

5 ' 1^8 — 

17,2043 

^"46000 

0 - 



1455 





1 7 « 2044 

6 2150 



L X A , 1 

1456 

R EF 

34 

LAST 

77 1 

1 l , <!'U 46 

01 3 30 

D 



1457 

- -- - 



-- — 

r 7 T 2046 

00002 

0 

— - - — 

— ^ . — _ 

145 8 “ 





17,204 7 

45130 

1 


SXA, 1 

T 459 

REF 

28 

A 

L AST 

r 6 1 

17, 2050 

00050 

1 



14 o 0 

REF 

/ 

iL~ 

LAST 

:? 78 

17,205 1 

4 7606 



1461 





17 , 2052 

776 50 

1 


GOTO 

1 46 2 

H F 

7 

L AS! 

77 1 

17 ,2053 

00 3 00 

1 



146 T ■ 

REF 

11 

LAST 

623 

l‘^, 2 t )54 

03674 

] 

MKONCDR 

BCAOP 

1464 

REF 

2 

LAST 

173 

T 7 , 7085 

03 597 

0 


ECADP 


SXTNB 

INCR,1 

mRXSTAT 

2 

CALL 





■"OMA'J 

MARKDOWN 

MARK2DWN 


COMPUTE LOS VECTOR FROM OCOU IN MKVAC 


INCREMENT TO BASE ADR OF ICDU 


TRANSFORM LOS TO SM 


7^ 


AS? PMBLE 



CnMANrH5- BY"MA5A ^O?!'!'! 3-051 


lOVZB APR. XTTTO’T TRtrUBte ,043 



L 


P5l'P53 


USFF»S PAGE MO. 36 


E5 S3 


PX4:.5 
RT466 
P‘I ^ S 7 


PRHGRAVI DESCPIPTION 

Mnn.Mn.2 2l OEC 66 


V53 


SIGHTING MARK ROUTINE 




R146a 

■RTT^T 

RlA-^l 


FUNCTIONAL DESCRIPTinN “ — 

rOPTRFn-RM A SATISTAC lUPY' NUMaFk OF SIGHIING MARKS FOR THE REQTJESTTNG PROGRAM (OP RGUTTME). SIGHTING 
CAM BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS“A MARK IT RECORDS AND STORES 5 ANGLES (3 fCOUS AND ? 


R14T3 nCDUSJ AMD THFXrME OF THE MARK. 


R:I474 TALL TNG SrOUENCT""— — ____ — 

R14T*^ P53 IS CALLED ANC^-RETU^^tS "IM TNTE'^RR^FTIVE CODE. RETURN IS VTA OPRET. 

' X 14T6 THERF"TS“Nn"HRPnR'EiaT~TTT' THIS ROOTINR TTSEtF. — 


1477 SUBROUTINES CALLFO 

r4TR 

^RT479 ■ OPTSTALL 

X14E)0 G OF I ASH 


R148I FPASABLF INITIALIZATION 

R1432 TARGET FLAG - STAR nK LANDMARK — — — 

“irnm — tartci wjx - ‘numbep of“marks wanted — — 

Rr4B4 ST ARTND - INDEX TCT BESTT OR BES-TJ ( STA1T“NUM BE R1 

R147G rnjTPUT " 

“1X476 M ATXSTA T CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS S 

■ R 1477 “ BE ST I ( INDE XTH BY rHETT CONT A TNS XT AR NUMBER S ( GHTED 

R143S DEBRIS • ” 

PT 4TT MAEKTMOX XaNTATTTS"TTUMBER OF OESTR'ED 

1470 7rF 2 LAST 631 14r7DDD S FTLOC 5 3 

14,qi - T4*B30D BANK — 


147Z REF 1 COUNT 14/R53 


1493 

1 REF ? 

- 149S REE 2 

““TTFOB 

14 77 REF -r 

147S REF 2 

^ 1477 REF 2 T 2 

IBOn REF 2 

ISDl “REF 213 
1B02 REE 2“ 

1503 — REE“ 7 

1504 - -^RF 35 

rSDB FEE — TF 

1505 R-EF I 

1 50 ^ 


1507 REF 147 
1510 ^EF 36 


— — nXTTtm 430 7 0 1 RB3 “ 

LAST 117 14,X301 03501 O 

“LAST 744 14,3 302” 00071 1 

— 14;3 3 03 7 7 7T S -X 

LAST 763 14,3304 3 0301 0 R53A 

LAST 202 14,3305 T 5023 1 

“T AST 757 1 ; mOS 0 4662 1 

I AST 453 14,3307 16002 1 

LAST 772- 14,3310 0 4662 1 

EA ST 453 — " t4,’33 -n 1 7 5 73 - 0 

LAST 767 14 , 3 31 2 0 5757-X 

LAST 771 iTv"* U3 -51*330-0-- 

"LAS I 73 ' 5- 14f3 T t4 10 05? 1 

— 14 ,3315 1 3526 1 

1 4 , 3 3 T6 1 3 320 1 

— I4v5 5 t ~ 7 1 •• 332 0- 1 

LAST 760 14,33-20 3 6021 1 

LAST R72 1h¥^-321 57*X30 0 
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CADR SXTMARK — 

TC BANKCALL 

trrOR OPTSTALL — — — — 

TC CitRTAlNS — — 

INDEX MARKSTAT 

eCS ORR -F T - — — — N UM B ER OF MARKS ACTUALLY OONf - 

TCF R53B 

TCF +7 ZERO 
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OAF HOUSFHFFP VAC AREA SAVE 
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RFF 

TIFF 


1 

TZ 


REF 
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FF 
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T6F 
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0 
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1 NDE)r 
T5 
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■m 


A 

A 

TJ 

R53 4 

CHECK MM 
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LAST 
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L1A5T 

LAST 
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“773 
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14,33 
T4T3343 
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14.3342 

14.3343 

1 4.3344 

14.3345 
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14,334 7 
14^3350 
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3 33 65 1 
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0 4X06 1 
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R53CX 


P53C 
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14,3351 
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14.3353 

14.3354 


TT 3 T41 1 
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3 
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TC 

CADR 

CAF 

TC 
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TC 
TCF 
TC 


23 
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> 
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FAST 
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33-52 
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7 
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"FTT 
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-3 
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r 
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1 

0 

rr 
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3C 

TC 

TC 

OS 
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MR 
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BANKCALL 
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PALTON 
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TC 
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VN 
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NE G 47 
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TC 
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— 

0 
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TERM. 
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^56T CTA LL - ■ rA LX — 

R156? INPUT- X,Y,ZSMD — 

R1563 nuTPUT- HGC * I GC. WGC .THETAD^ +1 • +7^““^ 

RXEE^r' ETJBRniJTTNFS^CinjTM 1 G t CALCS 'J^SL • HA! 'TnVE,CALCGA 

1565 REF 1 ““ 71 ,2^00 SETLOC S52/2 
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1567 REF 
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1369 RFF 

1570 ” “ 

1571 ^ REF 
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1375 
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1577 

T575' ■ 


^COtlNT 13/S5?.? 


1 1 , 2331 


c. 
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T1 r23T2" 

1 1,2333 
U •2334 
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11,7336 
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“11 ,23 ttr 
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-11,2343 


7762 0 
00300 

776 24 
4T477 
77574 

34612 
665 70 
00022 

00051 
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0 

0 
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CAtr 
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r 


CALCSMSC 

SSP 

I B B 

SI 

60 


VtOAO* VX*^ 


1579- 


R EF 
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^ LAST 

76?, 

rl ,2344 - 

0273 6 1 

• ’ - - 

xm +iso,i 

1 LAST 

76^^ ■■ 

I t 2^3 4 3 

-01736 1 

- 

1»EFSM*<AT 




1*^P3 

lERA" 


1 “ 


■11,23 46 

— 77635" 

“T 

UN I T 

.2 REE 

3 LAST 774 

11 7 

06 73 6 

0 

STORE XMB +180. 1 


1 1T2350 


77700 0 


TIX.l 


15^5 
15 35 


FEF 
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TTEF 


8 

32 



”i:r,235i 

■22343 0 


ri,?362 

75160 1 

LAST ^43 

11,2\553 

00306' 1 

LAST 762 

1 1 , 2354 

02671 0 


r2Tt AXC.l 


1 5 5 9 


LAST 769 



o 


EF 


T 


rTF 


XAST 424 


774 



1 1 • 2.355 
1 1 , 2 3 56 
11 , 2357 

1 1 .2360 

11.2361 
T1 ,236? 


776^24 
31 0 53 
77 624 

47311 
776 50 


I 

0 

T 

I 

1 

r 


CALL 


AXCr2 
XSHO - 
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MATMOVE 
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GOTO 
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R1503 
RlhO% 
"73FGT 
R 1606 
R1607 
'91603 

R1609 

Rl61t) 

Tri6ii 

R16I2 

R1613 

R1613 

R1616 

91^619 
R 1620 
R 1621 
■R1622 
RT623' 
916 
9TF75 

R 16 2 6 
R 1627 
91623 
R162'^ 
R1 630 

9 163? 
9 1633 
“RTH39 


TARG2 FLAGS A^^E LOOKtD A1 FO ilETEPWTNE IF THE T 
LEM, STAR OP LAODMAPK. 1M CASE OE LEM OR LMKvTH*= PRESENT TTME Pt3TS“ 

? SFCOMOS IS SAVEP IN AO^jy TME < AL I AS STARAD .+1 ). I F THE LEM IS 

THE 'TARGhl FHEN rj'iNTC UPDATES OF THE CSM ANU LFM ARE MADE TO 

THF^TIMP IN AORTTMF. THE UNIT OF THE 0 1 FEE R ENGE OF FEM AND CSM— 

SIGHTING VECTOR USEG IN THE 


POSITION VECTORS BECOMES THE REFER FN 

TOM MON' 'PARI OF IHIS PROGF^AM, — 

IN THE CASF OF LANDMARK, THE CS^ tS UPDATED CONICALLY 


“THE RAOTUS 

VFCTOEr FOP THE I^ANOMARK 9S OBTAINED FROM LALOrmV. BOTH OF THFSE ARE 

FCTUMD^riR TKF TTME TN"A lP TI Wr. T HF UN IT TTF ~O ^ H E B TF E E R E NC E B ET WE E N 

THl LANDMARK AND CSM TTAtTloS VRCTOPS BECnMES THE "REFERENCE SIGHTING 
VECTOR FOP THE COMMON PART OF THIS ROUTT 
TF9i STAR T9 THE' TAR GET , 


■CM!r 



AND THIS VECTOR BECOMES THF RFFERFNCE SIGHTING VECTOR. 

THE COMMON PART OF THTE PROGRAM TRANSFORMS THE REFERENCE SIGHTING 

I N T O STASr^' m e mb e r CnORD I TTA TES ; IT PF ADS TH E I MU- rD US 



THIS DATA IN A CALL TO GALCSX A. TW^ETtrRir FROM C ALCSXA A TEST IS 
made TO 9EF IF rHE“TRONM I W ANGLE IS "GREAT ER THAN 90DEG OR BBOE'G. 
TOPF TO SEE IF THE TRUNNION ANGLE — IS GREATER THAN 'DOtrEG. 
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2 A 


L 

L + I 
TOOT 
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T + A 


R ET URN VT r T FI ^ ^ SHA FT O R T RU NT O N NO T W IT HIN 

TC 3ANKCALL 

CA09 SR52T1 

ERROR RETURN r Kt r NN TO N G RE A TER T HAN PTI T rEG 



rPROR return 
NORMAL PETUPM 


rPUNNION GREATER THAN 50DEG 


OUTPUT " 

SAC -SINGLE PREC,?S COMP, SCALED AT HALF REVS 
- SnSGrE'PRFC.2S COMP sc 





SHAFT ANGLE DESIREO 

A N GLE DESIRED 


INITIALISATION 
TE TA9G1FLG =1 THEN 


L F M - 





~RT63S 

HI 636 
“ ^ 1637 
R163P 
R 1 639 
RTFTfO 
R1641 
16A2 


IE TARGIFLG =0 AND TARG2FLG -0 THE TARGET IS STARt STARIND SHOULD 
0 OP 1 DENOTING BESTS UR -BEST J RFS f>r:CT I VELY AS STAR CODE. $TA<> CODES 

AR E 6 TI M E S S T AR NUMB E R. 

rF"SGARGtELG-0-ATin TARGPFIG-^ THEN TARGET IS LANDMARK. SEE RDtlTINE 


LALOTORV FOR INPUT REOUtRSM ENTS. HERS— FIX ERA 0=1 FOR CONSTANT EARTH 
TTitFirrs 


DER P T S 



STAR+6 (STAR IS-nESiKED LOS IN STABLE MEMBER COORDTNATTSI 
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LAST 
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5 LAST - 97 r 
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TTEF 
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P EF 
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^FF 


■5 

1 

6 

T 



LAST 765 



1660 

1661 
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TTEF 


4 
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LAST 
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5^6 
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1 6 65 
1667 
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1669 

1670 


PFF“” 
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74 7 
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RFF 

5 

FAST 

7 T 6 
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LAST 745 


1675 
1674 
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1676 
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16 7 S 
1679 
T6TKr 

l 6 Tn 

16 S 7 
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TTF 

RFF 

RFF 


T 2 L AST 


RFF 


TTFF 

R FF 
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6 

4 ^ 

6 

“ 9 “ 

23 


LAST 
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TTTST 
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'74T 
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776 
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749 


LAST 775 

LAST 776 


RTF 


T 635 


RFF 
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- 155 r REF 15 “ LA 9 T 775 
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16 59 r> 


t 
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1691 
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f' F 
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15.2244 


SFTLT 3 C SR 52 /r 
BANK 


15.2244 


TTTTTTF 

15,2247 
154 2 250 
15.2251 


15, 
15,225 3 
I3.2Z54 
15,2255 
1 5.Z25 6 
I3,2Z57 

13,22 60 
13 . 2 26 1 
T 3 T 7 Z 5 Z 
13,2265 
1 3,22 64 
13 , 2 Z 65 

15,ZZ55 
T5tZZ67 
13, 2R70 


0 4711 T 
55 * 777 0 
■0 6006 1 

43234 0 
45510 1 

“■Z5355~a 
02356 a 
43014 O 

00705 0 
Z 676 ? 0 

00706 0 

”Z52T?- 1 


SP 52.1 


TC 

TS 

TC 



SON 


MAKECAOR 

OMIN 

INTPRET 

DAO “ 
LOAOTIMF 
1 . 3 S E CD P 
AOPTIME 
StlN 

T ARGI F LG 
L E MS 2 
TARG 2 FLG 
TMKSZ 



GOTfl 


LT 95 Z 


DtOAO 

AOPTIME 
STCALL TOtCl 


77775 t 


00001 FT 


RAIL 



13 ,Z7T3' 
1?,Z274 
7542Z75- 


T7650 T 

26507 1 
71214 O 
O4T05"‘a 

54O00”D 


LMK 52 


SON 


IMKIMCOM 

OtOAO 


AOVTRACK 
AOpT I MF 


1 1,227 6 
13,227 7 
I3r2500 
13", 2501 


1 5 ,' 2 -- 

13,r30 3 
T5- , 2 304 
1 3,2 305 
13,2306 


77624 r 

26441 t 

77775 1 
nZ15Z O 

1 
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VLOAD 


LALOTORV 



LMKLMCO^ STOOL 


13.2310 

13.2311 


T5TZ5TZ 

13,2513 

13 . 2314 

13.2 3 15 

I 3 . ZTlTr 
13,231 7 
1 7 ,7 57 0 
15 2 3 21 

1 :^ ,23^2 


02356 0 
“01- 

27114 0 
62375 1 
02766 1 

00001 0“ 

52056 -tL- 

rSTZS-l— 

7213T 1 
00051 0 

00 0 o n i 

00 3^4 o 

77700 0 
2 6 37 4 0 
5 2175 - 0 - 

02617 0 


STCALL 
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STAR 
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SSP 
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SI 
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ST52ST — 
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1 693 

TXTSTT 
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77776 T ST525T 
rrp?;! 1 — n 

VLO A 0 

<:Tnpc AVI 






169'S 

1 


TTEF 

"TV 


r -i ‘ V 3 


1699 


1701 
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FFF 


1704 
17 05 
1 7 75 

1707 
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ITO^ 
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1711 


'^FF 

^FF 

TTFF 

9FF 

itff 
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17 XT 
1714 


^ EF 



1^16 

1717 

1717 

1717 

1720 


o 


EF 


T77T 

1722 


7FF 

REF 

■RTFF 




31 LAST 



8 

1 

T 


“R 


12 

13 

T4 

4 


17 
T72T 

17'? f 

1*77/+ 
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1726 




LAST 
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EAST 774 


LAST 755 


LAST T7f5 


O' LAST 777 
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13,2333 
13.2336 
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13.2340 

13.2341 

13.2342 
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13.2346 
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73.2371“ 


U 
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77624 r 
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“CORTse 


HXV 


STUPE 


BTTFF 


47345 1 
02 776 0 
2F3 63 0“ 

71244 0 
26353 a 
02776 0 


T^UN38 


7PL 


OSU 


26367 7 


LAST '7 77 


777 

757 


14,2352 

13.^35^ 
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13,7355 

13.^356 
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13.2360 

13.2361 
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26355 0 

T7T76 1 
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77776 T 
25*777 I 
25*777 I 


SR72-22 


SR72E7 


13,2 3'63 

13 ,2374 

13 .2367 

13.2T66- 

13.2367 


St^5272 

3' 1777 1 SR52FT“ 

0 4666 0 

252 52 0 38 TP 0 FG 
25254 0 — 


*=Xf T 
TC 

TTTT 
INCR 
INCR 
tTA — 
TC 


oootro-t 
0020? 1 
01740" O 

77777 0 
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OEC 


UNIT 

REFS13MAT- 
“STAR 


SETFCr CALL 

0 

CDUf'RlG 

CALL 

CALTSXA 
FTTT 
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TO SEE THE CDU ANGLES 


Tt 

OLOAO OSU 
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TRUN38 
TR 


PAC 
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PAC 
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S WC ALL 
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P 1727 
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1744 
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0 
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EF 
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REF 

“F 
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7T 
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43 

7 
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2477004 
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25 ,2006 
25, 7007 


77601 0 

OOnni 0 
4157S 


15327 
41 434 
45510 

36356 

55344 


25770 X 0 

7 6.-7 on 

70! 2 




23 

29 


LAST 
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776 


2 6 
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26 
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^3 
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30 LTTST— m 
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76 
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1754 

p 

27 

LAST 
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13 
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21 

L ® ST 

731 
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- FF 

70 

LAST 
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15 
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76? 
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FTF 
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TTS 


74 

75 
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74 
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X 

0 
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r 

1 

1 

X 

0 

0 

0 

0 


o 
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2 6 ,2037 
7 6 ,2040 
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0 0006 1 
7 50 05 0 

o-or 

50 120 
54 0 ? 6 
tr-oOtTo- 
413 35 
00037 

“T410 7 

36356 
540 5 7 


rr 

I 

0 

r 

1 

o 

T 


I 
I 

T 

00031 0 


175’^ 

REF 

12 

LAST 

77 3 

26 , 20'^5 

1 6 7 n 5 

1 

TTTO- 

REF 

t 



?6 f 4o 

141 05 

0 

1771 


- 

' 

— 

'’ 6 ,204 7 

77625 

0 

1 77? 

r F 

— ^ A - 

1 0 

LAST 

A ^ j * 

77i? 

2-'- , >0 5 0 

0 2? 56 

0 

ITTT 

' 5 FF 

1 1 ^ 


TTIF^ 

4 '7 f X 0 5 1 

3 o 3 ^ 

1 

1774 

RE F 

? 

L AST 

77 8 " ' 

26 ,705 2 

540^"^ 

1 

1775 

- - - - - 



■ 

26,2053 

77775 

1 


SETLDC 

BT^K 

AOVTRACK SETPO 


26P50S 


VLOAO 


RTft 


0 

UN I T Z 
PUSH 
LOAO TT M E 
STCALL AFIPTT^’E 

RP-TO-R 

T^Torn. ■ 

AnpmF 
STCALL TDECl 



VLQAO 


VXV 
VATT 
• RA TT" 


UN I T 
STOVL 


c_ 


UN I T 
SETPO 


EXIT 

CA 

TT ASK 


RATT 

VCONP 
PUSH 
t) — 


LANOMAFK 

sr vTN — 


EXTEND 
NP 

OCCH 

[ NOFX 
TS 

-TCr 

SLUAO Ot**P 


5IT1 1 
t 

FIXL'IC 

300 


STCALL 



A OPT I ME 

POT A 


37 t 6 TA '0 


STOOL 


2 40 

STAR 

DPl/6 


osu 


S T€ ATI : 


VI 2A0 


A1PTI ‘^F 
A UP T I 


F^ITA 


UZ VEC IN PO 0-5 
TIME TM PO 6-7 


TIME ALSO IN AUPTIML FGR CS^CONIC 
GET MOON ROTATION VEC IN REF 


PICK TTNP ^ 
UPDATE STftT-E TO TIME 


SAVE -UNiTtV X R) FUR 2N0 ROTATION 


PUSH LnS--UNI T(RVEC) PD 0-5 


orr N tJHQER 


GET n/15 



TEMP ST'^RE N/16 


ROTATE AMG ABOUT UR 


PICK UP 2N0 ROTATION AXIS 


2ND PAT ANGLE ^ 60 


GO R(jT ATF P-MO T TME 
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1 

777 

] 

1778 

] 

[779 

] 

‘ - ] 

PTW 

1781 

1 


TTB7 
173^+ 
1 7 3T 
TT3^ 

1737 

17'=^3 

TTH^ 

1 770 

1 771 

rr 


17^33 

1794 

I^- 


1777 

TT^~ 

1777" 


“18 00 
-1771 
l^'Ol 


REF 13 

TTri= — 


LAST 

YAST 


TFF 


778 

TTT 


26*9X134 
26, 7055 
26,7036 


RTF^ 

“T2 

“LAST 

“TTB 

OFF 

1 4 

LAST 

770 


TFF"X5 — DTST TTV 


IF — nrsT — rjv 


PEF 1 3 LAST 779 


2Si2CrST 
26,2060 — 
2^72061 
26 •2067 

"26721063 
26,2054 
TFr206T 
26,2066 — 

"2 6,TS6T 

2 6. 2070 

26. 2071 

2 0,20 9? 

26,2073 

“2SV2TTT4 

26.2075 

26.2076 
2 6 , 2 


0 OOTTl 0 
36766 0 
26326 1 


73 5 4 5 
TT23S6 


PHTA 


26 , 210 0 
26,2101 
26 ,210 2 

26,210 3 


47315 

02766 

TTUTTITT 

72561 

Sa315 

■02T6F 


U 

0 

X 

TT 


0“ 

0' 

T" 


00001 0 
72 5 61 “0 
02766 r 

91525 0 
02356 0 
1 



ODOl 5 0 
00001 0 
76561 1 

53255"tr 
40256 t ' 

nooor“o 

43406 1 


26,2104" 
26,2105 
26 , 21 'T6 


26,210 7 



D ~ 
STCALL STAP 

C0H51 


DLOAO 


PDVL 


VXSC 

POAn. 


VXSC 


P©0t 


TOVt 


VAD 
UN T T 


STORE FINAL LOS IN STAR 
RETURN TO SR52.1 


PUSH 


MpeRino 2nF€ 


ST N 
AnPTlME 

vxv 

STA^ 

o 

VS12 

DOT 

ST AR 

0 

VSL2 


AOPTIMf 



R VO 


6666666 


047619 


PUSH l:/2SIN(A) PO 6-7 

— UR VEC — 

— J70S 

l/2StNt A) (URXLOS) PO 6-11 


1/ 2 (UR 


LOS) UR 12-17 


l /2C nStAl 


U P 18-1 0 
UP 12-17 


UP 6-U 


APPRUX LUNAR ROT ANG IN 2HR S X 16 


CTPl CiJ'^7\WCHE BY 


SA ^Ocnil3-(»5l 


rvT 9 T :'9 T R t I t r StF ^04 3 7W 


L 
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P130? NAT^F-S52.3 

“ R1S03 FUNCTTON- XSMD= UNIKYS^O X ZSWD) 

— Y^D= uNnTrv'X'Pi — — 

R1R05 . Z5'«in= UNTT(-^^T 

^ R1806 CALL DLGAD XAIL 

R 1 STTT rALlGTr 

R180S S52.3 ~ " 

~P130^ INPUT- TIME OF ALIGNMENT IN MPAC 

'’TTFTl XUTPUT= XTTTTSm 

R IBl I 5 UBROUT INES- C SITCONI r 

1812 REF 3 TTAST' 763 T6,20Cnr ' SETLnC P50S2 

TWn 1672661 BTtNK 


1 814 

Twnr 

1676“ 

1817 


1819 

1R70 

r82T' 

1832“ 

ieP3' 


18 2T 

TP 25 
1826 
IB 27 
1228 
1822 


REF 
R 

REF 


10 

44 


rssT 

LAST 

LTTST 


— 4 — nrsT 

REF 24 LAST 


REF 

REF 


T 


8 LAST 


774 

773 

T43 


31 LAST 773 


T43 

77 8 


TBTT 

743 


1830 

■RE F ■ 


fsrsT' 

78'0' 

r33T 

“REF 


LAST 

774 

1832 

KEF 

1 1 

LAST 

730 


16,2 661 ■ 

16,2662 
16,2663 
16,266"4” 
16,2 665 
16,2656 
n , 2667 
18 ^267Tr 

1 6‘, 2 672 


77620 0 
00300 1 
34041 0 
77071-7 

0 
O 



1 6 . 

16.2674 

16.2675 

16 • 2676 
1T,?6;T7 

16. 2700 

16.2701 

16.2702 


S52.3 


01 

00001 
575 75 

oooo r O' 

776-56 “1“ 
243 23' or 

00007 0 
53435 0 
O OO'Ol "0 

70315 "7 
5 3435 37 
00 323 0" 

34307 1 

00300 I 


COUNT 
5Tg — 


15/S52.3 


STCALL 


SETPD 


UNIT 

Tnvt 


vxv 


STORP 

VXV 


STCAt 1 


0 A . J 

TDECl 

CSMPRFC 



RATT 
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STGHTI^G MAPK ROUTINE 


“ R 1 33^ FUNCTI OTTAL Dt S CP 1 PT I UN 

RTB35 “ TO PFPFURM S IGHTT N^T rTARKS-FOR THE^ACK-DP ALIGNMENT PROGRAMS (P53.054). THE ASTRONAUT KNOWS THE 

R1R37 COOROINATES (OPTICS) ^TFOTHE ALTERNATE LINE OE SIGHT HE MUST USE EOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN 

R103 ^ ETJTl'rR IN RbSPUNSr IN !HE PLASHING V50 N25 Rl-XXXXX THF CMC STORES-n^HE" THREE ICDU ANGLES AND TWO ANGIES tri-SinrAY EO 

R1341 “TN N92. 


“RTB 4? CACriNG SEOUFNCE 

'R1R43 CALL 

R 1 344^ "RTS 


R1845 SUBROUTINES CALLED — 

R1345 A PORT I OH OP SXTTAAR K (VAC. AREA SEARCH) 

RrB'47 GOFLASH 

R1840 rrOPEREl 

R im =J FRTCTABLE TNI T ! AL I Z ATTtlN ' ' — 

R1350 STARIND-TNOEX TO STAR MUMBE'" 

RT8S1 OUTPUT 

R1352 YARKSTAT- INDEX TO VAC. ATE A WHERE OUTPUT IS STORED. 

R1 353 ' — 0P3 j I ^ ruoEXEn BY S T AP I NtTl COMT Al NS ST AR NUMBER . 

R1H54 rrou AND OCDU ANGLES IN VAC. AREA AS FOLLOWS- 

PT855 " ^ VAC -»“? COUY — 

RlR'^iS VAC +3 CDUS 

RXB5T —“3/ A C + 4 "CDITZ — 

R1B33 VAC +5 CDUT“^^ 

R1839 VAC“*F5 COUX ' — 


T850 - - - COUNT^!' $i/R56 — — 

IBS! -REF 2 LAST 771 17,7000 — SETLOC P50S3 

1BS2 ' 17t705F BANK 

0:B63 - — IY.3056 7'^420 I P56- STO EXIT 

1R63I REF 4 LAST 773 1 7,^057 03501 0 " R53FXIT — 

"IHS4 REF 1 17,2050 3 EIAT "0" CAE V06N94R 

1365 REF 216 LAST 778 17*2051 0 4562 1 — TC BANKCAIL 

1866 REF 38 LAST 773 17,206? 20720 0 CAOR GOFLASH 

- 186 5 RFF 6T — LAST — TT3 I T , ? 063 0 4105 1 — "TC" — GOTOPnOH TERN. — 

1868 REF 1* — — - ^ ^ - Q 0 fC R56A PROCEED “ ANGIES OK 

1869 '1*7,2065 — 0*2"06*0*D TC ENTER — NEW ANGLES 

1 3T n PEE- 2 r7 CrST TTl 1747 056 O' 46 -6 ? - "I — R56A Tt BAN K CALL — ' 

— lETl REE 3 LAST 772 16004 1 ^CAOR SXTMARK INHIfrIR EXT VR ACT AND FIND VAC AREA 


tbt? P E m ? i — CAST — rrr — t 7 * ~? aT 0 — 3 -5 02 T 1 — 

1873 -REF 21T LAST 781 17,2tVTi 0 4662 1 - TC^ RANKCALL 

1874 KEf 7 lAST 773 1 7~, 207 ^ 20 7i>3~ 1 " f ADR CLEANOSP 


1875- 

1 87^ REF 


- 1 — — I 7 f 2ty7-3 3 2E45 f) “ R56A1 — CAF VR53 DISPLAY V53* REOUEST I NG ALTERNATE HARK 

21T last 781 T7, 2^^74 0 4662 I TC RANKCALL 
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USFR'S PiVGE NO 


46 


65 S3 


1137 7 

REF 

3 

LAST 

573 

I'^.ZOTS 

—“20564 

1 

CAD7 

OTMAPK2 


187b 

REF 


L A ST 

7R1 

T ^ 9 ?? 07 6 

1 A 1 06 

0 

TCF 

GHTOPnOH 

V3A— TERM! NATE 

1879 

REF 

1 



r7.?077 

T 20 n 

0 

TC F 

P56A1 

V33-0GNT PROCEEnFJUST ENTBR TO MARK 


ISST) REF r95 LAST 776 IT.'ZrOO 0 6006 TT^ TC TNTPSET 


18P1 ir,7TX)l 77745 I OlOAD 

nTF2 T7FF 3'6' LA51 5F5 TTTTTOZ 03731 1 I3 RK3U F 1 -63 

1573"” REF “TO LAST 746 17.'’103'- 16774 1 STOOL SAC “ 

T8B4 0?EF 37 LAST 482 17,3104 03733 0 MftKBUFl <-5 

TBTfS TtF lO CTST 777 042X05 02776 0 S TO R E PTTC 

1455^“ 17,41-06* 77776 1 EXIT 

1887 17,71-07 0 0004 0 INHINT — — 

nrSR — — 17,2110 O' 0006 1 ETTCND 

“■ 1330“ REF“ 25 LAST 739 1T,?T11 3 0025 0 OCA ^TtHE2 

1890 R=F 37 last 772 17,2112 51*330 O INDEX MflRKSTAT 

DTTT TTTZTO 52 001 T OXCH 0 

1697-“ r'SF P LAST 767 17,2114 3 0X133 1 — CA COIJY ENTEft-THIS IS A BACKUP SYSTEM MARK 

13P3 PEE -36 LAST 782 17,2115 51*330 0 IN'igx MApKSTAT 

TH04 17.21 16 — 5 4 -0 "0 2 ~T TS 2 

1895 7EF 11 LAST 782 17,2117 3 1773 0 CA SAC 

- 1896 REF 39 LAST 782 17,2120 51*330 0 INDEX MARKSTAT 

1397 17,2121 54 0 03 0 TS 3 

1898 RFF“- 11 LAST 762 17r21“22 3 0034 0 CA tOOZ — 

1899 3F8 40 LAST T82 11 12123 ^ 5 1 330 O INDEX MARKSTAT 

non 17,2124 54 004 1 TS 4 

1901 ref 11 last — 782 17^2125 3 1775 0 CA PAO 

1902 REF 41 LAST 782 17,2126 51*330 0 INDEX MARKSTAT 

1903 — rr,2127 5 4 0 0 5 O TS 5 

- 1904 REF 17 LAST 762 X7.2130 3 C037-a- Cft COUX 

1905 REF 42 LAST 782 -17,2131 51*330-0 INDEX MARKSTAT 

1906 17,2132 54 006 0 TS 6 

“ 1907-- 17,2133 0 0003 1 RELINT 

- 1908 PFF -5“ LAST 746 17,2134 0 55^36 I r TC CLEAPMRK ENASIE EXTENDED VERBS 

TYOg— — rFF 1 17,2135 3 4333 0 CAT 0 C T16 — - 

- 1910- REF 220 LAST 7ol 17, ■*136 0 4662- 1 TC BANKCALL 

1911 REF 7 - LAST 767 17,2137 21045-tX CADR GOPEPFl 

1912 REF 63 LTTST 782 17,2140 O" 41 06 1 TC GOTOPODH' TFRM . 

1913 REF 1 17.2141 1 2143 1 — TCF R56B - PROCEED-MARK COMPLETED 

1014 ref 2 LAST 781 17,2142 1 2070 0 TCF R56A +2 RECYCLE - DO ANOTHER MARK - LIKE REJECT 

1918 REF— 221— LA8T 287- 17,2143 9 4 662--! R5613 TC- BA N KCALL 

loiT REF 2 LAST 773 17,2144 31336 0 CAOR ft53Cl 

1933 17,2145 15200 1 VB53 VN -05300 ALTERNATE- HARK V^RB 

n35 1242146 -153 6' 0 V06M 9 48 VKn 006 9 4 

1936 REF 5 - LAST 762 15,2000 SETLIX: P50S 

1937 - — 15,2340 BANK 


“t-’3'3 R'-f- 13 LAST 771 15x2-340 0 2607 1 PLANET STORE TSIGHT 

1937 15,-2541 450 2P 1 STD CALL 

1940 REF— 15 LAST TT7 15 ,2342 02 7T 7 — t QMI N — 

- -VPF P LAST 7 40 1 5,2 3 4 3 30 2 25 1 L-RCSA*- 


1942 l''',-254 4 77 7 75 I 


VLOAO 
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L AST 749 
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“B IPTSl 


1946 ‘ 
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P PF 

0 
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I 950 
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4 


P »r F 

n 

195? 
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REF 

2 

1 95 4 

REF 

71 

19 55 

9EF 

16 

1956 

9EF 

13 

195 ^ 

R t. P 

TB3 

1 ^53 

^EF 

1 

1959 

REF 

1 

1 9^'^ 0 

REF 

222 

1^61 

REF 

39 

1962 

RFF 

64 

' 776 3 ■ 



1 964 






1 ?n5 

PET 

1 

I’TSS 



1 967 

R t F 

5 

19671 

REF 

7 

4 ^ 

r95B 



1969 

P.EF 

t ■ 
JL 

1970 

- 1> 3 : c 

'' \ 1' . J 
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19 '1 


i 

1472 



1973 

REF 

1 

1974 

RTF 

1 f 

1975- 

RFF 

14 

1976 

REF 

1 6 

1 97T 

XEF 

33 

117^ 

RFF 

1 97 

1 979 



1930 

R£F' 

ID 

1 951 

Rpr 

7 

1 95 2 

^EF 

1 93 

19B3 


- -«X 

1 ^ ^ H 

RFF 

!. 3 

--1925 

REF 

15 


— rSTT 
LAST r53 


15 


EAST 7^ 


1935 

1757 

1 95 H 
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10 
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3 F f 


U 
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LA5T 

I AST 
L A5T 
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t7S5T 
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EAST 

LAST 

LAST 


LAST 

LAST 


LAST 
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“775 
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“775 
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7 73 
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TT^ST rH 7 
LAST 731 
LAST 7S2 


L AST 77i2 


631 
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LAST 7 


7B5 

7 33 
77 3 


LAST 733 


LAST 
L AST- 
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7S3 

5 • * 7' 


't -» 

7 3 5 
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7^9 


L A ST 750 


IS 

T 5 

13 

15 

T5 

15 

15 

T 5 

15 

15 

T 5 

15 

15 
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15 

15 

17 

15 

15 

T7 

15 

15 

17 

15 

1^ 

T 7 

15 

15 

T7 

1 5 
15 
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15 
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15 
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fO 

7377 


02737 1 

24 0 Tn “7 

77744" 


STTVL 


2351 

T35T 

2353 
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7355 

2356 
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2 3 60 

2361 
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T 

T 

0 

T 

1 

1 

T 


2367 
2370 
7371 
2372 
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7377 
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26736 
00001 
07744 

77776 
4 7711 
~r"0713 

0 0006 1 
7 6211 1 
'56 n3r"7 

50 304 0 
54 3 02 I 

~xr 

1 

0 

1 

20720 0 
0 41 06 1 
TT 2373 1 
0 2365 0 
0 6006“ t 
— 77 . 775-3 

017'5^ 0 


NHSAM 
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7400 

2401 

747n” 

24 03 
2404 
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1 
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6 ? 410 


MOTPL AN 


2 405 

2 406 
2^0 7 


0 0306 
6 2415 

337334 

3 03 02 
53 120 
5T“343 


T 

1 

0 

rr 

0 

1 

T 


:’4i 1 

2 * 1 2 

7413 
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^ / 


f 14 


2415- 
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2417 
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^ . 


7 4 21- 
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EXTT 

CS 

WASK 

EXTEND 

MP 

TCCF 

INDEX 

T$ 
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TCF 

CA*^ 


TFAPTH 

on 

VSUM 

VEARTH 
OD " 

irstr 

HIGH 3 

STARcnne 

SlGHTSrX 



ST I ND 
RESTI 

■A 

NOTPLAN 

VNPLANV 

H A ^ TK C 4 tE 

GOFLASH 

GOTOPOnH 


V E ~rr AD 


tJNTT 


CS 

Tttr 


I NTPRET 

V7SC 

STARSAV3 

1/SDR3 

3 

CORPLAN 
A 



EXTEND 

BZ'^F 

TNDcX- 

CA 

I NDEX 


CALSA.21 TC 


CALSA*^! 
“ST 4 PTW 
RESTl 
F IXLOC 

XT 

TC IMTPRFT 

VLOAO’J' GOTH 

CATLOG^l 
CORPLAN 
INTPKCr 
-TrLOAfT^ 


LXC .1' 


776*^0 


0 C PL ~ A N 770“ 
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1 GOTO 
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USFft’S RAG8 NO 


F.O S3 


PD 'TOT CTJMAR T NT STt A - “9 P T TFT S UB PnOT I N t S 


RDTrOP FONCTTONAL TF-SDRlDriUN 


R0003 THFS3^ SURROUTTNFS ARE USFCTTn DETERMIMF THF POSTTTn\j AND VELOCITY 

RODtP; VFCTORS OF THE SUN AND fHV MM^N PTLATlVb IM I Hh EAR I H AT IHF — 

R0005 SPECIFIED GRGUNT FLAPSFD TIME INPUT BY THE USER. 


RDDaE"”^^ ^THF~~PTSlTin7] nF~rHE MOOTTIS STURFU IN T HE CONPUTFR IN TH E FD RW - n E 
R0D07 A NINTH DEGFTEE PnEYNOMIAL APFROXIMATTON WHICH TS VALID OVER A 18“ 

ROaOS DAY INTERVAr~P>ET7rNTTTNG SHORTLY BEFORE^ LAUNCH. THEREFORE THE T!NE 

RDTIP INPUT BY IHh USLI SHOULD FALL WMHIN THIS T5 OAT INTERVAL* 


ROOlO LSPOS COMPUTES THE“POSITinN VECTORS OF THE SttN AND THE MOON. 


ROOll 


LUNPOS COHPUTES THE PHSITTON VECTOR OF THE MOON 


R~0DT7 


TDNTEL COMPUTES THE VELOCITY VEC 


POQIB 


SOLPOS COMPtJTrS THE POSIT ION VECTOR OF THE SUN, 


R0014 “ CALLING SEDUENCF 


RTTOTC DCTTSD CinT 

R0ni6 TIME GROtTNO ELAPSEO TIME 

R0017 SUBRnUTTNE LS PO S O R LUHPOS OR ! UNVFt OR SOLPOS 


ROOIC I NPUT — — 

— R ODI'” I T ' SP E C IFI ED G R OUN D E LA P SED TI M ^ IIT XS X B~2 8 L n A DEO ~|N^M P AC, 

ROOPO 2) TTMEMO - T I 'T AT THE CENTER OF THE RANGE nVER WHICH THE LUNAR 

— PTJSrTTON POLYNP^TAT TS VAT TO IN CS X B-42. 

R0022 31 VFCOEM - VrCCTR COFFFtCIFNTS OF THE LUNAR POSITION POLYNOMIAL 

“TTO 02T C OA^DED IN DESCENDING 'SEQUENCE IN MFTERS/CS7*N X 

R00P4 4) RESn - POSIT TOM VECTOR OF THE SUN RELATIVE TO TH^ EARTH AT 

— RDD?8 TIMEMO IN METERS X B-38. 

R0026 51 VESn--^ VELOCITY VECTOR OR THE SUN RELATIVE TO THE EARTH AT — 

ROOF27 riMEHO IN METERS/CS X B-9. 

'“R0078 6t OMFGArS“^“ ANGULAR velocity OF THE VECTOR RESO AT TIMFMO IN 

— RXTDTD RFV/CS — — — 

R0D30 -till EXCEPT TH^-F-I:>SO-1N1MJT i^^RE-^lNCLUOFO IN 

R0032 OUTPUT - LSPOS ^ 




G : 


liSSr-ABlE COMANCFIF HY NA^A 20?lir^-0bl 


lot 28 AP’^. 1 ,1960 TFTinBlF .043 — 7^6 


R 0^"^ 5 
ROC ^.6 


LUNi\^. AND 5 GLAR^“FRH-N;^< I"S SOBTTGTjTTNF S 


USFP'S PAGF NO. 


FO S? 


R0T)33 

P0034 


1) 2D OF VAC APFA CTONTATNS TH^ POSTTinN) VTCTOR OF THr SUN RFLATIVF 
TO THF FARTH' AT TIME INPUT PY THF US-R IN MFTFRS X P-3S. 


2) MPAC CONTAINS THF onsiTTON VTCTOP OF THE MOON RELATIVF TO THE 
EARTH AT T TOT INPUT 3Y THE USER TN METERS X 3-T9V 


ROnp? OUTPUT - LUNPns 

R 0 'TIR HPAC CrrNTATNS" THE F'^ TFT ON VEC1 OR UF THE MOON RELATIVE TO THE 

ROOO^ EARTH UVT THF TTMT INPUT BY US^R IN MFTFRS X B-^R. 

POmO OUTPHT - LUNVbL — 

ROOAl MPAC CONTAINS TO- Vi^TOCITY VECTOR UK THE MOON RFLATIVF TO THE 

R00 42 c:!i!^7|:r-^-y TXMr' T^R^JJTT3T' TRF“US“R IN METERT/CS X B-7. “ 

R00f3 nUT'^UT - SOLPns 

R004A MPAC CONTAINS THF POS I T T ON VECTnP OF THE SUN f^FLATIV^ TO THE EARTH 

OOOAS AT ITME INPUT BY THF tISFR TN '^FfEPS X B-3*». 


RtTOAS 'SUBROUTINFS tJSED 


r:otfvt tone — ”■ — — ____ — 

R004B -EMARKS 

ROOAD THE VAT i'REA TS fJS'^D POP ST^rRAGE"OF TNTtRMEDIATt AND FINAL RESULTS 

P0050 ■ OF COMPUTATIONS. 


ROOBl 

ROOF? 

ROTTT 
^OOSA- 
R00 5E 


SI, XI AND X2 A">E USED BY THESE SUBR OtJ I I NFS . 

PRFLAUNCH cRASA'^LE TrATA LOAD APE ONLY ERASABLE STORAGf^ USED 3Y 

THESE SUBROUTTNES . 

PESTARTS OUPrNG UPfc^'ATFON OF THESE SUBROUTINES MUST BE fTANDLED RY 
THE USER . 


00 So 

OnS7 REF 1 

OTJETR 

0059 REF 1 

TTCnSO RTF 2 tTTSl TTS 

00 FI 

0062 ^Ef 1 

XVO'ST 

OOSA - REF 1 

0 0 53 — £F 1 

XrOTF 

00.: f^EF 1 

0060 ^'FF ? LAST /86 


36,2466 BANK 

26,2000 SETLOC 

Th * “^1 ttr ■■ BANK ■ 

COUNT 

E7 ,T~7T 7 rBt V NK^ 

2trT2U0 7 7 774 0 LSPOS A XT, 2 

26,2111 641 61 0 

2T> * 7TT2 52T ^rT-Ti AXT f 1 

26 , '^113 54143- 0 

26, 2 114 54126 O 

2o-> Ttt - 6 ^ 2 1 - ^ 0 -t) Li t A t POS AXT, -' ! - 


26, M 17 54 126 0 


3 b 

EPHEM 


3S/FPHEM 

■r ND= ^- T - " - 

PESA 

OOTO 

RES- 

LSTiM*^ 

T f rffi — 

^ 

LST 1 me 


COMPUTES POSITION VECTORS OF BOTH THE 
SUN AMO THE MOON. THF POSITION VECTOR 
OF — T H F — SUN — FS — STOKED — FN — 2-B — OF THE VAC 
AREA. THE POSITION VECTOR OF THE MOON 
IS STORFD IN MPAC. 

CO M P tlT F-S -THE - -PO 5 I TION VECTOR OF THE -M OON 

AND STORES IT IN MPAC. 


i 


G A : AS‘^,eMBLE RF V I S t ONi 0^ B 


1 U 


/UTT 






PY WA S A zir^ rm-osi 


rOT r“A P R . Ul'->6'r“ IR'.'IUBLE .04^^ PAGE 787 


L 


UJ^iar aNG snrAR FPHTTMTPTnFG SUP P^^UTT*'' 'S 


USER’S oagE mo. 


e? S3 


rnj5G* ^5.?120 57170 0 lUNVEL 

0070 ^EF 1 ?6,?121 54173 0 

~mTL RTF ^ OTT TFT 2h;2l27 54126 0 

00^7 “TF,2173 760 ?0 1~ SOL ^OS 

0073 '^EF 19 I AST 720 T6t20?4 00047 1 

T074 TET 7 ~TTST“^/y6 76,212 5 541A3 0 

0075 26,2126 ■ 54201 0 L STTME 

0076 26,7127 00001 0 

T077 2"6V^1TD 206TT“D 

0071 26,2131 S737T 0 

GOTO RFF 12 LAST 539 26,71 32 01707 0 

TTOTO “■ 26T2TT3 — 57571 0 

”0081 2EF 2 LAST 88 ?6,~2T34 02034 1 

0032 26,2135 66261 1 

“OUST 76TTr38 20221 — I 

0034 OlF 31 LAST 776 26,2137 00051 0 

008S 26,2140 00006 I 

0036 ' “ FTTTTTI 7^7650 3. — “ 

0037 REF 40 LAST 733 26,214? 00046 0 

0083 26,2143 41206 0 RES 

OORT” 1 “ 76,^2X44 Q7T4Tn^ 

GOTO 26,7145 71406 tT 

0091 76,2146 65361 ”0 

“0097 ^TF“"“7 r PTSl T9 26 ,7147 07T33~T“ 

0093 26,2150 63356 1 

0094 REF 3 LAST 737 ^6,2151 02133 1 

009? ■ 75, 2152 " 5340o“<r“ 

0096 96,2153 53435 0 

0097 9EF 3 last 625 2T, 2 154 02141 I 

■■ 0093 “ 7F37Tr55~~T64T*rX^ 

0099 26,2156 - 53361 0 

0100 26,2157 52177 1 


“Oni RFF 70 ”T”7r5T 787 26V7T60 ^ 00047 I 

0102 26,2161 14003 1 RESA 

0103 “ " 26,2162 63770 0 REM 

01TT4 7?'.“21 63 00066 1 

0103 RF^ 2 LAS l 88 26, 0703? 1 

0106 96,2165 52761 0 REMA 

01 07 2 6,-2166 OOOOI T) 

0108 REF 3 LAST 737 26, 7167 02133 1 

0109 - 26,2170 72500 t 

— OTTO TT 1 26,2T71 5 4165 1 

01 11 7F6r7”17 2 776 16 0 

' 0112 T6,2173 65379 0 VEM 

CriT3 ■ 26,2173 00060 I 

■ 01 1 A Pr 1 26 , 7175 13214 T 

0116 2 6,^176 74206 f) 

— 0116 RTF ““4 l-TST 727 r^mTT 02 0 37 i 

0117 7s,9'>0C 77761 1 VEMA 

0118 7' ,2201 09001 0 


AXT,T onin COMPUTES THE VELOCITY VECTOR OF THE MOON 

VEM AMO STORES IT TM MPAC, 

TSmE — 

STQ AXT,1 COMPUTES THE POSITION VECTOR OF THE SUN 

X? AMD STORES IT IM MPAC. 

RTS “ 

SFT’^D SR 

00 . 

— 

TAD OCOMP 

TtPHEM 

TTMEMO 
SL SSP 

160 


60 

GOTn - - - . 

XI 

PUSH DMP 

OMEGAES 

PUSH COS 
VXSC POOL 


SIN PDVL 

PESO 

■^nJSH uirrr — 

VXV UNIT 

VFsn 

mtV — 

VXSC VAO 

VSLl GOTO RES IH ^^etfrS X 8-33 IN MPAC. 

■ ■ ^9(2.—”- - 

STOOL 20 PES fM METERS X 8-38 IN 20 OF VAC 

AXT,l PDVL 

_ _ ■* _ _ ^ ^ = . . — = — — _ — _ — _ — ----- — 

5 40 

VECOEM’ 

VXSC VAn7 

at) 

VECOFM ^600,1 

TIX,1 VSL2 REM TN M*=TFRS X 8-29 IN MPAC* 

_____ 

RVO 

AXT,1 OODI. 

420 — — 

M1NE34 
PUSH VXSC 

VECOF f* — 

VXSC 

on 


PD- 2 

PD- 4 
PD- 8 

PD-10 

PD-16 


PD-10 

PO-02 


PO- 0 
PD- 2 


PD- 2 

PD- 4 


C,SP': 


r~wr7TTrm 

055 OF AiiC P^ilGRAM C'JHAMC'R'E""BT' 

TIASA 2021113-051 

iu:23 APK. TT 

O' 

TROUBLE .043 

page TB8 







PAGE 


E7 S3 


L UN AT? 

A ND 'SDL A^ 

EPDF M tiR ID rS SUBROUTINES 


USER*S 

NO. 4 










0119 



26,2202 14D05 T 

STOOL 4D' 




PO- 2 

0120 



26f2203 41425 1 

DSU PUSH 




PO- 4 


QT7I PIF I ,??0'A 14216 1 ONEBA 


0122 ~ 26,2203 “ 53T5T 0 VXSC* VAO ~ 

0122 5 LAST TBT 26,2206 02125 O VFCOEM +540.1 

0 124 26,2707 OUOOb 1 4TJ 

0125 — 26,2210 72500 1 TIX,1 VSL2 VEM IN MPTERS/CS X B-7 IN MPAC 

0126 nFF I ^ 26,2211 54200 1 VEMA 

‘Cn?'^ 26,2212 77616 0 BVQ 

0128 26,2213 22000 1 NtNF84 2tlEC 9.0 8-4 

0122 76,2214 00000 1 — 

01 2 c 26,2215 02000 0 0NEB4 2tIEE 1.0 8-4 

0129 ' ■ 26,2216 00000 1 




YTSITlTr Ob^ Ih '^.fJCT'PRni^r’AM CU ANCHF ' BY NA SA ' ?021 11 3-05 1 


1 .1’369 


■PIVtTE TB^ 


P61-P57 


USf=P*S PAGE NO 


EG S 3 


ROOOT" 

PROGRAM: 

PPI 

R 00 0 2 

MOD MG. : 

0 7 A P 

K 0 0 0 3 

’TOD 

PVHTDSC 

K 0006 

MOD no: 1 

Mnn ?,Y : 

ROODS 

MOD no: 2 

* ■ TD BY ; 

P 0003 

MOD NO ; 3 ' ‘ 

'Tfir, -tvYT"" 

ROOlO 

FUNCTTOM : 

TO CAL CU 

ROOll 

CALLING SEOUBNCE- 

BY V37 

R0012 

23XTT— 

TH-FTTZ 

R0013 

SUBPOUTINE CALLS- 

S61 . 1 , 


PP 3 AIR MS FATHER 
RP BAIRTJSFATHFR 
RR BAIRMSTAT'HFR 


DATE: 

DATET: 


JU"^ 67 
17 JAN 63 
B' MAY 


RESTARTS. 

COLOSSUS GSOP 

■c 


CHANGES. 



S 61.1 ♦ S 61.3 , GHFLASH • FLAGUP . ROPBOTH 


irOOT^' 

R0015 

ROOIT 

■P’TTO'TT 

R0030 

R0071 

K0^22 

R0023 

R0025 

ROirpT" 

R0039 

■R0031 

TTOGTB 

R 0035 


ITJTPUT 


m 


c 


TTZrSABL E TNTTT ALT/ ATT OM r 

PMSALT (-29) M 
ALFAPAD /ISO 
THE FOLinWINT 

Gf^AX too GMAX 

VPRED (-7) M/C 

'GAMMAFT G7’^'MA73^o 
RTGO THETAH/^^O 

Vin (-7) 

TT^ T ^?T T-R 

LAT(SPL) /TfrO 
LNCTSPll /3 6 0 

rrrj 



. 05 G ALTITUDE ABOVE FISCHER ^LLIPSO 
HYPERSONIC CM TRIM ANGLE OF ATTACK 
F- WRITTEN IN TOR trSF BY DISPLAYS 
G.S maximum acceleration 

PREDICTED VELOCITY AT ^OOK FT 

PRFDI CTEP TGAHHA' ’ AT " 4 DDK FT 

RANGE ANGLE TO SPLASH FROM EMSALT 
INERTIAL VELOCITY AT EMSALT 


10 PAF tOADEO 
PAD LOADED 





DEBP rs 


HEAnsaP 

SEE SUBROUTINES 


TARGET location 
TARGET tot AT I ON 
+1 = tTFT DOWN, 


T—^ 


OF 


EMSALT IS PAD LOADED 
EMSALT TS PAD LOADED 

trECr 

LEFT BY OSKY 
LEFT PV. DSKY 

r 



TTGRG 

00^7 

n 038 


n 

* \ i 


EF 


26.7000 
26 ," 221 7 


FANK 




SETLOC P 60 S 
BANK 


0030 

'0060 

00>1 

~0042 

A 0063 

AC0A4 

0065 

0066 


REF 15 LAST 539 


6, 1661 


T 7 t: 


T 


REF 41 LAST 

TO" " 


EBANK= AOG 


C 01 TN T« tT /F 6 T 


73 6 



26, 7217 

26 ;Z 2?0 


3 5002 0 


P 61 


CA 


BI T 16 
rXTVBACT 


EXTENDED VERB SHOULD BE FREE THIS CLOSE 


LOCK OUT 
ROUTINFS 


EXTENDED VERBS SO CAN USE TFF 
FXT verb ERASE IS tJSED 


Q PP 

RFF 


D 1 

3 


LASF- 73 3 

LAST 230 


26 , 222 I 

7 6,2 222 


6 50)7 0 

55 •726 1 


CS 

TS 


ONE 

HE ADS UP 


REMOVE IF HEADSUP EVER ON UPLINK DATA 
PRELOAD 


0 G 67 
A 0063 


RFF 




2'->,2223 0 2564 o 


TC 


SFl.l CHFCK STATE VECTOR AND IMU ORIENTATION 

RV 6 aGENRET. DOES PHASCHNG, GROUP 6 . 


0069 

A0050 

005 2 
0053 


PEF 


1 


26,279<!, 3 2675 0 


CA 


V06N61 


LAT( SPL) 
XXX. XX DEG 


LNG( SPL) 
XXX, XX OEG 


HFADSUP 

XXXXX, 




FEE 


r 

12 





”T 
LAST 
LAST 


75 6 
723 


25, 2222 
25 , 2 ? '^ 6 
.7 6 , 7 2 2 7 


0 6^66^ 1 
21057 0 
0 6106 1 


Yt — ' 
C A DR 
TC 


BANKCALL 

GOFL ASHR 
GCTOpnoH 


P P VISION 035 OF /■aTC”n5.0GPAM Ct 



P51-P67 


0054 

0055 


0056 

0057 

005 3 


REF 


R-F 76 LAST 769 


R6F 91 LAST 75 5 


26,7230 
26, 2 231 


26, 2232 
9 5 • 223 3 


0 2235 1 
0 2224 1 


0 5412 0 
00014 1 


26,2234 0 5717 0 


’jY NASA 2021115-051 


P61.3 


TC 

TC 


TC 

OCT 


TC 


P61.4 

-5 


PHASCHNG 

3)0014 


F MOOT JOB 


rOT"ZB"'APR* 1 *1969 FROUBLE .043 790 


USFP'S PAGB NO. 


E6 S3 


0062 

0063 

00154' 

0065 


REF 

RFF 


REF 


4 

42 


LAST 

LAST 


7tt9 

780 


LAST 231 


26T2235 

25“r2236 

2B, 

26. 2240 

26.2241 



P6X , t\ 


TIT— 

CCS 

CA 

NOOP 

OXCH 


HEAOSUP 

BIT14 


POLLC 


CtKEADSUP)= +1 /-I 

IF HEAOSUP POStROLLC =180 DEG. (LIFT OWN) 

"ft: 


t 



ROLLC IS USED BY S62.3: GIM ANG AT .05G 


~UTTSE 

0067 

006R 

0069 

OO'^O 

OrT’l 


ITFF-TW FTrST 


n TF 
RTF 
RFF 


Q 

7 

1 


LAST 

LAST" 


7B3“ 

724 


0072 " 

O', F* 

TO 

FAST 

724 

009 3 

REF 

18 

LAST 

64 4 

0074 





0075 

P. t F 

1 



0076 

REF 

10 

LAST 

TOl 

0077 


11 

LAST 

522 

0073 





0079 

c? rp 

2 

LAST 

790 

0030 

^ .x— - — r - -1 mr 

RFF 

7 

i . 

I A S T 

1 1 B 




01 j c 

0093 
2)TrT4' 
00 ST 
56 
A 0 027 
00 B 9 
0090 
A DOTT 

0092 

0093 


RTF 3 LAST 790 
REF 10 LAST 790 


RET 


REF 


R cF 
RTF 


1 

6 

1 


REF 224 

40 


Q 


0024 

00^5 

009 66 


0097 
A dots 
0099 
0 1 00 


"’EF 

fj c p 


6 6 
1 


R EF 


LAST 789 


26.2242 

26 . 2243 

26.2244 
25V2243 

2 6 » 2246 
26,2'>47 

26r.22T0 

26.2251 

26.2252 

26 -rcrrT 

26.2254 

26.2255 

26,2257 
26,2250 
26 ; 2261 
26,2262 
26,2263 
26 •2264 

26,2 265 

26. 9966 


0 2.o"07n: 

77745 1 

01205 I 

TTTm T 
52063 0 

77775 t 



02327 0 
77656 T 



01177 

02335 

02343 
03 502“ 
45345 

036 51 
01205 
45040 

T4243 
5 4651 


1 

0 

rr 


1 

0 

r 

0 

1 


(’I 

1 


XC 

NEWPNVM OLHAO 


DtmpPGT 


<^F 2 09 LAST 790 


PIPTIBE 


STCArr^^nr 


STAPTFNl 


VLOAO 


STORF 

UNIT 

ST O VL 


STOP 

37X4“ 


RONF 


STORF 

TTttrA'D 


BNN‘ 


U PO N E 

VN 

VONE 

UNTT 

t}90NE 

UNT 

“DStr 

NN 

PIPTfMF 


N^tWRNVN 

S61.? 


LAST 

792 

26,9767 

96, 9770 

0 55S6 

3 2^2't 

1 P61 .1 

1 

TC 

CA 

LAST 

LAST 

789 
78 3 



1 

0 

TC 

C ADR 

9o ♦ 2 9 7 1 
96. 2272 

0 46 6/ 
20 720 


CLEARMRK 

V06N60 


BANKCALL 

GUFtASH 


96, 

9973 

0 

41 06 

1 

TC 

26, 

22T'-* 

0 

2 2 76 

0 

TC 

^ fj at 

22 75 

0 

■ 22T0' 

n 

TC 

-26, 

2276 

0 

6 0 0 6 

1 P 61 .? 

TC 


GOTO POOH 

P61,2 


f J^t TPRTT 


93 LAST 778 


26,2277 

26,9300 


452 34 0 
45510 1 


R TB 


DSU 

LOAOT IM- 


SAVE TIME OF RN,VN TO OETFRMINE IF AN 

-UPtm T -E' HAS nCCURR E f) 

INITIALI ZE 


INITIAL VALUF OF PIPTIME 


UPDATED... GO TRY AGAIN 
GET DISPLAY DATA FOR N60 AND N63 
AND- RFTURN IN RAS t Cv BE l ^ : 


GMAX 


VPRED 




GAMMAEl 

W WW V V l^C^- 
A A A • A A t> CTj 


PROCEED 


CORRECT TTF FOP TIMF LAdse DUPING 
ABOV E -^DISPLA Y - ir 


CURRENT TIMF, 


TTffFl 055 OF \RC "PkUGRAM COMAMCHE'BY NASA ?02in3-0‘3l 


lOSZS APP. 1 , 1 'J 6 V TROUBLE .043 PTTCT T<n 


P61-P67 


OSPR’S PAGE NH. 


E6 S3 


nioi 

REF 

4 

LAST 


2o ,2301 

0102 





26,2302 

0103 

“TEF" 

2 

LASI 

120 

26 .2303 

010^ 

REF 

-5- 

T AST 

2R1 

^,2304 


T)35Ert 0 

77615 0 OAO 

03733 U TTET 

03727 0 STORE TTF 


PTPTIME FOR RONE t VONEi 


ISrEOATTVE OF FREE FALL T I ME • 
DECREMENTED 


0 


26 , 2305 


77 7 7 6 1 


FXTT 


0106 — REF 1 26,2306 3 2426 0 CA V06N63 -RTGCT - VIO 

‘TTOTOT XXXX.X NM XX XX X , 

01OB RFF 225 LAST 790 26.7307 0 4662 1 TC RANKCALL 

■ 0T.09 REF 41 LAST 790 26r.2310 20720 0 OADR GOFLASH 

OTTO (TEF”" 6T — OTST 790 26,2311 0 41D6~1 TC G OTO P n OH 

“0111 26,2312 0 2314 0 " ' TC +2 

“0112 REF 2 LAST 790 26.2313 0 2276 O TC P61.2 REDO 



R0113 


7T. . THEN FALL INTO P62 




ASScMPL’ 


aST (Vr AG( PklJG:<AM CUMANCHb BY NASA ^0.^1113-051 


10:28 APf?, — 1,1^6’^ — TT^ntmL ? .04 3 P A 1^^ T92 


P5I -P67 


USER’S PAGE 


E6 S3 


ROT 14 
P0115 

ROUT 

Ron i 

■PDT20 

ROl?^ 

R0124 

RT'T?'^ 

R01?« 

R0I2P 

ROOU 

R013! 

Rni77 
T 


R0134 
P0136 
R 013 R 
R0140 


f^RDGR 
>inn MG.- 
BY- - 


* 


MOn MG: 

vno mi 

MQG MG: 

fuuctton 


1 

2 

T 

4 


CALI TNG SCQURNCrr*- 
FXTT- ■ 

RRArSABlinTJl I I ALT 

A L P A P AG 

LADPAD 
LUUPAn 
LAT( SPLI 
LNG{ SPL) 
HEAnST7F 
SUBRGUTTNE CALLS: 


P6? 

0 ■ MAR. 13, 1967 
P. HIRSCHKOP 

Mnn BY : 

MGD by: 

'MTTn"BY 1 

MPG BY : 


RR 

batrnsfathfr 

HATE : 

21 MAR 

67 

RR 

BAlRmFATHER 

DATE: 

22 JUN 

67 

TTp- 

RAIKNSFA f HER " 

“DATE: 

” IT TAN 


RR 

BAIRNSFATHER 

DATE: 

8 MAY 

68 


STARTS, 
colossus GSC 
MOVE START OF DESIRED GIMBAL CALC 



t ) 

“ 2T 

BY 

TO 

Z AT I GN 


in NGTTFY crew when GNC system is prepared fop CM/SM SEPARATION 


TO nRIENT 'TRE CM TG T H E CORREC T A TTIT UD E^ FOR A T M f 
V37 HR OTRCCTLY FROM- "61 
P53 


(MAY BE CHANGED BELOW) 

(MAY BE CHANCED BELOW) 

tTTTf BE changed 'BE tOWr 

NFWMOnEX t S61.1 . CM/DAPIC 


LEFT 

LEFT 


BY PAD LOAD 
BY PAD LOAD 

L O AD 



LEFT BY OSKYf VIA P61 
LEFT BY DSKY, VIA P61 

"’ LEFT BY DSKY* >rTA ’FCT 

CM/DAPGN t R02BOTH » GOPERFl , GOELASH t GODSPR 


0142 

0143 
0144: 
0146 

0146 

0147 
TTlTfR 

014F 
0150 
TTPSl 
A 0 1 5 2 
0153 

AO 1 54 
A0155 

A 0156 
0157 
“OrTR 
015^ 


XT 



7 

LAST 

53 6 

RFF 

92 

LAST 

789 

REF 

5 

LAST 

536 

PFF 

2 

LAST 

789 





■RTEF 

ZOT 

LAST 

T'PTT 

REF 2 LAST 112 


TTFF" 


REE 


7TF 

PEE 




LAST 


25 •2314 

76.2315 

26.2316 

26.2317 


0 5354 O 

troo 

3 5017 1 
54 332 1 


?6»2321 0“6OTr5"“T 


26 , 2 322 

26.2323 

26.2324 

26.2325 


26,2326 
26,2 


47131 1 
03325 0 
5 4401 0 

41672 I 


0 0006 t 
7 4 77 0 


25,2330 53*223 I 


26,2320 0 2544 0 P62 


"62. 2 


rOT lNT7 


TC 

■MM" 

CA 

TS 


TC 


TT^ 

SSP 



NEWMGDEX 

67—-" — r 


ONLSTCOD 


S6l .1 


T N T PR FT 
PTB 

PGSEXI T 


CM/OAPIC 


MODE CHANCE IE CAME 



FROM P61. 
ITTA V 37 


CHECK STATE VECTOR AND I MU ORIENTATION 


"C AtCUtATE O e S IR E O ^i>5C- -Ct4I»At: ^NCt^S, 
WITHOUT DISPLAY. 

START CM/ooSE AND BODY RATE CALC 


DOES 2PHSCHNG* OCT 40116* OCT 05024, OCT 13000. 

CM/OAPfC SETS ERANK = FBAOG 


EXTEND 
tfCA 

DXCH 


pnSECAOR 

AVEGEX IT 


AND RETURNS IN BASIC TO P62.2. 


CONTINUE WITH C M /PGSF A F T E R AV G 


OT6TJ 
016 1 
0162 
0T53- 

015 4 


'REF 

P E F 
"FF 
■RFF 


— 

226 

I 

»* ■ 

o d 


FAS^T 791 


tTtST NTt 


26, 2 3 31 

"26 ,- 23 ^ 2 
-? 6 , 2 3 3 3 

‘ >6 ,2 334 


3 42 70 0 
0 4662 1 
21125- I 

tr 


26,2335 0 2340 1 


CAF- 

TC 

CAOP 

-TC— 


TC 


nCT41 

BANKCALL 
GtGPERF IR 
GGTGPGO H 


F e mJEST S E PA R ATION 


+ 3 


PROCEED 





055 HP A(iC' 'p-RnGP AM T'JMT^'NCT^E GY mSA' 2an 


IDrZ'R APR. i . 19'69 rRG'J3LE *043 



ft0165 

0166 

”0T6T 

0168 
0 169' 
A0170 


^61-^67 


K 1^: 

^ PF 
7TF 


~T 

48 


LAST 734 


76,7336 

76,2337 

75 ,73 40 

Z6,-7347 


0 2331 1 
CT 7737 n 

0 4701 0 
“41612 T 


+3 


TC 

TC 


TC 

CfiOR 


USE^?«S PAGE NO, 


E6 S3 


NOTE: 


“5 

P61,3 


POSTJUMP 
CM/OA'F'TN 


NODOFtAG WILL BE SET IN CM/OAPON-. <« 
ENTER 


DISABL E PCS O A P- , ^ 
00 ATTTTUOE HOLD 



OA P TtNO 


A0I71 

A01“^7 


WILL TDLF"ONTTt CM/POSE DOES ONE 
CM/OAPOM DOES NO PHASCHNG, 



0177 

A 01 74 


A017'5 
A 01 76 
AO ITT 


TFF 


L AST 730 


26., 7342 3 2475 0 P62. 1 


CA 


V06N61 


LAT(SPL) 
XXX. XX OEG 


t NG(SPL) 
XXX. XX DEG 


HEAOSUP 

OOOOX. 


TERMINATE ATTITUDE HOLD. SET UP COMMANDS: 
KOLLC, ALFACOM, BETACOM. BEGIN MANUVER TO 

mrpY 



01T8 

t?FF 

227 

LAST 

792 

26,2343 

0 4662 

t 

TC 

BANKCALL 

0170“ 

0170 

01 PI 

RTF 

42 “ 

LAST ■ 

f ^ 1, 

27r ,2344 

20770' 

0 

TTAtTP 

GO FLASH 





2 ^ ,2345 

0 2342 

0 



TC 

— 3 





26 ,2346 

0 23 50 

n 

TC 

+2 

0187 





26,2 347 

0 7342 

0 

TC 


0 1 'i 3 

RFF 

77 

LAST 

790 

26,2350 

0 541 ? 

0 

TC 

PHASCHNG 

0 1 8 





26,2351 

77402 4 

0 

OCT 

040 24 



E U R Dt^FtAir BEL OW 


AOl 


8 3 


FBANK WAS SET IN CM/OAPON TO EBAOG 


01 '^6 

F 

■ 

5 

LAST 

790 

26,2352 

11* 726 

1 

01 PT 

P ;-F 

43 

LAST 

79 0 

26,2353 

3 5002 

0 

oiw 





Z6, 2354 

12' 355' 

1 

0] 

REF 

7 

LAST 

790 

2^,?155 

55*715 

1 

01.90 

R^F 

1 



26, 2356 

3 1611 

1 

irm ' 





26,2357 

777 007 


0192 

REF 

2 

LAST 

112 

26 , 2 360 

53*604 

0 

01~P3 

“^TFF 

03 

L7AST 

79 ? 

26,2361 

3 5017 


0194 

REF 

1 



26,2362 

55* 7 27 

0 


CCS HEADSUP 

CA PTT14 

NOOP 

TS ROLLC 

CA ALPAPAD 

Tt — 

OXCH ALFACOM 

CA BMP" — — 

TS P63FLAG 


CUIEADSUP) = +/- 1 

IF HFADSUP P0S,RGLLC=180 DEG (LIFT OWNI 
IF HEA DS U P N EG, R nLLC=Q DEG lUtFT tTP^t 

NOMINAL ALFATRIM PAD LOADED, NEG. NO. 


SET ALPACOM - ALFA TRIM, BETACOM=0 

P E RM ITS E X DAP2 TO CHA N GE Ft iA G YO ^0 
AS INDICATOR. STARTS UP P63. 


' 019 5 "R -EF 7 — TAST 3GB 26,2363 3 5052 0 (7*— V06N22 

01’^6 REF 7 LAST 80 26,2364 55«263 0 TS ENTRYVN 

A 01 97 

' " 0 1 9 F P"=T 4^7 LTTST 2 6,2365 0 554"6~0 ~TG U»FL AG 

Qiqq »?FE 1 26,2366 00134 1 AORFS ENTRYDSP 

AOIOOt ■ SKIP 


SE T UP DIS P LAY FOR CQU " DE6 ti < EU \6ALl+E6 

from ENTRY ATTITUDE CALC, THAT IS 
ALREADY GOING. 

TtJ R N- O N - ENTR Y DISPLAY 

ENTRYDSP = R2D BIT 13 FLAG 6 


E 6 S3 


rn^Tri ASSH'^^BTF' RTV rSTTO' ObS I'th PROGRAM CU MAr^CHF"HT^'NASA 'ZO^lTl 3-0'51 10!28 APR. 1 , 1 T6^ PROUBLE ,043 


L ^ P61-P67 U$ER*S PAGE NO* 6 


0200 kEF 4 LAST 177 26VZT5T 4 1700 0 ~tS ““CMOAPMOD GO OIRECTLY TO P63 TF BODY ATTITUDE 

0201 REF 94 LAST 793 7647370 7 5017 0 MASK ONE IS SUCH THAT THE DELAY TASK: WAKFP62 

020 — — 2"6;'23 71 0 0006 1 EXTEND WTLU HE OMITTED. 

0203 REF 1 76423T2 1 2421“0 BZF P63.1 DISABLE GPP 4, GO TO ENOOfJOB^^ 


^ 0^-55 — (IE. CONTTHUE IF CMDAPMOO = -1* OR +01 

0205 PEF 1 ' T6.2373 0 2405 1 TC P63 “ 


A0206 

A0207 

A020C 

AOTTO 

'“A0210 

A0211 


P U T JOB TO SL EEP UN TI L VEH t tLE " MAfJUVE R HAS 

REDUCED ALFA T1T-+/-45 DEG. CONSIDER REMAINING 
65 OFG (25 DEG IE ALFA NEG) TO ALFA TRIM TO 
OCCUR AT 3 DEGTSEC, AND' TERNTNATE^FB-F AT TtLAT 
TIME.- — 

TASK WAKEP62 IS CALLED FROM ENTRY DAP. — 


D212 REF 2 

0213 REF 24 

02T4 PFF TF 

0215 REF 2 

0215 

0216 REF FT 


LAST 61^ 26,2374 3 5065 1 WAKEP62" CA PRI013 — 

LAST 707 2b*?31^ 0 5134 1 TC NOVAC"— 

LAST TS^ E6TT65T EBANK= AOG 

LAST 794 26.2T76 02405 1 2CADR P63 

26.2377 54066 0 

LTTST 721 26,2400 0 5224 1 — Ttr TASKOVER 


A 021 8 ■ 

A02T 9 — - 

A0220 ■” ~ 

A0221 

“ 11 ZZZ ZBVZmr 5'2T3TT) PFZTT 

0223 PEE 15 LAST 777 26,2402 00053 T: 

0224 REE 1 25,24TI3 53576 0 

“TT2T5 TEF I 26,2404 20376 1 

AV2ZB “ 


SSE 



GHTO 

QPRET 

FNHFXIT 


FACH 2 SEC. CALCUL-ATE <;IM 8 AL ANGLES FOR ENTRY CON- 

HOL D T F R E O R I FN T ATION V T E ^^ M AOE - 
PRSSFNT RN, VN. COHE HE^E FROM C*»/°GSE ANO ALSO 

KFPLER PHASE OF FNTRY. 

Ttm RQtfTtNE 


AT 

IN 




GOES OTRECTLY W FNTRY GUIOANCE EXIT 
THAT ones ENTRY DISPLAY .GRP S. 

RED C D U VALUES 




N22 DISPLAY. 




ITA'r: P-V'T STOR 'D 3 nr a\.^;C »Pnn'i-'AM CIIMANC 


R'Y NASA 7a7rnT-0 51 


10:23 — rrrrs ^ — rHouRtg . 043 — p age t^5 


P(ST-’='67 


USE’^’S PAGE NO. 


E6 S3 


P0227 P63 

R0223 PROGRAM- 


R0210 MG RY* 

R0231 MOn no: 1 

R 0 2 73 ^OT)' M iT: 2 

P 0235 '^UNCTIOM- 

R0236 
R02 3T 

ROR^vn 

P0241 CALLING SEQUEr’CF- 
R024R EXIT- ' 

P0243 SimPniJTINE CMAS- 


P53 

“0 MAP. 13, 196^ ___= 

R. HIRSCHKOP 

MOT) 3Y: m BAIRNSFATHER OATR: 22 JTM 67 RESTARTS. 

’wrr 3Y3 PR'"BAr^M$hAIHt-P TTATF? — TZP JUL 67 'REVISED RESTARTS — 

1) TO TNITTALI/^ the entry equations ' 

2) TO CONTINUE TO HOLD THE CM TO THE CORRECT ATTITUDE WITH RESPECT TO THE ATMOSPHERE FOR 
THFUNSE! OF ENTRY DtCbLPRA ! lUN. KDll'ANGLE IS LIFT UP/DOWN AS SP^CTETED BY^FTEAirSUP^. 

3) TO STNSE .05 G 
OtRECTLY FROM P62 

TO “FNDOF JOB — - 

NEWMODEX • GOOSPR 


D7T+ 

02'V5 

02m7> 

A0?'f7 

0?'fP 


FLHf I — COUNTS STZ-PBT- 

REF 8 LAST 79? 26,2405 0 535'^ 0 .P63 ‘ TC NEWMODPX 

0007TT' 


PEE 1 26,?40T 3 2430 I CA ENTCAOP 


ARRIVE WITH FRANK = AOG 


CONTINUE AT STAPTENT AFTER CM/POSE . 


A 0240 — ’ — AT FNO O F ST A RTENT , CHA N GE A D O RERS TN~G0T<3A130R 

A0230' TO CONTINUE AT SCALEPOP THEREAFTER. 


025r O'" LAST 792 ?oT24T0 5^ *724 0 TS POSFXTT 


025P ^EF 1 26,24tT 3 2427 1 CA V06N64 G VI R TO SPLSH 

A~a 2r 5 3 ' “ yxx . xx G XXXX XvT-PS XXXX . X NM 

0254 PTF 3 LAST 793 26*2412 55*263 0 TS ENTPYVN FOR DISPLAY CALL IN OVFPNOUT. 

”117543 TFT 05 LTTST 26, P413 4 501T 0 tTS' ~TTNr rNTTA^-^FT AT TS' LEFT AT -4- 1 BY OA:P. THE 

02*^42 PEI 2 LAST 793 26, 2414 55*727 0 IS P63FLAG -I ASSURES THAT EXO-ATM DAP WILL NOT 

A02543 CALL P63 OUT OF SEQUENCE IN P66 . 


02545 REF 78 LAST 793 26,2415 0 5412 0 TC PHASCHNG THIS IS REQUIRED TO PRESERVE CLEANDSP 

02546 26*3416 00004 0 OCT 00004 RETURN IN EVENT OF AN EXTENDED VERB.. 


02547 PEE 22'^ LAST 7^3 ?6,?4L7 0 4662 I TC BANKCALL FLUSH ‘N??* DISPLAY, IF ON. (OMIT 

02548 REF 8 LAST 781 26,7420 ZOTOM 1 CAOR CLEANDSP DISPLAY DURING 'STAPTENT* PASS.) 


0255 HEF 7^9 LAST 295 2T*>421 TI 5412 0 P63.1 TC PHASCHNG 

0256 26,2432 00004 0 OCT 00004 DISABLE. DISPLAY RESTARTED VIA ENTRY. 


0257 PEE 92 LAST T9tT 26* 2425 0 52W 0 TC END'^FJOB 


02'5'B 25,2 424 01 4*^4 — | V06N60 VN 0^0“' 

0259 26,3425 01475 0 V06N61 VN 0661 

0260 ?• , 2426 01477 1 V06N63 VN 0663 


^■P: ASSI-ViBLh RFVISlfON 0^5 



T. 

*A j 


ciOGHAM COM4f4CHb BY NASA ^02ITLi-(Jbl 


icrfz^APP, — mr7m — r 




L 


^ 61-067 


USPP'S PAGE NO. 


E6 S3 


0261 26Tr42rT 01 500" G V06N64 VN 0664 

0262 PEE 1 26»?430^^^52000 0 FMTCADR CAOR STARTENT 


0263 REF 6 LAST 294 TTriASl EHAW:= imTITT TO CARY OVER INTO ENTRY STEERING. 

0264 REF 1 ^6,2^31 03470 1 POSECADR ECAD*^ “CM/POSE — = 

0264 REE I 76 1 2432 T6TT67~T — 


AS^hHM:E”f<h VlSPrN"(J^ UVTGC LOMAmHE BY N A SA “Za?! 1 1 3-05 I IO ! ^B APR, 1,19 6* ? m n UBL E .043 PiXt^P T97 


t P61-P6T USER’S PAGE NO. 9 E6 S3 


P 0265 ■ PPUG R 

RTy266 “ WDD NO. - 
“RT>^"7 ^nn BY- 

^10263 ^' MT3D NO! 2 
R02691 mho NOt T 

Tl OTTTT'^ FUNOTTOW- 

R0272 

R02T4 

1^^2TE~~ 

R0278 

R0280 

'RTI2BT 

R0283 CaLLTNG SFOUcNtF 

R028A FXIT- 

1^UYB3 SUBROUTINF^CALLS 


'P A 4 

1 SFPT. 19, 1967 

■R". HIRSCHKfJP 


•TOD“HY: PR "BAIRMSFATH^P - DATFT 8 MAY 63 RFVISEO COMMFNTS FOR COLOSSUS — 

MOO BY; RR BAIRNSFATHFR DATE: 1 MAR *69 N7A 

■n nr START entry guidance at .OSG selecting roll A TTIT U D E, ' CONS T AN T DR AG LEVFL t~AW 

DRAG THRESHOID, KA V WHTCO ARE KEY^O TO THE .05G POINT.' 

Z. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS. 

37 rTER'Alh FOP Lio-CONTROL SOLOMON P6S IF V > '2700 0 ' FP S ANO T F AL TIT U DE R A TE"AND tTRAI? 

LEVETCONOITinNS ARE SATISFIED. ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE 


AS PREOICTEn TO WITHIN^TB NM OF OFSIRED RANGE 

T; SELECT FINAC PHASE PB7 IF NO UP-CONTROL 

BY RTR FROM REFNTRY CONTROL 
BACK TO 'REENTRY CONTROL 

NEWMOOEX 




V t > 



rrzm 

02R7 REF 1 
0288 


R02B9 THIS DISPLAY 


D70T P'EF 1 


0292 

REF 

O 

LAST 

7^5 

0293 





029 4 


1 

■ 


A CJZ^o 

0296 


-ZiT 

» 

LAS 1 

/V5 

0297 

F9F 

7 

LAST 

770 


26.2ABB BANK 26 

26,2000 SETLOC P60S1 

26,2 433 BANK 


IS CALLED EACH PASS THROUGH STEERING.- RESTART PROTECTION IS VIA STEEP^ING-I 


COUNT* tt/P54 


26,24^3 0-5354 0 P64 TC NtWMOOEX ENTER VTA RTB WHFN .05G IS EXCEEDED. 

76.2434 001 00 '0 MM 66 

26.2435 3 2440 0 CA V06N74 ROLLC VI D 

XXX. XX OEG XXXXX. FPS XXX. XX G 

26, P436 55 T ? 53 0 TS E N T R Y VN DT S P LA Y V I A OVE R NOU T . 


26,2437 O 6030 1 ' TC OANZIG ... ANO CONTINUE IN INITROLL ... 


0298 " — 26,2440 01512 0 V06N74 VN 0674 


A ^ E M 3 1> PE' VIS!' 0^^T^55"T«F^ 'TirnP'R TIG fOT C 1 M A MC Rtr B Y ' N A S A 2! 0 2 11 T 3 - 0 5 1 


10! 28 APR, Tt T'T59' ' TR OUB L E 


FTO T 7^8 


P02s9 

P0200 

R030 4 
R0306 

^Tnm 

R0300 

R0310 

*RO'TIT 


f^61-^67 


r^RGGaAM; 
MGH no: 
F’iNCTTTTKT; 


0 


CALLING SEQUENCE: 
EXIT: 

STJBl^ I TTr^F^CALLS: 


USER’S PAGE NO 


10 


E6 S3 


P6E 

Mnn 3Y1 RR BATONS FATHER nATE: 

Tn“CONTlNUE f-NIRY GUIOANCH. USING TH 


I'- 


irmATES 


A| 
P ) 


17 JAN 68 COLOSSUS GSOP ADDITION. 

UP-CONTROL PHASE TO STEER TO A CONTROLLFO'EXTT 
IF D < Q7 FPSSt GO TO P66 , 

IF ROOT NEG, ANO IF V < VL ♦500FPS. GO TO P67. 


n 

rv 


TR FRO^ REENTRY CONTROL 
BACK TO REENTRY CONTROL, OR TO 

■KITWYrjnrx 


NOUF JOR. 


031? 

03n 

031 4 


0315 

0316 
“03 IT 

0318 

031B 

03T0“ 

0370 

0371 
~037T 

0373 

0324 

0375 

0376 
A0377 


RFF 


REF 10 LAST 797 


REF 

RFF 

TEF 

REF 


3 


25 


R 

2 


LAST 

LAST 

LAST 

LAST 


794 

794 

79T 

216 


REF "2T TSST T09 


FFF~2TT? nrST TTZ 


opp 
n 

Rcr 


7 

I 

1 


LAST IIB 


26,7441 
75, 744? 


0 5T54 0 
00101 1 


P65 


76, *^443 
26*2444 

r?63 

26,7445 

?5,2446 
■267 7T4T 
76,7450 
26 72651 
26 , 2457 

26*2453 

26.2454 

26*2456 


3 5065 1 
0 5134 1 


r 


12457 
54062 

M J m r 

00554 
10035 
0 6006 


0 

1 


47131 
0 3 64 6 

5303 - 5 - 

52120 0 


0 

0 

T 

1 
0 
T 


0328 

REF 

54 

LAST 

745 

?6,2'i'j7 

a 5560 

1 

032P 

REF 

7 

L aST 

793 

26.7460 

00134 

1 

“AO 32 PI 








0330 

REF 

1 



26, 746 1 

3 2473 

0 

0 33 1 

REF 

22P 

LAST 

7^5 

26,2462 

0 4662 

1 

aT3T 

R HI* 

13 

L AST 

I F# 7 

25, 7463 

2105 7 

0 

0333 





7.S,?z,^4 

0 2461 

0 

0 334 





76*^465 

0 2470 

0 


P65. 1 


0335 

033 6 
A 0 3 3 7 

”0T3ir" 

033T 
AO 3 3^1 

034 0- 

A0341 


n cp 


LAST 703 


Z?r, 2465 
26*7467 




RFF 


43 - TTST - -703 
3 LAST 738 


76 ,2470 
76.747 1 


0 2232 0 

Tr“5545 ■ 
00134 } 


2 "LAFT 704 



0 7421 T 


COUNTS $$/P65 


TC 

MM 


NEWMODEX 

65 


CA 

TC 


PR I 01 3 
NOV AC 


2CA0R P65.1 


OCT 

oc r 


TTHFCmO 

00554 

10035 


SSP 


TC 

AORFS 

CA 

TC 

O r AOP 

TC 

TC 

TC 

TO 


TO 


TO 


RTB 

GOTOAODR 

UP CnN T RV 

R^FAZEIO 


rRlWNFLAG 

rfNTRYOSP 


V16N69 

BANKCALL 

O O FLAS H R 

-3 

+ 3 

-=5 


P6U3 


UPFLA O 


A ORES ENTRY OS P 


F 5- 3 ; 1 


ENTER VIA RTB WHEN RANGE < 25 N M OF 
TARGET. 


CHG REQU I RE O TO- PREVENT RE 
STARTING FLASHING OISPLAY TWICE. 
4.55 SPOT ANO SERVICER. HERE. 


CHANGE ENTRY MODE TO UPCONTRL. 


GO MERE TO REESTABL ISH ENTRY SEQUENCER 
AND CONTINUE AT UPCONTRL... 


ENTRYDSP = 070 BIT 13 FLAG 6 


ROLLC 

XXX.XX OEG 


DL (07) 
XXX.XX G 


VL 

XXXXX 


FP5 


NOOOFLAG IS SET.. 


EST. GRP 4 FOR DSPLAY ANO DO ENOOFJOB 
IF PROCEED, CONTINUE. 


ENTRYDSP = 920 QIT13 FLAG 6 




^ 4.S 


N06V6« VIA nvERNOUT. AS USED IN P64 


0 347 


'>r ,'>473 


VN 


U4105 1 V16N69 


1 66G 




AS';e*<' 8LE RFVISTriM 055 np KoC Pr* IG'-AM CHMAtJCHE BY NASA 20?1113-051 


TO‘:'28 APE. 1 , rR'OUBLE .043 PST7E T<rf 


P 6 l -'557 


PD ’’’47 

P 0 344 


7 "Z- 

4 * .S 


mn 

R 03 ^^ 

R 03 '-i^ 

'^' 0 T 5 Tj 

«Q ?31 

R035? 


03=^3 


0354 ' 

033 ^ 


PR 5 GRA 3 ^; ^ 

mdo '-jo: 0 

FXIMf’T l ONJ ■ 


OTUTTvTO 3 ^QTrFTgT 5 T 
FXTT: 

SUOFOUTINH calls: 


3 FF 


1 


REF' TI TT^ST TOE 


USER’S c*AGE Un. 11 


by: RP BATRNSFATHER DATE 

KEFR CM Ai rnUUE TTI TPI«^ TO THE 
BOIL COMMANOS UNTIl HR AO BUILDS “tTP 


17 JAN 6B COLOSSUS GSOP ADOITIONS 

r i VE V F LnCT T Y V E C T OR. EN T RY OU 
07+0.5 FPSS. 


RI3 FROM REENTRY CUNIWGL 
BACK TO REENTRV CONTROL* 

NEW MOO EX 


2 6 A 74 0“53r5zr-xr - P56 

26*2473 00152 1 


COUNTS $S/P66 


TC 

m 


MOO EX 


66 



E6 S3 



trr^FSs 


■ TJ356 ' 

IT 

T 

A03ST 


0350 

R - F 

A035F“ 


A O'’ SO 


A 0361 



L A ST' 


TIT." 2575 3 5052 0 


?^p.2477 0 2?03 0 


TC 


vn 6 N 22 


P66FNiJ 


no A 


TC 5 


TTFA 


XXX. XX OEG XXX. XX DEG XXX. XX DEG 
IN CASE came from P66. GO DISABLE GRP4 
AATir~S5 T ~PfY T RYD $ F TO tlQ -DISM AY VTA 
OVERNOUT. 

... AND CONTINUE AT KEP2 


^SSEffBLb HlbVlSTHN OSb Or~&GC C IMAMCHh By NAS^ 2!0Zill3-051 10 rz^ A PP > rvT^ '? T ROUBLE .043 P AG E Bt)0 


L P61-P67 ~ ~ - - ^ USER'S PftGE NO. IZ E6 S3 


P036? P67 

RT)'T6T 
R0 3A4 
R0365 
“R753'^^ 

RCr3^3 

R03S9 

“^ROITO 


PR1TGR^Z\M-- 

MGO NO.- “ ■ ~ 

MOn 3Y- 

FUNCTTTTNP^ 

CALLTNO Sf^QUENCE- 
FXTT- 


sruFTirri JT fn^^/alls- 


fttt 


0 


TF\R. lf>, 1967 

TITirSCHKno 


TH terminate steering WHEN THE XM VELOCITY 


TH = 1000 



TO POOH 
Gin LASH 


^0371 


THrS“DTSPLAY IS C ACTEIT'EACH PASS THRTrOOR STHERTNG. 



YTA 



03^3 


0374 

037T 

■”0317r 

A0377 

0373 


0370 
0330 ■ 

-iq-p 

03 31 
03^2 


0333 


o 


EF 


REF 

!?-=T 


1 


^FT 


49 

A. 


6 LAST 


LAST 

LAST 


RFF 12 t AST 7^9 


793 


7^3 


i -> 


REF 80 LAST 796 


8 LAST 797 


26 , 2500 
21S, 7 5 01 

■Z6T?^^2 


26 , 230 A 
2o , 23t)5 


27 * 2 50 6 
,'>507 


0 5354 O 
00103 0 
3 ■ 251 T TT 


0 5546 0 
-00 134 1 


0 5412 0 
00004 0 


26,2510 0 6020 1 


COUNT* c$/P67 


P67 


2^,'>503 55*263 0 P66EN0 


TC 

MM 

cat 

TS 


AORES 


KILLO^'PA TC 

nCT 


TC 


NFWMODEX 

67 

V06N66 

FNTRYVN 


U9FLAG 

ENTRYDSP 


PMASCHNG 

00004 


OANZIG 


FNTER VTA RTS 


XXX. XX OFG XXXX.X NM 
DISPLAY VIA OVFRNOUT. 


XXXX.X NY 


(IN CASE CAME FROM P65. FNTRY DISPLAY 
WILL FLUSH FLASHING DISP. IF STTLL ON) 

LAG 6 ^ — 



DISABLE GRP4, IN CASE CAME FROM HUNTFST. 
(COME TO KILLGRP4 VIA RTB»PET TO CALLER) 


. .. ANO CONTTNUF AT PRF0irT3 


03 34 




t / 


DT 50 r 1 V 06 N 6 a ‘ “TTAT 


06 66 


0335 

OTBS 

0337 



T 


o 


6 , ■-■ 5 1 2 
25,7009 

26, >512 


RANK 


RANK 


26 


OTT^ 

A03B9 


0 3 5 

OO’r/' 

0 39^- 
039^ 
06 90 
04 Ui 


T7 c p 


“76 ,7 517 


0390 

PFF 

230 

LAST 

7 q O, 

* 7 v' 

26, 251.3 

0 

46 

0391 

■* 


last 

793 

“2^, 



03 92 





26 • 2 515 

r) 

25 

0393 





26 ,2516 

0 

2 5 

0394 

^ EF 

2 

“LTrrr- 

21 S 

26,2517 

0 

2 5 

03^5 

REF- 

27 

LAST 

*3 o 

P6 ,2520 


-6-2 


1 

0 

1 
1 


14 1 


c r 
' ' ' _ * 

c c 


1 

2 


LAST SOP 


■:> f 


1 


7 6, 702 1 
' 5 ,2522 

26,2-52 3 
2 T ~ , ~ ^7 3"4 
26 , 
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OtOAD 
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290KFT 

OLOAU 
L UN ENT 

r/RTN'tj 


CALLCHN CALL 



OLGAO CALL 



C ALCTFF 


CAtl: 


TFF/TPIG 


C At r 


F ISHCALC 


CAtt 

F^SALT 

CALCTFf 


OCOMP 

STORF TTFl 


STCALL TTE 


TFF/TR IG 


tTtt-t 


CALL 


FtSHCALC 


CALL 


V^^CAt e 


n T SPTARG 




01 SPTARG 


STCALl RTGO 
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TE RO B Y TARGE T N O 


ESTABLISH Mij FOP ORBITAL ENTRIES 


-FTtn "VTUE A R ^r A 3i^TTH 



ST GUE S S AT 



^ A - f nttS^ 1-29> 


SAVES MPAC' IN RTEPN (180) 


CALC SOEl F / 2 , COEtF/2 

RETURN WITH S(THET^) IN MPAC 


FI S CHER RADIUS -f^29i- 
ANS IN NFAC ANO IH ERAOM. 


SAVES MPAC I-N RTERM (18D> 


NEGATIVE AS IN COUNTDOWN. 

DECR TTE FROM BASE TTEl. (RESTART) 

ONtlST AN 3- 0SK V W ilt t)3E- TTE-i 

LET MISS CONTRl OECR BY ELAPSEO TIME 
TTE- TIMf from now TO EMSALT +FISCHER 


SlT3tETA) IN MPAC ON RETURN IMG 
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I 
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LAST 6AT 


?F , 2TI 0 


5 5 0 ^ r 0 


VGAi^LC 


D TTST 26*2 711 r750S'T 

A 0654 

0655 26* 7712 452 65 1 

“ObFS RTF T ““ 76* ^^13 15027 0 

0657 26,2714 00001 0 

0653 P5F 5 LAST 281 26*2T15 17T75 1 


UWP MPAC = GAWA ~ 

- c*DtO HAS VGAM. 
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— VF'^SCON -HS 0 IBO/PT (-14) _= 

0 VGAM FROM «>nL0. 

stool vrn - predicted velocity at emsalt. 


A 06 5 0 
A 0660 


gamma and VGAM AT 30OK FT ARE REOUIREO BY GMAX 
ALGORITHM. 


0561 RTF 5 LAST 609 T6*:^7T6 02241 1 ERAOM 

A 0662 

D'665 __ 76*2717 ^7615 0 — = — 

0664 - 1 26*2720 06462 1 300KFT 

0635 PFF 1 2er*2721 34023 1 “ STCALL RTE^M 


EARTH RADIUS FROM GETERAD (-29) M 

= PISCHER RADIUS (-29) 


M (-29) 
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1 1 

0 6 ■ ■ 0 


— 51015 

t — 
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TFF/TR IG 


EISHCALC 


P FF 
OFF 


2 

6 


LAST 

LAST 


810 

308 


2b, 7761 

2 f 76 2 
76, 7763 
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77113-ir 
42770 1 
7 73 -5~ 4 -~0 
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(-28FNR) 


C • 



FtTR 


( 20 ) 
N O W - F 


XCH POL+0, LEAVING VGAM 
VGAM to ‘^OL M/CS E: ( 
( 171 


7> 


M: (18) 

M 0 > 

OUTPUT. 
M: (-2) 



RTE^w VGAM/RTMIJ 

RTERM H 

LC P =H.H/MU H 


E: (-19+NR) 
*=; (-79+NR) 

E 1 ( - 38 + 2 NR ) 

El (-19+NR ) 
Ei(-19+NR) 


Ml (-18+NR> 
Ml (-27+NR) 
M 7 t-‘ 36 M- 7 NR ) 
Ml (-18+NR ) 
Ml (-18 + NR) 


PUSH UP OFN 
USE OOV OVf t AS L 1 - ^ t TE Rr i-tOtlS t < 1 .61 


CALLER MUST SUPPLY OWN SIGN 


A08n 


27W 


77HS 




p ■ r»FVTSinNr”-03'^ nT " tgu progi^am <"jMANCH{r "Ry NAs^ 2o?irr'-^-osi 


id: ^'B AP^* rrPTFT rROUBlt: . 0^3 



R 0877 

“RTT371T 

ROBT^ 

ROSRO 

■R 0 s 77 

R08 8'+ 
R 0 R 75 


R OR 87 
ROB 37 




12 

11 

iU 

9 

8 

7 


j 

c 


R0801 

■ROF^" 

1707-R5~ 

R08T6' 

“TORtit- 


’ 08 33 
7 0377' 
R09 00 
^0971 

"RDRTTT- 

R0903 
^090^ 
RTJ905“ 
R0907 
R090^^ 
“TOD 


R 09X7 
R 0 91 4 


09 ? 3 
09?6 


09?^’ 

099^- 


7Sl-^6 


USER’S PAGE NO. 21 


E 6 S 3 


SUBPTUfTTUE NA'FE: 

MOO DO: 0 


rPF/TPTTT 


(USED BY S61.RT 


trATE ^—01.17.67 

LOG SECTinu; P 61 -P 67 


Xf 


i k 



' 7R""B"A I'RNISTATRFR 

M'OD^Nn: 1 MOD BY: 

MOD' MO: 2 ' MTin -iXY: 

EUMCTin^rAi 


RP BAIRNSEATHEP 
PR BA TR NS FATHER 


DATE; 

DATE: 


14 APR B 7 
21 MAR 68 


ACCEPT OIEEERENT 

USED “BT ENTRY DISPLAY TO CALCtTL ATE STNC THETA ), COStT 


EARTH/ MOON SCALE 



POL BY TEE SUBROUTINES. THE EONS ARE 

COSfTHPTA) = 1-2 ABS(ARG) /(RN RTERM (1+XJ 

2 — - 


) 


SrmTHETA) = SGNtARGI SQRT( 1-COS (TI-IETA) )' 

WHFTF THETA = TRANSFER: A Nut E 

AITO ARG = P / ABSC7) _ 

APG = (P / ALFA) SRN(Q1 + P 1/Z) 

AND ARG HAS 7"EN AEETXEn viTH THE SIGN OF SIN(THFTA>. 

CAllTNG SFQUETrCE: CTTCt — 

TEE /TRIG “ — “ 

PIJSHLOC AT PDL+Ot ARBTTPA^T IFNOT EO 140 

CTYPTCT'TJTTSITrrTfTTTr-— — — — — ’ — 



IF ALFA I 7 


G 


NON^ 

RVO 


5 U 3 POUTINES CALL-D: 

TPIF^TAL ~FX IT MOOES: 

ALAR^-IS: NONE 

output: C(’^AC) = .5 TtNt THETA*) 


COELF 77 "= 


.5 XTS'f THETA 7 
PU 5 HL 0 C at POI +0 


flN POL 140 r 


^P A S A RL E I N I T I AL I Z A T I ON p - OU I RE D : 




TFFX 


TFETEM“ R : 

— MT 


iwre — 



1091 '^ 

OEBR I S 

m 

m 

0917 ? 



09173 

F.PF - 

1 

0 '9 r ■' 



0917 “ 



091 ^ 

R EF 

1 

0920 



09. ?1 

RXE 

..A. ^ -f— . 


0927 

REE 

3 

\r^ 1 0 

092 4 




(-83+2 MR ) 
(-58+7NR } 
NPTERM E: (-20-fNR) 

( -27+NR ) 

( -2 tI+m ) 

T-7TXNPT 


- L EF T B Y CALCTFF OIT t AlCTPFR 

ARG LEFT BY CALXTFF OR CALCTPER 

'^fz ARG = I CP ZZ SGN(OELF) OP ARG = LCP 7 ALFA SGN(OELF) 

N NnRRTT^GTH OF TERMINAL 



ALCTFF - OR C A LCT P ER 


Y : 


NRYAG 


E : 

Y !'■ 

COElf/7 




JiORM LENGTH OF PRESENT POSITION 


LEFT 8Y TFFCONIC 


,2671 
27,2000 
2 7 . 2 6 ? 1 
,2631 


7 0 5 48 



BAN K 
SETLOC P60S5 
BANK 
OLOAD 


LAST BAA- 

LAST TT 4 


tirST STTT 


f7 c-p 


fy C C 

r, f- 


orsT 

LAST 



812 


2 7 rP 6 3 2 
27 . 76 37 
2 7 , 2 6^4 
27t^75 
77 . 26 3 6 
"77 ,263 7 
27.2640 
27,7541 
, 26 4 2 
^ 7.2643 


22 , '>r,44 


OOOA3 tr 
41 2iT^ 1“ 


OAf) 



TOO/fX 

55206 


000 4^ 
44 2 4 6 

00017 

57616 


1 

O 

■r 

0 

1 

rr 

1 

1 


DMP 


ABS~ 


S TOR E 
OSO 


TFFX 

OMR 

— HI OPHALF 
NRM^G 
BDOV 

■ MR T ERT- 
TFFTEW 

BOSU 

HIOPHAL P 
COELF/ 2 
DCOMP 


RMAX M 


RTER -W M 


F; (-29+NR) M: (-27+NR) 


2 D^tYR") 



P Z^O OR P/ALFA 
THE SIGN IS FOR SOEXFii 


“TtRf - 77 ♦TtR ) 
E: (-59+2NR) R: ( -5 5-I-2NR ) 


.5 COS (THETA) 

KEEP HONEST FOR SORT. 




• -m 


V ■ f 


* 

I 


• « ♦ 
s 




V ‘ c ■ 

* / ■ r 


M i « i I j> 


» • . 


'-I 


* . ■* 


*9^ 


"*fr 


— irt^ i.» 




gap: ASSCmSL^ ftCVT^ilOM 05'=^ OF AT^’TTrnGRTS^^^TTTM ANCHt HY NASA 2(T2l 1 i ’i-Ob 1 


10:2B IIPR* 1 ,1969 T 



XPf 3 ‘ 



T 


P61-P67 


ItSfR^S PAGE NO. 28 


€6 S 3 


Qojo '■27V2(S^^5 T52fT3^ 0 CTAO SORT ™ - — — 

0931 RRF 1 77,2646 1S325 1 HTnPl/4 — 

Z7T7647 435 66 0 UUNPIHIG SIGN RVO ' “ 

0933 REF 2“ LAS;T““ 315 27,7650 00045 TT” "TFFTEM AFFIX SIGN(0FLF/2> ““ 

A0934 RFTURN WITH .5 SINITHETA) IN MPAC 


A0935 ■ ■■ — ^ — 1^^^ — j5 


~ 0034 27,7551 77620 0 OISPTARG STO CfRIPACl sr- T rgO 

“ 0937 R^F 4 X. AST” ”805 77 , “255 2 03 3 73 0 ” 60GF74R ET — 

— 27r2653 45205 t DMP OStJ ” 

" — QTjzro REF 1 "77,7654 ” 15003 0 ^ KTFTAl 

0944 7EF 4 tnAST 303“^2T,7 65 5 03733 O ' “ “TTFl ' 

””■ 0945 ^EF 6 LAST 204 7772656 37606 0 STCALL OTFAROT 

” — 0044 REF 2 CAST 204 27,2657 46725 0 FARR 0X2 

0947 — ' ■ 2773660 77624 1 “CALL — = 

“ 0943 REF 2 LAST 808 27,2651 56664 O “ V^CALC 

2-7 , 2667 TT65m GOTO — — — 

“ 0950 REF 5 LAST P16“ 2 7,2663- 03373 tl 60GENRET 

0951 27,2664 50375 0 VRCALC VLOAD DOf 

0957 REF "2 LAST -"3T2 27,7565 03542 1 ORU — — 

0953 — “REF 3 CAST 294 77,2666 03474 0 RrT— ' 

0954 — ■ “^■ —'277 2667 65517 1— SL2 AC OS — 

ff755 2779 370 7T5r6~0 R370 


-R 0957 END OF PROGRAM $ 61. ”2 


12 
1 1 
10 
9 
8 
7 
6 
5 
4 

3 

2 



’’ll 


AS^'EW'BLTITEVIsrO’N O'") 


F Ai'U: JROGMAM BY NASA 20^1113-051 


10528 APR, 1 tl969 TROUBLE .04^ 


arr 


L 


P6l-r>67 


USETnT“PAGE NO* 2 9 


TOV 57 > 
R 0 95 

■ TT 5 wr 
'R579'61 
P 0952 
17007.4^ 
R 0 9 (S 5 
P 0967 


RO^yn 


TCTOTT 
P n 972 
R 0973 


20974 

R0976 


R0977 

R0973 

20777 

R OOB O 
7 


PROGPAM OESCPTPTinO S62.'^' OATP 10JAN67 

TfTUIT~7n~I LUO SFri TTJN ■'9 6'0-767' 

3Y 77tOIN 

vnn no: 2 

Wm N Hl 3 


MOD 3Y : 
MHO 375 


RP BATRNSFATHHR 
7Tr“9;\ IKNShATHFR 


oath: 15 MAY 67 
DATE 5 17 JAN 6B 


CHANGFO TO REF COORDS. 

l»PTtrE7~ 



FUNCTIONAL DFSCPTPTICN 

COMPUTE DFSIRFD GIMBOL ANGLES FOR ENTRY ATTlTUDf^ 

-j ME HOLLOWING IRAJFCTTTRY U' 1 A<> 1 5 ' AV A TTABLE TN MEMORY AND IS CllMPUTFO EACH 2 SFCONOS BY 

CnOPOTVATFS (V = VF1.0CITY 7FtATtVF TCT^ARTH) : 



TTXT 

UYA 

U 7 A 


-ijTJTTrVT 

VOUT ( V'^'P ) 
UXA7UYA 


F6 S3 


BODY TRIAH FOR TRIMP^FO FLIGHT WITH RESPECT TO THE RELATIVE VELOCITY VECTOR* USING 
POLL CPMOA^to AMO TRIM AMOTF OF ATTACK: 


UXn = UNT T ( UYU^tiX A ) S I N(7\LF ATR I M ) + UXA COS ( AL FATR IH I 

tjYO = UY" COSfROLLt:) + U7A STNIPOLLCJ 
TTTD ■ = ■ UXO”' 7 1 JYTT 


US E THE D F S T 7 F i 5 H j tt N RF F^R'ENCF' C f I OR OS ) AN 0 R F F S M M A T TO CALL 
IN 25*X IN mpaC* f2 AND THFTAO. _____ 


CALCGA 


AND OBTAIN GIHBAL ANGLES 


R 0973 
R 0024 
1P09P5 
P.0956 
2 0927 

2 0922 
2 


209^1 
20997 
2 09 9r3- 

2 09^4 
2099 6 
20997 
2 0 5 

20909 
21000 


27005 
K 1002 
71003' 


1 on A 

TOOS- 

1006- 


CALLINO SEQUENCF 
T— 77077“ 

LFl ^ 


5 67. 




iPMAL ^XTT MrjtrF 


FCTLY FROM CALCGA. 


SUaonUTIMES CAtLED 
^ CALCGA 

ARM 07 ^A3T}7T MOOES ” 

NONE 

ERASABLE INITIALIZATION fhouTREO 

■ 0 L tc* TTOrC COMM AT) D 

ALEAPAD SP TS*e- /120 
UXA/2 REF C7U^'0S 

TIYA/2 2FF ■ COOFOS 

UZA/2 REE C7>PnS 

OUTPUT — 


' O P I t s rOMP -AT 1 REV 
LEFT BY RAO LOAD 
LEFT BY CM/POSE 

LEFT BY CMA PtT^ — 

LEFT 8 Y CM /POSE 


ALEATRfM IS NEGATIVE 



G T M3AL WOOL F S — (0* T * V) — 2:S COM P TR tt l* T*7tYl~B D ^ 


DEB9 T S 


0T’“ MP ^ OPRF-t , PUSUt. EST 


n 


to ,2 37 6 
1 0 *2000 
TO* 72 76 


BANK 10 
SFTL9C Pf^ a SA 


BANK 






Of- PRnG'UM CHMAMCHb BY N4SA 20 2 i i i 


io:z8'”AP'^. — rrrwm — frouble .041 pthte btb 


1015 

1016 
lai 7 

TOIO 
10 ] ^ 
“iirrj 

AlOZl 

10?^ 

“r073 

107^-f- 


P61 -'^67 


USER'S PAGE NO. 30 


E6 S3 











1 0 OT 

REF 

1 



_ - ^ COUNT* 

S T / S 6 ? . 3 












low 


— TTTTTTTS 

6/201 

~xr 

S62. 3 5FTW“ 

S L 0 A D “ 



1000 


TO , zm 

00001 

o 


0 



1010 

““RFF 

2 LAST i' V 3 1 ' ) t 2 4 0 0 

03017 

1 


A L F A P A D 

ALF^Tf^I^ / 1 80 ♦ 

aLiA is neg# 

103.1“ 


10 , 2 40 i 

4 1 5 4 y 

L 

SRT 

p U S H 


r% r\ i /Ik 

1012 


10, 7407 

6 53 46 

0 

A 

COS 

POOL 

4P-% 1^ i 

XCH P^L» CnS TO 

PulO 

101^ 


10*7403 

— ncr moTT" rrr-a in nnnr 

o53 56 

• rT':t-jTc.- 

1 

TT 

SIN 

POOL 

p nt r r ••" 

SIN TO PDL2 

■ ■" .1 ^ ’ ii ■ ■ - ■ 


2 TAST 11 R 


TO, '’^05 
lCrt2A06 
TTTTTWT 



RFF 


LAST RIT^ 


TT 


EF 


7 C7151 TTR 


1 0 f 7 A^ID 

10 .7 41 1 

l'),7 412 


0 

CHS 

1 


PUUL 


VXSG“ 

UYA/2 


REF COORDS 


P USH VECT O R I N T O PHt ' ^T ^ 


53361 0 
03556 T 


VXSC 


R OL L C 
VAD 

ir z 'A/ z 


REF COORDS 


VECTOR FROM POLA* 9 


IT 


LTS^T ^67 




riVST — TTP- 


1076" 
A 1077 
A1077 

10 ?° 
1030 
A 1031 
1037 
1033 


10*2415 

in';"2'415‘ 

17^77417 


777 77 0 
07777^ 


76435 1 
03542 1 


VSLl 

'STOR^ 

VXV 


- uro 


RF - f CnO ROS 


6 5761 7> 


VXSC 


VSLl 

tTXA/2 

POOL 


R- EF - CnUR OS- 


SIN TRin FROM POL 2 
XCH P fn0"~FtrR ~ CO $ ^ - R t^ 


LAST BIB 


107747 0 

^ ' f 


53361 0 
0 35 47 1 


VXSC 


van 

UXA/? 


RFF COORDS 


RFF 


LAST 7^74 


10.2402 

1077073- 


7 7777 O 
077T0”T 


VSLl 

STORF 


XNR 


X SC AXIS (.5 UNIT) 


REF COORDS 


1 004 





10,7424 

76435 

1 

103T 

RFF 

6 

LAST 

818 

10 ,742 5 

0 Z T 

1 

^ ■ TTTvr 

3 h F 

6 

L AST 

m -Jk. Jr\. 

703 

10 , 7426 

26730 


103 T 

■ —p-pR- 

33 

LAST 

SO 4 

10,2477 

0 1 7 ? o 

1 

1 033' 



33 

LAST 

774 

10*2430 

26677 


1TTT°“ 

RIFF 

34 

LAST 

■ ■ 3TB 

l ,2431 

01744 

1 

10 40 

- -przf 

4 

LAST 

443 

10.7437 

26700 

1 

1041^ 

P^F 

35 

LAST 

818 

10,2 45 3 

01 7F2 

0 

m 

■ rOTZ 

^ FE 

T 

LAST 

44 

1007433? 

07730 

1 


VXV VSLl 

YNB 

S Tovr — rs m — ? s c in rff c t qq r- . - scal e o a -t -t ^ 

RFESNMAT 

STOVL XSM 

STOVL YSN 

REFSMNAT +12D 

■STORE — tsn 


12 
1 1 


1043 

— T 00+4 eE I 

- — 11345 0EE 3 LAST 7T4 

A 104 6 

A1047 


10*7435 52014 ‘O 

10 . 7 416 0 0260 0 

107 743? 47311 I 


GOT0 

CR Ht ELAG 

C“A1C(TA 


CA U SE CALCGA TO STOR E A N S I N TP ^rPFH 


CALCGA -WILL RETURN TO ORIGINAL CALLER 
VIA OPR E T WIT H - 2fS CO M P. AN6L ES- T N FREHr 


10 

i9 

8 


5 



3 

2 



f 


I 

t 

12 

1 1 

10 

9 

8 

7 

6 

3 

4 

’1 





•EVI^KiNJ ■ 0 ‘ 5 '^ HF ■Af;C P^ 0 f;!<^^“TTMANCHE BY' NA SA ' 2 n' 2 Tn 3 - 05 I 


iU2i>y AP^. i , J '^69 rPOUBte .043 PAGE BTT" 


T. 


SFH VICF^ZOT 


USER’S P At 3 e NO , 


ECr S3 


Rao^i 



^JATJ!- - pwnr AO*"^A DACCS* “STRTTCEF,. /W ERAGH G 


R 0007 


^nn MH. 00 


BY ^ 1 . HA MILTON TEC,T 2 , 1^66 


ROOOB FUNCTIONAL OFSCRI^TTON 

R TTCrCT? 'nrrr'RTTlJTTTvrF S OtSCKlHtn blew APCE UStO rcrXALCrjLATF VALUFS of rim, VMt AND GOT/? DURING ACCELERATED FL TGITT 

ROOOn THE SEVERAL RTiUTTNFS r:nHF»i^ISE A PACTAGT ATIO APE NOT KEANT TO 8E USED ~A"S“ SEP APATE SUBROUTINES. 


RUTOT" 

ROOIO" 


0 T^rFT?: AT ■" RTF F R E ME FT TO STTTTCFR OR AVER 

f^EAPACCS* SERVICER, AVFPAGF G, INTFREAH, 


AG'F ' G A RE UN OE RS TOn O TO R EEg R~ TO T HE E N TI R E' S E T HE R O UTINES INCLUDI NG 

SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW). 


R-OOIP PROGRAMS INI TTATING "SFEVTCFR ARP ftQUTRlD TP MAKE A W A TTt I ST “CA^LL FOP PTrEKEAn (CiR, TF trETrrEFT““Fm 'B-rBTB-rAS ) 

POOIA AT ? SECONDS BTEOPE THE fl^ST AVERAGE G tjPOATE IN ORDER TO I M T T I AL I ZE THE SEOt|FNCE“* WHICH WILL RECUR EVERY 

R0016 7 SECONDS FRON THAT r j nr« AS LONG AS AVEGFLAG REMAINS SET. 


POOIT THE USE OF ERASAeiE AVGfXIT ALLOWS VARlOtjS ROUTINES TO BE PERFORMED AS PART OF THF ♦'tORMAL CYCLE ( SFE 
ROni-^ fxplANATTON nf AVGFX TT BFtnw), 


7 0070 


DESC*=' I PT I nos OF I MOT VI OHAL ^nUT TNTS FTTl LCW. 


70071 PREREAD 


R 0 T )77 °TFVTOiJSLY EXTRARnC^TEO VALUES COPIED FROM RNl , VNT, AND PlPTTMEl INTO RN, VN, AND PTPTTM^ 

R 0074 LASTBIAS TOB SCHEDtJLED.^^^ ” 

R 007 S PIPS RTAn ANO rtFARED VIA PIPASR SimROUTIN^, — — 

— average g flag set o^rr ^ ^ 

R 007 T ^ DRIFT EL^G SET OFF. 

POORS VST ^LAG SET On, 

— ROORv — TNTTT ALTTATTON OF 1 ) THRUST ^nNTTOR" tnVMONT - “DVCNTR ' SET TO ONE". =___ = 

R 0031 2 ) TOTOL ACGUMULATEO DFtV VALtlE (DVTOTALJ - SET tq ZERO. 

R 0033 -) AXIS VECTOR (AXIS! - SET TO (. 5 , 0 , 0 ). 

7:0004 0 FOr T TT job SCHETJULTpr^ 

7007 "^ RFADACCS TASK CALtrEt) IN 2 SFCONDS. 


R0036 NOPMLIZE- 


P 003 T "" G nT /2 T N TTT AL TT Ff^ VIA CALCGPAV SURROtT TT N F- . - 


R 007 R' 

ODD 70 

R 0 OT-r 
R004R 

ROO^+A 


^ FAD ACCS 


F t^NMON FLAG DOT KR CAD ■-RrftUT INF IS PLRFORMFD’REPDRE PIPASR ZEROS THF ^TPA 

O NM ON T T O R L O ^ p ^S T NTTTATFD TO PROVTOE DOWNLINK TN F OP.MATTON BUR I NG "' P - NT - P - Yv — ™ 
f’fPS RFAtl AND Ct^ ARED BY PA SP SUBROUTINE . 

IF CM/nSTR'' IS ON, 'ENTRY V^pIABL^S TNTTTALIZ'^D AND SFTJTAG TASK CALLED. 


REGISTERS, AND THE 1/2 SFC 


I 

12 

1 I 

iO 

r 

8 

7 

6 

5 

4 

3 




■i j 


0T*>" rr“AGc pr nfruM coMANCHb i-iv nasa ^ 021113-051 


10228 APR 


1 1 1 ^ 6 ^ F ROUQL g >04 3 PAITF 820 


R00^^7 

R00'4r; 


SFRVTCFR2 0T 


ttSFR*5 RAGF MG. 


IF AVEP AGFG FLAG IJM' ^ 

IF AVFRAGFG FL^G OFF 
TERV rCF^ JOB SCHLDlJrtDT 


RFADACC5 CALLED TO RECYCLE IN 2 SECONDS. 

AV^FRAGF G EXIT (AVGFXTT) SET TO 2CA0R AVGFNP FOR FINAL PASS. 


EO S3 


ItSl CUNNbLIUR MU IBM TURNED ON.' 


RTTOF 7 '^TnqMNTTnF 


R0Cr83 


s s 


A SEOLFNCE OF TWFF PASSES TEmtiUGFl 
S'FC' IMTERVAIS. INT^RVITS ARE COUNT^ 


PTPCTRt 



FADA C CS 


”K0n5T OUIKRFAO 



R 00? 3 

Rocnscr 

"RTTT' 51“ 
ROOSP 
R 006 3 
■ROOAA""' 
P00S5“ 
R006 7 
“ROTIFT” 
P00F9 
R0070 


READS CUP^EOT PT'^S INTO X,YtZRIR8UF. ^EAOS OLD X,YfZPIP8UF INTO X,Y»70IDBUF. VALUES ARE SENT TO 
DOWN LI ST nrmiNG i:ntry. 

SFR V rCFR 

DELV VALUFS CHI-CKED TO DETECT RUNAWAY PI P - 

IP BAD 1) aLAPN sent. 

71 — C D’ ^ PE NSA T TON, — DVTOTAt: — ACC^ T^RttTrT T ON t — AMD DVNON BYPASSED. ' CON-fROt 

TRANSrERRFn TtT AVFPAGF G. 

P I PS eOP» PFNS-ATFD V I A 1 / p I P ^ SUSP OUT f . — ^ 

— — D V T DTAL I NCR c^ FN TE DBY ABSOLU T E VALU E OF DELV. “ 

THRUST MONITfTR ^VMON) PERFORWO UNLESS IDLE FLAG IS ON. 

CONTROL TRANS-^FPi^tT'ttl AV'cPA-GF G, 


R 0071 


DVMON 


R 00-^7 
FOOT-v 
■RCO ^5 

ROO’^6 

RO^TS 

R-OOTD 

ROOGl 

ROO^^ 


THRESHOL) VALUF (^’LAS^D IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK 
THRUST LPVFL. 

IF' THRIFT 1)' UttAGE OFF ROUTINE PERFTmrMFfn — = _________ 

STFERING FLAG TURNED ON AT FIRST DETECTION OF THRUST. 

1) CONTROL TPANSFERREn TO AVERAGE G. 


T HRITSI — 11 ^HN — F IR S T P ASS THROUGH W ONTTUP y CONTROL TRANSfE'RRED TO AVERAGE G. 

7) ON SUBSEQUENT PASSES. CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST 


HAS FAILED FOR 3 CONSECUTIVE PASSES. 


ROORA ENGINE'FAIL 


“RtTOfrS 

P OtrST 

' — RXnTTT 

ROO^-^O 


ENGFAILI TASK CALLED IN- S FCUNDS . TH f S NI LL RETURN CONTROL TO TIG-5 SO THAT THE- IGNITION 

■ SEQUENCE AY BE R^PrATEIA. 

E N GTt T OF 3 P7 ~ ^ 7 OR N T : tr; ^ ==— 

OAR SE--T UP" 


RODQD 


^ VPP AG 




GW: A.^SEN'HLF'f?EVI5IGN Obh ’If* ACC CD MANCHA- BY 


10 ! ?a 1,1969 


St^VTr^R207 


USPR^S PAG»5 


IKUIIBLE . 0^3 PWE BZT 


m. 3 EO S 3 


ROO'n:^ 

R0093 

RDa^6 

R 009R 


ROTOO 

ROlO? 

"llXtlTJ 

pnim 

R0103 


PNl, V^ar nn’Tiy? calculated via CAECRYG ROUTIPIC HY updating KN, YN \flTH delv and m averai^ed value 

GF GDT/?. 

TNTT'Wrr GnT}./;^_, PIPTIMLI CUPIEO (NTTy-R-NV VN"; 007/2 • PIPTIHE FHR RE-START PROTECTTOTT; 

CONTRHL TRANSFFP^^D TO ADDRESS ST EC lETHO BYUJSFP (DR BY REAOACCS f OR HAST PASS> IN AVGEXIT, 

L\ST P ASS ( A'/S^MD) 1 ) FREE FALL GYRO COMpPfvrS AT ION SET UP. ~ 

= TJ DRIFT FIA(; 1 URNED ON. __ _____ 

3 J STATE VECTOR TRANSFERRED VIA AVETONTD RDUTINE. 

DNNQNT TOR FL AG RESET. ^ 

b) V3 / FLAG RESET . 

6 r TEST CtTNNTCTOR GUTBT T TTESET . ““ ~ 

rr CONTROL TRANSFERPEO TD CANV 37 TO CONTINUE MM CHANGE ROUTINE (ROD).- 


ROTOD CALLING SEQUENCE 


ROTOD »^RER eat— CNTERL!) UIRLCTLY ^RDN TIG -30 VIA POS'^JUMP. 

ROin RPADACCS CALLED AS WAITLIST TASK. 


R0112 


P 0113 


SUBROUTINFS CALLED 


U'^’IL ITY RnUTTATT - PHASCHNTV“F 1 :AGUP FL AGDOWN NOVAC P IMQVAC WAITLIST ALARM NEWPHASF 2 PHSCHNG 


ROUE 


ot her ^ '^TPASR 'ITPT^A CALCGRAV CALCRVG AVETOMTO 


RTrrrc” noryai exit modes 


PQIT 7 


P 0 HE 

por2o 

R 0 ITT 

ROl?^ 
R DIES 


P 01 2 7 
R 0 1 P 

R 0 1 5 1 
ROl'^R 


MnOFJOR TASKTTVER CANV37 


AVGFXIT 


THIS. IS A D’JUBLE ^^RECTSION ERASABLE LOCATION 8 Y WHICH CONTROL IS TRANSFERRED AT THE END 
OF EADH CYCLE OF AVFPAGP G. 

T H F TCADF " O F A RO UTIN E TO 3 E P ER FO RM ED AT THAT 'TTME (E.G., STEERING EDUATIONS TO “BE P EB F OR HEO 
AT ? SECOND tNTRPVALS} MAY BE SET~BY THE USER INTO AVGFXIT, 

ALL SUCH ROUTr^’'-S SHfNJLO “RETURN TO SERVEXIT* WHICH IS THE NORMAL EXIT FROM AVFRAGF G. 


SERVFXIT - DOES A PHASE CHANGE FOP RESTART PROTECTION AND GOES TO ENDOfJOB. 

“ THR“ 2 CAnP OF SERVEXIT IS SET INTO AVGFXIT BY THE USER H NO OTHPR ROUTINE (SEE ABOVE). 


AVGENO - 


last p A“SS a V cR AG F“D EX T T S HE RE * 

FtNAt FXH TS Tfi DANV 37 , 


ASSTNG SPECIAL ROitTI-NE^ iSEE ABOVE UNDER READACCS). 
— f AVERAGE- G). 


12 

n 

10 

9 

8 

7 

6 


ROT 


: j 


RD 1 S E 

both 

ROl T B 

— R 0 1 ■ “ ’ 

- ROIA- 


'UfPtlT 


nVT^TAL( 2 ) 
BN ( 6 1 


VNTFrT 

GO T / B ( 6 I 
^’ ELV ( 6 ) 


TTPTIMRtR) -XP!PBUF(V) YPTPBUF< 2 ) ZP I ^BltF ( 2 ) 


P^FERENCC. CODR'D. 
prECP ' T I CE COORn. 
BE F E RT^JCE— CD 0 0 . 
S T ABl CO; 


SC AL*=D- AT 
SCAL'^D A 


; CAL ED AT 

A l ed a t 


2 ( + 29 ) M /e s- - 



?(+7)M/cs ^ 

?( + l^a’<‘E. 65 *^lD(-A)M/CS (KPfPl USED TO GET OV /2 AT 2 (+ 7 )) 


3 


I 

1 :^ 

f 

12 

1 1 

10 

9 

8 

7 

6 

5 

4 

3 


GAP 




OGS nF ”^ft,GC PRfJGRAM cnMANCHfc BY NA SA "ZO'ZI I ll-OTT 


10:;^y AMP 


TTTTfrT T’^nuRt’^ - .043 nVT^ B22 


L S?RVTCTP.?07 


USFR’S c>AGE NO. A EO S3 


R0142 DHLVPrF(6) "P.EFFP EMC H C OORT). ’ SCALED AT 2(4-TIM/C$ 



R0l^4 
”T?Tyi'4S 
R01^6 
P 0 1 47 


R n I'SO 
RQi 51 

FT)T57 

Pni54 


ONMONITOR FLAG SrTBY ENTRY TO SHOW PTPBUF VALUES RFQUTPED. 

IDLE FEW UN IF UVMiJN K! HP p YP’ASSFTJT “ ^ 

nVTHnUSH SET TH APFROPPIAT^ VALUF FfTR DVMON. ~ 

AVGFXTT STT TP OCADR OF PPirriMF, IF ANY, TO 3E PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE 

“Tf) R^UUFIE, AVGFXTT-SF1 — m SFRVHXTT. 

VALU-S NFETTFD 

pefsmmat 

UNITW - f^UlL UNIT VECTDR. — IN REFFRENCF COnRO., ■'OF EARTH S RnTATTONAL VECTOR 

PNl. VNl • PTPTP'cl - IN REFERFMCE COORO. ♦" CONS I STENT WITH TIME Pf EXECUTION OF PREREAO 

■ 


RXUG6 DEBRIS 


7 ? 015 T FENTRALS 

P 01 38 ^THER 

R 0139 

'RTyiTST " 

^0162 ^ 

PorsT~ 

“RTTIGE 
ROisr 
ROTS 3 

■ -- - 

ROITO 


'At"LT''Q — _ 

INTFRNAI - DVCNTRCl) PIPAGE! II PIPCTR(l) AVGEXIT(2) 

EXTFRNAL - TThMPiriJ ITFMPPIl) RUPTREGKlI TEMXllI TEMY(l) TEMZtlJ 

ISFnit * DERPTS 

RN1(6) VNt(6> CnTl/2 PtPTtNEU?) 

— TN - SF LOCA T T ON 5 OS^O OTS-BUFFFR STORAGE-fOR NEWLY CALCULATED VALUES 0*= RN* VN, GOT/ 2. 

AMO PTPTTBE TFJRING PERFORMANCE OF SERVTCFR ROUTINES; 

UOTTR- - half unit VECTOR RrEFEReNCF COORD, 

RYAG SCALED AT 2! +58) IN 36D. 

~~ PMAGSO SCALEfT A1 — 2(+"5S1 TN =— = 

(PF/BN^AOSO IN 32tr. 


OlBl 27.2671 

01 TP ^FF I "7,2000 

0173 3 7,2701 


BANK 27 
SETLOC SERVICES 

A A. A A A — i i 

BANK 


017 4 
POTTS 
ROl 77 


’ h E 


12 LAST R05 


■~T, I ^31 


EBANK= OVCNTR 


■sjETfr^Or 





DTTS 


COUN T 3 ? /- S F RV 


0135 BEE 2 LAST 301 37,2701 3 5073 0 PRERFAD CAF PRin2l CALLER MUST PROTECT PRERFAD 

OT R o r ef 26 LAST 7-^8 3-7,27 02 0 SrSTT TC N'JVAC — - — - - 

"■ 0137 PFF 6 LAST 304 ^3,1460 EBANK= NBDX 

- 0133 I - 37,2 700 03636 1 ZCADR LASTBIAS DO LAST GYRO COMPENSATION TN FREE FALL 

OT P-? n-^ 1 — ^T,270'4“ 1406? 1 ___ - 



AOl 




- A01T~ 
AGIO 3 A 

AOl *^3 5 


CALL-TO AND LA STB I AS ITSELF ARE NOT 

PROTECTED, RERCADA - C SET - S— 1 / P IP4 9T 

TO 2.0 SECS IN CASE LA5T6IAS LOST, 
(RFOUNOANT If LASTBIAS IS AOKI 


GAPl ASSEMBLE 0^^ OP AC^C COMANCHE BY NA'^A 20?in3-(>bl 


10:28 APk. rrTW9 f ROUBLE .043 PAG^ 


1 


S'ERVICERZCT 


Tv tP 


0190' 

RFF 


0191 

R EF 

27 

0103 

3 b F 

13 

0 1T3 


3 

01 03 



niQ-v 

PEF 

3 



37 

0 1 06 

REF 

1 9 

01 

REF 

2 

3noT- 

01 OB 

OEF 

35 


0179 

uzirn- 

0201 


OFF 


EF 


L AST 5TS 


Tim 2TT 

LAST 
LAST 
X71ST" 


LAST 

FAST 

LAST 

LAST 

LAST 

LAST 


TTTT 

6 3 6 

R04 

537 

573 

693 


LAST 794 


‘TTTTTTTK 
37, 2TTJT 
E7,TT31 
TT77TTTT 
37,2711 
37,3712 
TTTTTTT 

F 6,1561 
37,2'^! 4 
37T7TT5 




37,770 5~ 0 772 2 1 R EDO 5*3 1 “TC 


TirERXADl 


3 T6'5"r T 

0 5147 0 

f)3236 0 

76067 1 
3 5042 1 
(y 5245 1 


02744 1 
76066' "0 
4 5016 1 

0 4114 1 

U0005 1 

1 5324 0 


TTTF PRTG32 

TC FT NOV AC 

EBANK= DVCNT2 
2C ADR Nuk’^L I ZF 

CAF 2SECS 

TO WAITLIST 

FBAivyK= AOG 
2CA0R RE ADA CCS 


CS 

TC 

rcT 

TCF 


TWO 

NEWRHASE 

-5 

T A SKIVER 


UScR*S PAGE NO 


FT S3 


SET UR NORMLW^ JOB REQUIREO PRIOR TO 
FIRST AVERAGE G PASS 


0 73 2 
n2TTT 

070 '+ 


0 2042 

0204^ 


020 5 
0206 
TT2FT 


02 OB 


OTro" 

0711 
0212 
0 217 

0213 


, 4 



0225 


REE 

REF 


RFF 

OFF 

FTT 


l^EF 

■RTF 


RFf 

REF 

Trpi=“ 


96 

2 

73 

57 


16 



152 

5 

5 


LAST 

EAST 


\ AST 

L AS T 
LAST 

LAST 

XTTST 


TEF 17 LAST “773 


REF 


79 5 
79 


73 3 
763 
32 3 


EF 15 LAST 


70T 
8 23 


IT — LAST 
33 EAST 
18 I AST 


46 


LAST 


t 


tirsT 


73 ) 

6 35 
“373 


';Ff IS LAST 373 


37,2722 

3T’,"7T23 


0 0006 1 
72 070 0 


37,3724 0 3 254 1 


37.2725 

37.2726 


3 5017 1 
55*230 0 


37,3727 4 0075 1 

37,2 72 3“ 7 5017 0 
3T, 7731 26 075 1 


37,2732 

37 , 7 m 

3 7,^734 


3 4777 y 
7 0076 1 
54 076 1 


T7V2T^ 

37.2736 

37.2737 


T31Ttr3 
7 5012 
26 103 


r 

0 

1 


PREREAOl EXTEND 
— OX C H “ RU PTRF Gl 


TC 


CAF 

TS 


es 

N^ASK 

ADS 


!«ASX 

TS 


MASK 


37,2740 

3 5 0 ? \ 

r- r* ■ r C 

1 

1 


CAF 

TS 

aie 

37 , 27F1 

57 • 425 


3^6 2T42’ ■ 

551 423 

1 


TS 

3 7^2741 

0 “ 0070 


- 

TC 


PI PA SR 


PIPAGF 


FLAGWRDl 
R T T 1 



RTTSMAX 
F LAGW R D 2 ' 
FI A GW R 02 



7 \ U 

BITS 

FL AGWRD7 


0 V TETT A L 
OVTOTAL "H 


RUPTREGl 


CLEAR > RFAO PIPS LAST TIME IN FREE FALL 


SET UP PIFAilE FOR REREAOAC IN CAS^ A 

RESTART OCCURS BEFORE REAOACCS 


SET AV^G FLAG 


KNOCK OOWM DRIFT FLAG 



CLEAR OVTOTAL 


U'AP: 



GRAM Cn’^AVCHF"TrY NASA ^^0 21 1 1 3-n'5 1 


lOi'iH APK. rrrJFG rROUBlE •043 B2A 


L 


SFP VICFT 5 Pn 7 


tlGER^S PAGE NO 


E7 S3 


P 0227 ❖ sJt ic * S 5 T> ^ 

Q2?~ PFF 20 LAST 923 E6tl661 

' D 7'f 7 27 F~~~T~ ~ TATT' ~FZ3 TT^TT^ 0 32 ^^ 


R C ADACC S :^5jC5?e=?£5>:59f 

EBANK= AOG 

READACCS TC PIPASR 


02-'t3 RPF 17 LAST 769 37,7766 3“ S 077 7 PlPSOnWE CAF FIVF 

1574^ !5TF 77 “TTTST JW3 17,2 7<T'6 p 6 001 1 TS t 

0265 37.7767 6 0000 0 COM 

0263 'EF 3 LAST 535 37,^750 52 763 1 DXCH -PHASF5 


tr267^ 3EF 97 LAST 82T 37,2751 3 5017 I RFt)Tl5.5 CAF ONE SHOW PIPS HAVE BEEN READ 

026"’ =EF 3 LAST- 723 37.7762 55+730 0 TS PIPAG€-* 


D2 6 ^ 
0750 




EF 


36 

2 


LAST 

LAST 


323 

TO 


37, PT53 
37, 273 A 


3 5016 0 
55»227 0 


CA 

TS 


TWO SET PIPCTR FOR ONMINTOP 

PTPCTR AFTER ABOVE PHASCHNG 


" 0231 TFF 3 LAST BOO 3T.2753 '+ 0102 0 CS- CM/FLAGS 

0232 PFF 3A LAST 73*^ 3T,'>T*r6 7 5016 1 MASK B1T2 CM/OSTBY 

0233“ P-F' r 33 XAST “733 3Tr2T5T' 10 OOO 0 tTCS A 

023-^ PFF 2 LAST 213 3 7. P 7X0 0 3033 1 TC CHEKA VFG 


XZ33“ FTFT= 6 1A31 633 — “37,2T6T— A 12A6 1 

7723^ REF -”2" LAST 703 37,2762 35*055 T 

0230 3 7, 2 733 0“ 0006 T 

- 0261: — ' 3TFF“ ■ ZI — T TTSI 'ZZ^ TTm'ZA 3 ISeZ' T 
0252“ 2 LAST Ttl' 37,2735 53’ 370 0 

0263 PFF 2 LAST 111 TTfZTSG 3 166X0 

“026A R3F '7 TXST^TTT: 37 , 27'67 57’671 0 

02 55 3 7,2 770 0 0003 Z 

0236 ^FF 2 LAST m 3 T,?t71 3 1665 0 

^TF “2 LAST TTT 3 7,27T? 53*67X-Tr 

0253 ^F P LAST 111 X7,2T73 3 1366 0 

0730 ^FF ? LAST 111 37, '>773 57*674 0 

0270 TPX ^4 LAFT 82^ 37, 20 75 ? 0102 T 

0271 RTf 23 LAST 706 37,2^76 7 5004 1 

0277 : 37,2777 0 0006 1 

02 ~7 X 2^ r — - --^,1000 -1 X013 1 


TS TL3ASF6 

^EXTEND 

OCA “ATTG 

OXCH AOG/PTP 

CA AMO 

‘ XCH A M GY RTF 

FXTENO 

OCA roll /I 80 

n xc H R n trr x to 

CA BETA/IBO 

XCH BFTA/PTO 

— CA C M /F LAOS " ' 

MASK BTT12 

EXTEND 

8ZF IXPS-AYRtR 


FUR RESTARTS 
CONTINUE FOR ^NTRY OAP 


CM/OAPARM 930 6IT12 

DURING ENTRY, WHEN RCS OAP IS TNACTTVEt 
S AVE — Pi A S — EACH 0,5 SEC FOR TM-i 


0274 ref 1 37,3001 3 3066 1 

Cn»TF RTF 3 B nTST ^^23 XTTXOrrT 0 5245 1 

0276 PFF 2 LAST 116“” 66, 1533 

0277 PFF 1 37,300 3 030 67 0 

— 07 77 RTT* X ' R T ,3 ' nn :. ^ 76066 TT 

A027H ^ “ 

0279 OFF 9 LAST 433 37,3905 3 1 162 0 

TTZBO ^^FF 3 TTST — XTTX — 3 7 ,3003 57 * 533 ' O 

02B1~ REF 2 LAST 113 37, 300 7 53^33^ 1 


CA 0,5SEC 

XC WATTtrTX T 

EBANK^ XPIPBUF 
2CA0R QUIKRXAD 


NO NEED TO RESTART PROTECT THIS, 

CA nPLVX SAVE PIOAS AS READ (BUT NOT COMPENSATED) 

XCH XPTPBU F — — 

TS X’UOBUF 


02K7 

02 33 



V 

t . f 

'* PF 


X 

2 


9 


CAST 4X7 
LAST 113 
I.AST 113 


77 13010 

1 3 v l XI I 
37, ^012 


X 116 *+ O 

57*334 1 
55* 5X7 0 


CA — D * -LVY 

XCH XRLPBUE 

TS YOLOBHF 


GAP: assemble PFVTSIO^! Oo5 rip PKOr^PA*^ CT'-ianchE BY NASA 



T--G-ST 


ID : ZFITPT'", r7TT5D 


TrZf3 FTC1E 875 


SFPVI CrpZOT 


02B 

•TT 


y I 


4 

9 


LAST 

LAST 


12 
1 1 
10 
9 
8 
7 


02 PB 
02 TO 

0290 


TIFF 


"BFF 


REF 


18 LAST 
“4 “OrST 

1 


0292 
02^3 
112^ 
0 2D 4 


T2F 

RFf 

OIFF 


19 

22 

“Z 


LAST 

LAST 

t9VST 


UTTS 


S 


OD' 
0297 


■REF 

PFF 


ZD 

B 


LATT 

LAST 


0299 

(TTOZ 

0101 


REF 

PFF 


4 

71 


1 AST 
L A S T 


s u 


03D? 

moD 

0104 

OITT 

03 05 
010 7 


RTF 

REF 

REF 

FEF 


^^EF 


T LF 


0109 
DTOT" 

0110 
DITT 
0112 
0311 
0111 

0314 

on 9 

011 5’ 


r* 


:ef 


“Z5 

51 

185 

“D 

~21 

3 



LAST 


LAST 

nrsT 

LAST 

LAST 



REF 14 
REF 2 


RFF 




8 

'9 


OITT 
0 31 - 
0 J 19 


FFF 


417 

IIF 


B24 



B2 4 
BZ4 


TTDTT 


690 

824 


LAST 874 


TTTST FZl 


823 

B25 


821 


LAST 
L ASn F2D“ 
LAST 823 
LAST 217 



0120 


REF 



LAST 1 Sh 


1. AST ~ 701 

2 5 

41 

LAST 02^ 


37 . B 013 
37,1014 


3/. 30 IS 


1 1166 1 
57 » 535 0 
SS'S40 0 


CA 

XCH 

TS~ 


l‘^,1015 

17,T0TT 


1 5022 1 
55' /2F T" 


37,3020 3 3233 0 


1 7 , 1 02 1 
^6,1661 
3773DTZ 


0 57 45 1 


012 om 


TC WAITLIST 

FRANK= AOG 
7CADF SET JTAG 


37,1023 32066 0 


37,107^ 
37 ,3325 
37 • 3 02 6 


4 6214 1 

0 4114 1 
OODOl 0 


Trs“ 

TG 

OCT 


THFFT 

Nb WPH AS E 
1 


37 , '^027 
37,3030 
37,3 0 ir 
37 ,1032 


3 4362 1 
54 0 01 1 

O O OO " 0 

T63~ 


CAF 

TS 


nCTl7 

L 


nxcH 


-PHASF5 



3 7 ,3033 4 0075“T CHEKAV 

7 5017 0 

10 OOO 0 

0 3056 I 


MASK 



37 , 30 3T 
37,3'04F 
F6, , 1661 
37, 304 1 

3771047“ 


37,3043 

3T7107F 

-7.1431 

,17 ,3^45 
17,7-045' 


3 5042 1 
0 5245 1 


02744 I 
760'6'5' D 


TC 

CAF 

TC 

E8ANK 

2CA0P 



2SECS 



REAOACCS 


3 5002 

3 5147 


01104 1 


0 MAKESFRV CAF 

0 — — 

E3AMK 

A rsr^ 


P R I 020 
FT NOV AC 
f)VCNTR 
SERVICFR 


3 7r3t)4 7 
I T , 30 5 0 ' 
T7, 1051 


4 5015 1 
0 4114 1 
00005 1 


CS 

Ttr 


FOUR 

NFWPH - A^ F 


37 , 3052 
1 7 , F151 — 0 0006 1 
3 7 , 3 050*^ 0 5 o n t 






EXTEND 

WDP OS A L MOOT 


9*^,3055- 1 5324 O 


TASKOVF*^ 


NOSAVPIP CA 
TS 

CA 


del V ? 
7PTPBUF 
ZTTL DBlJF 

FIVE 

CM/GYMDT 

JTAGTTHE 


USER'S PAGE 


7 


E6 SI 


ACTIVATE CM/RCS 
IN JTAGTTME 


AFTER PIPlJP TO GO 


1.35 P 0 T F OR 



IF AVEG FLAG DOWN SET FINAL EXIT AVEG 


ESTABLISH SERVICER ROUTINE 


RESTART SERVICER AND REAOACCS 


TURN TEST CDNNECTOR DUTBTT ON 


END PREVIOUS REAOACCS WAITLIST TASK 


■* ’ 







• 








(TapI 

As5eM6LF ■Rr;VISION 

055 Tir-'A5C PROGRAM CHMANtHt BY NASA 20 2T 1 ' T- (JTI 

1U:ZB APP. 1,1969 

fRuUBLc *043 rAut t5^0 




1 t C C O • <* A C- 

NO. 3 E6 S3 

L 

SEPVICtR20T 

f 


vj ^ iM. UfE 



*■ 



OTZT 


3^,3036 0 0006 1 aV^GtTUT EXTEND 



0322 

PEF 1 

3r,3057 3 3063 1 DCA AVOUTtAD 



Dim 

■'TFF 2 LAST' 

TJB 07,3060 53'223 1 OXCH ftVGEXIT 



03 Z4 

FTEF T 

37,3361 1 3043“ I TCT WAKESERV 

9 







0325" 

(TFF rs rSST 

■BT5 E 7 4 1431 6BANK= uvCNT^ 



03 5 

1 

37;3062 03165 0 AVOUTCAIO 3CA0P AVOET^D 



0375 

REF 1 

37,3053“ 76067 1 







* 







































































4 
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* to 


















A s E L ■ b V 1 S 1 0^3" TTF ^t;f: COMAMCHfHY I 1 1 '^-0 5 1 


lO ’ ZB /\PR> r t 'T^' 6- 9 T P O IJBLP *04 '^ — B2T 


L 


R031^ 

R033^ 

^03^'7 


R033'^ 


R O^'Zi-Tr 
P 03 A 1 
P03^<2 

R0343 


RTRVTCER?OT 


tlSER*S PAGF MO. 


E6 53 


P03Z'^ ROUTINE NA^E: ONWITO^ 

R037P MOO BY BATRNSFATHER 30 ^PP 
?Ty33Tr^ MHO— 03 BY F15HER i ) E C r MB T'R"T'^T 
R:0331 mod 02 BY RYE SEPT T9 3 
R0332 

TO 3TR^ 


1 9-6 8 


RFOn ONMNITOR TO SAVE RIPS EACH 0.5 SEC FOPv TM, ENTRY 


MOO 01 BY KOSMALA 23 MAP 1967 
■MOT) OCT TPrOTGSTTALA 2f EEB 196 / 

FHNCTTONAL DESCPTPTTON 


HF n-vjMriNTTOR TS to PROVIDE 1/2 SEC. READING OF PIPAS FOR TOWNttST 
CONTAT ^rpRESF^T VA LUES X i Y t ZOtOBtlE -CtlNT A TN VALUES FROM PREVlfTUS 


CALLING 



CALL AS WAITLIST TASF. TERMINATES ITSEtF 



TNT ri ALTSATTTN 


PI PC TP = 2 LFOn OT = 0.5 SEC) 
X,Y»ZPIPBnr SET T'l PRFVinuS PIPAXtY, Z 


P03AA 


OUTPUT 


RTOOTT" X>V»ZP1P3 UF, X , YG 7 0 LlTBTrF 

R03A6 DEBRIS 


^T2+T 
'^0 343 

R 0340 

P0150 


3 last 324 37.3064 ~5S*P27 O 1 TOR TS PIPCTR 


-0352 REF 12 LAST 73 1 37,3065 0 5267 I TC FIXOELAY . MAIT 

03 63 3 7,306 6 00062 O 0.5 SEC DEC 5 0 


XTYtTPIPBUF CmTMOT'L AST P TP AX, Y . 2 VALUES ' 

XtY.ZTLORUr COMTATM LAST-BUT-nNE OTPAXtY*/ VALUES 

RUPTREOt 

— prTPrrp 



0334 REF 37 LAST ^24 37,3067 

0355 REF 19 LAST 523 37,3070 

0365 TTFF 187 L7VST~^~R2E 57,3 07T‘ 

03)^ RFF B LAST 43? 37,3072 

0353 REF FO LAST “TPY 37, 30 7 T 

0T5“7 4 LAST 32^4 3^, 3074 

OT 60" EF“ ' 21 ~ r A6 T 32 T ~“T7 , 30 T6 
0361 REF 3 LAST 324 37,3076 

tnsT tet — 2^ — orsT — ttt rrrrrrrr 

037)3 ^'EF 2 LAST B24 37,3i7lD 

0364 ‘TrF 4 LAST“'327 3 7,-3 101 

036^ PEF~ ^”T ' 3 7 , 31 OF" 

0 36 6 R E F 4 4 t ^ S f BP'S 3 7,3] 0 3 


3 5016 0 OUT KR FAD 
54 070 1 

wrrnrT — — 

3 003 7 tr 

50- 070 0 


5-fyn70 0 

55* 536- L 

I T ) D T O T CHKCTR 

I 3070 1 

II ♦ 2 27 tr 

1 3 0 6 ' 4— t 

0 - 5324 -T^ 


CAF 

TS 

I NDE X 

CA 

INDEX 

XC H 

INDEX 

TS 

'ces — 



tCF 

TC 


Twn 

RUPTRFGl 

^ — 

PIPAX 

RUPTREGl 

XRlP Bt rF 

RUPTREGl ^ 
XOL D8UF 
R t JPTRgm — “ 

DUIKRFAD 4*1 

P I RCTR 

r i NMNT TOR 

T-^ SKDVER 


SAVE ACTUAL PIPAS FOR TM. 
UPDATE X,Y,ZPlPmTf — “ 

AND X,Y,ZOLDBUF 

LOOP AGAIN 


STs 



ION' 0^1=* "'V'r^A'^X BY NAS^ 20"7H I^-OTT 


SP^VTCFR^OT 


lOr^B AP-, 1 t rROlJBLF . 


tJSFR^S PAGE wn. 10 



E6 S3 


P 0 3 67 
R 0 3 ^ 


afii # 3?c :?c ;}t 2?c 4c :4c :{c ^ >}c ^ ;Ic ^ ^ jjc :4e xV i}i A ^ :?;4 ^ 


SERVICER 


^ T}f It tf ^ tf ijc ♦ tE It ♦ <c :<E :<c ;Ct ♦ T«c 5!c :ecij: :^E ^ TX:«r:4c -^r a>: 5}t it 4c «: -^c ^ :jf ^ 


0370 

(1371 

0372 


PEF 16 LAST 3Z6 


REF 38 



377 


REF 23 LAST 827 


FR»T431 

TTTTTD^ 

37,3inS 
37, 3106 


ebank:= dvcntr 


3~5Trr6~a 
0 0004 0 
64 07^ 1 


SbRVlCER CAF 

IMMI 

PTPCHECK TS 


Tvn 


RUPTREGl 


0374 

0373 

0376 

03‘^7 

0373 


n-^F 188 LASr^ 
3EF TO LA3“r 

? FF 1 


BT4 


3 * ^ , '3 r 0 7 
37^3110 
77 f 3 in 
37", 3 117 
3 7.31 13 


6 0000 1 
50 000 1 
11»162 t 
0 3114 0 
0 31?? 0 


INDEX 


TC 

TC 


A 

OELV X — 
PI PL OOP 


0379 

0370 


RFF 


1 


Qzvnr 

■“FEE 

“? 

" LAST' 

728 ’ 

038? 

;-»cp 

33 

LAST 

805 

0397“ 





034 4 

REF 

1 








0TR3 

RFF" 

2 4 

L ASl 

3 28 

03 36 

7 FF 

1 




0T3T 

7.EF 

82 

LAST 

3 04 


37 , 1 1 1 4 
37. M 15 
ilTTS 


6 323? 1 
0 0006 1 
5 3122 "O’ 


AD 

EX TEND 


-MAXOFLV 



3 7, m 7 
3^,3T7Tr 
37,3 1 21 


0 5650 1 
00205 0 


a 3143 T 


TC 


AL A? M 

oozo^ 

AVERAGEG 


j7, mp^p_ 

^T. 312 3 


!0 070 1 

I 3106 1 


P I ^ T TT 




TCF 


\ 

PIPCHECK 


3 7 , 3 T 24' 


-rc 


03-^8 

—37.3125 

IfORS^ 

0 

u 

03R9 ' ' 

37 , ? 1 2 6 

^tiooo 

0 

n 

TO’TO FTCT n LAST 

82B ir7,l431 

— ^ -- o V O 7 

T ra T 

n 

*> 


P HASCHN G 

16035 

20000 

-»■ 



2CADR OVTOTUP 


03'-'! 


REE 


37 , 3 130 


760.67 I 


03^2 
03 CO 


3Er- P34 LAST 
REF 2 LAST 


305 
43 5 


0304 
03 '6 
03 ■“•'S' 
0307 

0391 


REF 205 IASI 304 




O 




CAST^ TT3 


37. 0131 

32 


37.3133 

37.3134 


0 466? 1 
15262 0 


TG 

CAOR 


8ANKC ALL 
l/PI PA 


37 .3136 

37 . 3137 


0 6006 
515 75 

on 6? 

77405 

37 4 3 1 


1 

1 

T 

0 

n 


OVTOTUP TC 

VL 0 A 0 


OMP 


INTPRET 
A f5 V A L 

rrftrv 

EXIT 
KPT PI 


0333 

0400 

0 4 C' 1' 

0 4 o? 

0403 


PEE 279 LAST 
REF 

REF RR LAST 


aio 



3 7, U40 
37,3141 

-t 


0 00015- 1 
3 0 1 55 O 


8-2^ 


37 ,31 44 


21 * 426 - t ' 
71 5 412- 0 
LUO 7 5“ 0 


AVFRAGEG 


extend 
DC A 

■OArS 

TG 

Bf.T 


MPAC 

ovtotal 

PHASCHNG 

10035 


0404 

0405 


-M »- 2 0'1 LAST 


4. 


37,3145 
^7, 7 145 


0 6006 1 
776 24 I 


TC 

C&Ll 


I^iTPRF T 


00 PIPA-SATURATION TEST BEFORE 


GtmF F N S AT T tlN . 


SATUPA - TED^T 


± 


RESTAP T PEREADAC SERVICE D 


PIPA COMPENSATION CALL 


GET ABS VALUE OF DELV 


SCALE AT 2 (+7 I 


ACCU M ULATE OVTOTAL 


4 

12 

1 1 

10 

9 

8 

7 

6 

5 


iy 





lOf^i or Ar;c" nr;*- a* i c iM7ipjuiTF'BY“^!ASA 7(T'^ni3-05i 


1017B APn, 1 t 1969 FROUBLE •04^5 PAGE — S7^ 



USSR’S PAGE MO. 11 E7 SB 


Q/^ n A - T?Trp 1 3T# 3 1 4 7 7 7 ^?TJ 1 C A tC R Vf, 

04*^7 ^7tTr50 777T6 1 EXIT 


n4n^ PEE R4 LAST^^ — 3ZB 37,3^r*5T 0 ^412" 0“ TC PHASCHNG 

040"^ 37,^152 10033 0 OCT 10035 


nCT31 ^ 
TC GEN TRAM 

AORES — 

ADR EE PM 

R EL TNT 

TC PHASCHNG " 

nCT 10035 — 

“041 <5 — 37,3162 — 0 O-OOG' 1 EXTEND 

0417 REF 3 LAST 826 37,3163 3 1223 0 OCA AVGEXIT 

0418 REE 15 LAST 432 37,316A 52 006 0 OXCH Z 


0410 PEP 4 LAST 545 37 , 31 53 X 4113 0 

0411 REF 1? LAST 692 37,3154 0 5v506 1 

^ q7v>I 2 pel 6' CATTl 537 37, ^155 0! 23i 0 

0413 RFF 13 LAST 804 3773156 OllTO CT 

041^1 37,3157 O'OOm 1 

w[7 ^ir R 5 — nrsi — ^ 7 , 3 iso 0 5412—7 

0415 37,3161 10035 0 


COPY RNl ,VMl,G0Ti02»G0BLl/2tPIPTIH€l 
INTO PM ,VM , GOT/12 .GOBL/P .PIPTINE 


GENTRAM DOES AN INHINT 


AVERAGEG EXIT 


041^' RFF 12 LAST 302 ■3^7,3155 3 1205 1 AVG^MO CA PTPTTME +1 FINAL AVERAGE G EXIT 

0420 PEE 1 37,3166 55*0^4 1 TS OLOBTl SET UP FREE FALL GYPO COMPENSATION 


0421 TEE 50 LAST 800 37,3157 0 55 46 “0 

0422 PET 5 LAST^ 76 8 27,3-170 00036 T 

“042- 'RTF 26 LAST 8TT4 rTpriTT CT“6372“T 

0426 " ” onO-08 1 

0427 33,^173 05022 1 

TJATB" TTVBTTT"' 20000 ’D 


0^2^ REF 207 LAST — 8211 37,-3175 0 -6006 1 T€ IMTPPFT 

0430 37,^-Tr> 77624 1 CALL ' ' 

X } t ^3X — 2ET" 1 37,31 77 " 73675 1 AVETOMTD CONVERT STATE VECTOR TO REFERENCE SCALE. 

0432 37,3200 77776 1 EXIT 


TC IIPFLAG SET DRTETFtG 

AOPES DHIFTFLG BIT 15 FLAG 2 

rC 2 P H SCTTNG 

“OCT 5 GROUP 5 0^=4 " 

OCT 05022 GROUP 2 ON FOR AVETOMTO 


043201 REF 153 
0432 0? REF 9 
0432n3“i2FF 


o 


04321 



043235 

rr43r* - 

04Cr2'5-- 


R EF 
R EE 


04-3255-' REF 
04 "^2 56 RcF 


55 

1 


LAST 

LAST 

LAST 


B2 3 
584 


LAST 828 


28 LAST 
T6 CTTST 


^FF 26 L AST 


L AST 7^ 


37, 32t)l 
3 T , 3 202 
37,3203 


37,3304 
V 32D 3 


33, 3 210 


3; / 

i ^ 


3 5021 1 
55* 125 1 

-i: 


525 3 7, 3 2t) 6 5 5tT0 7 



II 0006 
03 011 


O 4667 1 

17173 1 


1 

T 

1 

1 


3-7,321: 2- 13 5 560 2 
“■37 ¥3213 001-47 0 



TC 

CADR 


VHFCNT 

TR3CMKCNT 
BANKC ALL 

P rPF PFF - 


cs 

1^ 


PI TP 
“MPKBttP 


EXTENO 

WANO OS At MOOT 


A DP3S 


OOWNPLAG 
e-M / os T B Y 


ZERO MARK COUNTERS 


I N V A tlOATE MARK 




0437 6 *> 5!- 56 L AST 520 3 ^ ^ 21 4 0 557>3 I 

04 327 Rf. F 5 I 644 37,3-21 5 001 67 1 


TC OOMNFL AG 

AORES V3 7»^LA.G 


^TTSF: 



M. O O 





ON' 055''0K A^'C TRnGRAM LUM '"KY NASA ^0^^1113-051 


10!^:8 IIPR 


1 ,1^69 r ^nUSt F~TX T^3 PAG-r 



9^RVTCBR20T 


tJSeP*S PAC!= Nt^ 12 


E7 


0433 


HFF 34 ^iAS'T 745 


37, 3716 3 5011 1 



BTT7 


RFSTOPE GROtlP I ^~2 IE P20 IS RUNNING 


0434 ' REF 

10 

L4ST 

2 59 

'37,3717 

7 0074 

0 

MASK ■ 

TLAGWRDO 







■ " 0435 




17, 3770 

'0 iyoTr6“ 

1 

txi tNU 








0434 




37,3Z7V 

1 3 ZT 5 

O ' 

92*= 

+4 






















-^437 RFF” 

-27" 

LAS r 

82'9" 

3773222“ 

0 5372 

I — ^ 

T C 

“2PH5CHNG 







' 0432 ‘ 




37,3273 

001 IT 

0 

OCT 

111 

1 . 1 1 S POT 






043"’ 




37,3274 

00132 

1 

OCT 

1 32 

13SrOT 







044 5 
0446 


REF 


SO TArST 304^ 
2- LAST 


y Dt 

3T, 3736 


0 4701 0 
lor24F-3 


TC 

CAOR 


POST JUMP 
GANV33 


a447 

044F 


^:EF 36 — VA ST ^B?9 



37 , 373 O' 


5412 0 -SERVEXIT TC 
00035 1 OCT 


PHASCHNG 

00035 


A, 5.3 = REPEADAC (ONLY) 


0440 


REF 94 


304 


3^743731 1 5717 T 


TCF 


FNOOFJOB 


■ 0450 

A0451 

A0457 


^=rFF 


3 



333 


5024 


DV T HPUSH 




FOR 503- FULL CSM/LEM 
5.85 CM/ SEC. 


ION, 
..OELV SC. AT 


-2T, 3232 


6340 1 


-MAXOELV DEC 


-3^39^8 


3200 PR5 FOR 2 



CCS TAKES 1 


0454 


37,3233 OOl 70 1 J T AGTU MF DEC 


120 


"=" ir SFC + T 


f T eou = . 1 


"11455 
0456 
A 0457 
A0458 


3 7 , 323 4 


003 72 1 

00044 



iMnOTFAlL 



230 

144.0 8-16 


5 3EC mss LOSS AT 28.8 KG/SEC 

BE 2^4 SECS FOR NO START 
6 -e SECS FOR 




. 


I 

12 
1 1 
i 10 

9 

8 

i 7 
6 
5 

i 4 
3 
2 


— • 
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CrSER^S PAGE 

NO. 13 E7 S 




PDT 51 TOR^LT?E"PTRTOllMS THr tTTTrArTrATT^^l”RTQnrRBU"T^TnR^n THE FIRST ENTRY TH AVERA^G^. AND SCAtrES SO THAT IT 

HAS “1 LEADING BINARY ZFPO. TAT MOST I S SI HNS , RN WILL BE SCALFO AT 2 (+ 29 )f BUT IN THE 206 MlSSIONt RN WILL BE 

RrazT^Sl S C A L EU" AT 2 l¥ 2 ^TW. ~~ 


DWf R¥F r 37 * 373 5 3 5025'D NDRMLTZF CAF IHIRTFEW 

0465 RFF T3 LAST 829 - 3773737 0 5S06 1 “ TC SFNTRAN~ 

0465 2FF 7 LAST 529 37*3740 01231 0 ADRES 7N1 

rR767 TFT r4 CAST 3 773747 Oil /O 0 TORES R7J 



0468 




3Tt^42 

0 0003 1 


D469' 

REF 208 

LAST 

529 

i i 9 3243 

*0 6006 T 


0'+ / 0 




37 , 3244 

45 175 0 


0 47 1 

R EE 1 5 

L4ST 

83 1 

37*3245 

OLl 71 1 


0472 

— REF 2 

LAST 

f i3 

37 * 3 246 

77 3 53 T 



rc 


TNTPREl 
CALT - 
RN 


0473 PEF 3 LAST 774 37,3247 '75*207 0 STOVL GDT/2 

“0474 7FF Z 1 TSI BO 37*3250 01256 1 GOBtl /2 

0475 REF 3 LAST 774 37,3251 01215'0~“ STORE GOBL/2 

0475 3773252 77776 1 EXIT 

— 0477 PFF 95 -" LAST B30 3f*VZ53 1 5217 I TCF ENDHF JOB 


S ET U P TO CO PY 14 R E GS- RNl 
INTO RN,VN, PrPTIFiF 

FROM HERE 

TO HERE 



LOAD RN FOR CALCGRAV 




I 

12 

1 1 

10 

8 

7 

6 

5 

i 

3 

2 


■r"-!M'\MCHb BY NASA ^0?A 113-051 


L 


' SE- VTCE^^^OT 


10! 28 AP ^ > — rrtT6^ 



tlS'^R'S ‘^AGF NO. 14 


F 7 S3 


P047a. 


■alU vi<> 

^ -r* -'«*• “ir ^ 


PTPA READER 


P 0^+7G 


Mnn ND. 00 BY D.-LTCXLY rrECrT^1966 


P0'^^‘^0 furctidnal of scr ipt ion 


P0'4O1 

RQ4P5 

R0435 



TRE 

PTPA RTF 

R E S T a: RTS IFF G^I R AT "P cP F A 0 A C . 


TRYING TO BF VERY CAREFUL "StT 



B E P E^TAPTABt ^ 


I n R E AD PTP'T ■ C UIJNTE P S , 

ATTr’^STrRpn IN THE VERTTHR OEI W'TME HIGH OROFR PART OF EACH CF*MPONFMT CONTAINS THF PIP^ READING 


R0436 

Tr(J40T 

R04B3 

P0A^19 


AT THE END OF THE PIPA "'EADER THE COtJS ARE READ AND STORED AS A 

VECTOR IN" CnOTFT«rP; THT HIGH nEDET, P APT OF ' EACH' COHPONFMT CONTAINS 

THE CDO REAOTNT T fT TS C^MP IN THE OP HER C DU X . Y , Z . THE THRUST 
VECTOR ESTIMATOR- rN ETNDCOtJn REOIJTRES THE COOS READ AT PIPTIME. 


R04E0 


CALimG SFQUFNCR ANO EX FT 


"FU4FT 


CATt VTC TC r TSTrCATOrT FTC 


-RTr49^ 


EXIT IS VI A -qv^ 


RO‘V<^^, INPUT 


R049'+ 


INPUT IS TH'^OiJGH THE- COUNTERS PTPAX 


PIPAYt PTPAZt 


AND TIME?. 


R0405“ OUTPUT 


R0A97 



HTGH" '’! P D E P “C n M PON EN TS 
PtPTTME CONTAINS T IM^ OF I P A RFADTfvrG 


T HE PI P A R E A ni NCS 


R 04 R S 

ROB on 


DEBRIS (ERASABLE LOCA T I ONS OE STROYFO BY PROGRAM) 

- - - - • f 

r lT)V rrPDEP rTF L ' V «S~~A^ Z FRr TEO " FO R TM INDICATION. 

TEMX T'^'^^Y TE^IZ PlPAGr 


Q«;ni 0 nooYr t p 

ObO? »Fr 26 LAST 782 ~OTfB255 3 0026 D” 

TT50B 7— 37,3235 6 3“»2-46- 1 

OSm- TEE 134 L AST U2R ?7,3 2BT 4' 5f)2T C - 

-OBOS ’^FF — LAST 79 3 7r3 260 

0 5 0 6 2 nrST 7-0 3T v7 ~2 B ' t B * < * 22 ! > 1 

0507 ^EP 2 last 7U B7,32t)> ^5*22x^ I 


iPASR EXTENC”-”"^ — - 

DC A TIME? 

-PDCCH PIPTTME -t 

- t Z FRO 

TS T-MX 

tS — — T tmv 

TS TF*^7 


€ tH» R ENT TIME POSITIVE V At 
INITIAL I ZF-THFSE AT NEG ZERO. 



irW: A^.^Emr"«I^VT?tDN 055 OF A-'f PiHJC-^AM C l 


ME '3Y NASA 2021 11 3-Obi 1 


1 0 iYW" API? . 1,19 69 TWUUBLE .043 PTTG'E B33^ 


S'^'^VrCFP^OT 


USf1^*S PAGE NO, 15 


E7 $3 


051^ 

D50- 


TTETD PTF 


TEFF 155 
PFF 5 

o 


LAST 

LAST 

TK^ 


P3T 

R?5 


WZ^ 


3T»3263 
3T, 3?3A 
T77JZ6Tr 


3 50P1 1 
55*156 0 
55*i6A T 


CA 

TS 

TS' 


7Fpn 

DELVT 

LM LVY 


OTHER OFLVS OK INCLUDING LOW ORDER 


0511““ 

REF 

11 

LAST 

“R? B 

07,326 6 

55* 1 63 

n 

V / 

TS 

OELVX 

+ 1 

TT5r2 

■TJ'EF” 

7 

LTTST- 

“RTT 

TT7T7B7 

55 * 165 

0 

TS 

DEL VY 

+ 1 

0513 

RFF 

6 

LAST* 

5 3 3 

' 3T,3?70 

55^ 1 67 

1 

TS 

DFLV Z 

+ l 


A06T^ 


LOW ORCTEP DELVES ARE ZEROED FOR TM: THUS 
IF ONLNK’D LOW ORDER DELVS ARE NT, THEY 
CONTA I N^ PROPER COMPENSATION, IR=0 , THEN 
THE TM VALUES APE BEFORE COMPENSATION. 


Cf515 


RFF 


LAST “B2A 


37,3271 65»23n 0 


TS 


P I P AGE 


SHOV PIP AT RE A DING IN PROGRESS 


TT5TT ~ 

TT51 T RFF 7 

051 3 RRF 3 

TJ5T7 RfcF 10 

0 6 30 3 r F 12 

0571 REF P 


17,17 73 0 0n06"'T REP IPT 

LAST 377 3"^, 3773 A OOAO 1 

LAST 332 3 7,3274 53*225 1 

rATTT 3T3 17, 3375 — 53 040 1 

LAST 33T — T7,3276 55^162 1 

LAST 333 37,3277 23*164 0 


EXTEND 

DCS PI P AX 
DXCH TEMX 

n X CH PTPAX 

TS “ OFL VX 
LXCH D^LVY 


0573 REF • 3 LAST 437 37,3300 4 0041 0 RFPTP3 CS PIPA7 

■ 0723 REF 3 LAST 332 37,3701 57*226 0 XCH TLM7 

OTT? T TFF 4 ‘ L AST TT3 '~3TTT3TT7 36 U41 1 XCTl PTPAZ 

“ 057 5 RTF 7 LAST 333 37,33 03 55*T66-0 OTrDEtV? TS^ DFLVZ 


X AND Y PIPS READ 



REPEAT PROCESS FOR Z PIP 


T137T“~‘RFF"TT3 LTTST 7T3 3T733Tr4 0 0002 0 


ft O' 


— 0TT7 REF 24 — LTTST 3Z5 E 6", 1 6'6T EBANK= AHG 


0528 ^Ff 3 LAST 693 37,3305 10 763 1 RFREADAC CCS RHASE5 LAST PASS CHECK 

TrTZ^> — 37V33Tr6 1 3310 1 TCF T?- 

0530 REF 45 LAST 827 “ 37,3307 1 532'^t 0 TCF TASKOVFP 


R ESTART M A Y HAV E' WIP E D OUT LASTBf A ^,- AN 

UNPROTECTED NOVAC FROM PRER EAO, 
l^fHICH SFT(S) UP I/PIPADT (THUSIYJ 

^ - FQ P NON-COASTI N G CTI M^ NSAT ION* - , . E 

SiPE 1/PIPADT IS AOK. (PR 1031 IS 
2.0SEC SC. AT R+8CS1 


033TZ 

05303 
A 053 0^- 
A 0530 5 
A05306 
A05^n7 


R 

REF 


~3 

11 


“OrST 

LAST 


53Tr 

7Ttr 


^ , 1 3 1 0 

37,3311 


F63 
55 * 074 


tr 


CTT 

TS 


PP 1 0 31 

1/PIPAOT 


0531 RvFE 5 LAST - 833 37,3312 1.1*230 0 CCS 

0532 REF A LAST 825 3 7 , 33T 3“ 1 274^^ 0 TCF 


PIPAGE — 

RFADACCS PIP READING NOT STARTED. GO TO BEGINNING 


“D5 XT “RTF' I 37,^314 3 3352 0 

^ 0534 - 174 LAST — 533 3 7,3315 0 02 1 


-CRF nONEAOR SET UP RETURN FROM PIPASP 

TS 0 


0535 — PER 8 LAST 833- 37^3-316- 11*1-66 0 

05 .x 3’-^ 175 L AST 833 37, ?31-7 0 0002 0 

1 33 2.3 1 

■' 0533 RFF 176 LAST 833 37,3321 0 0002 0 

- 05 3"> kef 177 last 333 3-7.3377 0 OOG"»--D 


CCS DEtVZ 

TC— 0 Z DONE, GO on COUS 

TCP — 72 Z NOT DONE, CH E CK V . 

TC 0 

TC Q 


gap: 




c RfvisroM 055 nr 



NASA 1052y APf^. I * 1969 ! ROUBLE .043 RTOT 
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0540 

0541 



LAST 833 


, 3T73 
37*3324 


23^07 0 
TT’164 1 


ZL 

CCS 


DELVY 


0 54T> 

7^ 



0543 

054 P 


REF 

TTEF 

RFF I' 


4 C A 5 T 

83S “ 

37,3331 

11*226 

1 

5 D^ST” 

"UT5 

37T3332 

4 1226 

1 


CCS 


3T, 3333 


0 


TTS” 

TCF 


3T*5334 1 “3332 1 


TEMZ 
TEM7 
OOOFLVZ 
^ 


0552 

0553 
055 zr 
0555 
0555 
0557“ 


^TEF 


5 


TTFST 

LAST 


333 

334 


T7T3337 11'*'274 O CHKTEMX CCS 


”PFK 

REF 



13 LAST 833 


3T,334T) 

37 ,3341 
27*3 347. 
3^,3343 
37*3344 


4 1224 O 
1 3344 O 

T~ 3 3"40""T‘ 
1 3277 1 
55 • 167 r 


C S^ 

TCF 

TCF 

TCF 

TS 


TF 3 X 


RFPTPl 

OFLVX 


“0553 

055*7 


05S0 

0561 

056? 


REF 3 
RFF TO 

RFT^I 56 
2FF 1 1 


LAST - 
L AST 334 




CS 


35* T64 1 


TS 


tm.VY 


CAST 

LAST 


R33 


37 f 33 ^T A* 50 ?T 0 ^ 
37*3350 52 040 t 


OXC H 


ZE 
PIPAX 


RFF 


37*3351 



or 


TCF 


RFPIP 3 


0547 




37* 2 225' 

I 3330 0 

TCF 

F3 

^ * Ate- AA A -A. 


0543 

REF 

1 


37 * 3326 

1 3337 X 

TCF 

CHKTFMX 

Y NOT 


0544 


“3T *T327 “ 

r~3330 rr 

TCF 

+1 


REF ■ 

“T CTCT 533“ 

Lx 

1 1 

LX 

O 

22 041 I 

LXCH 

P I PAZ 

Y DONE* ZERO Z PI 


TEMZ NOT -n* 



T)5T0 

2EF g — 

TASr ■ 

B33 

3T* 2335 ■ 

73 • 166 

T 

LXCH 

— DHLV7 



TEMZ - -0* L HAS IPI 

0551 ' 

■^EF 1T8 — 

LAST 

B33 

37*3336 

0 0002 

0 

TC 

Q 



V AL U E 



YES 

YES 


NO 


ZF.RO X AND Y PIPS 
L STILL ZERO FROM ABOVE 



27,3252 


07 745 0 DONE A OR 



(ITPl i: I- VISION) OS^ n- hJ^L p(3n-;.-;AM CU^IANCH^ ■ BY' NAS^' ^0?11I3-051 


105 2 8 APP. rvrren — TROUBLE .043 


R05 :> 


SF^V 1 CER 2 07 


U5EP*S PAGF NO 


17 


:^c ic jf: ^ ^ * a}c al! ^ ^ ^ it * ^ ^ ^ ^ ^ ^ 4: ^ ^ ^ ^ j^V: ^ S!t jjil?: 4 e j}njfi?c-SS ^ i«i^ ^ ^ :a::^£5?! 5?:5{e ♦ 


E6 S3 


PtT5^ 
^ 05^^ 


R0571 


ROUTINE CALCPVG TiTEGRAlbS THF hUUAnnNS OF NinTTDN BY 7SVF 
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-FAt:TOR RF-ntlCF U^C ONTROL OA I N 
FTMAt. RH ASE R ANGE - nSUO 03 
"FTNTn: PHASE DRANGFCO‘ 0 / 


F TNM. 
FINAL 


PHASE 
PHASE 
OROTT 


ORANGE/ O GAMMA 
INITIAL FLIGHT ^^ATH ANGLE 
FH 9 UPCUNIRGL — 


FOR- 07 IN FACTOR CALCULATI ON 
OAMMALl CALCULATION 



ly 


MIN VALUE 
FACTOR TN 
FACTOR IN 
FACTtlR IN Q 2 CALCULATION. 
VEIOCTTY TO START FINAL PHASE ON 
F ACTO R TN I N I T I AL UP-O O WN tAtC 


INITIAL ENTRY 


25 NM 


MINTMUM^ VL 

VEIrlC-l-TY TO-SWITCH TO RELATIVE “VFL 

R OO T T O S TART INTO HUN TES T - — — 

VRCONr = COM Rt.IT-eR -NAME 

TOL^^raNCE to STOP-RANGF ITFPATION 


VELOCITY TO 


1.25 
.01 
.001 
500 
175 
.25“ 
1 . 0 


FPS 

FPSS 


175 

2 

1.3 

.2 


FPSS 

SEC. 


GS 

GS 


40 FPSS 
3.4 

40034 

.5 

1000 


FPSS 


19749550 FPS 
.41252961 NM 


-rr 5 — 

.1 

- 1 00 2 
"TOT 



0 

.0349 
- 6 

40 

.5 

—mcrtr— 

-1302 
270 G 0 
2 6 Tr 0 tr " 
15000 
VSAT /2 
— TOO 

25 

t o on 


NM 

NM/FPS 

NM/haD 

RAO 

FFSS 

FPSS 


1 TM" 

NM 

FPS 

FPS 


NM 

MRS 


f 

' I 

li 

12 

1 1 

10 

9 

8 

7 

6 

5 

a 


nJTTTrTTPT^ 


.\SSrMSL'F" Rii VISION O"*^ 5 ■ T’»T~ "'T^fG’r A M C'UMANCHF^ W NASA i VB-OTI 


1 , 1 rev — rRtiUBtr .n'^ 3 — — p 42 


L 


TTOTOT 


ET^TTY LTXTCHT^r 


P02TD 

CON VERS 

R0280 

' 


•30281 

ATK 

R0233 

GS 


HS 

T0237 

J 

R02RT 

KWF 

RCTZ^ 

BUt 

7002^3 

RF 

R 02^5 

^ REQ 

RaZ9T~ 

VS7CP 

R02'^9 

WT E 


CO'JVERSTON^FACTnns SlTn SCALING CONSTANTS 


AIMnSPTIERb SLALt KErcm 

GRAVTTY HA^MnNir;- CNFFFIC tFNT 
^QOATOFTAL FAPTH RATE 
FA’VI H GRAVITA ! tonal CONSTANT 
FATTFI R AOTUS 

FA R TR “FTJtJ A TORT A L R A D I US — 

S AT ETTTT E VFUnC T TY“ AT"R 1 = 
FARTH RATE 


^^-MGLF TTJ R ACrTC NFT “ 

“N^MUTAL G VALUE FOR SCALING 


USE^*S PAGE NO. 


6 


NM/RAD 

FPSS 
FT — “ 


3A37. T46S 
32.2 — 

28'5'00 
. mn 6 2 3 A 6 
1546.70163 FPS 
3.98603 223 3 f. 14 
21202900 FT 
2092 573-3.2 FT 



70000729211505 RAD/SFC 


FO S3 



SE C- SEC 


cre. 1 


^^ 7 — — Ur SP V 3T 0U A NTT T T'~ S 

R0303 — — 


^0304 


T SFF "SECTTOTTV 'E THF GSGP FOR SIGN 



r 


R03C5 


V'^RIABLE 


OFSCRT PT rOAT 


>tAXIMUM VALUE 


90^07 

T 03 W 

R 03 rr 

R031? 


R031F 

R0317 

RU 3 rT 


R OB Tq: 

? 0336 - 



R 03 AT r 

R0341 
' ^ 0 34 3 
7 0343 ' 




GNAX 


GA^^M^F I 


n 

V^AGI 

THFTAH 

LAT 

LUNG 



Vin 


T T t 


ROLLC 
LATA NTT ‘ 

ON R N GE PR 


OTCTED 3AXIMtJM FMTRY ACCEL 
PRTOTF T F n~ V -LOCI TY TTT 



400 K FT ABOVF FTSCHFR RAOIUS 
PRE:orCTFD GAMNA AT ALTITUDE— 

ABOV E FT SCH F R R TV O T I TS' 


40 OK " FT 
mAG ACCELERATION 
INEPT I At VELOCTTY 
O F SI RED R ANG E 


YAGMITUOE 



OFF SENT LATITUDE 
PRESENT LONGITUDE 

7VNGtE~ T 0 S P LASH FROM 



HOD T 
07 

•vt — 


EMSALT FT ABOVE FISCHER RADIUS. 
PREUrCTFO V'^LOCITY AT ALTTTUOF 
F 3SAL T FT AB O V E FI SCH E R RA DI US. 

TP^ OF FREE f-ALI TO ALT ^ 

<^Y$AtrT ABOVE FISCHER -R AD UiS . 

OLTr'COMNAND 
CRUSG- R A-NGE E RROR “tXRNGERRy 
DOWN RANGE ERROR 
( P R E OANG - TH E TAH -- 

“ALTiTUDE RATE 

r T INi.D'’ DRAIP UPC fUAtTROL 

-X IT VELOCIT Y Fnv> UP-CONTROl 


N — NNt 


163.84 GS 
123 



N 60 
-6rtr 


1 Revolution 


N 60 


a 05 FPSS 
128 M/CENTISEC 
1 R EVOLUTI ON " 
1 REVOLUTION 
1 REVOLUTION 

“ — 1 REVOLUTION 

(IN MM) 

128 M/CENTISEC 


B 23 CENT I SEC 


1 PEVOLUT tO N 

4 -RADIANS 
I REVOLUTION 


126 M/CFNTISEC 
805 FPSS 
9 VS AT — 


N 63 


N 64 

N 64. N 68 
"N 64 ^. N 67 
N 67 
N 67 

— fij-— — — = — - 

N 63 


7“ N — 68. N 69 


N 66 
N 66 


M 6 8 


N 69 
N — 6^ 



A ft E V I I 0 N 05 ‘S 



PmMG'^AM CDMANCHt BY NASA 202illi-0bi 


TTjTTTnm^ 


1,1969 TROU 8 LF - TPPJ R 43 


FTTTT^rn “FX! CUN' 


F?*$ RACr 


EO S3 


P 03 4T 
R 03415 


3 034 P 
F 03 S 0 


R0351 

R 0352 

T 03 5 T 

R0354 

R0355 

“Fa 336 ‘ 

R0367 

9 0353 

WT 5 ^ 

R“0360 

^-0361 



R 0363 
R 0364 
PCnFFT 
F 03 - 6-5 


BODY ATT I TU PF OlTAmr IT I E S (r^I /PH S E T 


VATT A8LF 


-VRFL 


ntnuYA 


UXA/2 


UYA /2 


OZ A / ?: 


-^jB X r? 


my /2 


mi/? 


TIE SOB I FT ION 


ETFGATIVE VETFCITY REV^O ATMOS. 


US FT FOR OYA 3 flow 1000 E1^ 


UMIT VEC ! OR 1 R1 AO ~ 


BASED ON 


THE TRAJECTORY. 


irm — VECTOR 


3 HD Y TRIAD 


F^TR— CBT 


MAXIMUM VALUE 


2 VSAT 




2 




f- 


12 
11 
I 10 
9 
8 

I 7 


D 

► 4 
! (3 


I 




I 


« I 


V ' 


12 
1 1 
10 
9 
8 
7 
6 
5 
4 
3 




L 



rTA7 Tvrw“rF55~r:n^“'rTT — p-Ri)f;,uH cn^AMCHE by 'nasa 70zrTT3'-a5i 


10:23 APR. 1 .t'^69 TRnUBtr .04-3 — 


f= ENTRY CONTROL 


USER’S PAGE NO 


'3 0001 
R0002 


ENTRY T N T T I A L I 7 A T I n N R n UT T * IT 










0003 



25,2000 


BANK 

Z 5 


0004 

O p f 

1 

“2 5, 20017 


SETLnC 

REENTRY 


(K)05 



ZT, R TTO 


BANK 











0006 

nnnT 

R “F 

1 

— 7^ 1 av:t 

— TQ A PTTTTT^ " 


COUNT’®' 

FRflWK= 

$» $ / EN TRY 

PTTTOTT 

^ - 


0000 

0000 

oon 

0011 




6 


^OOIZ 

A0013 

“0014 

A0015 

ADOITT 

0017 

001^ 

TTJOT^ 

A0020 

A0071 

“ADO^T 

A00R3 


HOZT 
007 3 


0034 
00 3^ 
003 3 


007 ’3 


r'y 

' I 


rKy?“5* 

002T 

0023 

002^ 

OOITT 

non 

0T)3Z 

0033 



REF 

REF 


7 

50 


P EF 


PFF 


TTF 

KEF 


T 

3 


REF 


1 

7 


<:> c c 


T 


EF 

♦:? r tr 



1 

7 

r 


LAST 

ETS'T 

LAST 

LAST 


705 

TTTT 

825 

746 


^norr 

5057 

5002 

0102 


EBENTRY 

FBAOG 

ntpypr in 

CM/FLAGS 


E BANK 7 


EQUALS PR 1 020 
EQUALS STATE +6 


(SERVICER) 


,7000 


7T775 1 5TARTENT EXIT 


MW 


COME HERE F 


= 63 

CM/POSF 


RESTARTED IN CM/POSE 


LAST 074 


2 0 0 1 

‘f 21 1 3 

1 

cs 









2002 

21^03 

0 0004- 
7 tJttr? 

0 

0 

INM I NT 

MASK 


ENTMASK 


INITIALIZE ALL SWITCHES TO ZERO 
EXCEPT LATSW, ENTRYOSP AND GONEPAST. 

TSEtrT-nNtTTAtTZ ItiO 



CM/FLAGS 



GONERAST^OSD BIO, RELVFLSW=96D 89 
FGSW = 970 88 NOSWITCH = 980 B7 

HIN fr=-9 9D - 56 f NRt $ W- t Q 0 D-B5- 

LATSW=101D 84 •05GSW=1020 83 


LAST 844 


2 5, 2 004 6 Zll'F 1 

2" , 20 05 54" r02 0 


~AO 

IS 


E N TPyoSP, LATSW, 


/FLAGS 


^EF 209 LAST R'n 


25,2 006 — O' 0007 — t 


25,2007 0 6006 1 


TEIrtNT 


TC 


FNTPPFT 


LAST TIB 


L AS I 1 18 


25 ,201 0 
25, 7011 
25 ,rni2 

75 ? 2 0 1 '< 
7 5 , 2 014 
25 f 7015 


77735 0 

03011 I 
03"626 O' 


7773^"' O 
03010 tr 

031324 1" 


SLOAO 


STQPt- 


SLDAO 


LODPAO 
LOD 


L AOPAD 


STORE lad 


LAST 11 ^ 


ZSrrTOtO- 
?5 , 3017 
2" ,2070 


77605 1 
15323 1 

1 




STODl 


t / OC M I N R ■ ^ niAO - eOS f 1 5 I 


7 


^ 


Tt 


* ^ 


F 


3 


LAST 044 


Z5,2^R22 
25 ,2023 


I'Ot'AT — 0" 
70405 I 
03624 1 


COS 15 
L / DOM I NR 
LAT S LOPF 

S^l 
L A » 1 


KLAT = LAO/7^, 


(TTFfl — ASSI-M‘’L'= 'R-VISI'DI^ 0^5 TJF ''b'" P'^nGRAM CHi^ANCHl- P,Y iiASA ^0;?1 11 'ri-Ub 1 


lOJ 2'5T 'ffPP 


T TROUBLP .04 3 


RTEFNTcy CONTRni 


0C^‘'^ 

00^6 

0047 



4 r4Vl — 




PFF 

f 


r 

o 


LAST 

riA5T 


703 

TTF 


■Z^TTTTTr 

25,203? 
25 •2 03 3 
2b, 20^4 


0 3 6"2 4 “T 

57565 0 

03327 1 


004^ 

TTUTTT 

0051 

005? 

00S3 


RFF 


LAST 7^0 


t)054 

0055 

oaFs 

0057 

0053 


005 5 
0050 

OTTFT 

0057 

0063 


00''- 5 
0070 

R 0071 
ROO'^3 

0074 
'00 /5 

00 To 


00 77 - 

007^ 
TTTTT’' 
0050 
0031 


0054 

0065 

0066 

006T 

0068 


FEF 

RTF 


14 

4 


LAST 

LAST 


83 5 


pFF 


4 . i 


3FF 


4 

4 

13 

2 


LAST 

LAST 

LAST 

LAST 


816 

177 

410 

118 


"25 , 7035 
2‘- ,20 ^6 

25-, 2037 
25,2040 

775T2TF4T 

25 . 2042 

25.2043 
“T5T2D7F4 

75, 204 5 
2 5,2 045 


^7 6 34 1 


52 0 63 “0 


4 M / 5 n 

01177 1 
01760- 1 
50256 0 

03474 0 
03676 0 
47076 n 
45712 1 

1754A I 


FF 


LAST B45 


p-cp 

OFF 


T 

1 

2 


25 ,20 47 
25,2050 
2 V ^'53 


-035)24— r 

- 43205-7 


LAST 119 


C .7 f 

25 , 205 5 


15201 0 

15203 1 
03712 0 


LAST 79B 


^'FF 

RFF 

r y 


3 

1 

4 L AST 
I 


795 


25.2055 

25. 2056 

^,205 7 
25,-2 060 


66331 

03 6 A 6 


p / 


52115 


PFF 


LAST 802 


2 5 , 20 61 
25,2052 


77634 0 
53611 1 


0040 ' 

r< ^ F 

■> 

TAFT 

118 

'’5,2 024 

176 3 2 

0 

STOOL 

0041 “ 


1 



25,2025 

1 51 77 

1 


0042“ 

' ♦ C ~ '1 

s 1 


L rA S T 

"■ 251 

2 b , 2 2 6 

1 /I ^5 

1 

STOOL 

0045 

REF 

1 



25 ,2027 

17372 

1 


0 0*^^ 

P FF 

7 

LAST 

IIB 

25,2030 

17614 

1 

STOOL 


KLAT 

Q7F 

or? 


NHA’^ONF 
FACT HR 
TKV 


SIGN 


DCOMP 

HFADSUP 
STCALL L/D 


VLOAO 


UNIT 


STORE 

DcrmF 


STOOL 


S T a R TF Nt 

vxv 

VM 

tJtITTR 

0 m 

RT 

L ATANG 

RTB 

STGN^^RAC 

K2ROLL 


OFt> 


LAO 

OAO 

Tr2T 


STORE 


jt 

Q? 


0 

SSP 

0 ‘ 


1 


0 



SSP 

GtJTnAOOR 

T M TT P rrt t 

ROSFXI T 
SCALFPOP 


RTB 


SFRVNOUT 


tlSFR* S i^AGF NO , 


2 


ET S3 


rAI.rotATF THE INITIAL TARGbf VECTOR: 
REFERENCE CnORni NATES. 


07 = 07F 
1.0 -I8TT 


MAY 8F NOISF FOR DISPLAY P6T 
L/D = - LATJ 



RETURN VTA GOTOAOOR 


(-7) M/CS 
.5 UNIT 


REE COORDS 


RT/2 TARGET VECTOR 
LATANG = UNI.RT /4 


REF COORDS 


K?RaLL = -SGN(LATANG) 


02 = -1152 + 500 LAO 


SET SELFGTOR FOR INITIAL PASS 


SET CM/POSE TO CONTINUE AT SCALFPOP 


OMIT INITIAL DISPLAY, SINCE 1ST GUESS8A0 


RTINIT, ALSO RTEAST, RTNORM AND RT. 


ALL ARE .5 UNIT AND IN 


REF 


4 LAST 
8 nrST 643 


' : ^ F 

■^FF 

2FF 

!> -r r 


10 

rr 

F 

1 


LAST - 30-2 


LAST 66_^ 


25,2063= 

-25,2064 

25.2065 

25 .2066 
25,-206 7 
25, PO'TO- 
25,207 I 
?5, 20?^ 


03645 
03401 
43014 
006 6 2 
01663 

15 1 04 


1 

0 

T 

0 

0 

XT 

0 

o 


OTA^TFNl STO 


CLEAR 


VLOAO- 
G CTO A DOR 
LAT t SPL I 
eiEAR 
ERA OF LAG 
LUNA f LAG 


TARGET COOPOINAT ES 


CALL USING PAD RADIUS. WILL UNIT IT 
ANYWAY. 


3TWI LAT 


00 ^-^2 
00 • '' 


LAST 845 


?0 7 3 


c c 


13 LAST 


>:> 2 


00 


25, 

2 5,-207<i 


15110 0 
f) 1205-1 


STODi 


LAT +4 
Pi PI IMF 


SET ALT^O. 

PSTA8L I5H 7<T!NTT AT TI^E OF PRESENT 


G 





(iGPvAM Cn^A.^iCH^: BY N\Ga ::^n2ll 1 i-O^T 


l 0V7W""^VV 


rVTVE^ rROUBLT“,Oin PTTCT 8^ 


F/FTNTT^Y TnnMTRCL 


V1S1=R*S ®AGE 


E7 S3 


A00S4 

0085 


TD0J6 

00^7 
00 8 R 
’DW?- 
A 0090 
00'^ 1 
OTTR? 
00R3 
009'-h 
“0095 
00^6 
OOPT 


0090 

OOOT 

OOTJO" 

0100 


P pp 

TTFF 

RE^ 

TJTF 


RE 


RFF 


REF 

REF 


2 

IT 


T 

7 

T 


LAST 

05T 


LAST 


LAST 

LAST 


IIB 

TT^ 



LAST R44 


75,2D7T 

75,2100 

25V7r'7T 


FAST SI 6 


25,2102 
25,2107 
25 ,2T0 4 
? 572 1 03 


119 

845 


2 5 , 2107 
25 ,2107 
25,2111 


75, '’111 
25 ,711? 
25, 2 IIP 

75. PI 14 


3T574 0 
7^4’41 1 


7T656“T 
174 52 T 
12112 0 


27606 0 
75715 0 
72741 0 
01760 1 

7TT76' 1 

27702 0 

03645 0 


STCALL TIME/RTO 
LAinTURV 

UNIT 
STOOL 


RT I N T T 
500SEC 


STCALL OTEAROT 
E A TT i nT l 


onr 


SLl 
UNI TP 


STFALL THE T AH 

GnTOAODR 


000 02 
01520 


1 
I 

rr 


5noSEC 


20 EC 


5 0000 


2-28 



llOlO 0 ENTRY SW OCT 


REi AND VN, 

SAVE TIME BASE OE RTINIT. 

cTWPArr =tt5e (PiPiiMEr 

ANSWER IN ALPHAV ALSO 
.5 UNIT TARGET 


REF COOROS 



TIMEARTn = PIPTIMF, STILL. 
INITIALIZE EARROT 
G ET 


RT/2 IN MPAC 


RANGE ANGLE /36G 
RETURN TO CALLER 


CS 


rtTT7 

IIOIO 


ENTRYOSP 813, GONEPAST 810, LATSW B4 


'JTWl v^SS'^l^TT' '>J-VIS lUM O'-b fir Ar;i, M^M}(;^!AM -'-Y NASA ^ 0'21 1 1 -O'^T 


10:28 ^PP 


VTTTm 



L 


EFTqT'^Y CCWT^ni 


U<;Hpts PAGE NO 


E7 S3 


poi :^i 
0102 
~0TOT 


TEF 


T 


010 


Z0,?115 

ZStOTTF 

25,211 7 


77524 1 
5212-5" 0 

77775 1 


SCAIEPOP call 


rAFGET m~ 


^7( IT 


010^ 

0105 


^EE 87 LAST 830 25,2120 0 5412 0 REEA7 

25t21Pl 10035 0 


a TC 

ncT 


PHA5CHNG 

10035 


SERVICED 5.3 RESTART AT REFAZEIO 


0 1 03 
F0103 
A 0109 

■^unro 

0111 


PFF 210 LAST 8A4 


2 5.21-22 0 60 06 1 


TC 


TAITPRET 


JUMP UJ PA’>T rCULAP re-entry PHTTS'ET 


SEQUENCE 


PEE 


LAST B46 


2 5 ,"21 23 
25,2124 


TTo’^ttT 

03645 0 


GOTH 


GUTOAnOR 


ROl 13 
RTTTT3 


GHTnAOnR COMTAI'IS THE ADORESS OF THE ROLL COM’^ANO EQUATIONS APPROPRIATE TO THE CURRENT PHASE OF 
^E-ENTPT , “FTQlJt NC 1 NG^ TVATV F OLLOWS ! 



R 0 1 i 5 

ROl 10 

RQTZT 
P0122' 
ROl 2 4 
R0125 

vrOTTr 


INI'nrr.TLL ADORESS T 5 SE T HrRi=:" INTTEAlrtY^ HOt-DS* IN IT I AL ROLL ATTITUDE UNTIL KAT 
A \ r I TUITE UNTTL VP THRESH IS EXCEEDED. THEN BR 


T$ EXCEEDED. THEN HOLDS NEW ROLL 


H UM TEST 


THIS SECTION CHECKS TO SEE I F THE RREOICTED RANGE AT N'^MINAL 
THAN THE nr STREO RANGE. "" 

IF NOT - A RTTL COYNAND IS GTNERATEO BY THE CONSTANT DRAG CONTROLLtR”^ 
IF SO' - TOITTTRni nAND GHTOAO ARE SET TCI UPCONTRL. 

USUALLY NO TT EPA TT ON T S I NVOLVE D EXCETT TF T 
HUNTEST. 


L/O FROM PRESENT CONDITIONS IS LESS 



LONG ON 


^ - T p - A - 5 5 - THROUGH 




TTJTZR" 
R OlTCr 
R0132 
ROl 33 
R0135 


FTTlTn 
ROl 3B 
T? 0 1 4 tT 



UFCDN TR L CON TROT SCROLL DURING THE SlIPEP-CI 

— (A» VfHEN THE DRAG ( AS ^EASUREtr BY THE 
(B1 IE ROOT TS NEGATtVL ATJO REFERENCE 

Tim rnTOAnOR IS SET TO KfVT~ 


"i T P C ONTRt 



OR 



PlRASy FALLS RELOW QT , 

VL FXCEFOS V. 

N CA SE- ( B ti TO PRED tCT^ 


SKIP -P T N G THE KEFt ER " P H A SE- Of 


ENTRY. 


~ICEF2 



m 

TRIMMED 
WHFN THE 


O U R TNG T H 



T ^H A Sr O rn MONITOR " D RAG. THE SPACECRAFT fS — INST ANT AN E OUSL Y 


I N PI TC'T" AND Y Av? TO 
ME ASO'^ED -DR AG EXCE 


THE COMPUTED RELATIVE VELOCITY. THE LAST COOPUTED ROLL ANGLE TS MAINTAINED 
OS- 07 -K)-. 5 , GOTOAOOR IS SET TO 


R D rTf 
P0142 


PREOTCim THIS CONTROLS TH^ PINA t SIIR-ORSITAt PHASE. ROLL COMMANDS CEASE 

WHEN V IS LESS- THAN VQUIT. AN EXIT IS MADE TO 


F0143 
ROl ^5 
-ROl A f 


R 6 7 . 1 


THE LAST COMRUT"-F-f POLL ANOtE^ IS MAINTAINED-. R ATE DAMP i^o T S DONE TN PITCH AND YAW. PRESENT LATITUDE 

AND EtINGITOO- AER tEOmiTER DTSPIAY. 

-TOrrP Y IS TFP MTNA T E O- WHEN ni SKY RE Sg* ^ 7n SE IS MADE TO T -H" THIS FINAL FLA SHING DISPLAY. — 




0^^ r1F AGC Pi'OGf-UM OMANCHb KY ■NASff"Z0ZlTT3-a5T 


in!28 APR. r TT?tiaBi:E“.T54-? PAGE 


P r^WTRY XTlNTRTn; 


USPP'S PAGP 


£7 S3 


P014^^ 
R 0 1 49 


PPOCESS AVER AGE G QU TP UT . . 7SCAt:E:""TT AND GET INPUT DATA 


ROIGO 


"irm: 

A 01 S '? 

ADr5T 

A 01 54 
“CTTT 

0155 

0157 

“OTSTT 


OIT? 

oit;o 

0161 
0167 
0153 
Ol 64 


0155 

01^6 

DT^r 

0155 

0159 


0170 
DIT 1 
UTTZ 

01 73 
01T4 


START TARGETING 




REF 


ITTF 


R-^ 


RTEF 

REF 


D 


P E F 
RFF 


rt ”C 

rr ■ 


1 

1 


1 


UTTSO 54:F 


E7TT43T 


EBANK= RTTNIT 


REF 

RTEF 


1 


TARGFTNG IS CALLED BY P5l* FRON GROUP 4. 
T ARG ET NG IS CALL E D B Y E N T RY ~ » FRO M GROUP 5n 


7 CTTST TTF 


25,2125 

25,2136 
25 ,?127 
? 5 , 2T3U 


"TT2T4 0 
773346 0 
52133 1 
TT3576 0 


TARGETNG BOFF VLOAO 


RFLVFLSW 
GFTVFt 
-YREL 


545 


T5 TTTST ' 

1 

~7 — TAST -^na 


25,2131 

T5~iTX37 

25,2133 
Z54 2 13 4 

25 t7I35 
25 , 2 


53076 1 
52136 1 


VCOMP 


74375 0 

01 ITT 1” 

0'3^"6 7T 


GFTVFL 


VLOAD 


GOTO- 

G PT UN IT V 


VXSC 
YN — 
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0161 

0163 


0163 

0T6A 


010S5 

0166 

0167 


“DtSO 

017)3 

OTTO 

01 71 
0177 
- 01 T3 

0174 

0175 
A0176 
A 01 77 
AOTTB 
A 01 7*^ 

0170 

~wrv 


76 LAST WT3 


THF 

TTF 




OFF 

RFF 


1 

3^1 

17 

4 ,-^ 

74 


T 


LAST 


"Hm 

783 


XATT 
L ^ S T 


TTF 
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ho, 1661 

37 • 3 655 
37, 3656" 
37 •3657 
3773660 
37,3 "6 6 I 

37% 366 2 


FBANK= AHG 


54^ 


3 6057 0 
00 3 0 

120 1 
40012 0 
57' /77 1 

5“4 Otil T 


CM/ATOP 


CMTFl 


CA 

TS 

TMDFX 

CS 

lom — 

TS— 


EBATIG 

FTONK~ 

FTXinC 

100 

THTOT — 


(GAMA/180) /3 


37, 566? 0 0004 TI 


INHINT 


MUST REMAIN I NH I NT ED UNTIL UPDATF OF BODY 
ANGLES* SO THAT GAMOIFSW IS VALfO FI«?ST PASS 
I ND I CA TO R. — 


REF 

RFF 


B 

72 


LAST 873 
FAST TTB- 


37 ,3664 
37* 3 665“ 
37,3666 


4 0 107 0 
5005 0 
0 0006 1 


CS 

^ASK“^ 

EXTEND 


CM/ FLAGS 

Btrn 



T EF^' 
3EF 

q>Fp 


G 


LAST 887 


37,3667 

37 , 3 6T0 
3 7 .6 


1 3677 0 

76 102 O 
tr3 TOT O 


BZ F 

ADS 

TC 


DOG 
CM /FLAGS 

N^GAMnoy 


DONT CALC GAMA 
ONE DIFFERENCE 

O N. • 


TN1TL07=D 
DOT UNTIL HAVE 


FORMO 



KNOW BIT IS 0 
SET GAMDOT = 0 


REF 

RFF 


75 

3 


LAST 

LAST 


7 

887 


^FF 

ref 


1 

L 


LAST — rr2 


3^,3673 
377B67 3 

37* 3674 

37,3675 
3 7 , 3-6 76 


4 0001 1 

6 1 777 1 

0 0nn6" T 

7 3^/30 0 

5 5 * 773 1 


OOGAMOOT CS L 

AD GAMA 

— EXTEND 

MP TCDU 

^^TS CAMDOT 


DEL GAMi^/360= T GAMDOT/360 


TCOU = .1 SEC, 
GAMA DC^T TCDU / 


T = ? SEC 
180 


3 7*BST‘7 
37,3700 

TOT 


RFF 7 0 LAST 370 



0 

6 

T 

6 

0 

S 


ODO^^ 

3707 

0000 


0006 


1 

1 

T 

I 

1 


EXTEND 
nZMF +7 

COM — ^ 

AD FIVE 

u X T E NO 


IGNORE GAMOOT IF LFQ .5 DEG/SEC 


Off 157 

TTFF ■ ■ 


LAST 834 
TTVST mST 


37,^'3q5 

37, 3705 


3 50 71 1 


NOGAMOOT CA 
TS 


t3 


ZERO 


SET GA^nnT= ^ 0 A S^TLG — IF TOO SMALT 


COME HERE INHIMTED. 




IT' 


RFF 283 LAST 871 



4 0154 


6 • 0007 


O 

T 


10 

018 7 

-fn=F 

1 



3^ ,371 1 

0 : 
V ^ 

9 

0183 





3 7, ?7ir2^ 

8 

— 01^7 

“RFF ■ " 

3 

LAST 

L A sr- 

324“ 

3 ^ 0 f 

% -V. 

61 

7 

0185 

R FF 

R7 4 

'5 f f ^ ' 1 ^ 

6 

A 

0186 

8 -7 

7 

LAST 

887 

3 7,3/15 

0 ■ 


67? 


Tr 

3T 


CS 

DO UBtF 

TC 

EXTEND 
■St) 


HP AC 


FOR NOW LEAVE IN 2S.C 

UPDATE ANGLES BY CORRECTING EUILFP ANG 
FOR A - eCSUED INCRE M ENT -S T N CF " 

R ft FUIC P(NOWi -R(PIPUP) 

GET (R FUL/180) /2 

QL OVFR - FSO H" 



C-OR ANGOV 


CORRECT FOR nvFL IF ANY 


TC 


■ P ^ Ott/PI R 

R OL t / I "^0 
COR ANGOV 


GET INCP SIMC«= PmiP — 

ONLY SI^fGLF'OVFL POSSIBLE. 
CORRECT FOR OVFL I»^ ANY 
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GAP : A S S G M B L F ^ F V ! “S I"^ N 



Ar>C PALlG'^AM-rT^AMCHF l^Y NASA ?0;^l 11 ^-05"! 


L 


c 'irn HY ATT rn ide 




FF 


LAS 


116 


37,1716 


5»770 1 


TS 


TEMPBOLL 


DITTT 


01 Tcr^ 

0190 

noiTrr 

01^2 

0193 



PEF 


FTT 


LAST 887 


TTTTTTT 

37 . 3730 
37,3771 

TTT3T7? 



^FF 
p PF 
"Tnyp 

FFF 


2 

3 


LAST 

LAST 

niTTST 


111 

177 

TOB* 


7 L AST rrs 


37,3773 
37,372A 
T7T377S~ 
3T,3T76" 55*771 


A" 0I3'6 "T 

6 GOOD 1 
0 3760 0 
0 0006 1 

61*673 1 
6 1663 0 
0 ■3760 TT 

0 


TS 

ontlBTE 

TO 

FXTHND 

su 

AD 

TT 

TS 


MPAC 


T 


CriRANGOV 


A1 FA/P TO 
ALFA/180 
CORANGOV 
TFi^PALFA 


“ ' OrDET 

REF" 

TPS 

“CTlfST" 

■ 3PT~ 

—STTTT7T 

Cl’^7 





3 7 » T3 0 

OT-8 





37 , 3731 

G 1 9 D 

R frh 

3 

last 

■ 87A 

37,3732 

0200 

pee 

3 

LAST 

8 2 A 

37 ,3733 

0 2ai 

REF 

2 

L4ST 

116 

37, 3 73 A 

0202 

RTF 

A 

LAST 

53 5 

37,3735 

0203 

o r p 

39 

LAST 

88 7 

37,3736 


A 0155 1 

6 0000 1 
0 0006 1 
61* 67A 0 

6 1666 0 
67* 772 1 


TS 

OFTUBtF 

EXTEND 


MPAC'3^T 



AO 

XCH 


f3F TA/IBO 
TtNPRrTA 


3 5051 0 
5A 003 0 


CA 

TS 


E B A NX 3 
FRANK 


020 A 
02X15 
0206 

0207 

A0203 

0209 

0210 


PrF 


1 


« c r 
r> rf: 


•13. IAA6 
37,3737 
37 , 37A0 


0 

3 3777 


LAST S3B 


37,37A1 53*AA7 


cr 

0 


F8ANK- PHSNAME5 
EX T E NO 
DCA — 


t)XCH 


REP ns 
PHSNAME5 


FF 


7 

AO 


L AST 
LAST 


837 

388 


37 ,3TA2 
T7,3TA3 


3 5037 0 
5T 0 03 T 


T A 
TS 


FBAfJG 

FRANK 


0211 

0212 


XTTTT 

021 T 
0215 

vmr: 


P*^F 

27 

EAST 

8^7 

EG, 167,1 





37 , 37A-^ 

-irFF~ 

3 

“EAST 

^ J V 

37 f 3 7A 5 

PFF 


EAST 

BBT 

3 7 ? 3 7 '>6 

P “F 

3 

LAST 

888 


TEF^ 

A 

EAST- 

r* 

37, 3750 


E8ANK= AUG 


0 0006 
3 1771 
5 3*665 
3 1 772 


55 * 666 


1 

T 

1 

1 

r 


021 7 

0 213 
021^ 
0'77CT 
0271 


3 7,3751 0 0003 1 


REDDPnSF FXTENn 

-j ^ - - - - - -■ — ^ 

ncA 

DXCH 

OA 

TS- — — 

PEL I NT 


TFNPgDtO 

RxlLL/180 

TEMPBFTA 

BFTA/180 


RTF 216 LAST 083 


REF IT 


LAST 

OA S T 


BT3 

5 A 6 


37,3752 
36?’ 75 3 
? T ,3 7 5 - A 
7 , 3 755 


0 60G6 I 
515 75 1 
011 77 T 
0 37 23-i 


TO 

CM/PnSE3 YtllAD 


I NT PR FT 
ABVAL 
YN 


store- V^AGT 


02 27 

0223 


t> *- E 


0275 
0227. 


TET 

REF 
F F 


LAST DA 5 


76 LAST • "387 


37,375 5 - 
37,25^5 7 


77650 1 

0 3 3 2 '^ 


GfW 


PrtSEX I T 


179 
19 1 


LAST 

LAST 


-8 3 A 
871 


3 -7 , ) 76 1 
3 7,2 7^. 2 


0 

50> 


3 ^ , 176- 0 5 7 ' TTO- r- l : COPANGOV TS 


t 


jL 


000 


0 

1 


— TO 0 

- INDEX A 


10528 APB. 1,19 69 rROUBLE .0A3 ’ P7TF" 


USFPTS PAGF NO. 


E6 S3 


GET 



/IBOr /2 




AS FOP ROLL. NEEDED 
RFCT FOR OVFL IF ANY 


FOR EXT ATM DAP 


ANY 



/I 80 ) / P 


OVFL NOT FXPECTFO. 


TH T S-ASSUWES THAT TT t E 

IS Ntrr ghanged in 

ERVTCFP. 


TC- 

OCT 


PHASfHNG 

10035 


RF-STARTS OOME HERE 


OANT TO 0AN7TG AFTER 
RETliPN FRGM OM/ATUP. 
2(-7) M/O-S — 


PHASCHNG. 
(RESTART ) 


FOR DISPLAY ON CALL. 


ENOf KIT, STARTFMT* OR SGALEPOP 








GAP: 

aSS^‘LM 7 r>t!vI5TJ3 055 OF’ A 

.(■;C PRUGT'AM LiVIANCHF BY MA5A 2n21ll5-T51 

10:28 APR. i ♦ 1 '70 

TROUBLE .043 

PAGF 8W 







L 

cw "BUOY ATTITODF" 


USE K * S PAGE 

MO • 7 

F6 S3 


02 2T 
027"^ 


7”EF 

RFF 


1 

77 


TJ 


7T7 


7TFF 



LAST 

CTST 


TTTTT 


77 . 37o 7 
37 *3754 
3 /.3 /65 


T ~50t) 0 1 
26 T)01 1 
0 0002 0 


CA 

7DS 

TC" 


CTTtTTS 

t 

V 


T 5 2 MC T T O US F 



0230” 37t3766 45730 1 “^KVSCALF 20FC - -•B1491744 -12800/t2 VS .3048) 

71737 ■ — — 37,3767 53410 1 — 

0231 37,3770 03146 I TCDU DEC Vl TCOU = .1 SEC. 


0737 FTFF 23“ CTFSl WWB E6 . 1661 bBANK= AHG 

^ 0233 TTEF 1 , ^ 

0233 7EF 1 37,3772 76066 0 ' “ ^ 


TTZTP'l — ASS^MHLl- ^ V I S I UN Tif- AGC CiJMANLHF "ST 'NASA 20Zlll^-051 


PT7, P70 


0001 

00012 


REF 


1 


31 f“3700 
3 6 T 20 0 0 


0001 4 

0002 

" (TO'OT’ ■ 

R 0050 


R0051 
P0052 
POOR 4 
R0056 
7 DO 5 8 
R0050 


i^rrp 

rpf 


3 

r 


LAST 280 


3^^;246"6 


7^,r63T 


BANK 31 
SETLnC RTEl 
BTOX 


EBAMK= RTFDVn 
CnUNI 3i/P37 


PROGRAM DESCPIPTIUN 


P37t RFTtJRN TO FAPTH 


10:28 APP 


1 ,1960 TPOUBLT .■0^+'3 


USFP’S PAGF NO 


FO S3 


nESCRTPTTON “ 

A RETURN TO EARTH TR7AJECT0RY IS COMPUTED PRnVIDEO THE CSM IS QUTSIOE THE LUNAR SPHERE OF INFLUENCE AT THE 

IMlflALLY A CONIC TPAJECTURY — IS DETERMINED A'Nn RESULTING ir7NITrON ANDTL 



yjwp OF TGN^^ ION." 

DISPLAYED TO THE ASTROTrAUT, THEN IF THE ASTRONAUT SO DFSrRES"t A PRECISION TRAJFCTOpY IS OFTERMINEO V#ITH THE 
r ESUL TING IGNT TI ON AND REENTRY PARAMETERS DISPLAYFO. UPON FINAL ACCEPTANCE 8Y THE ASTRONAUT » THE PROGRAM 
XTTM Pil T FS AND SKJKl-S T HP T 7 : RGFT PARAM E T E RS F D R - RET URN T O E AR T H FO R USE BYS PS PPOGROT tP40r~nR RCS PROGRAM 


POOIO- 

ITCTOTT 

nOlOO 

■RDTOr' 
R ai 02 
ROIOT 


R01TE4 

ROlOO 

ROIQG 


ROTOR 

R010° 

ODITD 


p crm. 

Raii2 

EDITl 


ROiiir- 

R0115 - 
R 0 1 T5" 

ROUT— 
ROI IP. 
“RDlTO~ 
R0120 
“RDl 21- 
KOI 2 2 ■ 

R 0123“ ■ 
ROT 23 5 
R 0 1 21“ 

R012^“ 

9 0127 


CALLING SEOUFNCF 
L ““ “ TC “737 

SURP OUT INFS CALLED 


R GIRO 
ROl 31 


V2T100 

RTENCK2 


TIMER AD 
PAP AM 
Y2T1 OD ” 


GAMOVIO 

XTILTM 

"^"DVCATC 

RT’^NCKl 
TNTSTALL 
TNTFGRVS 

P T P VM 

RTEDISP 

FMR ADlOn 

AUGEKUGL 
L AT -LONG 

TmADTorr” 

T T M ER A o 
I NVCl 00 

CSMPRPC 

Gr TER AT 
T IMETHET 

PRTOALRH 

VNl 645 
P-JLY 


A SARI IN [ T 1 At I 7 -AT !0^-< REDt J I RED 
CSM STATE VECTOR 


OF Ar,r. P'^nc.i^AM C‘)MA^lCHF NASA 202111 3-Oot 


TTTTTH'TTFP 


1 . 196 'J IRUUBLt .U 43 


P0TB2 


RO'l'SD 

POl^l 
R 0 1 
■ROTo 
ROT 67 



^7T, 070 


^^JFTSFl.^, 


TTIvT^TOUT IMPrjT 
■SPRTETIG 
VPRFR* 

rrpTroN? 


USER’S OAGF MO. 


E? S3 


NITMFFR^OF 



THF RCS PROPULSIOM SYSTFfT SEtECTFO 


STATF“TLAG 


TIME lOF TGNTTinN (nVERLAYS TTGl 

DFSIRTD CHAt^GF TM VELOCITY AT T TG( PR OGRM COMPUTED IF 
DtS IRLO FrTTTTTT O-^AT H ANGLE A! P t ENTRY TUnTTRUTFDT'FOT 
PROPULSION system OPTION “ 


01 


OP 

OP 

UR 

SP 


B2B 
B 7 - 
BTT" 

B14 


0=4 JETS 


CS 

METERS/CS 
REVS ^ 


1=SPS* P=RCS 



HOP T r 


P.WRD nUTPriT 


12 
1 1 

I lu 

o 

8 

► 7 

6 

5 

I 4 


POIFT 
ROl^^ 
"TTDTR^ 
RUTB6 
R 0 T RB 

“TTDTW 

PO 107 
ROT 9 4 
RUTT5' 
ROI 97 
POl-0 
“R'D^DI 
R0202 
RO'^OA 
■R"D7 'IB 

RO'^0'^ 

R0210 


CONIC OP PRECTSrON TPAJECTn'^’Y DTSRLAY 

VPRED VELOCITY MAGNITUDE AT 400^000 FT. ENTRT ALTITUDE" 

FT. ENTRY ALTTTUDc 


TTHTTA 

GAMMAEI 
OELVLVC 
L ATEBRET 


r ! r A N S 1 1 — fi ME" TO 400 ;TT01T 
FtIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE 
INITIAL VFLOC TTY CHANGE VFCTnP TN LOCAL VERTICAL COORD. 
LAIITIIDE OF THE LAN')TNG SITE 
tONGlTOnr the TAUniNG SIT^ 


‘ DP 
“OF 


87 

FTB 


on 


LNG(SPL) 

TARGETING COMPUTATION OTSPLAV 

TTG RECOMPinED TIG BASED 

TTOGO TIME FROM TIG 

+ MGA POSIT TVE MI HOLE GIMBAL ANGLE 

TH PU 5 3 — PR.DGP7U*’! COMMUN I C A IT fJN 

XDELVELG ^XT^NAt DELTA V FLAC; 


GP TT ON 


EC STEER 

RTARG 

TPAS54 


0247 

0744 


REF 


07^ 

ORbO 

07B! 

0252 


REF 

REF 


1 

.1 


=07 54 
0755— 

D509 
05'U 
0597 
05 9 R 5 
0 5 L’ 


J’ FF 


T 

1 


5 F 7 rs 


I 


TEE 


rt r F 


LAMBERT ATMPT ROTATTOnSWITCH 
CROSS P^Ni'TJCl SI feeing CONSTATI 
CONTCAtlY INTEGRATEn REENTRY POSITION VECTOR 
REENTRY TTMp 


89 L AS T 8 6 I 


56 r 7466 
354 74 67 


0 5412 0 
09004 0 


PB7 


TC 

OCT 


PHASCHNG 

4 


DZ45 

FEE 217 

LAST 

BS a 

0246““ 




0 Z47 ■ 




0247 

"R EF 5 

LAST 

oB 4 

" 02431 

♦ 





RLE 24 

EAST 

677 

024T5 3 

PFF 7 

LAST 

BIO 

02 A 8 ^ 

Rf'F 7 

LAST 

a 1 0 


76,^470 
T6, 7471 
36,2477_ 

35,7473 
36 V 7 47 4 
36*2475 

7 

36 * 2 47 7 
36*2500 

36 ,2501 


0 6006 I 
66170 1 
04090 "0 


TC 

AXT, I 

rrCT 


35, 7476 


36 * 2 
35, 75 03 
3C,''75U4 
36 * 2505 
36 , 7 50 ' 6 " 


03474 

0 ^ 


77745 

1 

0 L 0 A D 

15335 

0 


03 767 

1 

STORE 

03771 

0 

STORE 

f J f 1 b 

1 

TKTT 

A IT 

3246 

1 

CAP 

32 3 5 

_Q__ 
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inTPRET 
SXA*1 
047100 

EC STEER 


GAMMAE I 




36 * 250T- 
3 6 . 75irO- 
36, 25 11 

-37S -* 2 n 7^ 


1 — 2 501 — O 
3 52 52 1 
0 3211-0 
T 1304 o 

1 
O 


TCF 

f/AF 


O 6005 
-^13 31 


RTE29N 


TCE 

TC 


V6N33RTF 
P3 TOG OF 

V6N60RTF 
P37GFRB1 
=2 




001 77^' O 


8 LAST 8^1 


3^ 


I 1 


M3 


NO 000 
03 7 6 7 


1 

1 


intp^ft 

OL9AO 
OVFT UO 

0 

VPREO 


DP 

Rtl 

VFCTOP 

87 

OP 

BO 

OP 

BO 


UK 


DP 

878 

OP 

3 0 

STATE 

FLAG 

STATE 

FLAG 

SP 


VECTOR 

^29 

OP 

823 


METERS/CS 

CS 

REVS + ABOVE 
METERS/CS 


HORIZON 


RFVS 



CS 

REVS 


.02 IF REFSMFLG=0 


SET 0 FOR LAMBERT AIMPT 
0 FOR NO ROTATION 



METERS 

CS 


P37“TS NOT-RFSTARTABLE 


INPUT TIG 


STORED IN SPRTETIG 
OVERLAYED WITH TIG 


OES P tA Y NEW DATA — — 

INPUT PF ENTRY ANGLE IN GAMMAEI 
AND OESIRFD DELTA V IN RTEDVD 
Dt S P TAr NEW DATA 


1 


0 


G apt — ASS^MB ir C>FV T <;ln^- 05^ PPrG^ AlT ^.^MA^^CH!: BV MASA Z'CTZTLl 'j-0 5l 


lOfZ'B 


U1'-:J6'-* TF’OUBLE .043 



P3T, P 70 


OS 04 

0505 


OEF 


4 

( 


3^ 1 


0506 

050^ 

0510 

Ti5rr 


5 FF 
R FF 
RFF 
^FF 
" P FF 
0S13 RFF 
0513 0^5 “ 

0513 05 rtf 

051313 REF 
D5TTTF 


051537 
051335 
05T1A'~ 
051344 
051348 
■051^' 
"051:^5 
05T5 ■“ 
0 5T5 

0517 

0517 


r.EF 
FF 


n 

r. 


RFF 

RFF 


RFF 

RRF 


051 R 
051- 


0531 
053 3 ■ 

053^ 
05335 
0 53F- 


TTEF 


0535 

0537- 

05-" 3 
0 53 9 


r\ 


1 

7 

T 

2 

1 


LAST 

LAST 

n^ST 


LAST 127 



LAST 127 


1 

5 


3'^72T14 

36.2515 

16.2516 

35, “2517 

36, 

36.2521 

36.2522 
36, 7523 
36,2524 

35,2 


17632 0 
03 7'^! 0 
17654" O' 
3351 45 

X) 

3T67rr 


17735 


3 75 5? 

64450 

TI2T4 


0 

1 
1 


LAST 


0513? RFF 1 
0513 R4 PFF 6 


LAST 852 


1 

2 

2 


LAST 127 


36,7527 

36,7530 

36.2531 

36.2532 

5677 5 33 
3 6 , 


LAST 

L AST 


897 


, 7 53 7 


3 

7 


LAST 

LAST 


592 


4 

53 T 
36, 7536 
36 
35, 2 540 
36 ,^55 t 

36 ,“7547 

■ 3577553 - 

36T756 4 
36,2545 
76V7546' 

30,7547 
36 7755 0 


TT 

1 

03632 0 
SI 4-44 "T 

74540 0 
03637 0 
45T'45'r 
03646 0 
33622 1 
“43040 T 
74540 0 
02462 0 
77545 "TT 
03646 0 
0 7171 7 
00002 0 


4 


0 
0 

1404T n 

05066 1 
44052 


0510 — 





3 6,2551 

600 Ttr 

T 

0 

- ♦ - 

05^0 





36,7557 

26415 

0520 





36 • 75-»3 

75 05^ 

1 

■05TT 

TTEF 

■ 7T9 

LAST 

891 

36,2^54 

0 60 06 

1 

'I 

052? 





3 6 , 2 5 :■> 5 

77757 

I 

0575 “ 

REF 

c 

LAST 

127 

36,2-55 6 

176 5 A 

0 

— *1 

"0575 

FTFF 

T“ 



35 , 2557 

33 5 A4 

1 

052.7 

REF 

2 

LAST 

127 

36,2660 

17730 

0 

0525 

REF 

1 



36,2561 

33674 

1 

OST^^ 


—7 

LAST 

i2T 

36,2362 

1 1 

0630— 

REF 

4 

LAST 

892 

3 5,756'3“- 

03634 

0 


T 


3 6 , 7 5 6 4 

36, ^ 


F4254 

T45 T 4 


1 

T 


USER’S PAGE NO. 


F7 S3 


SIDDL 


STUDT 



RTF 

GAMMAFI 
K1 FGARI7TJ 

lRTEBt3 

coral CXI 

C4RTF 

STCALL MAT^AXl 

INVCIOO 

CLEA'R OLOAD 

— S!:nWFl-G 

— — RTFOVD 

— AFS 

RTE31 7 
RTF OVD 
05X1 


BTFC 

STOPP 

OLOAO 


8MN 


RTF317 


OTTIATr 


TC 

DEC 



TtrEC 


SLl 

stool 


STOOL 


RT F 3 7 0 STnnC 


LAST 666 


3 6^ 2 5 56 
36,256 T 
3 6, 2 O TO ' 


33507-0 

y 1 406- o 

7 - 



PliSH 

POOL - 


FT 1 
E F 1 


35, 25 TF 

jtrj-2-^-y 2 

36,2 5 7 3- 


REF 


LAST 892 


3t'r-,->5-T', 

16,2575 


45465 1 
40051 1 

746 0- 7 - - n 

45345 1 

03646 0 


GET P(Tiy/,VtTl)/,URl/»UH/ 


R( Tiy 
KlPTF 
FFT 

RTF31 7 
StnWFLG 


R ( T I ) 

ROLY 

7 

181000434,6-31 



20FC^ -6 .49Q93057F-9B27’^ 


7 OEC’!' 9% 76938926F-1SB56^ 



MAMAX2 

NNl A 
K 2 R TE- - 

R CQM 

r<TEGAM20 

BOW 

RTE340 


C07C l=«‘P>C2’»'R**2+C3*R*’^3=MAMAX7 630 


RC0N=K2 


REENTRY ANGLE 
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3 6 , 5 - 

36, 9 

36,3160 
3 6 , 317>1 
36^1 r>2 


1 
D 

7 51 55 1 

0 
1 

77756 0 

1 6 7 3X tr 

43146 O" 

03 6 66" 3 :" 

;:>f-.78 4 0 
03 640- -0 


PU S H 


P37U 


OtUAl) 


P37V 


SIN 

STOOt 


-SXJVI 


USFP*S PAGE NCr. 


8 


FT S3 


.38828195561 


INTPKET 

SLOAD 

WFIGHT/G 

ODV 

0 -120,1 


CSU3T 

T1 

XTG 


V6N33RTF 

P3T0GnF 

-2 

7 FRO 


T'^KHKCNT 

INTPRFT 


PTF9CK1 

UNIT 



vxsc 

URl / 
MrOS7.5 

VXSC 

un/ 


K s t nr r* ^ 





^537W 

DOT 

tmr 

R( T?r / 

OLOAO 


THETA 1 65 
OOTU 

P3 TV 

PUSH 

THETA? 10 


S-HTH 
CL FAR - 
XVSTi 

CSTH 
Rf T1 ) / 


(l-E)^4t-nv/VC)=A 


63 PL04D 


UTB=(M0/HD9T77t 


816 + 63-83=516 Pt 900 


T IG= T l-C T » nTg 


DISPLAY BIASED TIG 



FROM 


XVXR T 12 


PtOOD 


UR 2 


PI PL06D 


URl (COST. 5) 


B1 PL12D 


K/=-UR1 (COST. 5)-UH( SIN7.5 ) 


B2 PLOOD 


K/ 


UR 2 GR COS 2 2. 5 


— 


0 ^ 


I 

f 

r 

12 

1 1 

10 

9 

8 

7 

6 

5 


GAP^ ASSC-MBLE "jT-vrsl'n Or ' BY' ^ASA ^ 021 II 3 '- 05 r 


105 7 W I\PR. TTTWv mDUBt E . 043 ~ P AT;T"’ 


L 


^TO 


092135 

0P214 

0921 5 

0922 

3“ 

09^4 ■ 

0925 



REF 

RFF 

■; I 

^EF 


1 0 

3 

14 

R 


LAST 

LAST 

OS^T 

LAST 


89 3 
R 9 3 



680 


V. 


^ LTfST 

6 LAST 


TTTJ 

T ?3 


092T 

092E 

"TTTBTT 

O^ITT 
0934 
' 0 9 

09 37 

093R 

- 0039 - 

0940 

O'^hI 

0942 " 

094?r 

7094 "’ 

TT“ 


FEE 


OTS T 6-5 9 


RFF 

-ttfF 

REF 

"TTTF 


10 


V 4 ST 

TArST 


554 


897 
■'TTZ 
L AST B 9 8 


4 LAST 

rr~ 



779 

REF 


7 

C- 

13 

7 


LTTST 

LAST 

LAST 


711 

659 


7 FF 


2 


LAST 397 


36,3163 
3 6.7164 
36,3165 

' 36,3166 
,3167 
T 6 , 3 r 7 ' 0 ’ 

36.3171 

36.3172 
3 6 , 3 1 f 3 
364317^4 
36,31 75 
3 6,3 176 

36,3177 
36,3700 
T 67 T 70 T 
36 , 320 ? 
36,3203 
36,3707 
36,3205 
36 , 3 '’0 6 
3 ' 6 ", 373 T 
3643 R 1 0 


26657 1 
03700 0 
36746 1 
24744 0 
43014 0 
0126^ 0 

1 

4 0 

olon O' 

77676 0 
60362 0 
00 0 3 T "0 

77635 0 
03716 1 
2(656 1' 

03700 0 
7 7651 0 
03672 1 

37646 1 
73002 1 
77650 1 
7513 T 3 T 


”3714 


3 JBR 0 UT TNF TH T;!' !'U GLifLASHR AMO BLANK R 1 


STOVT 


SICALL 


CLEAR 


SET 


RVFC 
V 2 (Tl ) / 
VVEC ^ 

TIMETHET 

CLEAR 

XOELVFLG 

navn s w 

VLPAD 

FT^ALFLO 


5 TAD R 

STOOL 


R TAR G 

1 


DAO 


STOVL 


VSU 


T 1 

TP 3 S 34 " 

VR(T 1 )/ 


vTTrr/ 


STCALL OELVSIN 

VN1645 

"GOTO 

P37W 


0950 

0931 

0952 

0953 


OFF 

RFF 

p 


7' — E3ST 


2 

1 00 


LAST 

LAST 


rTT- 

893 

896“^ 


0954 

RFC 


LAST 

0^55 

FEE 

96 

LftST 

LAST 

095 4 

REF 

3 

0957 

REF 

“1 


R 0958 




R 

SUBR^DUTJNE TO 


735 

831 


36.3211 

36.3212 

36,3713 
“3543714 
36 , 321 5 
3 643216 
36, 3217 
" 364 ’220 


0 0006 1 
23^753 


XT 

0 

1 

TT 


P3*^GFRB1 EXTEND 

oxm 


0 3771 
3"50rR 

0 5576 

1 5217 1 

0 176? 0 

1 3244 I 


3TL.LANK 


ICR 

CAF 




TCF 

TC 

TCF 


P 370 GOFR 

ONE 

BLANK FT" 
ENOOF 103 
SFRTEX 
9 3 ' TFRnt 


OOF LAS HR 


USER’S PAGE NO, 


E 7 S 3 


RECYCLE 

PROCEED 


096 0 


0955 


096 6 

0 ’' 7 vT 

096 


0970 

0071 

R 0 973 
R0974 


0961 

R.EF 

2 

LAST 

127 

0767'^ 

"REF 

2 37 

CAST 

H77F 

0962 

R F F 

^ 14 

L AST 

798 

0 ^ '0 ^L 

2EF 

70 

LlAST 

801 


1 6 , 

3 , 


3221 
3 22 2 


0 0006 1 
23*733 1 
3 6 , 3 27 3 " 3 4557"3 
36,3224 ^1057 0 

3 6,3275 1 4106 0 


EF 

3 LAS'T 898 

p FC 

4 LAST 873 

5 FF 

5 LAST - — 098 


3543775 
3 6 ,3977 

36 ,B 230 

36,3231 


1 3 7 31 " 0 

1 3733 I 
0 1733 



2232 L 


36 ,3 


36 ,3733 
36,3234 


I 

-r 

0004 i 

1 


1 0003 0 


SU2R0UTTNF TO- GO T 0 GOFl-ACH 


P370G0FR EXTEND 

OXCH 




TC-v 

CAOR 

TCF 

T CF 

TCF 

TC 

I NDE X 

TCF 
INDEX 
■TCP 


RTENCKEX 

BANKCALL 

Gi^F LAS HR 

GOTfCOOH 




+ 4 

R 7 ENCKEX 
KTENCKP X 
0 “+4 

PTFMCKEX 
0 -t-T 


TERMINATE 


IMMEDIATE RFTURN 


RFC YCLE 




FPVlSt OM 



me r»rn(^c*AM comanche 'sy nasa 2n2iTr3-ot>i 


I0i28 APR 


1 , IV69 IKHUBLE *043 PTTG^ 8W 



PAOT NO. 10 E7 S3 


n 


0915^ 

0975 

W7T 




0979 


RTF 


4 

-ZJ^ 

44 

71 


FAST 

nrsT 



LTST 


ZBT3ZZ3 
598 36,3236 

~WTW — m,Z2 3 7 

"8TJ0 T‘6,3^41T 

“T9T 36,3124T. 
36, 3 2 42' 


0 OOD6 1 
23*76^ a 

0 4662 1 

207 90 0 

1 4106 0 
1 3244 T 


0370001 


EXTEND 
OXCH 
TUP 

CAOR 

TCP 

TCT 


0951 
09? 2 


REF 

REF“ 


5 

6 


899 


36^,3T43 0 1T62 0 


LAST '890 36,324^ 51<T62 0 P37PRnC INDEX 


SPPTEX “ 
BANKCALL 
OCFLASH- 

onTDPnoH 

^F2 

^PTEX 

SPPTEX 


■■ WTB — jzrrrr^ 

1 0001 

T" 


TCF — 

D‘~TT 

0985 36,3246 

01441 

1 

V6N33PTE 

VN 

0633 

5 6>f32^T 

01006 

0 

V4N 06RTE 

VN 

0406 


0988 

0989 
09877 


0996 

09^ 

09911 

0999 


n 


lEf 


~3BT32 51 
“T69 3262 
.86,3253 

“32,“2Z62 
~”32 , 2000 
32,2262 


“01 447 1 
01474 1 
01521 0 


V6N39RTE VN 
V6N60RTE VN 
V6NH1RTE VN 


0639 
0660 
r 


REE 


OANK - 
SETLOC RTE^^ 

BANK 

COUNT 3 2/p IF 




ASSFiMBLE RtV IS J UN 'TT5'5” ni- & C'lHANC HF""&Y NASA 20211i3-u51 
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04 3 P A G TT 



I 


i 


L 

PTTt PTTT 



• ■ ^ mm-u ^ • -■- 
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E7 S3 














“FI 000 

ALARM DI SPLAT 

SUB ROUT INF 









1050 



32,2262 

774 20 

1 

P370ALRM STO ~ 

EXIT 





■ “ T05I ' 

7TRF r~ 


“W5 32* ?26T 

■a37'62 

"T" 


SPRTEX 





roF5 

R ET ~ 2 86 

LAST 

BF8 ' 32; 2264' 

3 0154 

1“ 

C A 

MR AC 





1056 

RPF 3 ■ 

LAST 

652 32,2265 

0 5764 

1 

TC 

VAR AL ARM 





ITOT' 

"TTTF 1 


32,225F“ 

3 22 /b 

“0" 

CAP 

vSNO^RTE 





1056 

>^€1^ 239 

LAST 

aOT 32*Z2r6T" 

"0 4662 

1 

TC 

B ANKC ALL 





1059 

REF 45 

LAST 

TF?^ 32,2770 

20720 

0 

C AOR 

GOT LASH 


% 



IWT 

"RTF 7T 

LAST' 

H99 32.2 771 

r 4106 

u 

TCP 

GOTt JPnOH 






“TTr61 — 32 , ?T7T—^ -7^h XT . — TCT 

106? UFF T25 i; f^Sn 8^T T2T?^T3 — tl”6tr0fm TC 1NTPRFT 


1063 3?. * 22 7 4 77t)50 1 GOTO 


1064 ” R 

1065 


B LAST auo Tr,^2T5 OTTB? 1 

— 3ir*?276 01211 1 V5N0ORTP VN 


SRRTCX 


0509 



12 
1 1 
10 
9 

8 
I 7 

6 

5 

\ 4 
3 
2 
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! \ 


^ 2 n n 2 

R 2004 

ITZTW; 

R 700 a 

R 2010 

■^^ 715 'rT 

RROll 
015 


p p 

r s d- 


2100 

2101 

7 TTTZ 

2103 

2104 

Z 1 '"‘T 


3 7 , ^O 


(J Sp R • S P 


12 


TI'^T^R^nj US roALL ING SUB ROUT I ^TF 



RVFC 

v/VFC 

RT)TFTFnj 

CGNTCXl 

OUTPUT 

PTTTTT 

V(T 2 )/^ 

T 12 


TNTTT At PTTSTT TON VECTOR 
ITIAL VFCnCITY VrCTGR 


VECTOR 

VFCTOR 


B 2 ^ 

B 7 


FINAL RADIUS FOR WHICH TPANSFFR TIME IS ' TO BE COMPUTETr 
XI SETT TW FOP CONIC SUBROUTTNES = FARTFl 


SP 


ir 2*7 

B 1 4 


FINAL PUSlflGN VbCTOR 

F T MAT~VFLUC T T Y VFCTOR 

TTTOiNSFFK TTYF TO FlNAL“RAOTUS 


VECTOR 

VECTOR: 

OP 


Tr 20 

B 7 

B 28 


PEF 

RHF 


6 

IT 


LAST 

LAST 


89 B 

W 7 


32 , 2 ? 7 T 


32 f ^ 3 


PTEF 


2 ^“XAST 


OF 


2106 



2107 - 

R F F 

3 

■” 2 X 0 ? 


1 

210 ^" 

REF 

3 

21 1 0 



7 TTT 

■ REF" 

5 

2112 

REF 

7 

211 ^ 

REF 



LAST 892 


LAST 893 


32 • 2 303“ 

^,2 302 
32,2303 
2304 

3 2t2305 

32,2306 
■323“Z30-T 
32, 2310 

32r23Tr 


43020 1 

03733 0 
03665" 1 

67164 0 
20000 0 
02T55~r 

45140 0 

03734 1 
25 ' 556 “D 


TMRADIOO STQ 


AXC , 2 
OCT 


CLEAR — ^ 
RTFNCKFX 
RVSM 

SXA, 2 ‘ 
20000 — 


LXC ,1 



tlAST 

LAST 

LAST 

CTTST 


wrr 

898 


WT 


32 , 23 rZ 

32.2313 

32.2314 

32.2315 


T 75 25 ~Cr 

60121 0 
00037 0 
37724 I 
03733 'XT 


STOVL 

3 TA 0 R 

STOOL 


SGN P OO T 
CALL 
CONICXl 
TT YERAO 
V( T 2 )/ 



STCALL 


T 

T 12 


METERS 
METERS/CS 
^ FTE RS 


METERS 
METERS /CS 

cs 


(TTPl ^'^VISTON Obb (lF"7r;r CUMANCHt BY NASA Z0'21 113-0'^ T 


io:7s APR. — rrrrerr 


^3T, OTO 


USER *5 PAGE NO 


13 


E7 S3 


P22a0 display CAXCULATTON SUBPntiTTWH 

wz 701 CTFSi: rp “ 

P«2?0'> OUTPUT FOR DISPLAY IS CGNVFRTED T^ PROPER UNITS AND PLACED IN OUTPUT STORAGE pEGISTERS. LANDING SITE 

P2204 COMPUTATION FOR “DFT^HI NENG"! VNDTNG STTP LATTTUnE A ND LONG TTUOE IS INCLUDED IN THF POUTIME. 


R22D6 CALLING SEQUENCE 

R2207 L CALL 

Rr2r2TP" I~+T ~ RTFOTSP^ 


R7?0^ SURRaUTTMES CALLED 

“"P“72Tn TNR ADIOO 

^.2211 AUGFKUCtI 

P?212 LAT-LONG 


R 2 21 3 EP ATARI E T NT T T AL T Z ATI ON REOU TRED 
R2214 PUSHLIST 

TT7TT N^F 

P2216 MPAC 

P221T NONE 

p RPITT" DTHETr~^ 


R221P P(T2)/ PINAL POSITION VrCTOR - — “ VECTOR" 629 METERS 

R:2 221 V(T2)/ final velocity vector — VECTOR METERS/CS 

Rr2770 T2 FINAL IlM''; DP 626 CS 

R222T~ V2(T1)/ POST TMPMISE INITIAL VELOCITY AZECTOP VECTOR 67 METERS/CS 

P2227 V(Tn/ INITIAL VELOCITY VECTOR- VECTOR B7 METERS/CS 

— P7Z2D~ ORTA UNIT INITrAL VECTOR — VECTOR 6t— — _ 


P2231 UH/ UNTTOTORl ZONTAL VECTOR VECTOR 81 


R27AT 

172234 
p 2 2 33 

R22TT 

^22 40 
P 2247 


ouTPin — “ 

VPRED 

T3T0T4 

or LVL VC 
LAT( SPL ) 

roc 



2277 
'2273 
22 T 7 
2275 


^EF 

RFF 



- 27T9 



2220 

R r F 

2 

22^1 

E F 

1 

2282 


0 

22 ^3 

PEF 

9 

22^4 

^EF 

8 


R FF 

7 

2286 


A 

2 2 "6^. 



"C 




9 LAST 
3 LAST 


1 

2 

6 


LAST 



VELOCITY ^^AGNITUDF AT 400.000 FT. ENTRY ALTITUDE 
TRANSIT TIMr TO 400,000 FT. FNTPY ALTITUDE 
FtTGHTT»ATH ANGLE AI — 400,000 FT.' E 
INITIAL VFLnr I TY CHANOE-VECTOk IN 
LATITUDE OF THE LANOING SITE 
rONtri TUDF OF TFF^ 


LOCAL VERTICAL COORD 



LACT 900 
LAST 901 


89 1 
893- 



32 . 6 

32,23rr 
32.232 0 

32.2321 

32.2322 

32.2323 
32 r 2324 
32 , '237 6 
32 t 23 o 
3 2 ,232 7 
3 2 . R 23 0 

3-2-i22'5l 

32,2332 


03710 1 


:034!^ 1 
-76T4 1 0 
03656 — F 

-3023 6- 0 

77752 1 


77220 I RTEOfSP STO 


VIOAD 



j 0 

UNI T 

> 0 


’ 1 

STODL 


V ( T 2 y / 

POOL 


VPRED 

T2 


OStt 


STOVL 


SPRTFTIG 
T3TnT4 — = 


UNI T 
SLl 


DP 

OP 

VECTOR 

DP 

OP 


6 7 
628 
60- 

67 

80 

60- 


01 SPLAY 


V(T2J 


T2l 


METFRS/CS 

CS 

R -E AA S 3-- 


MFTERS/CS 

REVS 

R6VS 


4 

3 


4 - 


rTW: ASSEMBLF Re\/1^10N 0^5 ^rX 



113-Obl 


TTTTTirxrtr; — tttw; — fpouble .043 — PTsrgr — 9 m 


L 


337 , ^70 


USFR'S FAFB NO. lA 


F7 S3 


2737 

22'3T3 


27W 

2 2 0 
2 2 


pEF 

wp- 

P-EF 


77 


LAST 

ITTST 


8^3 

WT7 


32V2333 
3 2, 733 A 
TTTTTTE 


LAST 3^8 


37. 2336 

32.2337 


AA-32 6 0 
33502 0 
27771 T3 

03700 0 
A1A51 1 


AFCCnS 


STOVL 


VSU 


BDSU 
1RTEB7 
G A MM ATT 

V2(Tl)/ 

PUSH 


FLIGHT 



2? 2 

P FF 

3 

TTTSl" 

89R ■■ 

‘32 ;T ^40 

0367? 1 



VTTTr/ 




?293 





3 7 , 2341 

57441 1 


DOT 

DCDMP 



;?294 

REF 

3 

LAST 

897 

32 ,2342 

03740 1 



UP 1 / 




2 ? -B 





i2. Tf^i 

41 5 i 5 0 


PDVL 

PUSH 




2 206 





32 , 23 44 

63345 0 


DL OAF 

. POVL 




22 97 

REF 

1 



327345 

33524 1 



7. ^ R 0 R T F 




TTBTB 





3 P . ^346 

55441 0 


onr 

VOFF 




229^ 

^ F F 

3 

1 AST 

89T“ “ 

32 ,7347 

03 7^:6 1 



UH/ 




220 a 5 

T 7 

^ « I . 1 

TTTC 

“TTJ — 

"1 A CT 

— xrm — 

32.2350 

— 7 . R 1 — 

77777 0 
— 1 Tin=^ — n — 


VSLl 

CTnm 

— nFT~\/t vr 


— — _ — - — . — . — 

- 




7303 04 
23001 
230017 
23001 A 
230016 
73O0T3 
230019 
2300? 


FF 2 0 LAST 9V3 


n TF 
RFF 


I 

I 

21 


REF 


22 


LAST 
L AST 


7307 

23 08 


7TF 

RFF 


IT 


L A'ST 

LAST 


23 JO ■ 

2311 

2312 
7313" 

2314 

2315 
73T3 
231 
231^-^- 

■7317 

7370 

2321 

7372 

232204 
232203 
232717 
2 32 ‘^16 

2322 2 


2TF 


HFF 


LAST 


V 


7FF 

PEF 


A LAST 
A L A 5 


2FF 

7FF 


7 

T 


LAST 903 


903 

739 


2 301 

230? “ 

RTF' 

PEF 

— ^ 

11 

LAST 

“TJZ 

399 

2303 





■Z30B 

RFF 

r 



23n‘=^ 

FFF 

3 

L ",ST 

79 3 

230 6 


5 

LAST 

TO? 


t /■_ -j 5 2 
32.2353 
77.7. 3 5A 

3?,?35F 

32.2356 

“37"73T 

37,2360 

77r73Bl 

"77T7337 

32.7363 


>2.23 64 


03A05 0 
57414 1 
IT2T4IT 
64357 1 

03405 0 

‘51575 1 
03405 T) 
7TT 7 7 
irTFETT 


70FF 


OtLVLVC 

OCOMP 

R FT p nFrO 

PTOIB 

OFLVLVC 


RTDl P 



NEGATE X COMPONENT. RETROGRADE 



T 

1 

0 

t 


1 

1 


7 7. AST 90 3 


^03 


LAST 643 


3 2.737 1 
32 .737? 
37,2373 
32.7374 
^7,2375 
37V73TB 
3?. 2377 
37,2400 
3237403 

32i7402 
32 r2T0 3 
37 V 240 4 


02 6 57 
452 46 
33550 
26760 

03 710 
367A6 1 

642 77 1 

53575 n 

73356 1 
535 15 0 
03710 1 
-72441 T 
65336 1 
00045 0 


STflRF 

ABVAL 


OFLVLVC 
VGDISP 
R f T2T 7“ 
PVFC 
DSU 


LANDING SITF COMPUTATIFIN 


STOVL RTU SIRED 

V ( T? ) / 

S T CALL VVFC 

T^RADIOO 
VLOAD UNIT 

73771 r 

POVL UNIT 

V(T2) / 


R3.V3.T23 FROM TIMFRAD 


UR 3 


90 1 
902 


3 A ST 116 


32.2 403 
32,^0 6 
32 . P'AOT 

3 2 . 247 0 
3? , .24 1 1 
32.: ^ 4 1 . 2 
3? , ?4l 3 
32.2414 


3T T 7 5 1 

45006 0 
64075 1 
4371 5 — O 
03324 0 
03736 0 
nnonp-l 


DOT 
ARCS IN f>0DL 

36D 

P Otr t AtrS“ 



ttV33 


V(T3» 


PL 060 

Pi 000 
RL020 


PUSH 


ITAtr 


531 35 0 

0 3 377 1 ^ 

6 44 T 4 t ~ 

00005 1 

73545 1 7TD2? 


5TtlBF 
S L DAO 


CALL 

AtIGEKUGl 

DAO 

T12 
T2 
O 


/GAMMAE/ 
PH I E 


PL04D 

RL060 


T23 


TttTT =- T2£T23STg 


STU9E 

DLOAD 


87F 

P37RANG^ 
RTn22 
04 D 
SIN 


UVERR IOF RANGE < PCR 26U 
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P 37 , '^TO 


USER’S PAGE NO 


t5 


E7 


2323 

2323 



2 327 
2 3 23 
2^^ 

2330 

2331 



T33 
■2335 
23^7 

2 3 3B 
'2340 
2341 


2342 
23425 

2343 


44^ 
2345 

254 ^r 

234T 

2343 

2 3 4 ’ 
2350 

7400 


R’^F 


LAST 2B0 


E F 


LAST R 45 



9 



K t 


RTF 


REF 
TTFF 
R = F 


PFF 


IFF 

n-p 

r? 

■ A 

Iv 


3 F 
R EF 


t 


ITTT 9 TT 3 


32 

37 

32 

37 

32 

3? 

32 

32 


32 

"TR 


LAST 904 


32 

37 


2FF TO CTTFl 9m 


11 

20 

16 


LAST 345 


"37 

32 

32 



EAST R 94 


B T75ST “307 


32 

32 
32 
3 


,2413 

• 2416 

7242rT 

,2420 
•24 21 
72422 

,7423 

• 7 42 4 
T2F75 

, T42 6 

• 7427 
7742RJ 

,7 431 

7243 2 
7743T 

• 2434 

, 7 43 5 
,“24377 


la L.4ST 
T1 — LAST' 
7 EAST 
5 EAST 
TO ’i: TEST 
2 EAST 


545 


32 


9 04 

610 

^^04 

~ 9 U 2 


32 

32 

32 

32 


• 2437 
,7440 
V 2 441 

• 2442 

72443 
,24 44 

•“24 4 5 
,2446 

• 74 47 


00005 1 
17403 0 
77746 1 
03401 1 
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RFF 

44 

LAST 

jr93 

REF 

1 93 

LAST 

937 

PEF 

6Q 

LAST 

935 
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10734 p:EF to 3AST 93 9 

17,2 27 4 54 105 1 

TS FLAGWRO'^ 
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0 0 0 0 6 
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TOUCH CSMNASS. IF ^=NGINF IS ON, 
THEN ITS OK TO DO THE COPYCYCLE 
EVEN BtI PMS LESS T H A N Q r ^S-EC- ARF AOK 


COPYCYCLE 


CALL TVCEXECUTIVE fPsOLLOAP CALL, ETC) 


1 X 2V 1 7 • ; 23 4 3 0 00O>^ - 1 

1130“ RFF 1 17i2344 3 2547“-0' 
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1 13 2 ref 4 — ! ;rST 232 IT ,2326 31*625 1 

1133 'XF 9 LAST 238 17,2347 54 03^ O 


EXTEND — CAL L FOR DARIN IT 

OCA OAPX>HT5 

OXCH-- T3L0C 

tIAE T5T V CDT - (ALLOW TI ME FO R RESTA F^ T 

TS - TIM^5 - 





n 




ASSEMBLE RFVISrM 0^5 OF 


1135^ 

lT3?r 

1137 


Tvr TisrmALTrE 


TTEF 

^EF 


l^EF "29 LAST 93 3 


OrST BTTT 

LAST A54 


17 ,"2350 


IT , ?33 1 0 


TTTTT5? 

1 7 , 7 353 



CmTA 'CHE BY NASA 2azn:T3’^Bl 


T) — E^JOTVCIN TCP 


Tj-^nmni 

23272 0 


PPeSWrCETTCR 


RESUME 


SVnCMOVR 


Tir“ 

CADP 


PUST'JUMP 

FrNBP^rCH 


USER’S PAGE ^fn. 


ENTRY FROM V46 


E6 S3 


int28 APR. I f 1969 rVCDAPS .OH PAGE 947 



T H I S P R O V i n E S AN EX I 
( PT NR RNCH OOFS A REt I N T ) 


“OVER 


5 

4 

3 

2 


Tr3R 

3139 

1140 

TT4T 

1142 


3343 

1 1 44 

TT73 

1146 


1143 

11^ 


1151 

1152 
3353 

1154 

TT55 

3153 


TT5T 

1153 

1159 

1159 

115] 


1 152 

1 153 


PFF 

REF 


5 

1 


LAST 94^0 


L7VST 

LAST 


738 

941 


TTV2'35 4 

17*2355 
17 *7356 
T7T7T57 
17, 


0 0004 U 
3 154 4 0 
55 3511 1 

Th'5 01^ 1 

5 ^ t 544 I 


7 FT 


17 ,2361 
17,7352 


0 0006 1 

23 » 61 3 1 


REF 

D 


1 


LAST 106 


I T ,23 63 

17 *2 354 


3 2535 0 

5 5«6T5 0 


PFF 

RFf 

REF 


p t- 




79 

3 

' Z 
A 

] 96 


REF 


11 

37 


"LTSTST 
L AST 
LAST 

nrsT 

LAST 

LAST 

TTVST 

LAST 

LAST 


TW 

93 7 


TOR- 

941 

939 

ERT 

939 
^ B 


17*7365 

17 , 236 6 
17 . 235T 
17. 7370 

17^,7371 

17*2372 

17,2373 


3 5021 r 

54 UTTI I: 
51 * 57cr T 


53« *^41 — r 
11*6 75-0 

10 0 00 rr 
1 


9 


17*3T7R 


12 LAST 941 


4-0105 1 

7 5C01 1 
17,2375 26 105 1 


REF 

OFF 

REF 


REF 

REF 

REF 


PEF 


2 

3 

2 

1 

6 

1 

C 


TAirr 

LAST 93 5 
LAST 938 


11“* 7 377 

17.2400 

17.2401 


Rj 9 
55’ 636 1 
0 2471 1 


LAST 939 


IT ,2402 
37 ,240 3 


3 2542 0 
55*634 0 


L AST 939 


17 , Z404 
1 7 r 24^1 5 


3 2543 3 
55*6 4-2 1 


S'WTCHGVR INHINT 

CA- 

TS — ^ 


TS 


TVC^HASF 

c»HASFTMP 

irrT2 

TVC'-'HASE 


+ 5 




OXCH RTRNl.nC 


rrrr 

TS 


NrFROJR 

CMTRTMP 


MCLFANJR CA 



iisrr- 




2 

11632 

Rr r 

4 L A^ T 

939^ 

1 

1363 3 

■ REF 

■ 3" LAST 

939 

0 

1 1 r>3 4 




9 

1 1 535 


4 LAST 

^39 

8 

1 1635 

Q P fr 

J A L, 1 

3 L AST 

"^3 CJ 

7 

A 

1164 - 

REF 

1 

_ 



17 *-Z40 7 
1 7 *241 9 
17,2411 
I 7 * 2412 

tr* -2 4 - t ^ 


0 0095 1 
3 1607 I 
606 1 


0 00 06 1 
3 ltT94 — 3 


5 3*610 0 


17 ^7414 3 25 33- 9 


TS - 
TNDFX 
TTKCn- 


TERTT-^‘“ 
t. — 

CNTRTMP 

PTMPl ^ 


CCS 


SAVE TVCPHASE 


swrrcH^av^ 


NTRY t !VT i 


CS 

MASK 

A9S 


CNT'^TMP 
A 

SW I CH O VR ' ^ 50 
ElAGWOOO 
FL AGWR09 


TS 


EXTtrXTT^FZ 
KTLX/ T 
S40.15 + 


CAP 

TS 


FKPR INOT 
KPRIMEOT 



STEERING 


TS 


E^ E PER AC 
RFRFRAre- 


- TMC LOOP 


/ 


f 


-fXTENO 


IIPOATt TPIH eST-fMATES 


t^X CH 


DEtP34« 

p nEL'^FF 


EXTENfl- 

fICA "fh-LYHAR 
n-X C - H Y ^YFLnFF 


CA 


lECFADP 






/*• r 





A^iSEMi^LE f^'FVTSI' 

L T VC T N T TT AX T TF 


116F n-EF 3 1. AST 
1166 PFF 2 LAST 


1167 REF ? LAST 
116R' RFF 7 LAST 


1169 RET 2 LAST 



RRnGPAM rXMAMCHE BY NASA 2021 1 1 .'-03 1 


93 B 

17, 2 41 5 

55^722 

0 


TS 

CHFFFADIV 

93 8 

17,2416 

0 2422 

1 


TC 

LOAnCOFF 








94 1 

17,2417 

-31^611 

0 


C4E 

f>H ft ^ Mp 

941 

1 7 , 742 0 

55*6 44 

1 


TS 

TVCEHASE 








941 

17,2 421 

0 1613 

1 


TC 

RTRNLDC 


ITFi2M AEFX r7T9 69 rV CDAFS .Uit PTtrE 9iF2 

» 

PAG^P NO. 6 t6 S3 


RESTORE TVCPHASE 


SACK ^ OR TVCRESTARTS 


1170 - - , ^ LOAOCOTEf EXTE^m tOAH QAP fILTER COEFFICIENTS 

1171 7EF 4 CAST 942 17,2423 5 1 722^ 1 INOtX COF^FADR FR^r ERASABLE FOR CSM/LM HR 

^TT72 — 17 , ^424 3 0001 0 TTCA 0 FIXED — “ FDR CSN/LN LB 

1173 ^EF 2 LAST 107 1"^,2425 53*724 0 OXCH N ID — — — EIXFD FOR CSM 


“TT74 

~1175 RFF 5 LAST 
1176 ' 

~LT^7 — 7tF OST 

R1178 


rTTT^rZB O' 11006 1 EXTEND 

942 17,2427 5 1722 1 INDEX COEFFADR 

17,2430 3 0003 1 OCA 2 

742 r^»2 431 '53*7:>6 1 DTCH NIO +2” 



NOT E • 

LOAD WILL BE HIGH 
ERASABLES. DURING 
THTS LOOT C " I S 


BANDWIDTH «>AD LOAD 
CSM/LN SWITCHOVER, 



COEFFICIENTS FROH FIXED NEHORY 


" ■ TTB'O ITVT^T^ O 00 06 1 E XTEND — 

1181 REF 6 LAST 9^,2 17,2433 5 1722 7 INDEX COEFFAOR 

17,24-34 3- 00 0 5 1 DC A 4 

niTT xrpp L"AS1 942 17 , 2435 53 » 730 0 DXCH NIO +4 


1184 

^~TTR7 

1136 

1187 


17,2436 0 0004 1 EXTEND 

7EF 7 L AST T'^T'^:!'' 5“T722"T TNOFX COEFF'A 

17,^440 3 0007 0 OCA 6 

2Ef 5 LAST 942 17,7441 53* 732 I OXCH NIO +6 


11 BB 17,2442 0 0006 1 

11B7 REF 8 LAST 942 17,2443 F 1722 1 

— rr^X) ““ IT, 2444 3 0011 1 

1191 REF 6 LAST 942 1 7,2 445 53*7 34 1 


EXTEND 

INDEX COEFFADR 

-oCAr ^ — 

OXCH NIO 780 


1192 17*2 446' 0 '0006 r— EXTEND 

1193 '^Fh 7 LAST ^42 17,244? 5 1722 1 INDEX CDEfFADR 

1194 17,2430 3 0013 0 DCA 100 

11 75 REE 7 LTTST 947 IT. 7451 ' ~53 * 73 6 0 OXCH NTO -+1'0D 


ir’4 17,2452 0 0006-1 -- — EXT^^HD 

Trr7“ — RFF — nr — last — 942 17 , 2^53 — 5 1 722 — t index ■■ corf e a or 

1198 1:7,2454 3 0DT5 0 DCA 12D 

1199 REF H LAST 942- 17,^455 53*740 1 OXCH NIO -M20 



■ 1 2 00 

-“R.fcF 11 

L AST 

-04 ? 


1201 





1202 

FTEF 7 ' - 

1 <1 5 T 

94? 

■ 

120 3 

S'r-F IFL 

L * S T 

539 


17-, 245 6 51 * 7 22-1 

17, 2 457 3 0016-0 

17 , 46 0 741 — 0 

i7,-2?!!6l 0 {>00 2 0 


INDEX CTEFFAOR 
CA 140 

Us N I O- 



2 






L 


\ 


* 



'TKP 





055 (yr' CTMANLH-I BY NASA 20 Zl 1 1 :^-C) i 


i()i2H APPV — rrrrs ^ — fvchaps -on page 9 ^ 


TVCTNTTTALTZF 


XrSEP^S PAGE NO. 


F6 S3 


prp — 3 CAST 73*^ TT t 31 ’^0 0 S40-15 CTtE T XK 

]205 0 0Cra6 1 EXTEND 

1 2 O t> TEF I 1 f 1 Z 4 5 ^ 54^ T"'" — — i^p 2 P 1 /N 

1207— ^ ^ ”17rZ^f65 20 GOT 1 ” -GDnUB'G 

120 ^ rT,?^-rrG 20 001 1 “ rroouBL ^ 

I ““1209 ~~ _=— =_ L r , 246 7 2 U iJ 0 1 I ^ DOnUBl. 

1210 PEP 2 LAST lOE 17.2470 55“’44O0 TS l/CONACC 


GAIN tn^ PUT ATTOfTS (iTCnNACC. VARK7 
ENTEPPO FPOM TVCINITIALTZE AND TVCFXFC 

2PT/TJ1 SCALED l/tB+8 N M) 

tXX -SCALED D+20 KG-NSQ 


SCALED B+<> -SPOSO/PFV 


— r2TT P E F “Tj: LAST 942t l 7 .5i*t>3b 0 

1212 17t2472 0 0006 I 

1213 PEr 1 — 17.'’4T3 7 1472 0 

TZIA “■ 17,2474 2 0 001 “T 

1215 rT,-2475 2 0 001 1 

1215 PEP 2 LAST 105 17.2-^76 55*641 1 

— r2T7 P b'F~l E2 TA^ST 94^2 1 7, 2 477 0 0002 0 


T^T CTTE KTLX/I 

— = — EXTEND 

— -=TAVG/TLX 

nnouHt 

ODOtlBL 

TS VA'^'K 

Tt 0" 


E N T PY F P n w CS^/L "** V46 SWT T CH-DVER 

SCALED (8 + 3 ASCPPV) l/SECSO 

SCALED B+2 SFCSO 


SCALED (B+3 ASCREV) 


T2T13 

1210 

12 P 0 

1221 

1227 



y 7,25 0 -> 
T7;2T03 
17,2004 


37777~r — 

6:^6 57 1 - 
01703 1- 
474 72 “D 
276 56 T-' 


DEC .99999" 

OEC -.2540 

DEC .0588 

“DEC . 752 0' ■ 

DEC .7450 



Nll/2 

N12 


012 


-1223 I T , 73- 0 -3 3777 T -1 OEC ;^9999 

127 <r^ 17,2506 60361 0 ~ OEC -.4657 

1225 17,7507 00000 1 DEC 0 

XZ 26 17,7510 6 T 3 W T DEtT -.2692 

1227 IT. 25 11 OOO OD-T- DEC 0 


N2u 

N21/r 

n 22 


D 22 


TZ76 

1230 
T 2 TT 
1 232 


1 7 , 2 9 ^ 12 5777 7 1 L HATTO DEC +-.99999 

17.7-13 66371 1 OFC -.3285 

17,2514 65337 0 DEC -.3301 

1 7 , 25T‘5 42 700 0 DEC =“.“9X01— 

17.2516 33045 0 DEC +.8460 


“DTO LO V^ BANDWIDTH FIL -TPIT DDEFPierrEmS 

Nll/2 

N12 

D1172 “““ 

D12 


1232 ” 


1234 


1235 


1226 


123 7 



IT, Z5T7 OTOno 0 

17,2570 00000 1 

17,7571—00000 1 
1 7 , 2622 — "42700 0 
17,2623 33045 0 


D E C +.0317 5 N70 

DEC 0 N21/2 

OEC 0 N22 

DEC -.9101 D21/2 

DEC +^r846 0 D22 


12 

11 

10 

9 

8 

7 

6 

5 

4 



T 22 D 

T 23 D 

1240 

T 24 T 

1247 


TTT7574 7 0000"DT 

1 7 ,262 5 6“0 730 0 
17,7 526 17145“2r 

17 , 7527 4132T'61 

17,2530 35773 1 


DEC +.6 0DD N3D 

DEC -.47115 N31/2 

DEC +.4749 N32 

-DEC -.9565 rrrr /2 

-DEC - ^^+.03 72 03-2 


1 243 OEF 1 

1244 PEE 1 



17,2532 


026-00 “0 
0 14 7 5—0 


C S M C E A DR“tn=N AD*^ C 6 « M 1 0 

HnCFAOP GENADt> H8M10 


CSH ONLY COEFFICIENTS ADDRESS 
HIGH PANOWIDTH CnpFFTC TENTS ADOPPSS 


■* 






.-.rT. 



GAP: ASSEMBLE RFVISfnM 055 QF AGC PROGRAM COMANCHE BY NASA 2021113-051 


TVCI JIT lALIZE 


10:23 APR, 1,1569 TVCDAPS .011 PAGE 944 


USER’S PAGE NO, 


Q 


E6 S3 


1245 


12 46 


12A7 


1 247 1 


12472 


1248 


1 2 49 


1250 


1251 


rl F F 


1252 


1253 


1254 


1255 

1256 



1256 


P FF 


I 


REF 17 LAST 447 


4 LAST 940 

1 


17,2533 


17,2534 


17,2535 


17,2536 


17,2537 


17, 2540 


17,2541 


l'^,2542 


17,25^-B 


02512 0 LBCFAOR GENADR LBNIO 


00063 1 NZERO 


DEC 


51 


00027 1 NZEROJR DEC 


23 


00210 1 ATTLIM 


DEC 


0.00333 


00170 1 1/ATTLIM DEC 


0.007325 


00005 1 TCOPR 


nCT 


00005 


00000 1 


+ 1 


OCT 


00000 


00247 0 FKPRIMDT DEC 


.0102 


00232 1 FREPFPAC DEC 


.0375 B-2 


LOW BANDWIDTH COEFFICIENTS ADDRESS 


MUST BE ODD FOR MRCLEAN 


MUST BE ODD FOR MCLEANJR 


INITIAL ATTITUDE ERROR LlHlT (1.5 
.W7325( error J = 0 IF ERROR <1.5 DEG 


CSM 

C SM/LM (HR,L3) 


05 X .08) SCALED AT Pl/8 


CSM/LM (LB). 

CSM/LM (ler, 0.0375 SCALED AT 8+^ 


4374 


NINETEEN = 


VOl 


17. 


544 


33074 1 2PI/M 


DEC 


.00331017 B+a 


2PI/M, SCALED AT l/(B+8 N-M) 


17,2545 


03720 1 ONETHOU DEC 


1000 R-13 


KG/CS B3 TO KG/IOSEC B16 CONVERSION 


F6 , I 702 FQANK= B 7FR0 

17,2546 03107 1 DAPINIT5 2CADR OAPINIT 


17,2547 


40066 0 


“■ 

12^.7 

R F F 

5 LAST 944 

Pf-. 1 702"' 


eeANK= 

BZERO 




1253 

PEF 

1 

17,2550 

02171 1 

INTTLnC2 RCADR 

TVCIMI T1 




1258 

PPF 

1 

17,2551 

36066 1 













IT 



GAP: 

ASSEMBLE REVISION 055 OF AGC 

PROGRA*^ COMANCHE 3Y MAS A 2021 1 13-05 1 

10:28 

APR. 1.1 J69 TVCDAPS 

.Oil PAGE 945 



L 

TVCEXECUT 1 VE 



USER’S PAGE NO. 1 

EO S3 



P 1000 

PROGRAM NAME.... T VCcX ECUT I VE » CONSISTING OF TVCEXECt ^4FEDLEUP. 

VARGAINS 




RlOOl 

ISHOTCHK. 

RFPCHEK. CG.CORR* COPYCYCLES. ETC. 





R 1002 

LOG SECTION. . .TVCEXECUTIVE 

SUBROUTINE.. .OAPCSM 





R1003 

MODIFIED BY SCHLUNDT 

21 OCTOBER 1968 





R 1004 

FUNCTinNAL DESCRIPTION.... 







qi005 ‘■’fA SELF-PERPETUATING WAirTlST TASK At 1/2 SECOND INTERVALS WHICH: 


R10P6 

PREPARES the ROLL DAP WITH PGA (CDUXl 







PIOOT 

PREPARES THE ROLL FDAi NEEDLE (FLY-fO OGA ERROR) 







R1008 

PREPARES THE ROLL PHASL PLANE OGAERR ( FLY-FRQM OGA ERROR) 







R1009 

PREPARES THE TVC ROLLDAP TASK WAITLIST CALL (3 CS DELAY) 







RIOIO 

UPDATES THF NEEDLES DISPLAY 







R 1011 

UPDATES VEHICLE MASS AND CALLS MASSPROP TO UPDATE INERTIA DATA 







R 1011 1 

UPDATES PITCH* YAW, ANO ROLL DAP GAINS FROM MASSPROP DATA 







R1012 

PERFORMS ONE-SHOT COPPFCTIQN FOR TMC LOOP 0-3 SEC AFTER IGNITION 







R 1 0 1 3 

PERFORMS REPETITIVE UPDATES FOR THC LOOP AFTER THE ONE-SHOT CORR. 








R1017 CALLING SEQUENCE.... 


RTTnS ^TVCEXEC called A$ a WAITLIST TASK, IN PART I CUCAR BY TVCINIT4 AND BY 

R1019 ITSELF, BOTH AT 1/2 SECOND INTERVALS 


iTCIRSIAL EXIT wnni . ... T A S K OVER 


R1021 ALARM OTnBORT EXIT MODES.... NONE 


R1022 SUBROUTINES CAL LED. . . .'''EEDLER . SAO.I'j. MASSRROP. TASKOVER, IBHKCALL 


R 1 023 


UTFrET' INTERFACES. 



R102S 
9 1027 


R102b 


Trm? 


irrD32 

RIU 13 


PI 034 

R 1035 


R 10 36 



■PACKAGF 



TffFTSr 


ERASABL 


^gPTTCHDAP, YAWD .AR~-pgfr-vyi-nrBLE GAINS AND^FNGTNF~nT.T>r:AnGLES 

TIHN RFOUTREO.. 



. .. . IVCINI 14 


♦ SEE (VCDAV'i, 

*VA:'K ANO 1 /COM ACC (SAD. 15 ^ 
^ AiT ITOAU 



=!fBTT5^T,T4~rrF FLAG WR 1)6 (15 BTTSr 
4TVCEXPHS FUR REb'T 

fcNGiNb-')N an rrT.131 euk KtsiAKis 

"*CDUX. DGAD 


'HOW 


RlOAo 


JUT PUT. 777 


ARiJLL OAP CGANiiW . EOAl NEEDLE ( AK ) , AND' PHASE PLATn 






*VSRrSBCF GSTWS F'Jil P I ICH/YAW 7IND' TULL TVC”T)APS 






R 10 40 

*S1NGLF-SH01 — AND 'IFPFnilVE CUKRbCIlUNS lU FNGINE TFlM ANGLFS 






— R 11141“ 

PACTOFF ANO YACI'JH- 






— R rO'To 

DFBPTT. . • . MUC H * THTI STTAnFA^Lt W I 1 hT ^trSTTET^ J K Y i ALL IN bhiANKb “ 

- - - - ■ — 

— ' ■ "" — * ' * ' " 

■» ■- — — - ■ ■ ' 

- 











gap: ASSEMBLE REVISION 055 

IF AGC PROGRAM COMANCHE 

BY NASA 2021113-051 

10:28 AP7. 1,1969 

TVCDAPS 

.Oil PAGE 946 











L 

TVCEXFCUTI VE 



USER'S PAGE 

NO. 2 

EO S3 



1047 



16,2720 

BANK 16 





1043 

REF 

1 

16,2000 

SETLOC DAPROLL 





104') 



16,3720 

BANK 





1050 

'j 

m 

T1 

6 LAST <V44 

E6, 1702 

EBANK= BZFPC) 





1051 

REE 

I 


COUNT* $t/TVCX 



. 



1052 

1053 


1054 


1 0 5 



REF 



LAST 

LAST 



1*5^?720 
16, 2721 


4 0102 Q 
7 4105 0 


16,2722 0 0006 1 


16,2723 6 3134 1 


TVCEXEC 


CS 
MASK 


EXTEND 


BZMF 


FLAGWRD6 

nCT60000 


TVCEXF IN 


ITHro rTm^TERmroTtON (BIT3rT5,14 READ 

10 FROM TVCDAPQN TO RCSOAPON 


TERMINATE 


1056 


1059 


105 


o 


REF 


LAST 940 


16,2724 


CAF 


.5SEC 


WVL. call to PERPETUATF TVCEXEC 



PEF 


LAST 940 


16,2726 


16,2727 


02720 0 
34066 0 


2CA0R TVCEXEC 


1060 


REF 19 LAST 940 


16, 2 ^0 30 0 3 2 0 ROLLPREP CAE 


CDUX 

QGATOW 


NEED TO RFSTART- 

vmrECT r^rNTE^UL c 



1 063 
1064 


n 



z LAST 16,2733' 

16,2734 


1 Oo5 


REF 


1066 


REF 16 


LAST 

LATT 


946 


16. 2735 

16.2736 


31*450 1 
0 0006 1 
21*662 0 


tA2 giTATT 

EXTFND 

OGANlIW 



R 


OR (COMMAN 



WITH TCT^nrj 

ASUREOJ 


TO^ 


16,2737 


106S “^EF 


7 


LAGT TJZ 


1069 
Al0 70 


ref 


16, 274r) 
16,2741 


6'5«476 1 

G~ 07 JT> 7 » “T 

7 7705 0 


M3U 

TS 


AK 


"FLY-TO OGT 




EXTETTf) 



T^jSTP TH ATTE OGA'ER^T 


W 


-H1T14 


55*664 0 


TT 


OGAERR 


phase-platje (FLY-EROMJ ogaerror, 

^TAT 



1071“ 

TOTZ" 

11573“ 



1074 

ToT-^ 

107 


T9 

"T 


lATr 


Wb 


16,27T2 — 3 6214 0 



riTST 9 46 


REF 

PEF "1 “ 

^ F F 33 L AS T""T4TT 


T6, 

T6vmy7 

16,2744 
T677T4 5 " ' ~3^\1 56“I1 


UAF 

TC“ 


THREE' 


SET UP RT3LL DAP I ASK (ACIUW SOME ilME) 






03272 0 


PCAOR ROLLDAP 


T6 , 2TMT^ Tf ^rmrT) 


1076 


REF 


7 LAST 940 


16,2747 


42420 1 


NEFOI EUP TC 

CIHTp 


TTEETTEFS 



CRETITRTIS AFTER CAURT 


MoroLFR 


(NEEDLES RESTARTS ITSFLTT 


1 07 7 


ref — 37 L AST ”9473 


,7750 


3 500n 


10 7 3 

7079 



Vr 
REF 


ZB CAST Q"473 


l^^T^CATST' 541 


1081 

1052 


16,2751 0 0006 1 

02 011 0 
TTT 000 “0 
1 2760 0 


VAFGA mS“CAT ' 

EXTEND 



ENGINE- ON BTT 10 INHIBIT VAR 1A5TE 
GAINS AND MASS IF ENGINE UFF 



ZAND' 


3 SA L M TTOT 


XTFIANTTFir ET 


ITJ32T 



CTTST 

ETCST 


3Z3 


16,2754 

15,7755 


CUV 

TGF" 




10522 

1032 3 

T03Z4: 


rTT 


rAS 



76.2 7 36 

16,2757 

16.2 760 

15.2 


3^ 50T6”0 
55^1557 

■ZTTTT 


T 7 AF 


TT 


TS 


I 


TTTS^T 


5 

0 


TOE 


T4 

TWO “ 
I VCbXPHS 

ISHOTCHK 


ON , 

OFF^ 


SO OK TO UPDA IE "GAINS ANU HASS'" 
SO BYPASS MASS7GA1N UPDATES. “ 
ALSO ENTRY FROM CCS "BEL DW WlfH 


VCN T H = -0 (V97 R AO bNGFAlL) 



7~R>~VU 


EXE 

ECE 


VCNl R 

+4”” 


TEST FOR GAIN UPDATE TT 

- — ' "NrOTTFT “ ~~ ' 


GAP: ASSEMBLE REVISION 055 OF AGO PROGRAM COMANCHE BY NASA 20P1113-051 


TVCEXECUTI VF 


10:28 APR* 1»1969 TVCDAPS .Oil f^AGE 947 


USER'S PAGE NO 


66 S3 


10.R2 5 REF 


108252 


108253 REF 


10826 

1082“^ 


10829 



10828 RFF 


13 


16,2762 1 2771 0 

16,2768 1 2763 0 


LAST 

LAST 


722 

940 


LAST 940 


16,2764 1 2755 0 


16.2765 

16.2766 


55 '653 1 
31*474 I 


16,2767 55*652 0 


16,2770 1 3002 1 


TCF 


TCF 


TCF 



TS 


TCF 


GAINCHNG 


+ 0 


VARGAINS -**5 


VCNTRTM P 

CSMMASS 


MASSTMP 


EXFCCOPY 


NOT USED 


NO, LOTHRUST (S40.8 R40) 


PROTECT VCNTR AND 
CSMMASS DURING AN IMPULSIVE BURN 


1085 


1086 

1087 


REr 
P E F 


10871 REF 
1 0 } 0 


RFF 

s £ F 


rs 


1091 


1092 


9EF 


1 09 3 


I »- 


EE 


1094 


REF 


1 096 

10^ 


RrF~ 

REF 


REF 34 LAST 946 


1 
35 


LAS 


947 


LAST 941 



LAST 

LAST 


93 8 
947 


PEE 10 LAST 947 


LAST 939 


LAST 947 


LAST 946 



LAST 947 

15 LAST 947 


16,2771 0 4740 0 GAINCHNG TC 


16.2772 

16.2773 


16,2774 


16.2775 

16.2776 


16,3000 


16 ,3001 


13422 1 
0 4740 0 


36462 1 


4 1637 0 
6 1474 1 


16,2777 55' 652 0 


3 4374 0 
55*653 1 


CADR 
TC 


CADR 



TS 


AF 


rs 


16,3002 25*651 1 


XECCOPY INCR 


16,3093 3I*652~T 

16,3004 55*474 0 


TS 


I BNKCALL 


FIXCW 
I0NKCALL 


S40.15 


TENMOnT 
C SMMASS 


MASSTMP 


^4I^iE 


VCNTRTMP 


TVCEXP 



csmmAss 


UPDATE IXX, lAVG, lAVG/TLX 


MASSPROP ENTRY (ALREADY INITIALIZED) 


UPDATE l/CONACC, VARK 

(S40.15 IS IN TVCINITIALIZE) 


UPOATEMASS FOR NEXT 10 SEC. OF BURN 


KG B+16 


RESET THE VARIABL 


N UPDATE COUNTER 


RE 



TTT 


TTSMMASS KG B+16 



Tim 


1TEF 


5 



T 5m 


T6TT 



25*651 1 


TTO" 


TVCEXPHS 


COPYCYCLE UVFR 


m 


TTOTT 


R F F 


ZE- 


1EA5T 


1 1 0 1 

TTUZ 


1 6 ,30 IT 
16,301> 


1 1 ' 447 TT 

rmm" 


rSHDTCHK 





TCV 


FA 


TT^ 

rnr^ 


"TTF 


K > 


T 

7 



ZOTT' 1 30 3T 
4 1 


+4 

I SHU] OK 


FOR ONE-SHUT OR REPCORK 

NOT YET 


TJTM 



OTSl 16,301“5 1 303r I 


TUF 

TTF 


ktttchfk: 

ISHOrUK 


ONE-SHOr OVER, ON lU REPCORK 
Tinir — (ONE-SHUT UNLY, NU RtPtURP) 


TTTT5 

TTOF 


TTFF 


TTOT 

TTDF 


ZFF 

FFF 


ZF 


UA ST 


umr 

rmr 



F4T 


16, 3016 
I n , 3 0 1 7 

16. 3020 


55^FT6~iI 

3 6211 0 


REF 


16 , 30 


55»6 5T“D 

1 31 3Z 0 


TTAF 

TS” 


CNTRTMP 

FTX 

I VCEXPH 


CUUNT DOWN” 

SET UP IVCcXPHS FUR ENIRY Al LtNlKLUPY 


TCF 


cm 


nm 


TTTO 

TTTT 


TTT7 


TTTT 


“X 


FFF 

TFF 


C ^ 


o 


7 

V 


x__ 


TO 


T AST'"'04T 


TST“ 


T 


TTTT 

TTT5 


TTT 


r- f“ 
* 


7 


LATT 

TTST 


F4F 


16,3022 3T*"64Z 0 

16,3 O Z T 0 a O OTSm 


FEPCHEK 


TOT 

TT5 rs 

ott ur. 



16, 30TO 


6 3134 1 

T5T7746 T 


3 50 IT O' 


OAF REFFRAC 

FXTENTT 


0 4' 

TS" 

OAF 


TE MPD AP~F1 

FOUR 


EPETl 



U t 

YES, SET”UP 
TVCEXPHS 




COR SETUP 


f) 

fi ); 


gap: 

ASS F’^BLP RE 

VIS ION 

055 

Tf AGC PROG^AG COMA 

NCHE BY NASA 2021113-051 

10:28 APR. 1,1969 TVCDAPS .Oil PAGE 948 



L 

TvcExeciJ7 ive 







USER»S 9AGE NO. 

4 E6 S3 














1 1 1 / 

RFF 38 

LAST 

■o! 

16.3031 

3 5003 

1 

ISHOTOK CAF 

SIT13 

CHECK ENGINE-ON BIT. 

NOT PERMITTING 


1120 




16,3032 

0 00 06 

1 

EXTEND 


ONE-SHOT DURING 

ENG FNE-S HUT DOWN 


1121 

REF 29 

LAST 

946 

16,3033 

02 on 

0 

RAND 

DSALMOUT 




1122 

REF 198 

LAST 

946 

16.3034 

10 000 

0 

CCS 

A 




1123 




16,3035 

1 3037 

1 

TCE 

+2 

ONE-SHOT OK 



112A 

REF 3 

LAST 

947 

16,3036 

1 3134 

0 

TCP 

TVCEXF IN 

NO, TERMINATE 




1125 


REF 


8 


LAST 947 


16,3037 25*651 1 


INCH 


TVCEXPflS 


T7T 


1 1 6 ,'.l 


REF 


16,30^f0 3 3137 1 TEMPSET 


fcqrFraC 


SET UP C 



ON FRT^irn 



11^ 


RFF 


LAST 947 


16.3041 55*446 1 


TS 


TEMPOAP +1 


1170 


REF 


9 LAST 948 


16,^042 25*651 1 


I NCR 


TVCEXPHS 


entry FROM RFpCMEK AT NEXT LOCATION (4) 


1 17 1 


RLF 65 LAST 939 


15.3043 31*466 1 CGRSETUP CAE 


DAPDATRl 


1172 


39 LAST 948 


16.3044 7 5003 0 


MASK 


B I T 1 3 


CHECK FOR LEM-OFF /ON 
(NOTE. SHOWS LEM-OFFT 


1173 


16.3045 0 0006 I 


EXTEND 


1174 


15.3046 1 3050 0 


BZF 


+? 


1175 


REF 


4 LAST 948 


1176 

1177 



LAST 

LAST 


948 

948 


16 . 3047 

16 ,30 50 


31 * 446 ^ 




6 1 446 0 



16.3051 55*445 1 



P 4T 

TEMPOAP' +I 


LEM IS ON. 

LEM IS 



PICK UP TEMP“DSP+r“ 
. PTXn< aP“ r(TEMPDAP + l> 


TEMP DAP 


TEMPOAP 


in 


TT 


REF 15 LTST 9T^ 


1673052 3 7716 '0 




NEGONE' 


SET UP FOR 



1179 


REF 


LAST 947 


16.3053 55*676 0 


TS 


CNTRT'^D 


= -1 (ONF- SHOT ^ D'ONFT 
(COPYCYCLE AT .CNTRCOPY. ) 



1184 

PEE 

5 last 

948 

16,3060 

4 1606 

T 

C 

^ - ■ - iipiM 

nw 




16. 306 1 

2 0 0 0 1 

1 

c 

-- ■ ■ — ■ — — 

1186 




16. 3062 

TIT DOT 


C 

1187 

rff 

“^7 last 


16 f 3 ( j 6 3 

53*612 

1 



PDELOFF 


TTTF 



P^E F 5“ 


AST T4 


6 , 30'6T 




1190 

TOT 

TOT 


REF 


8 


LAST'~<?4T 


1193 

TTTT 

T 


16,3065 
TKVTiWT 
TTT.TJTCr 
16 .3071 


3 1602 1 

20 0011 


LXI FNU 

^D E L P BAP 


TJTT 



DA5 


TFF 


LTTST" 


94T 


T^. 3072 


0 0006 1 

3 1612 0 



TTW 

TOT 


T=T 


7 



orr 

IJAST 


T45 


16,30/3 

16,30/4 


'0 0006 1 
7 1445" r 
16.3CTT5~~21* 6 /3 0 


extend 

TlCTl 

EXTEND 

TTP 

DTTS ~ 


TTMPl 


TTMPI 


TEMP DAT 
PACT TMP 


TTTT 



■V.l ' .,T 


rzw 


K f' h 

R1EF 


T^XASl 
2 L:A51 


T4T 

TUB 


16,30 /6 

16.30TT 


0 ono^-T 

3 1X1 rT"T 


'-X I end 

OCA 


YAW IMC LOOP 


YObL IFF 


TW 

TTOT 


I , 




LTT 



T4T 



16 , TTOTT 

TTTTTTTr 

6. 3102 
16,3103 


53* 675 0 


0 a W6“T" 

^“Tsnr (T 


DXCH YACT IMP 

Txmm 

TKTS YDELUFF 


P^TTTO^rT 


T DODBU 



GAP : 

ASSie*''BLE f 

ixvis r 

JN 085 

PF AGC PROGRAM CO 

HA’ 

MCHF BY NASA 2021113-051 

10:28 APR. 1,1969 

TVCDAPS .011 

PAGE 

949 



L 

T\/CEX 

ECUTivr 







USER* S PAGE 

NO. 5 

E6 S3 




1204 





16.3104 

20 001 

1 

0D0U8L 







120‘S 

REF 

10 

LAST 

^■>48 

16,3105 

53'612 

] 

OXCH 

TTMPl 






1206 





16,3106 

0 00 06 

1 

EXTEND 







1207 

R6F 

5 

LAST 

941 

16.3107 

3 1604 


OCA 

DELYBAR 






1208 





16,3110 

20 001 

1 

DOnUBL 







1209 





16,3111 

20 001 

1 

ODGUPL 







1210 

REF 

11 

LAST 

949 

16,3112 

21'612 

1 

OAS 

TTMI^l 






1211 





16,3113 

0 0006 

1 

EXTEND 







1212 

Rp 

TT 

LAST 

949 

16.3114 

31 612 

0 

OCA 

TTMPl 






1219 





16,3115 

0 0006 

1 

EXTEND 







1214 

REF 

s 

LAST 

948 

16,3116 

7 1445 

1 

MP 

TEMPDAP 






1215 

RFF 

3 

LAST 

948 

16,3117 

21 • 675 

0 

DAS 

YACTTMP 





















1210 

REF 

10 

LAST 

94 8 

lf>,3i20 

25*651 

1 

CORCOPY INCR 

TVCEXPHS 

RESTART PROTECT 

THE COPVCYCLE 


15) 













■ W.' * ' ■■■■■ 




Tzrr 





16.3121 

0 0006 

1 

EXTEND 


TRIM-ESTIMATFS. 

WD 




121 r 

REF 

A 

LAST 

948 

16. ">122 

3 1673 

1 

DC A 

P ACTTMP 






1219 

PEF 

Ts" 

LAST 

939 

16, 3123 

55 • 423 

1 

TS 

PACTOFF 

TRIMS 





1220 

REF 

6 

LAST 

94 8 

16,3124 

53*606 

1 

DXCH 

PDELOFF 







1221 





16,3125 

0 0006 

1 


EXTEND 



1222 

REF 

4 

LAST 

949 

16,3126 

3 1675 

1 


DC A 

YACTTMP 





K EF 

6 

LAST 

939 

1 5 . 3 ] 2 7 

55*424 

~Tr 


TS 

YACTDFF 



122 4 

REF 

6 

LAST 

94 8 

16 ,31 JO 

53*610 

0 


DXCH 

YDELOFF 




1225 


■ nr" 

LAST" 


■ I^.Tr3T 

T5TT51 

1 


TJCR 

TVCEXPHS 

ENTRY FROM ISHUtCHK Al NtX » LULAIIUIN 



1226 

RTF"' 

— r~ 

TAFr 

948 ■ 

16,31 T2~ 

31*673 

"T" 

cntrcopy 

L A h 

CMTKTMP 

U PDA It LiNlK IKt^! AK 1 ^ f t -JL LUW> 


TTTT 




OST~ 

"947 

T6 ,'^rTT 


0 


TS 

C N T R 




r2?T 

REF" 

TE7~~ 

LAST 


“TF73TT4" 

~3 5U Z1 

T" 

"TVCEXFTN 

pa> 

TTRa 

RtStT TVCtXPHS 


122 ’ 

■PFF" 

"T? 

LAST~ 

049 

16,3 n-s" 




TS 

TVCEXPHS 



rzjT 

fTFF“ 

46 

LAST" 

833 

16,3136 

1 5324 

0 


TCF 

T ASKDVFR 

f VC tXtCU 1 1 Vt FlNlSHbL) 




TTTT 





16.3137 

lOOuO 

TT 

FCORFRAC 

TTT 

lOOOO 

□NE-SHUT LfJKKU.tlUN EKAHIUN 




GAP : 

<\SSFmF-.LE: revision 055 OF 

AGC P''‘OGRA*^ CON’AI^CHE BY MAS A 2021 1 13-0 5 1 

10:28 APR. 1.1969 

TVCOAPS .011 

PAGE 950 




L 

TVCEXECUTTVE 


USER'S PAGE 

NO. 6 

E6 S3 





II 












• r 


GAP: 

ASSEMBLE RPYISIGN 05? OF AGC 

PROGRAM COMANCHE 

BY NASA 2021113-051 10:28 APR. 1*1969 

TVCOAPS .Oil PAGE 951 






L 

TVCMASS P^np 


USER'S PAGE 

NO. 1 EO S3 


R 1000 

PROGRAM NAME. ...MASSPROP 




RlOOl 

LOG SECTION.. . .TVCMASSPRl'^ 

prqgrammfp . . 

■ HELANSON (gNGRL, SCHLUNOT) 



R1002 

FUNCTIONAL DESCRIPTION 

« 

#■ 












PI 003 

MASSPROP OPERATES 

IN TWO MODES: <1) IF LEM MASS OR CONFIGURATION ARE 

UPDATED (MASSPROP DOES NOT TEST 



R1005 

FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND 

DERIVATIVES OF THE 

OUTPUTS WITH 



R 1 007 

RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS 

. ( 2)CiTHERWISE. THE 

OUTPUTS CAN BE 



R1009 

CALCULATED USING PREVIPUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES. 






R 10095 

CALLING SEQUENCES 





i 

- ' 







t 

aioio 

IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED* TRANSFER TO MASSPROP* 

OTHERWISE TRANSFER 

TO FIXCW. 



R 1012 

L TC 

BANKCALL OR IBNKCALL 





R 1013 

L+l CAOR 

MASSPROP 





R1014 

OR 






'noi5 

L + l C AD R 

FIXCW 












R1016 

L+2 RFTUPN 

S VTA 0 






TToTT called in particular by nijNOUN^-7 (JOB) AND "TVCE')(ECUT I V E (TA^TH 



RTDZr 

tP ASA 3 L E INITT 7 VL IZAT I UN Rt(JUI RED 






R 1027 

lEMlMASS MUST CaNTA!r 4 LEM MASS SCALED AT B +16 IN KILOGRAMS 





R 1023 

C 5 MMASS MUST CONTAIN CSTTMASS SCALED AT B +16 TN KILOGRAMS 






R 1 D 24 

dApdaTri must be Set tO indicate vehicle configuration. 



^ , » - • 1 fa — E 


R 10241 ' 

■ fiITS“( 15 , RM 3 T' ■= T O' . 0 . 1 T" ' LEM OFF 



1 a_i _ 

- , 

R 102411 

( 0*1 • 0 5 LEM ON ( ASCNT ,T)SCNT I 





R 102^12 

{ 1 , 1 , 0 'J LcM ON (ASCNT unlVJ 






TrnJ75 


^TTTIZd 


ALARMS - 



EXIT 


rc 




TrnJTT TTUTPUT5T 


wru: 


rrr 




R 103TT 


iUOU 


Tn:o3ii 


(i)ixy» SINGLE RRE ’cisrmrsxALi ; AT B>20 

T21IAVG, SINGLE '^^TClSlUN bCALtU IN kG 

TTTTWGTTLX, SINGLE PPEri STOM, SCALED AT ■B> ? SFC'^'^STJD 
THEY ARE SliIRtU IN CONStCUllvt HbTT 


fth: 


( SLUG-FTSO) = 0 • 









GAP: ASSEMBLE REVISION OS5 OF 

AGC PROGRAM COMANCHE BY NASA 2021113-0S1 

10:28 API;. 1,1969 

TVCDAPS 

.011 PAGE 952 



L TVCMASSPRnp 


USER’S PAGE 

NO. 2 

EO S3 



R1032 OUTPUTS ARE CALCULATCU 

AS FOLLOWS : 





R103T (1) IF LFM OOCKEO, IFMMASS IS FIRST ELIMINATED AS A PARAMETER 


R103A 

VARSTO 


INTVALURQ 

+ 

LEMMASSI SLOPEVALO) 

IXX 

BREAKOOINT 

VALUE 








R 1036 

VARSTl 

— 

INTVALUEl 


LEMMASSI SI OPFVALI ) 

TAVG 

BREAKPOINT 

VALUE 








R103 n 

VARST2 

— 

INTVALir 2 

-I- 

LEMMASSI SL0PEVAL2) 

lAVG/TLX 

BREAKPOINT 

VALUE 

























R104O 

VARST3 

— 

INTVALUEl 

+ 

LEMMASSI SL0PEVAL3) 

TAVG/TLX 

SLOPE 

FOR 

CSMMASS > 

33956 LBS 

( 

FpT" 

> 10000 

lbST 

"T — A — "X — T 



R lOA? 

VARSr4 

— 

IMTVALUE4 

+ 

LEMMASSI SL0PEVAL4) 

I AVG 

SLOPE 

FOR 

CSMMASS > 

33956 LBS 

( 

SPS 

> 10000 

LB s y 




R104^ 

VAR STS 

— 

INTVALU-5 


LEMMASSI SL0PEVAL51 

IXX 

SLOPE 

FOR 

ALL VALUES OF CSMMASS 




















— r -1— - - ■ 



R1046 

VAPST6 

* 

INTVALUF6 

-1- 

LEMMASSI SLdPEVALS) 

lAVG 

SLOPE 

FOR 

CSMMASS < 

33956 LBS 

( 


< 10000 

lmt 



R1043 

VARST7 

— 

INTVALUFT 

+ 

LEMMASS ( SL0PEVAL7 J 

I AVG/ TLX 

SLOPE 

FOR 

CSMMASS < 

33956 LBS 

( 

SPS 

< 10000 

LBS) 




R 1050 

VARST8 

— 

I NT VALUES 

+ 

LEMMASSI SLUPEVALS) 

I AVG 

DECREMENT 

TO BRKPT 

VALUE WHEN 

LEM 

D5CNT STAGE 

OFF 



R1052 

VARSTO 


IMTVALUE9 

~+~ 

L E D MA S S ( S L n P E V A L9 j" 

lAVG/TLX 

DECREMENT 

TO BRKPT 

VALUE WHEN 

LEM 

OSCNT STAGE 

OFF 





















R 1 0 5 

( ^ ) IF LEM 

NOT DOCKED 































R1055 

VARSTO 

* 

NOLEMVALO 


WHERE THE MrSNlTR 

AND 'TCAITlsni OF 

VARSTO 










R 10 56 

• 


• 


TO VARST9'e3RE THE 

SAME AS GIVEN 

ABOVE 










'5 1057 



« 







,s=:- - - ■ - s 







R 105E 

• 


• 


NOTE... FOR THIS C A $E VAR STB , 9 

HAVE NO 










R 1039 

VARS T9 


N0LEMVAL9 


MEANING (THEY ARE 

COMPUTED BUT N.IT USED) 











R1060 

13) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE 














P lObl 

IXXO = 

V^IrSTT) + ICSMITOS3 + lUEGgPfllVARSTS IXX 







P 1062 

TX)Ci; = ■ 

VAPSTl + rCSMKLASS + NFG'VPW)VARST(4 OR 6) ' TAVG 












■9 


R1033 

IXX2 = 

VarsT 2 + (CS-iMASS + NeGSPW)VAl^ST(3 OR 7) lAVG/TLX 















R 1064 

THE DATA USED CAME FROM CSH/LM SPACECKAPT OPERATtfJNAL DATA BOOK. 






R 10641 

VOL. 3. 

■R5SA' DoCUMeNT SM A-3-!')-02T~rHA3’.CH 1968) 







*^1065 

PERTINENT MASS DATA : CSM WEIGHT (FULL) 64100 Lrib 






R 1066 


“ — — rEMPTY) 23956 L3S 






RTOST 


L EM ‘WIGHT I RJLT.T 32000 LBS 






r1o6b 


■■ ( EMoty ) 14116 LBS 














R1063'l~ 

IWf;ii',HTS TSR'F 

FROM AMENUMENt #1 lAPPlL 24.1968) TO ABOVE rrATA“‘BTr)Xl 


- - - 





gap: /! 

^SSEHH 

LE RE 

VIS I ON 

066 

OF AGC PR 

OGRAR Cn 

I'lANCHr; BY NASA 2021113-051 

10:28 APR. 1*1969 TVCDAPS .011 PAGE 953 


L 

TVC^^ASSPPOP 







USER'S PAGE NO. 3 EO S3 

« 

1069 





25,3774 




BAMK 25 


1070 

e f ' 

1 



05*2000 




SETLOC DAPMASS 


1071 





05,3366 




BANK 


1072 

REF 

9 

LAST 

946 

1^6 , 170? 




EeANK= BZER3 


1073 

REF 

1 







CCUr4T* $$/MASP 














1074 

REF 

2 

LAST 

446 

0'‘>,3366 

3 4334 

1 

MASSPROP 

CAP NINE 

MASSPROP USES TVC/RCS INTERUPt TEMPS 

107S 


2 

LAST 

104 

05* 3367 

55’ 506 

1 


TS PHI333 

SET UP TEN PASSES 












10 76 

REF 

66 

LAST 

948 

05 .3370 

31 ’ 466 

1 

LEMTEST 

CAE OAPDATPl 

DETERMINE LEM STATUS 

1077 

^FF 

40 

LAST 

94 3 

05,3371 

7 5003 

0 


MASK BIT13 


1073 





05*3372 

0 0005 

1 


EXTEND 


1079 

REF 

1 



05,3373 

1 3 3 7 7 

0 


BZF LEMYES 



1030 

^■?;:F 

3 

LAST 

953 

05,3374 

51 • 506 

0 

LEMNQ 

INDEX 

PMI333 

LEM NOT ATTACHED 


1081 

REF 

1 



05.3375 

3 3463 

0 


CAF 

NOLEHVAL 



1082 

REF 

1 



05,33^3 

1 3407 

0 


TCP 

STOI NST 
















1053 

13 EF' 

4 

LAST 

T3(5 

05.3377 

31^473 

0 

TEMYES 

C A t 

LEHmASS 

LEM 1$ ATTACHED 


1034 





05*3400 

6 0000 

1 


DOUBLE 




1035 





05,3401 

0 0006 

1 


EXTEND 




1036 

REF 

4 

LAST 

^■>5 3 

06*3402 

5 1506 

0 


index 

PHI 333 



1037 

REE 

"T" 



06*3403 

7 3505 

IT” 


MP 

SLOPEVAL 



1088 





05 , 3404 

20 001 

1 


OOOUBL 




1089 

"TTFF 

""57" 

L A S 1 

953 

05.3405" 

51* 506 

0 


I NDEX 

PTTTTTX 



ro9o 

REF 

“T" 



05,3406 

6 3471' 

1 


A D 

TRTVSTOl 
















nrrr 

QFf 

■ “6^ 

LAST 

"953 

05, 3407" 

'51* 5W 

~0 

SXOTNST 

XNDtX 

“FTXrT33 

SIURAGb INS^ BEGIN HERE 


10-2 

w cp — 

3 

LAST 

104 

06.3410 

55' 511 

1 


“TS 

VARSTO 



vm 

“^FF^' 

"T 

LAST 


05,34 0 

1 1 * 5TTT 

1 


CCS 

PHI333 

ARE ALL TEN PASSFS COMPLETED 


o 

1 

1 

REF" 

5 

LAST 

9T8 

05,3 

1 3567 



TCF 

MASSPROP "*'1 

NO — GO DECPtMENl PHI 3 33 



i09B ■ 


^6rr 

C7LST' 

953 

05.3413 

1 1 • 4 5 6 


nXTEST 

CCS 

DAPOAXRl 

lf“ lb If Lt^ UbL»Nf blAl:?t 




P.FF ■ 


LAST 

94T“ 

"njsTipnr” 

1 342Z 

~ir 


"TCF 

FTion 



mJTJ — 

"TTFF — 

“T” 

LAST 

953 

05*3415 

1 3422" 

i 


TCP 

F IXCW 



___ 1 I^QX 

’< Vz F 

”4“ 

"TAST " 

953 

“"U5T34T6" 

53’ 522 

X 


DXCff 

VARSTD'T^inr 



TJrr? 

REF 

iiLj- 

XA5T 

"953~" 

05 ,34rT‘ 




DAS 

VARSTO +1 



rnj3 

REF 

“T" 



05*3420 

'3 35 2 0 

0 


CA 

DXITFIX 



nTET 

~WF 

“"6~ 

L A' SI 

~953 

a6,3 42T 

■?T’'T2Tr 

0 


ADS 

VAKSlU +7 
















rTTT5 

HTEF — 

TT' 

LA51 

941 

05*3422 

3 5016 

0 

E IXCW 

CAP 

BIT2 

CUMPUIATIUN phase BEGINS HERE. SE! UP 


riTTts 

RFF" 

8 

LAST 

953 

05.’We23 

■“55 ’“57)6 

1 


TS^ 

PITTTJH 

TFTRFF PASSES 


1 1 0 7 

rrrp — 

“Z" 

L/rsT 

■XTy4^ ■ 

"TS", 34' 2 4 

55'«'50T 



TS 

PSI333 
















TTOB 

■'"TTFF " 

TS 

“TTATTI 


OS, 342 5 

3 1 * f ^ 

nr" 


(TAb 

-xs^a:s5 

GET DELIA CSm WEIGHl ~ SIGN DETERMINES 


iron — 

RfcF 

1 ■ 




6 3 5 IT 

1 


AD 

NFGRPW 

SLLJPh LuCAFIONS# 


rrro — 





05*34'? 7 

6 0000 

1 


DtJUBlb 




nil" 

“FTFF — 

~ 7" 

“LAST 

104 " 

— rpr*T4Ta" 

55' 510 

~Tj— 


f S 

H t M P 3 3 3 
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05.3431 

0 0006 

1 

EXTEND 





1113 

PEP 

1 



05,3432 

6 3435 

0 

BZMF 

PEGGY 


DETERMINE CORRECT SLOPE 


1114 

REF 

3 

LAST 

32 1 

05,3433 

3 7715 

0 

CAF 

NFG2 




1113 

REF 

9 

LAST 

953 

05.3434 

55* 506 

1 

TS 

PHI333 





1116 

REF 

10 

LAST 

954 

05,3435 

51*506 

0 

PEGGY INDEX 

PHI333 


ALL TS READY - CALCULATE OUT PUIS NUW 


1117 

R E F 

1 



05.3 436 

31 ' 516 

1 

CAE 

VARST5 


GET SLOPE 


Ills 





05 ,3437 

0 0006 

1 

EXTEND 





1 1 1 } 

REF 

T"" 

LAST 

953 

05,3440 

7 1510 

0 

MP 

TFMP333 


MULT BY DELTA CSM WEIGHT 


1120 





05,3441 

6 0000 

1 

OnUBLE 





1121 

REF 

3 

LAST 

953 

05.3442 

51* 507 

1 

INOEX 

PSI333 




1122 

REF 

7 

LAST 

953 

05,3443 

6 1511' 

0 

AD 

VARSTO 


ADD BREAKPOINT VALUE 


1123 

OFF 

4 

LAST 

954 

05. 3444 

51 * 507 

1 

INDEX 

PSI333 




1124 

REF 

4 

LAST 

943 

05 *3445 

55*470 

1 

TS 

I XX 


♦ OUTPUTS (IXXO, IXXl, IXX2) 



il 


1125 
1 1 ? 6 


112.7 

1128 


1129 


1 1 20 
1131 


1132 


1133 


1134 

TTT5 


1136 

TTT7 


PEF 

REF 


5 

1 


LAST 954 



45 




r c 



199 
17 


LAST 

LAST 

LAST 


LAST 

LAST 


PEP 


9 LAST 


REF 


95? 

93 8 


948 


953 

953 


REP 183 L AST 943 


6 E^A^T 954 


05 t 3446 
05,3447 


0 57345 0 

05.3451 

05.3452 
05,3433 


05.3454 

05,3435 


11 « 507 0 

1 3457 0 


0 3 .5457 5 5 • 5 OT 


REF 


LAST 
LAST 934 


05y 3460 
05,3461 


31*466 I 
7 5002 1 


10 000 0 
3 1473 
6 1474 1 

55 *4 75 n: 
05,3456 ~0~0 0 0“? 


0 


0 0006 1 

2 



ZZS 

TCP 


MASK 


UC5 

AO 


T5 

TC 


PS133 3 

B0KKEP2 


TOTOATFI 
BIT! 4 


A 

L E 

CSMMASS 


WEIGHT/^ 




Bookkeeping 


MASSRROP FINISHEl) or hlOT 


NO - go take CARE OF INDEXING REGISTERS 


□ PT) ATF^WFTTIHTTTT 


SCALED AT B+T6'‘1N KILOGRAMS 



BEDUCE PSI BV ONE 



0575442 1 34.35 1 



PT GGY 
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1138 

05.3963 

00616 

0 M 0 L 

EMVAL DEC 

25445. B-20 








1139 

05,3969 

02526 

1 

OEC 

87450. B-20 








1190 

05,3465 

02 3 52 

1 

DEC 

.30715 B-2 








llAl 

05.3466 

01471 

1 

OEC 

1 .22877 E-5 

B + 12 







1 192 

05,3467 

00634 

0 

OEC 

1.6096 8-6 








1143 

05,3970 

00612 

1 

DEC 

1.59 6-6 

t 







1199 

05,3471 

03 706 

0 

DEC 

7.77177 B-6 








114S 

05,347? 

04425 

0 

OEC 

3.96958 E-5 

B+12 









1196 


05,3473 

00644 

1 

INTVALUE 

OEC 

26850 3-20 








1147 


05,3474 

03710 

1 


DEC 

127518 8-20 








1 1 48 


05,3975 

04246 

0 


DFC 

.54059 B-2 








1 1 49 


05 , 347b 

02011 

0 


DEC 

.153964 E-4 0+12 








1150 


05,3477 

77501 

0 


DEC 

-,792923 B-6 








1151 


05,3500 

00612 

1 


DEC 

1.5398 B-6 








11:^2 


05.3501 

04656 

0 


DEC 

9.68 B-6 








3X53 


05,3502 

10372 

0 


DEC 

.697625 E-9 B+12 








1154 


05,3503 

77126 

1 


DEC 

-27228. B-20 








1155 


05.3504 

762 61 

0 


DEC 

-,206976 B-2 









115 b 


0573 50 5 

00767 

1 

SLOPEVAL 

DEC 

1.96307 B-6 








1157 


05,3506 

18629 

0 


DEC 

27.5779 B-6 








1158 


05,3507 

03059 

0 


DEC 

2.3543 E-5 0+12 








1 159 


05,35 10 '■ 

09532 

1 


OEC 

2.1777 E-9 6+26 








1160 


05,3511 ■ 

10933 

1 


DEC 

1.044 e-3 B+8 








llbl 


■ 05 ,351^ 

00000 

1 


DEC 

0 








116? 


05,3513 

22070 

0 



2.21068 E-3 B+8 








1163 


06 ,3514 

0T2WT“ 


"DEC 

1.5 I 6"S ”F-9 B+26 








1X7:4 


05,3515 

772 6 6" 



DEC 

—1.284 B— 6 








116 5 


05,35lS^ 

02476 

ir 


OEC 

2. E-5 3+12 























1166 


05.351 / 


“I" 

fTEGllPW 

DEU ■ 

— 15402.17 B-16 








1167 


05,3520 

75420 


DXI Tf tX 

OEC* 

-1.88275 E-5 B+12* 
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L 

TVCP.ESTARTS 


USER'S PAGE 

NO. 

1 

EO S 3 




RIOOO 

NAME. . . .TVCRESTART PACKAI^E, CON'JISTING OE 

REOOTVC, 

ENABLl, 2 t CMOSOUT, PHSCHK 2 t ETC. 






R 1002 

LOG SECT ION. .. TVCRFSTA'^TS 

SUBROUTINE. . . OAPCSM 






R 1003 

MOniPIED BY SCHLUNOT 

21 OCTOBER 1968 






RlOO'-i 

FUNCTIONAL DESCRIPTION. . . . 









R 1005 

i'RESTART-PRnOFS THE TVC DAPS* INCLUDING 

P ITCHDAP. YAWOAP* 






Rino 5 

TVCEXFCUT IVE * ROLLOAP* TVCINIT 4 * TVCDAPON* AND 

CSM/LM VA 6 SWTCHOVR. 






P 1007 

*TVC pFSTARTS deserve SPECIAL CONSIDERATION IN 

SEVERAL AREAS. 






R 1003 

RESTART DOWN-TIMF IS IMPORTANT BECAUSE 

OF THE 

TRANSIENTS INTRODUCED 







R 1 009 


RIOIO 


RlOll 


R 1012 


RlOlo 

R 1017 


R lOlB 


P 1019 


P 1030 


R 1031 

RT 03 Z 


R 1033 

r 1034 


R 1036 
R ] 0 3 T 


RIO 38 


R 1039 


BY THE THRUST VECTOR .RFTUPN TO THE ACTUATOR MECHANICAL NULLS 


RjIXnW INC 7 TVC- AND OPTICS-ERROR-COUNTER-DISENABLES (CHANNEL 12 ) 


TVC 


USES A MIXTURE OF WAITLIST* T 5 . T 6 . AND JOB CALLS, THERE IS 


FILTER MEMORY (UP Tn 6 TH OPDERI TO BE PROTECTED IF WILD TRANSIENTS 



BODY AXIS ATTITUDI 


ERROR IMTEGR ATORS INVOLVE DIGITAL SUMMATION. 

THE BODY^ AXIS RATE ESTIMA 



OFFSET-TRACKER-FII TER TO PROTECT. ETC.t ETC 

TEMPORARY 



COMPLETED. THEN THE NORMAL T V C I N IT A. . . . 0 AP I N I T . • . . P I TCHDAP STARTUP 
W^LlENXT”rS“'C'ALLED UPON TO Gbrn'HlTIG^^^GO AGAPT.' 


TVC-ETTARLE AND 




(ALLOWING FOR PROCEDURAL DELAYS). THEN THE ENGIMFS APE 

M VALTTFS'. TFTH TfAPS ART THEN 

t El IHER 

raiT-x 


TfT' 

TTTR 


CnMHATftTEI} 

TIF 


WTTFTTffF 



COMPLLT- INITI AL I Z AT ION 

^Fim'RFST ART S'T^ 


STATR 

im 


P Sr 

TTV 



“AT 
PARtI 





“WE4 0.6 SECTION 
=J^fF A RESTART OCCURS DURING THlr T 

rTTAT 



T 1 TF T 5 BrTS“^T DOTVCON THF 

n"RTMF. 


RE 




.TVCEXFIN 



CE THE 


R 10 41 

POINT, AFTER THF’ ITAPS ARE READY TO GO ON THE AIR. 






R 104 ? 

— \ Restart occurs rrio? to Tvciwn '4 (tvcphase = -d l.g. during 






RRr ?3 

THE early dap INH I ALTZATION'PHASE, THFTJTIP STARTUP SEQUENCE IS 






RTTPfT 

ENTERED AT MPXLFAN FORTE FULL rHTTTAXT? AT TON . 






R To 44 1 

=t=FOR restarts duping CSM/LM V 46 3 WT 1 CH-GVER* TVCPHASE IS SFT TO - 2 * 






R 10442 ■ 

“ATlT'TFnr^XTART LOGIC GOES BACK TO ETFOn SW I ! CH-UVtK TaFT FR TH€ 






P 10443 

Nn'RMAT “iyAP"RESIAP I SEOUENUt TS FOLTOWFlTT. 






RIO^S 

■■ T='?ESTART 5 ARE NfiT OTTTCAL 10 THE RHLL^DAP PET'FuTMANCE* Hence iHt 






■ 

' “THE 'RDLL DAP IS ME''(-LY R tS 1 AR T iHI. 






— " Riosn 

^ P E S TATTS DUK IHITT'XTRTTKIt r*-ST (^TTrOKETT IS NON-TETTGr) WILL CAUSE THE 














GAP: 

ASSEMBLE RrVISION 055 HF AGC P5GGHAH COMAMCHF BY NASA 2021113-051 10:28 

APR. 1.1969 

TVCDAPS 

.Oil PAGE 957 








1 

TVC"ESTARTS 

USER'S PAGE 

NO. 2 

EO S3 



P 10 51 

STFGKF TEST TO 3E TF^‘^UNATED. A NEW V68 ENTRY WILL BE REQUIRED 





R103? 

TO GET IT GOING AGAIN (NO AUTOMATIC RESTART). 





R1054 

^S^PEDOTVC IS RFACHrn FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS 





R1055 

(BITS 15»14 OF FLAGWROC) S^T FOR TVC. OOTVCON SETS TVCPHASE = -1 





R1056 

AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS. JUST BEFORE 





R10S7 

MAKING the T5 CALL TO TVCDAPON. ON A NORMAL SHUTDOWN DOTVCRCS 





R105B 

CALLS RCSOAPON, WHICH RESETS THE T5 SITS FOR RCS. 





R1060 

calling sequence. .. .15. IN PARTICULAR BY ELRSKIP OF FRESH ST ART /RESTART 






R1061 NORMAL EXIT MODES .... R ESUMF , MOORSM, POSTJUMR (TO TVCINITA OR MRCLEAN) 


R106? ALARM OR A30RT EXIT MOOES. ... NONE 


R1063 SUBRnUTINFS CALLED.... 

R 1064 *PcnPY+l, YCOPY + 1 (PITCH AND YAW COPYCYCLES) 

P.1065 *ENA6L?1.2. CMOSOUT ( ’’ '— E ST ABL ISH ACTUATOR TRIMS! 

R1067 ♦MPCLEAN or TVC1N1T4 (TVCOAP INITIALIZATIONS) 


R 1057 1 *SWICHOVP< +5 (CSM/LM V46 SWITCH-OVER) 


-■ ■ ■ 

k1068 

^EXRSTRT AND TVCEXECO r I Vf: PHASE POINTS I THRU 6 





R 1060 

7NAITLIST, IBNKCALL, '’OSTJUMP, ISWCALL 






R 107(1 

OTH^R INTERFACES. .. .DOTVCON AND RCSOAPON (T5 BITS). ELRSKT^ (CALLS 

IT) 




R1071 

ERASABLE INITIALISATION REQUIRED.... 











R 1072 

=^eT5~EriTS“T1701 , TVCPHASE »-l tOGTt ^ »TTt TVC EXPHS Tl THRU 6) 





Rl 073 

*TVC OAP VARIABLES 





R 10 74 « n P ERA TI 0N5 PEREH RMED BY REDOTVt^ ARE BASTD ON THE TI'S'SUMPTIUN (HAT 


RIO. ' 6 THF TVC DAPS ARE RUNNING NORMALLY 


RTTrrs ' ‘ '■nxrpuTT; . . 


P1077 
RIO 70 
R 1079“ 
» 10791 
RTOW 

KIOJI 

RlOO? 


R10S3 IS. . .. TVC I EMPUMRIES "TM L-B'ANK6 


*PITCH and YAW TVC OAP CC)PY(!YCLtS COMPLETED IF INTERUpTE 
T'Tvcexecut ive'Tltmft: 







^ 2rc TUMOR TRIMS RT- FSTABLISHhO (ACTUATn-?S BACK HN THF 
MVC TN I T 1 AL I Z A 1 1 UN A S“TEUUT1TFD 
*ALL TVC HA.P UPGRATIOWS UN THb aik 
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L TVCRESTA^TS 

USER * S 

PAGE 

NO. 3 

EO S3 


1084 





1 0,3140 


BANK 16 



1035 

REF 

? 

LAST 

946 

16, 2000 


SEtLQC DAPROLL 



1036 





16,3140 


BANK 



1087 

R FF 

8 

LAST 

942 

E6.1644 


EaANK= TVCPHASE 



1089 

RFF 

1 





COUNT’* tf/PSRT 


- 


1089 

1090 


1091 


1092 


1093 


1094 


FF 


FFF 


R FF 


K E F 


LAST 938 


LAST 938 


LAST 949 


16.3140 

16.3141 


22 016 0 
0 0006 1 


16,3142 22 012 1 


16.3143 


661 


16.3144 1 3145 0 


16,3145 1 3152 0 


REDOTVC IXXH BANKRUPT 

EXTEND 


WCH QRUPt 


EXECPHS rxs 


TCP 


TCF 


TVCFXPHS 


+ 2 


TVCOAPHS 


K A G E 


I 


TCR.“. TR ••FTNCaPY 


T 


CHECK TVCEXFClITIVe PHAS 


MUST RESTART TVCEXECUTIVE 
NO NEED TO RESTART TVCEXECUTIVE 


1095 


1093 


109 


RFF 


LAST 953 


16.3146 3 4334 1 


CAF 


NINE 


RFF 


16.3150 


03253 0 


2CA0R EXRSTRT 


PEF 


16,31F1 


34066 0 


9CS DELAY TO FORCE EXRSTRT TO OCCUR 

BEFORE PiTCHOAP, AFTER CMOSOUT 



109^ 


16.3152 


1100 


^ 7700" 0 




XHFCI C^TS 15 AND 1 OF TVCPHASE^TO 

DAP RESTART LOCATION (-1,1,2, 3 




1101 


1102 


200 


LAST 


16,3154 

16 ro 1 5 5 


10 000 0 
I 3240 0 



1103 


PEF 


1 


16,3156 1 3163 I 


ttTf 


FINCOPY 
FNABLl 


JUST PREPARE THE JUTCOUNTERS AND GO 


1105 

^EF 

22 

“‘LAST ■ 

443 

16.3163 

3 5ora ir“ 

ENABTn C 

■ ■ ■■ ■- ■ — ■■■ 

11052 

r hF 

23 

TAXT 

887“ 

16,3 164 

6 5005 1 

i 

1106 





LTi 

0 0006 1 

t 

1107 

REF 

33 

LAST 

73 4 

1 6 f 3 ] 1 6 

05 012 1 

. — ■- = ^ 

1108 

REF 

1 



1 6 , 3 I 6 7 

T "3757 T. 

( 


"TTF 


B 1 I ^ 
BlTll 


(MIN) WAIT 

SET BIT FOR 



/n:3TT 


CfTAWl 


EkED FIT 


OfF 


TTSTTV XTO-TTO 



THEKt) 



1100 

RPF 

14 

LAST 940 

16.3170 

55*312 1 

rs 

T5LnC 


1110 

itef 

2 

LATT ‘553” 

16,3171 

3 3263 0 

CAF~ 

TVGAITDR +4 “ 

60 MS IIVCtxADR) 

, 111 L 


10 

LAST 0-+0” 

“ 16.3172" 

■”54 030 0 

TX 

T I ME5 











1112 " 

RFF 

30 ■ 

Lun 97n 

16.31 M 

1' 5333 0 

1 1 1” 

RESUME 












1X13 

RTF' 

10” 

last 958 

T6r, 3 ITX 

“XTXi rS a FN ATIU? 

XXCH 

BANKRUPI 

CUNTINUE KKEPAKAMUr^ ur UU I uuu^N » ctk ^ 










1X14“ 

RFF 

3 <5- 

TAXI TXT" 

“X6T7TT5" 

3 5016 0 

CAE 

8 112 

iJPTICS FKKUR CN I K enable* 4MS MIN WAlf 

IXXT- 




16,3l‘T7r' 

”D“OXO(> 1 

EXTENTT 



1116 

r^p-fr- 

"XT 

i : A ST 9TX“ 

16 ,3 ITX 

05 012 1 

'WUR 

CH ANI2 



- ■CW* , 
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L 

TVCREST ARTS 







USER'S PAGE NO. 4 

E 6 S3 



1117 

REF 3 

LAST 

95 <? 

16 t 3200 

3 3261 

1 

CAF 

TVCADDP +2 

WAIT, CALLING CMDSOUT ( BBCON 

THERE) 


1118 

P.EF IS 

LAST 

95 R 

16,320 1 

55*312 

1 

TS 

TSLOC 



_ 

1119 

P.EF 3 

LAST 

958 

16,3202 

3 7700 

1 

CAF 

nCT37776 

20MS 



1120 

REF 11 

LAST 

95 3 

16,3203 

S4 030 

0 

TS 

TI ME5 
















1121 

REF T" 

LAST 

192 

16,3204 

1 5335 

0 

TCF 

NOQRSM 



• 


112 


REF 11 LAST 95B 


16.3205 22 016 0 CMDSOUT LXCH 


BANKRUPT 


1123 


16,3206 0 0006 1 


EXTEND 


1124 


RFF 10 LAST 958 


16,3207 22 012 1 


OXCH 


QRUPT 


1125 


REF 163 LAST 949 


16,3210 4 5021 0 


CS 


ZERO 


1126 

1127 

TTIB 



LAST 

LAST 



16,3211 
16 . ^212 


6 1623 1 
54 054 1 



PCMO 
TVCPITCH 


REF 164 LAST 959 


1129 

1130 




LAST 



16,3213 4 5021 0 

6 1624 0 

54 053 0 


CS 


ZERO 


16.3214 

16.3215 



YCMD 
TVCYAW 


rm 

1132 

TYJ3 


REF 


LAST 731 


ITEF 7 L A"ST TTT 


16.3216 3^5062 0 

16.3217 0 0006 1 

16,3220 05 014 1 


ZKf 

EXTEND 
WOTT 


pRla6 


t:han*14 


1138 

TTTo 


REF 

WFF 


LAST 953 




ref 


1 

7 


16.322 1 

16. 3222 


11*644 1 PHSCHK2 


1 3232 0 


CCS 

TCF 


TVCPHASE 

CTiTCST?rK“ 


TlTHT 

TT47^ 


REF 201 


LATT 

UATT 


^59 


TK7T7Z3 r32I20 




95 8 


16.3224 

16.3225 


10 000 0 

Tr32TnrTj 


nr? 

TU~ 


TT 


1142 01 R'FF 



53 — UKZl ^ 

“2~^TrAST- 


TET^TTS — 0 4701“1T 


T 


6 • 



.-i 


1 


TC 

UTum 


POSTJUMP 

mZLTMT 


114203 RFF" 
114204 THEF" 


TE 

“5 


051 



nrr 


16,3230 


T67 



0 4740 0 


5536T~TJ 


+1 


IT 


tBNKCALL 




11421 RTF 

1 1 47T RFF 

TTT23 


5 

1 


05T 2FT 


TF717T7 
T6» 


rrnrrri — cttkstfk ct? 



TCF 


r 1 40 — IFF 


2 051 F5F 


TFTTZTi 1 325T5'r 


TCF 


TCF 


STKUKblT- 

1 STINITJ 
+ 

Tsrm 


rnr 


R EF‘ ■ 


1144 

A1145 

"TT4T 


TTTF 


5F 

"T 


LAST 


16,32'3o 

16.32Tr 


0 4701^ 


1^4 


36324 1 


CTOF 


rVCiNI14 


TFF 


XAST 


r 


TT4T 

TT49 


FFF 


T 


16, 374TT 

T57T74T 


5T^544 0 
3 32'5T“T 


i'- 


INDEX 

TTAF 


TVCPKXST 


TFF 


T-^XT^TT 95F 


16.3242 

16.3243 


XT 


imxxx 


TCF 

TCF 


TVCCADF 
I SWCAXC 


FNTBTT 


CONTINUE PREPARATION OF OUTCGUNTERS 


MOST RECENT ACTUATOR COMMANDS 

(AVOID 4-0) “ 



TBTT5“T I , TZT 


CHECK TVCPHASE AGAIN 


A CONTAINS THb DIMINISHED ARSULUrb OF 
I VCPHASF T-2 BECOMES ■+T,' -T^BfcCUMbS +07 


PEPbAI — IVC INirULIZAIlON 
(DO NOT PbrURN 


REPbAI CSM/LM V46 SWIlCH-UVbR 


CHE C K TXrR“5TF OK 


CHECK FOR SIKUKb JtSl IN PK'JCRb-SF 


YtS, KILL TT 


NO. PROCFETT 





IVC INI 14 (ZbKUS IVCPHASfc. anu 
CALLS" 


FTCK“UF THE AP 



"PE-ENTEF THE CUPVCYCUF, RfcfUkN AT END 
NOW PREPARE THE DUTr 



Tl'SCr 


3244 


TTonxrx — trT'^^ 


mTTALT 
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L 

TVCRFSTARTS 








USFP*S PAGE NO. 5 E6 S3 



11 bl 

prp 

19 

LAST 

949 

16.3245 

3 1424 

1 


DC A 

PACTOFF 

EG. P.YCMD MAY NOT BE SET. SET... 


113? 

REF 

6 

L AST 

959 

1 6 • 32 46 

53*624 

1 


OXCH 

OCMD 



1133 

REF 

3 

LAST 

959 

16,3247 

1 3163 

1 


TCP 

ENA8L1 

NOW PREPARE THE OUTCOUNTERS 
















1154 

h F 

163 

LAST 

95 9 

16.3250 

3 5021 

1 

TSTINITJ 

CAF 

ZERO 

DISABLE STROKE TEST (-0 SHOWS PRIOR V6B) 


1155 

REF 

4 

LAST 

959 

16,3251 

55* 574 

1 


TS 

STROKER 

TKT MEANS TlEW V68 REQUIRED FOR STARTUP) 




11552 

REF 

3 

L A?T 

959 

16,3252 

1 3236 

1 



CHKSTRK +4 




1161 

P RF 

15 

LAST 

958 

16, 3253 

~5l'651 

1 

EXRSTRT 

INDEX 

TVCEXPHS 

TVCEXFCUTIVE REST ARTS .... GO TO 


1 1 62 

REF 

1 



16,3254 

3 3263 

0 


CAF 

TVCEXADR 

APPROPRIATE RESTART POINT 


1163 

RFF 

202 

LAST 

959 

16, 5255 

50 000 

1 


INDEX 

A 



1164 





1 6 * 3 2 5 o 

1 0000 

0 


TCP 

0 





























R 1165 

TVC 

RESTART TABLES. 

ORDER 

IS REOUI 

REO 

1. HT-ORDER WORDS ONLY, OF 

2C ADR SINCE SBCDN IS ALREADY THERE. 















1167 

REF 

2 

LAST 

959 

16.3257 



TVCAODR 


TYCCADR 

TABLE OF CAnRS* UNUStO lOCIS FOR GFNADR5 


1168 

PEF 

1 



16, ’257 

03174 

0 

TVCCADP 

GENA DR 

ENABL2 

(For T5 call, unused table hjo 


116G 

RTF" 

1 



16, 3260 

40675 

1 

+ 1 

C A DR 

PCnPV +I 



TIJU~ 

— ^TF" 

1 



16,3'2 61~ 

0!T2“rr5" 

TT” 

+2 

D R 

CMOSOUT 

(FOR T5 CALL, UNUSED TABLE LOCy 


1171 

RFF 

1 



16,3262 

41051 

0 

+ 3 

CADR 

YFOPY +1 

YAW COPYCYCLE 


117? 





1 6 * 3 2 6 3 

Trm 

1 

TVCEXADR 

"TFCT 

37772 

( UNUSED TABLE LOC » FTUC WITH 6 QMS • T 5 ) 


^173 

REF 

2 

LAST 

947 

16 , JZT4 

mm3 

T 

+ 1 

"TETlAnR 

TXECCOPY +1 

TVCEXFCUTIVE KtSTABT PUINlS { QRUEPTDT 


1174 

f' EF 

2 

1 AST 

946 

16,3265 

03011 

1 

+ 2 

gEMAOr 

ISHOtCHK 



1175 

~ RTF" 

1 



I6,326T' 

03040 

T) 

^ 

nfTPTTAT5TT 

TEMPSET 



1176 

REF 

2 

LAST 

wr 

16,3267“ 

03043 

0 

+4 

w t w 1 ^ 

xrf ' J J L f * 



1177 

REF 

1 



16,3270 

03121 

0 


GENADr 

CORCOpY +1"' 



117o 

RRT' 

2 

LAST 

wr 

— T6TO'2Tir 

03132 

1 

ns 

GEN A DR 

CNTRCOPY 
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P 1000 

PROGRAM NAMR. . . .TVCDAP. CONSISTIMG OF PITCHDAP. YAWOAP. ETC. 




R 1001 

LOG SECTION.. . TVCD.APS SUBRDUTINF. . .DAPCSM 




f; 1002 

MODIFIED BY SCHLUNOT 21 OCTOBER 1958 




p loop 

FUNCTIONAL DESCRIPTION.,.. 





RIOOA 

SELF-PFRPETUATING T5 TASKS WHICH GENERATE THE COMMAND SIGNALS 




P 100 5 

FOR THE PITCH AND YAW SPS GIMBAL ACTUATORS DURING TVC (SPSJ BURNS. 




R 1066 

IN RESPONSE TO BODY-AXIS RATE COMMANDS FpOM CROSS-PRODUCT STEERING 




R1007 

(S40-8). IF NO STEERING (IMPULSIVE BURNS) "MAINTAINS ATTITUDE-HOLD 




RIOOP 

ABOUT THF REFERENCE (INITIAL) DIRECTIONS (ZERO RATE COMMANDS). 





R 1009 

THE PITCH AND YAW LOOPS ARE SEPARATE, BUT STRUCTURED IDENTICALLY. 




RIGIO 

EACH ATTITUDE-RAT!,' LOOP INCLUDES GIMBAL ANGLE RATE DERIVATION, 




R 1011 

GIMBAL/30DY AXIS TR ANS FORMAT I OM • SODY-AXIS ATTITUDE ERROR 




RIO 12 

INTEGRATION WITH ERROR LIMITING, THE GENERALIZED 6TH-0RDER FILTER 




R 1013 

FOP CSM OR CSM/L^^ OPERATION. A FILTER OUTPUT LIMITER. 




R 1014 

CG-OFFSET TRACKER FILTER. AND THE CG-TRACKFR MINOR LOOP. 





RIOTj 

THE DARS APE CYCLIC, CALLING EACH OTHER AT 1/2 THE DAP SAMPLE 




R1016 

TIME. AS DETERMINED 3Y T5TVC0T. THE ACTUATOR COMMANDS ARE 




R1017 

REGENERATED AS ANALOG VOLTAGES BY THE DRTICS ERROR COUNTERS, WHICH 




RIOIS 

transmit' the Signal to the !sctliator servos when there ts“proper CDu 




P 101<^ 

MODING. 





R1027 

CALL ! NG' SFOTFRCF; . . . f TVPTCTILLY ) 





R 1023 

T5 CALL OF Ts/CdAPON (TVCINITI ALI ZE) BY DOTVCGM rP40) 




WTU7^ 

T5 CTIUL OF OATTTNrrTTTCOAPS) BY TVCIMIf?) ITVCIMI TIAL I ZE) 




R IIBI" 

■ T5 CALL TTF PITCHDAP GY DApintt 




RI'152 

T5 CALL OF YAWDAP BY PITCHDAP 




TTOTT 

■ T5'CALL OF 'P nCnmiP 3Y YAWOAP 




R lO'PPT 

ETC. 




R1055 

(AUTOMATIC SEOUEiLCInG 'PROH TVCOAPON) 





R103t 

NOR'MSr EXIT MODE. , . .RlrSUMIr 





R1037 

ALAGTM' DR ABORT' EXIT MTPTES . . . . NO N E 





RrcjTTr 

SUBRUUl INES CALLED 





— — R103‘^ 

HAXX FOR STRUKb lESl (V6BI WAVEFUK.^ btwtKAiiuiN 




R1041 

PCOPY, VCUPY FOR CiJPV-CY(-LFS (USED ALSO BY 1 VC kbSlARi PACKAGbl 




R1042 

DAPINTCEUR INTTLAL CDUS fhr RATE MEASUKfcMbNIi 




R 1 043 ■ 

FR RUKLTM, AC ! LIM ' FOF~ FPTPIJT T A T T I TU^b - ER FOR T NTFGF T^TTTJN) AND 




R1044' 

OUTPUT (ACTUATOR COMMAND) LIMITING. CUMMun I'.t PITCH AND 




Ri043 

' YAW DAPS 




RTCr46“ 

F^WTTFTTF "T I NCLUDTTTG DPT VARK ) AND PRECCIMP, TO COMPUTE FILTER 




RTWr 

OUlPUIS AN ' SIOkAG*- VALUES 




R104P 


, 
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04 9 

OTHTR INTFRFACeS. . . . 







R1050 

SA0.8 CROSS-PRODUCT STEERING FOR BODY AXIS RATE COMMANDS OMEGAY.ZC 






R 1051 

S40.15 FOR THE INITIM DAP GAINS VARK AND 1/CONACC 






R105? 

TVCEXECUTIVE FOR HAP GAIN UPOATES AND TMC LOOP GPFRATIONS 






R 10‘35 

TVCRESTAPT PACKAGE FOP TVC RESTART PROTECTION. 







R1056 

ERASABLE INITIALIZATION REQUIRED.... 







P 1037 

PAO-LOAn ERASABLES ( SEE ERASABLE ASSIGNMENTS ) 






P105'? 

CONFIGURATION BITS <14, 13) OF OAPDATRl AS IN R03 






R 1060 

ENGINc-ON BIT (11.13) FOR RESTARTS 






R1061 

TVCPHASE FOR RESTARTS ( SEE DOTVCON, AND TVCINIT4 ) 






R1062 

T5 BITS (15,14 OF FLAGWRD6) FOR RESTARTS 






R10^3 

MISCELLANEOUS VARIABLES SFT UP OR COMPUTED 3Y TVCDAPON. . . .T VC I N IT4, 






R1064 

INCLUDING THE ZEROING OF TE.MPOpARIES BY MRCLEAN 






R1065 

CDUX,Y,Z AND S 1 NCDUX . . . . COSCDLIZ AS PREPARED 3Y OUTCTRIG (WITH 






P1066 

UPDATES EVERY 1/2 SECC)NOl 






R1067 

ALSO G+N PRIMARY, TVC ENABLE, AND OPTICS ERROR COUNTER ENABLE 






RIO 6 3 

UNLESS BENCH-TESTING. 













R1069 

OUTPUT. . . . 







R1070 

TVCPTTCH AND TVCYAW WITH COUNTER RELEASE (11.14 AMO 11.13 INCRtMtN- 






R 1 0 7 1 

tal Commands to optics error counters! . filter nOofs. body- 






R1072 

AXIS ATTITUDE ERROR I NTEGI^AT OR , TOTAL ACTUATOR COMMANDS, 






R1073 

OFFSET-TRACKER-FILTER OUTPUTS, ETC. 






P.1074 

DEBRIS.... 













R1075 

MUCH, Shareable ^vith rcs/entry, in esank6 onlv 








1076 

l/,2 5 5r" BANK If 






107T' 

^EF 1 20.2000 ' ■ SETLOC 0AP5Z 






Yurw~ 

'211,2 53 a BANK 







T 




1 . 


rn — L A3T 


F 6, 1702 








10^0 


CnUN r* X$7D AP s 
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PIO' 1 


PITCH TVCOAP STARTS H'HP r . . . . ( TMCOR ^PRATES CSM/LEM DAP FIlTERt MODOR DESIGN) 


10R3 

REF 

1 2 

LAST 

959 

20,2530 

22 016 

0 

PTTCHOAP 

LXCH 

BANKRUPT 

T5 ENTRY, NORMAL OR VIA OAPINIT 



1084 





20.2531 

0 00 06 

1 


EXTEND 





1035 

KEF 

11 

LAST 

959 

20. 2532 

22 012 

1 


QXCH 

QRUPT 





1086 

PEF 

1 



20,2533 

3 3475 

1 


CAF 

YAWT5 

SET UP T5 CALL FOR YAW AUTOPILOT 

(LOW- 


10P7 

REF 

16 

LAST 

959 

20,2534 

5 5 • 3 1 2 

1 


TS 

TSLOC 

ORDER PART OF 2CADR ALREADY 

THERE) 


10''^ d 

RFF 

5 

L A ST 

940 

20,2535 

31*625 

1 


CAE 

T5TVC0T 




1089 

REF 

12 

LAST 

959 

20,2536 

54 030 

0 


TS 

times 





1090 

R FF 

5 

LAST 

960 

20.2537 

11' 574 

1 

PSTROKER 

CCS 

STROKER 

(STRKFLG) CHECK FOR STROKE TFST 



1091 

KEF 

1 



20,2540 

0 3533 

1 


TC 

HACK 

TEST-START OR TEST-IN-PROGRESS 



1092 





20.2541 

T 2 543 

0 


TCF 

+ 2 

NO-TEST 



1093 

RFF 

2 

LAST 

96? 

20.2542 

0 3533 

1 


TC 

HACK 

TEST-1 N-EROGR ESS 




1094 

'’.EF 

9 

LAST 

732 

20,2543 

30 033 1 

PCDUOOTS 

CAF 

CDUY 

COMPUTE COUYDOT (USED BY PITCH AND YAWJ 

10^’5 

REF 

2 

LAST 

105 

20.2544 

57*645 1 


XCH 

PCOUYPST 


1096 





20,2545 

0 0006 1 


TxTEW 



1097 

2Fr 

“3“ 

LAST 

96 3 

20,2546 

21 '645 o' 


MSU 

PCDUYPST 



KW 

T 



20,2547 

0 2560 0 


"TGR 

PL IMTEST 

R AT F TES ! 

■ IITTW 

REF ■■ 


LAST 

105 

20,2550 

55*647 1 


TS“ 

MCDUYDOT 

(MINUS, SC. AT 1/2TVCDT REVS/ SEC) 


1100 

REF 

"T7^ 

LTTT 

TT2 

20,2551 “ 

30 034 0 

CAE 

CODT^ 

1 ! 71 

REF 


LAST ■ 

“T05 

20.2552 

5 7 * 46 1 

XTIFT” 

P7:DU7PST 

m? 





20,2553 

0 0006 1 

EXTEND 

1103 



TTTTr 

963 

20 ,2554 

21' 646 0 

MSU 

■ o U L# ^ ^ i 

1 rcT^“ 

KEF 

2" 

'i~AKr 

963 

20 . 2 5*35 

0 2 5 60 0 

TCP 


1 ru5” 

:^EF 

— 2“ 

LAST 

106 

20, 2556 

55'650 1 

T S 

MCDUZnOT 

ITW 

REF 




20,255T 

"T.“n571 I 

TCT 

P I ntegrl 



(USED BY PITCH” AND YAW) 


^ATF FEST 

(MINUS. SC. AT 1/2TVC0T RLVS/"SLCJ 


P 


rnrr 

ITT51T 

TTIFT 


TTTTT 

TTTT 

TTTZ 

TTTT 


TTT^ 


TT 


T 


TTTTT 


TTTT 

TTTT 


TTTT 


TTTT 

TTTT 


R E F IT LAST 949 


TFF 


1 


REF DST LSST 

LTTT 


TTF 

TTFF 


T¥ 

T'T 


THEF 

TFF 


T 


ITTLS 


TTrST 


TFF 

KEF 


TTT 


TTTFT 


T6TT 

TFT 


TTm 9FT 


RTF TT5 TTST T5F 


WO 


TOT 



.?0,2 56T 
2F72TFT 
20 . 23 FT 
20.ZS65 
29,2566 


7072 


20.2 577 


20 T 2 5 TT 


70TRT74 


TTT 

TFT 


70T757F 

20,2576 


5 5*6 II 

TT 


I — RLTMTEST TS 




T4TF 


0 0006 


TT 

1“ 






5 5 ■ 6 ITT 


FTT^ 

ITAF 

TS~ 


2UT7FT7 nWTrD 


OFF 


0 0002 0 


TC 


70T7FT1 — 0 0006 1 PTNTOGTTr^XTENO 


3” TFT6“T 
5^'703 0 


TTMOT 


TJWrCTW 


ZORTT 


TTMPl 

0 


U Xt H 


PFRTB 

FTTRTTrW 


Tmro'S 


fXTFAW 


3 1530 


7 TTTTT 


TT 

0 


"OFF 


ERRBTMP 


TEST FUR EXCESSIVE CDU RATES (GRbA! 
rTOTT"7. 3 TT^E G~TTT OTTE" FA M PTT 





INIEGRAL OF 30 DTWXIS PITCH-TIATE 
E KRURT" SC . AT ^-TT REVS 
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USER'S PAGE NO 
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1122 

REF 

5 

LAST 

763 

20.2577 

4 0746 

0 


cs 

CDSCOUZ 

PREPARE BODY-AXIS PITCH RATE, OMEGAYB 

1123 





20,2600 

0 0006 

1 


EXTEND 



1124 

p pp 

5 

LAST 

763 

20.2601 

7 0750 

1 


MP 

COSCDUX 


1125 





20.260? 

20 001 

1 


OOOUBL 



1126 





?0»2603 

0 0006 

1 


EXTEND 



1127 

3 EF 

"T" 

LAST 

"963 

20.2604 

7 1647 

1 


MP 

MCDUYDOT 


11 23 





20.2605 

20 GOT 

1 


DbOUBL 



1129 

REF 

1 



20,2606 

53*536 

1 


OXCH 

OMEGAYB 



1130 

REF 

3 

LAST 

963 

20,2607 

4 16 50 

1 


CS 

MCDUZDOT 


11 U 





20, 2610 

0 0006 

1 


EXTEND 



1132 

REF 


LAST 

T53 

20,261 1 

7 0742 

1 


MP 

SI NCDUX 


1133 





20,2612 

20 001 

1 


ODOUBL 



1134 

E F 

2 

LAST 

964 

20,2613 

21' 536 

1 


DAS 

OMEGAYB 

(COMPLETED OMEGAYS, SC. AT 1/2TVCDT REVS) 













1135 





2 0 . 26 1 4 

0 0006 

1 


EXTEND 


PICK UP -OMEGAYB (SIGN CHNG. INTEGRATE) 

1136 

REF 

3 

LAST 

964 

20.2615 

4 1536 

1 


DCS 

OMEGAYB 


1137 

PEE 

11 

L AST 

96 3 

20,2616 

21' 703 

0 


DAS 

ERR3TMP 














) 1 3 3 

R EF 

1 



20.261? 

0 3124 

0 

PERORLIM 

TTR 

ERPriRLIM 

PITCH BODY— AX^TS— cRROR INPUT LlMITFR 


1139 





20,2620 

0 00 06 

1 

PFORWARD 

EXTEND 


PREPARE THE FILIEK bIMKAUE LULAIlUNb 

1 1 40 

O'fi C 

3 

last 

941 

20,2621 

3 1542 

0 


JTCr 

pTM'n: 

FOR THE P ITCTH X^HANNFL 

1141 

REF 

2 

LAST 

106 

20.2622 

53*707 

1 


DXCH 

TMPl 


1143 





20,2623 

0 0006 

1 


EXTEND 



1 143 

RRF 

2 

LAST 

104 

2P, 2624 

3 1546 

1 


DCA 

PTMP3 


1144 

REF 

2 

LAST 

106 

20.2625 

5?' 713 

1 


OXCH 

TMP3 

— . • — — — ‘ ' 1 ■! ■ 

1145 





20,2626 

0 0006 

1 


EXTEND' 


. _ - — TW 1 - ■ ■ - ■ ~ 

1146 

PEF 

2 

LA^r 

TO'S 

20.2627 ' 


T“ 


DCA “ 

P T M ? 5 


1 14 7 

REF' 

2 

LAST 

106 

20,2630 

53' 7l7 

0 


OXCH 

TMP5 














rr4^ “ 

PEF 

1 



70,E26m 

0 3156 

"0“ 


“TCP 

F W 0 F L T R 

GO COMPUlE PRESENT OUTPUT 

A1 149 











(INCLUDES VARIABLE GAIN PACKAGE) 













IIW' 





20,263'Z" 

OnOTTO^ 

X“ 

PUFF SET 

EXTEND 



11'=^! 

REF 

7 

LAST 

949 

20,2633 

3 1606 

0 


OCA 

PDLLGFF 


ll->2 

r c 

A 

LAST 

TFT 

20.2634 

21*705“ 

XT' 


15715 

C MD T TTP 

NOW SCALED AT 8+0 ASCRFV 













1153 

PEE 

1 



20,2635 

0 3137 

1 

PACLIM 

TCT 

ACTL I M 

ROUND OFF & LIMIT PITCH ACTUATOR COMMAND 













1154“ 

"q1=T 

» 

L AFT' 

"WO 

20,2636 

54“ 1623 

TT 

IXIDT 

CS 


INCREMENTAIT ^TTCH COMMAND 

1155 

REF 

5 

LAST 

964 

20,26 v? 

6 1 704 

0 


AD 

CMOTMP 


1156 


4 

rs^T 

'9^59 

20,2640 ■ 

“26“ O^F~T~ 


AD3 

nTTCPTTCTT 

UPDATE THE ERROR COUNTER (NO KESIAKl— 

A i rTT™ 











PRIIIFCJ. STNTE EKKUK CNTR ZERuET)i 




24 

LAST 


“ZTT.zsTnr” 

3 5005 

“I 


CAF 

T3TT1T 

Bll E'JK fVCKllCM C'JUrNl KtLCA^t 






“2Tr, 27> '47" 

0 0006 

1“ 





1160 

RT= 

8 

last ■ 

959 

2 0. 2 64 

0 5 0 r4“ 

1 


WOR 

C H A M 1 4 














1161 






~a~OTi Oo 

1 


“EXTENTT 


PREPARE THE ETLItK SFUKAUb bUK P 1 1 CH 
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1162 

0 

2 

LAST 

104 

20,2645 

3 1 544 

0 

OCA 

PTMP2 



1163 

'^EF 

2 

LAST 

106 

20,2646 

53*711 

0 

OXCH 

TMP2 



1164 





20.2647 

0 0006 

1 

EXTEND 




1165 

R EF 

2 

LAST 

104 

20,2650 

3 15 50 

0 

DCA 

PTMP4 



1166 

REF 

2 

LAST 

106 

20,2651 

53*715 

1 

OXCH 

TMP4 



116 / 





20,2652 

0 0006 

1 

EXTEND 




116."' 

REF 

2 

LAST 

105 

20.2653 

3 15 54 

1 

DCA 

PTMP6 



116 9 

REF 

2 

LAST 

106 

20,2654 

53*721 

0 

OXCH 

TMP6 




11 '0 

R 5 F 

1 



20,2655 

0 3 247 

0 

TCR 

PRECOMP 

TO THE FILTER FOR PRECOMPUTATION 



1171 


1172 


117^ 


1175 

T1T6 


1178 

TT79 

1130 

TT5I 


TT^ 


1133 


REF 


LAST 948 


20t2656 31'602 1 DELRAPP CAE 


OELPBAR +1 


UPDATE PITCH OFFSET-TR ACKEP-F ILTER 


20,2657 0 0006 1 


eXTcNf) 


2£F 

REF 


1 

2 


LAST 106 


20,2660 

20,2661 


7 3300 Q 
55*701 1 


MP 

TS 


E(-AT> 
DEL8RTMP +1 


REF 


LAST 965 


20,2662 31*601 1 


CA 


OELPBAR 


REF 

RET 


LAST 
3 LAST 965 


20.2663 

20.2664 
20,2565 


0 0006 1 
7 3500 0 
21*701 1 


^TEND 
MP 



HAS 


E(-AT 
DELBRTMP 




LAST 964 






1 


20,2666 

20,2667 

20,2670 


31*704 0 
0 0006 1 
7 34 7T 1 


CAE 
EXTEND 

W 


“TwdTMP 


LAST 965 


20,2671 21*701 1 


DAS 


T^T-ATT 

DELBRt^ 


O 


EF 


LAST 960 


?0,?672 0 '2b7A 0 Pr.OPyCYC’TCR 



US 6 


TcF 31 OTST 9^ 


20.367S 1 5333 0 °DA°EN0 TCF 



PITCH 



PCOPY 
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10:28 APR. 1.1969 TVCDAPS .011 

PAGE 972 












L 

tvcdaps 







USER’S PAGE NG« 12 

E 6 S 3 












1375 




20 . 31^7 

1 3155 

1 

BZF 

4*6 



137 f> 

R F F 

14 

LAST 971 

2 C .3150 

11 * 704 

1 

CCS 

CMDTMP 

APPLY LIMITS 


1377 

PFF 

1 


20,3151 

3 3471 

0 

CAF 

ACT SAT 



137 ^ 




20,3152 

1 3154 

0 

TCF 

+2 



13 79 

REF 

2 

L^ST 972 

20.3153 

4 3471 

1 

CS 

ACTSAT 



1380 

REF 

“T 5 “ 

LAST 972 

20,3154 

55*704 

1 

TS 

CMDTMP 

LIMITS WRITE OVER CMDTMP 

^ — > ■ ■■ — i— J- 1 — TT ~~ 












1331 

REF 

188 

LAST 971 

20.3165 

0 0002 

_0 

TC 

Q 

— - 




R 13 ^2 


FILTER COMPUTATnNS FO- P 2 ESE^JT OUTPUT 


13 R 3 


REF 169 L^ST 971 


20 , 31 S 6 3 5021 1 FWDFLTR CAF 


ZERO 


13d4 


133 


E> 


EF 


2 

2 


LAST 

LAST 


105 

105 


20»3157 

20,3160 


55*615 
55*617 


TS 

TS 


DAPl 

DAP 2 


13 36 


Li 


2 LAST 105 


2 C *3161 55*621 1 


TS 


0 AP 3 


1387 


REF 16 LAST 972 


20.3162 55*704 1 


TS 


CMOTMP 


1338 


REF 10 LAST 970 


20,3163 55*700 0 


TS 




1310 


20,3165 


1391 

1392 


R^F to LAST 942 

LAST 972 


20.3166 


0 0006 I 

7 1723 1 


CAE 

extend 




NTor 


Tmr 


20.3167 55*616 


OAPl +1 

ERRFTR[P 






6 “ last 9 T 2 20,3176 


1400 

T^ror 

T 40 Z“ 
1 403 


20.3177 


* ET5 
0 0006 


1 404 

1^05 




55^6'20' 

3 161 "' 


r 

1 

O' 

TT 

T 


TDAPC 7 LS 



+T 


SECOND DAP CASCADE 





0006 1 


FXTTMO 


REr“ 13 




2 0 . 3 20 4 r I U 



MrO“ + 5 


wo 


1 4 0 6 

REF 

4 

LAST 

972 

2 0 . 3 ? 6S~ 

21 * 6?0 

0 

DAS 

I'#* 'r I 

1407 

■^FF 

6 

LAST" 

“970 

20 , 3?06 

"F 3 * 7 T 3 “ 

1 

DXCH 

— ~~ *■ — mm _ - 

1 4 0 8 



LA"ST 

97 ? 

TO . J 70 rr~ 

21*620 

0 

OAS 



‘PT^ 
T 4 TTJ 





1411 

PTIT 

T^m 


FTF 

TTEF 


?03 


LA^f 
T AST" 
LAST" 


WT 

9T4 

~9^ 


TfTTTTnJ 


2"aT3Tl 1 


20.3212 

20,321"^ 


T 50021 
10 000 0 
T~3220'“a 


CAT 

FfTTSK 


CCS 


DA 20 A Tin 
BTT 14 ■ 

X 

3TTAPCAS 


TEST FDR LTK UN DR OFF 


0^ 00 ns 1 


EXTEND 


“CAT" 

LEM OFF 


DT2 


20.3215 


TS 


T 



X T A T 

1 4 1 '> ■ 

RTF” 

— LATT 972 

■ 27 ),T 2 I 6 ■ 53'622 1 

- --- 

“CIXCTI 

0 AP 3 " " 






1414 

“TFF~ 

1 

2 TT ,3 217 ‘1 3232 0 ‘ 


TCF 

U P r V A R 


— 









9 


gap: ASSF'IBLE PFVISION 05^ OF \Gr. PROGRAM COMANCHE BY NASA 2021113-051 

10:23 APR. 1* 

1969 

TVCDAPS .011 

PAGE 973 










1. TVCOAPS 

USER • S 

PAGE 

MO. 13 

E6 S3 




1417 

R EF 

7 

LAST 

972 

20,3220 

31* 620 

1 

30APCAS 

CAE 

0AP2 +1 

THIRD i 

DAP CASCADE 


1418 





20,3221 

0 0006 

1 


EXTEND 





1419 

REF 

14 

LAST 

972 

20. 3222 

7 1735 

0 


MP 

NIO +10D 


N30 


1420 

REF 

4 

L AST 

972 

20,3223 

55* 622 

1 


TS 

0AP3 +1 




1421 

REF 

O 

LAST 

973 

20,3224 

3 1617 

0 


CA 

0AP2 




147? 





20.3225 

0 00C6 

1 


EXTEND 





1423 

R EF 

15 

LAST 

973 

20,3226 

7 1735 

0 


MP 

NlO +10!) 


N30 


1424 

REF 


LAST 

973 

20*3227 

21* 622 

1 


OAS 

DAP3 




14?^. 

PEF 

6” 

LAST 

970 

20,3230 

53*7]7 

0 


DXCH 

TMP5 




1426 

REF 

6 

LAST 

973 

20,3231 

21*622 

1 


OAS 

0AP3 





1427 

REF 

7 

LAST 

973 

20.3232 

4 1622 

1 

OPTVARK 

CS 

DAP3 +1 

VARIABLE GAIN PACKAGE 


14?B 





20,3233 

0 0006 

1 


EXTEND 


(ALSO, 

SIGN CHANGE IN FORWARD LOOP) 


1429 

REF 

3 

LAST 

943 

20,3234 

7 1641 

1 


MP 

VARK 

scaled 

AT 1/(8 ASCREV) OP ACTUAL VALUE 


1430 

Q C C 
!>, 1 . 1 

17 

LAST 

972 

20.3235 

55 *705 

0 


TS 

CMOTMP +1 




1431 

PEF 

8 

LAST 

973 

20,3236 

4 1621 

1 


CS 

DAP3 




1432 





20,3237 

0 0006 

1 


EXTEND 





1433 

REF “ 

f 

L AST 

973 

20,3240 

7 1641 

1 


MP 

VARK 




1434 

REF 

18 

LAST 

973 

20,3241 

21*705 

0 


DAS 

CMOTMP 





1 A33 

REF 

19 

LAST 

973 

20. 3242 

53 * 705 

0 


nxCH 

CMOTMP 

FIX UP 

SCALING - SCALED B-»-3 ASCREV5 


1436 





20,3243 

20 001 

1 


ODOUBL 





r?T7 





20,3244 

20 001 

1 


dooubL 





1438 

REF 

20 

LAST 

973 

20.3245 

53 * 705 

0 


DXCH 

CMOTMP 


^ S C AL t D A SCR E V S 


A143ai 











NOTE - 

THERE ArN TTJHERANT XATFJ OX 


A143R? 











lB+1 ASCKtVSj HN IHt flUIHUI 



14 39 

REF 

189 

LAST” 

972 

20,3246 

0 0002 

0 


IX 

XT 





crr44D 

^ ^ 1 ^ 

ETEP" P’’:EC0FrP‘[JT7iTTUNS FOR NEXT PSST; 







R -F" 

170 

LASr" 


20*3247 

3 so?r 

T" 

PRECOMP CAF 

Z E R n 

FIRST CASCAUt FILIER 

r44T~ 

R EF " 


LAST ” 

963 

2 0 ,373 O' ■ 

“ 5':>'6n 

T" 

'TS 

TTMPI 


r2r4T 



LAST 

107 

20,3251 

55'*6r3' 

IT 

“ “ !S 

T TMP2 













17744 

"RTF' 


LAST 

972 

20*32^2 

3 1703 

IT 

UA 

E K K !J 1 M P +1 

MULTIPLY TN^UI BY 

r445 





20,3253 

0 no-Qb 


EX I END 



1446 

’TTFF' 

16 

LAST 

“xn 

20,3254 

7 1724- 

TT 

MP 

nio +1 

N1 1/2 

1447 

R[-'F 

1 r 

LAS! 

”XT3 

20,3255 

55* 612 

“T“ 

TS 

1 r 1 '•'1 


1448 ■ ■■ 

RTF' 


"TASTT 

"T73 

20 , 3? 56" 

3 1 ^02 

0 

CA 

ER'PBTTP 


14X9 





20,3257 

0 0006 

1 

EX T F ND 



14‘?0 ■ 

REF 

— rr 

TAST ■■ 

“973 

20. 9 2'&{r 

— 7 177.4" 

X 

— fjlp 

NiO +1 

N 1 1 / 2 

r45T — 

1TEF“ 

IX 

LAS 1 


2Tr**26l 

21* 612' 

IT 

- fjAX” 

! 1 MPl 













FTTT 

ITFF' 


LAS! 

“9T2 

20,3262 

4 1 6 1 6 

XT 

(TS 

TTATl -El 

MULTIPLY OUTPUT BY 

— - — Y7r53 





~?0,3263" 

“Tr“(T O 05 ■ 

TT 

EX 1 end 



Fr54 

■XXF- 

18 ■ 

LAS! 

"973 — 

20 ,'3'2'64" 

/ 1 ^26 

T' 

^p 

NlO +3 

U i 1 / 2 

— r45S 

KEF 

4 

LAST" 

”973 

20, 3255 

XTXSTX" 

3 

IS 

T VMP2 +1 


1456 

”9FF” 

-qr~ 

~L7rST 

”973 

2 0, " 2 ‘ > 5 


XT 

crs “ 

D API 

— ■ — 







gap: 

assemble revision OSS OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1 

, 1969 

TVCOAPS .011 PAGE 974 






L 

TVCOAPS 

USER* 

S P AGE 

NO. 14 E6 S3 


1457 





20.3267 

0 0006 

1 

EXTEND 




1458 

REF 

1^ 

LAST 

973 

20, 3270 

7 1726 

1 

MP 

NIO +3 

011/2 


1459 

REF 

5 

LAST 

973 

20,3271 

21*614 

1 

DAS 

TTMP2 




1460 

REF 

6 

LAST 

974 

20.32/2 

53* 614 

1 

DXCH 

TTMP2 



1461 

REF 

19 

LAST 

973 

20,3273 

21*612 

1 

DAS 

TTMPl 



1462 

REF 

20 

LAST 

974 

20.3274 

53*612 

1 

DXCH 

TTMPl 


■ ■ ■ — - p — ■ ■ ^ 

1463 





20,3275 

20 001 

1 

oonuBL 




1 46 4 

REF 

6 

LAST 

970 

20,3276 

21*711 

0 

DAS 

TMP2 




1465 

R fcF 

7 

LAST 

974 

20, 3277 

53* 711 

0 

DXCH 

TMP2 



1466 

REF 

7 

LAST 

972 

20,3300 

53* 707 

1 

DXCH 

TMPl 




1467 

REF 

171 

LAST 

97 3 

20.3301 

3 5021 

1 

CAF 

ZERO 



146 3 

REF 

21 

LAST 

974 

20.3302 

55*611 

1 

TS 

TTMPl 



1469 

REF 

8 

LAST 

974 

20,3303 

55*710 

1 

TS 

TMP2 















14^0 

REF 

24 “ 

LAST 

97 3 

20*3304 

3 17'03 

1 

CA 

ERRBTMP +1 

MULTIPLY INPUT BY 


1471 





20,3305 

0 0006 

1 

EXTEND 


S EC0ND”0'^ DER numerator COEFF. 


1472 

' 3 ‘ # 

2 0 

LAST 

974 

20,3306 

7 1725 

1 

MP 

NlO +2 




1473 

r EF 

22 

LAST 

974 

20.3307 

55' 61 2 

1 

TS 

TTMPl +1 



1474 

REF 

25 

LAST 

974 

20,3310 

3 1702 

0 

CA 

ERRBTMP 



1475 





20,3311 

0 O0O6 

1 

extend 




1476 

REF 

21 

LAST 

974 

20*3312 

7 1725 

1 

vp 

NlO +2 

nt^ 


1477 

REF 

23 

LAST 

974 

20,3313 

21*612 

1 

DAS 

TTMPl 















1478 

REF~ 

10 

LAST 

973 

20,3314 

4 1 6 ]. 6 

0 

C3 

DAPl +1 

MULT I V OUTPUT ETT 


1479 





20.3315 

0 0006 

~r~ 

EXTEND 




1480 

REF 

29 

LATf^ 

974 

20,3316" 

"7"177T 

X” 

BTC 

NlO +4 

D 1 2 


1481 

REF 

O 

LAST 

974 

20.3317 

55* 7il 

0 

TS 

TMP2 +1 



14S2 

REF 

1 1 

LAST 

974’ 

20 , 3320 

~XX6Ty 

"0 

c s 

D A P 1 



rw3 





— 20, 33'Zr 

0 0005 

1 

E X T L N 1.) 




1484 

REF 

2 3 

LAST 

974 

20.3322 

7 1727 

~ir~ 

FTP 

NlO +4 

nz 


^ 

R EF 


TAST 

XT4r” 

20, 3323 

21*711 

0 

X5XS 

~TKP^2 















1496 

rEE 

24 

LAST" 

9 7 A” 

— zursTJTr" 

53*612 

1 

rrum 

TTMPl 



148 7 

REF“ 

11 

LATT" 

974 

2 0 * 37^ 2 5 

“Timr 

0 

HAS 

TMP2 
















1483 ' 

7rEF“TT2 

rA ST~ 

97 4 

2U,XT2-6 

3 502r 


'7C«FLTRCAT 

Z E K U 




REF" 

“T5 

LAST" 

974 

20*7327 

yy 611 


TS" 




ITPTo 

REF 

7“ 

LAST" 

974 

— 2()';7TT0" 

5 5 * 613 

0 

T S 

TTMP2 















r49i 

REF' 

rz 

LAFT" 

974 

20, 3 331 3 TBit" 

~r 

CA 

OAPl +1 

flUt T I P LT INPUT HT 


1492 





20, 3332 

0 0006 

X” 

EXTEND 


. r I-. — - _ » , J ■ — •— * — ■ ■ ' 


1493 


" 2- 

LA5T~ 

“9TX" 

20,3333 

T'TTTIT 

X“ 

ISfP' 

NlO +6 

N21/2 




REF 

2F" 

lAST 

974 

■77777774“ 

55*612 

"X“ 

T S 

T T MP 1 +1 



1495 

ft^F 

13" 

LAST 

"974' ■ 

2U*3.775“ 

3 1615 

1 

C A 

xnrPT 

1 


" 1496 





— 271 , 3 3 rs ~ 

0 0006 

xr~ 

EXTFNTT 




14 W 

P E 

25 

XA3T~ 

974 

2 , 3 3 3 / 

/ 1/31 



N 1 G +6 

N2 1 / 2 












gap: 

ASSEMBLE REVTSK'N 055 Of 

AGC PROGRAM CGMANCHt BY NASA 2021113-OBl 

10:28 APR* 1.1969 

TVCOAPS .011 PAGE 975 








L 

TVCnftPS 


USER'S PAGE 

NO. 15 E6 S3 



1496 

REF 

27 

LAST 

974 

20,3340 

21*612 

1 

DAS 

TTMPl 





1499 

RFF 

9 

LAST 

973 

20.3341 

4 1620 

0 

CS 

DAP2 +1 

MULTIPLY OUTPUT BY 



1500 





20.3342 

0 0006 

1 

EXTEND 





1501 

REF 

26 

LAST 

974 

20,3343 

7 1733 

0 

MP 

NIO +80 

D21/2 



1502 

REF 

B 

LAST 

974 

?0 , 33^4 

55*614 

1 

TS 

TTMP2 +1 




1503 

REF 

10 

LAST 

975 

20,3345 

4 1617 

1 

CS 

0AP2 




150-'+ 





20,3346 

0 0006 

1 

EXTEND 





1505 

REF 

~2T~ 

LAST 

”975 

20.3347 

7 1733 

0 

MP 

NIO +8D 

021/2 



15 06 

REF 

9 

LAST 

975 

20,3350 

21*614 

1 

DAS 

TTMP2 





V 1507 

^FF 

10 

LAST 

975 

20,3351 

53*614 

1 

nxcH 

TTMP2 




1508 

fEP 

28 

LAST 

075 

20.3352 

21*6)2 

1 

DAS 

TTMPl 




r 1509 

R FF 

29 

LAST 

975 

20,3353 

53* 612 

1 

OXCH 

TTMPl 




1510 





20.3354 

20 001 

1 

OOnUBL 





1511 

RFF 

6 

LAST 

97 0 

20,3355 

21*715 

1 

DS3 

TMP4 





1512 

REF 

7 

LAST 

975 

20,3356 

53*715 

1 

OXCH 

TMP4 




l5i i 

RFF 

7 

LAST 

972 

20,3357 

53*713 

1 

DXCH 

TMP3 

















1514 

REF 

173 

LAST 

974 

20,3360 

3 5021 

1 

CAF 

ZFRG 




r5T5“ 

F F 

30 

LAST 

9T5 

20.3361 

55*611 

1 

TS 

TTMPl 




1516“ 

“R - F 

3 

"xznrr 

~FT5 

20,3167“ 

'55' 714' 

0 

TS. 

TMP4 





15T7“ 


“ITT 

LITST" 

"9T4 

20,3363 

3 IFT6 


CA 

UAFI +1 

MULTIPLY INPUI 

BY 


"1518 





2"0V33F4““ 

FT 0 906“ 1 

EXTEWO 





1519 

— RTF" 

“7^ 

last 

~Trs — 

20. 3365 

7 173? 


'TP 

NIO + 7 

fTZ2 



152) 

R7F* 

31 

\7^FT~ 

“975 

2Tr;T37'6 

F5F5 IT 

1 

TS 

TTMPl +1 




1571"" 

ij 

1 ~~ m 

* 

1 5 

L aFT" 

975 

"320.3 367“' 

3 161 L 

1 

■ CA' “ 

DAP 1 




1572“ 





20 , 3370 

0 OOOS" 

T — 

extend 





1523 

RTF* 

29 

LAST" 

“975 

20,3371 

"T^TTT^ 

1 


NTO +7 

N2Z 



r572r- 

“ R‘FF 

"37^ 

LAFF' 

“975 

20VT377 ■ 

ZnFlT 

T 

'TWS ' 

TTMPl 





1575“ 

Ri;F 

11 

LAST 

775“ “ 

20, 3373 

1620 

U~ 


DAP 2 +I 

MULTIPLY OUTPUT 

BY 


, 1526 





20.33 74 

0 0006 

~ir~ 

EXTEND 





' 1577- 

— TFT 

“TTT 

LAST 

■^75 

20.3375 

7' I TITT 

i 

MP 

NIO +90 

U77 



1527 

RFF" 

Q 

L AST 

“975 

20, 33 76 

“55*TT5"T: 

TS “ 

TMP4 +1 




1529" 

RtF~ 


LAST 

975 

20,3377 

4 1617 

1 

CS"" 

UAP2 




1530“ 





20.3400 

0 0006 

1“ 

t X \ tND 


^ — ' 



1531 

'^FF" 

31 

LAST 

9 75 

20,340T“ 

7 1734 

"T" 

MP 

NiO +S>D 

TJ2Z 



1537“ 

■ • • 

10 

LAST 

975 

20. 3 40' r 

21’71'5- 

FT" 

cnrs 

1 





1 5T3“ 

RFF" 

“33" 

LAS r 

975 

2 0, 340 3 

53*612" 

T 

DXCH 

1 { MPi 




15-^4 

TFF- 

IT 

"rA:sT" 

3T5 

■"FT77WT4" 

21*715 

“T" 

DAS 

IMP 4 


















15 35 

RFF~ 

^ITT 

LAST" 

972 — 

20.3405 “ 

■•3I*4'66" 

T“ 

CAE 

DAPDATRl 

TEST FU8 LEM ON OR 

uFF 


1536 

TFF" 

“"41“ 

LAST" 

“951 — 

2 0 , 3'4'(T5' " 

/ so 03 

0 

M ASK 

H 1 T 1 5 




r53T“ 

rnrp- 


LAST” 

972 

20, 3407 

TF" FW 

FT" 

res 

A 

, — 




1538 

RFF 

TGTT 

~LAn“ 

F73 — 

70 ,3410 

“(j“OtroT 

0 

TC 

Q 

EXIT IF LFM OFF 



■ “ 






































- m MTLt - j r ^ ^ * — 

- . — — .. — — — . — 

- -- — ^ — - — 

— — — — - — — — - — -* 

- - 


gap: ASSlMBLE R'EVISION o'5‘> 0^ AGC PROGPxAM CI^ANCHB BY NASA 2021113-051 

10:28 APR. 1.1969 

TVCDAPS 

.Oil PAGE 976 


L TVCDAPS 

USFR'S t^AGE 

NO. 16 

E6 53 


153Q 

RPF 

174 

LAST 

975 

20,3411 

3 5021 1 

3CASFLTR CAF 

ZERO 

:it:4*:it4:«THlRO CASCADE FILTER^=4'=<^=*'* 


15''+0 

‘2 E F 

34 

LAST 

975 

20,3412 

55'61l 1 

TS 

TTMPl 



IS'Vl 

REF 

11 

L AST 

97 5 

20.3413 

55*613 0 

TS 

TTMP2 




1542 

REF 

13 

LAST 

975 

0 s 3 ^ 1 ^ 

3 1620 1 

CA 

0AP2 +1 

MULTIPLY INPUT BY Il/ZJ 


1543 





20, 3415 

0 0006 1 

EXTEND 




154A 

REF 

32 

LAST 

975 

20.3416 

7 1736 0 

MP 

NIO +110 

N31/2 


1545 

REF 

35 

LAST 

976 

20. 3417 

55*612 1 

ts 

TTMPl +1 



1546 

P EF 

14 

LAST 

976 

20,3420 

3 1617 O" 

CA 

DAP? 



1547 





20,3421 

0 0006 1 

EXTEND 




154^ 

REF 

33 

LAST 

976 

20,3422 

7 1736 0 

MP 

NIC +110 

N31/2 


1549 

RFF 

36 

LAST 

976 

20,3423 

21* 612' "l 

DAS 

TTMPl 














1550 

RFF 

9 

LAST 

973 

20.3424 

4 1622 1 

cs 

DAP3 +1 



1551 





20,3425 

0 0006 1 

EXTEND 




1552 

REF 

34 

LAST 

976 

20.3426 

7 1740 1 

MP 

NIO *-130 

D31/2 


1553 

REF 

12 

LAST 

97 6 

20.3427 

55*614 1 

TS 

TTMP2 +1 



1554 

REF 

10 

LAST 

976 

20,3430 

4 1621 1 

cs 

0AP3 



1555 





20.3431 

0 0006 1 

FXTENO 




1556 

PEF 

35 

LAST 

976 

20.3432 

7 1740 1 


NIO +1 30 

D31/2 


1557 

REF 

13 

LAST 

97 6 

20,3433 

^ 1^614 1 

OAS 

TTMP2 














1558 

tef^ 


L^RT” 

976 

20,3434 

53*614 1“ 

“UXCH 

JTMW2 



1559 

REF 

37 

LAST 

976 

20, 3435 

21*612 1 

OAS 

TTMPl 



1550 

REF 

38 

LAST 

976 

20, 3436 

FT*“612 1 

OXCH 

TTMPl 



1561 





20*3437 

20 001 1 

ooouBl 




1562 


6 

LAST 

97 0 

20,3440 

21*7^1 0 

OAS 

TM^6 




1 <56 r 


7 

976 

20,3441 

5 3 • 72 1 0 

"DTTCH 

TMP6 



1564 

REF 

7 

LAST 

973 

20.3442 

53*717 0 

iJTCTi 

T M P‘5 














" ^1 5^65 

kEF 

175 

LA5T 

976 

20 f 3 ^ ^ 3 

3 ^21 1 

CAF 

ZcRU 



156f. 

REF 

39 

last 

976 

20.3444 

55*611 r 

TS 

TTMPl 



1567 

REF 


1 A ^ 

”975" 

70,3445“ 

55*720 1 

I S 

TMP6 

















"T5“ 

TAFT" 

97 6 

20, 3 44 o 

3 1620 I" 

C A 

DAP? +1 

MULIIPLY INPUT EY 


156c> 





20.3447 

■"'Cr"0006 1 " 

" ‘ EXTEND 




1570 

RFF^' 


cast 

"975” 

20,3450 

'T 1 7 37 ir 

MP 

NID +12T) 

5132 


1571 

REF 

40 

LAST 

97 6 

20.3451 

55*612 1 

TS 

TTMPl +1 



r5T2" 

■REF 

16” 

L AST" 

976 

20.3452 

3 r6r7' 0 

CA 

0AP2 



r57T“ 





2TJ71453 (T 0TTt)6"T^ 

EXTEND 




15 74 

— rFF" 

37 

last 

976 

20 . J45zr 

7 1737 1 " 

MF 

NIO +120 

N32 


.... 

RFF" 

"4ir 

LAST 

57 F 

25.5455" 

21*612 T 

DAS 

TTMPl 




1576 

RFF" 

“TT — LAST- 

976 

20,3456 ■ 

4 1622 1 

TS 

0AP3 +1 






1577 




“TO . 345T 

0 0006 T 

EXTFND 






15 73 “ 

“REF " 

JF-'l AST 

976““ 

ZTr,346Tr- 

7 1741 0 

MP 

mu +I4D 


U 3 d 




15 ?9 ■ 

REF 

— 9 — LAST" 

975“ 

20,3461 

55*721 0 

TS 

T M P 6 +1 






I 5 30 

REF" 

“li; LAST " 

"976 

?0,34'6Z" 

4 1621 1 

' C5“ 

DAP3 






— i5sr“ 




'ZTSTW-B ■ 

“TT OiTTJ^ 7 

EXTCND 



- 
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REF 39 LAST 976 

20,3464 7 1741 0 

MP 

NIO +14D 

D32 




15 S3 

REF 10 LAST 976 

20,3'iSS 21. *721 0 

OAS 

TMP6 






1584 

REF 

42 

LAST 

976 

20*3466 

53*612 

1 

OXCH 

TTMPl 




1585 

REP 

11 

LAST 

977 

20.3467 

21*721 

0 

DAS 

TMP6 





lSt3b 

REF 

191 

LAST 

975 

20.3470 

0 0002 

0 

TC 

Q 
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P1587 CONSTANTS 

FOR AUTOPILOTS 









R158B NOTE....) 

ASCREV (ACTUATOR 

CMD SCAl 

1NG) = 85.41 ARCSEC/8IT 

OR 

1.07975111 

REVS (85.41X16384/3600/3601 



j 1590 1 S'5-\SCREV (SPECIAL ACTOaTOR CMb SCALING) = 1.04620942 REVS 


T592 JOTITTT f)03 7'j 0 ACT^ST OEC Z5T~ SCTUAT OR TrmmT6 TJECT, SC. ST 

TTq^ 20,3477 OOlOl I 1/ACTSAT DEC .0039525692 RECIPROCAL (1/253) 


1594 ref 42 LAST 975 Sf)03 ERRLIM EQUALS^ BIT13 FILTER INPUT L I I T. . . . B-3 REVS ^TSSPEG) » 

1595 RgF 27 LAST 940 5015 l/ERRLIM EQUALS BIT3 SC . AT B-1 REV , AND ITS RECIPRQCAL~ 


1 596 
1597 


REF 
E F 


1 

2 


LAST 944 


2Qt3473 

20,347A 


02530 0 
03107 1 


P ITCH T5 
9APT5 


GENADR PITCHDA P 
GEN ADR DAP I NIT 


\jwpm TOPDS OF T s ~2UA:iDiTS'r x?WR mw m 

(BBCON) ALREADY THERE. ORDER IS 


1508 


I 


^ tz 


20t 3475 


02732 0 YAWT5 


GENADR YAWOAP 


REQUIRED 


TTTM 

1601 


20,3476 

00115 

1 

1 /RTL IM 

DEC ' 

0 .0047 1 5 

■ .004715(CDU0IF) = D^TF CDUDIF C 

Z .33 DEG ~~ 


20,3477 

00 24B 

T 

r-TT^TT 

OCT 

00243 

AT^ = . OISEC. . .. EITRE R ( 1/A=4SFC , 

T — 40MS) f 


20,3500 

37535 

0 

E(-AT) 

OCT 

37535 

DR ( 1 /A= 8 S EC , 

T=SONS) 




GAP: 

\SS£i''';l F RtVISlON 055 OF 4GC PROGRAM COMANCHE BY NASA 202111B-051 10:28 APR. 

1.1969 

TVCDAPS .011 

PAGE 979 


L 

TVCSTRnKFTEST USER 

•S PAGE 

NO. 1 

EO S3 


p 1000 

NAME STROKE TEST PACKAGE (INCLUDING INITIALIZATION PACKAGE) 




R 1001 

LOG SECTION. . .TVCSTPOKET -5T SUBROUTINE. . . OAPCSM 




R1002 

MOOIFIED BY SCHLUNOT 21 OCTOBEK 1968 




P lOOB 

FUNCTIONAL OESCR I PT 1 ON . . . . 




R 1004 

STROKE TEST PACKAGE GENERATES A WAVEFORM DESIGNED TO EXCITE BENDING 




R lOOB 

STRKTSTI (STROKE TEST 1 N IT I AL I 7 AT I ON ) IS CALLED AS A JOB BY VB68. 




R1006 

IT INITIALIZES ALL FRASABLES PEOD FOR A STROKE TEST. AND 




R 1007 

THEN TESTS FOR CSM/L^ (BIT 13 OF OAPDATRl). IF CSM/LM, 




RIOOR 

IN EITHER HIGH GP LOW-^NDWIOTH MODEf THE TEST IS STARTED 




RIOO ' 

IMMEDIATELY. I NOT CSM/LM. PROGRAM EXITS WITH NO ACTION. 




R1015 

HACK (STROKE TEST) GENERATES THE WAVEFORM BY DUMPING PULSE BURSTS 




P 1016 

OF PROPER SIGN AND IN PROPER SEQUENCE DIRECTLY INTO 




R1017 

"TVCPITCH. WORKING IN CONJUNCTION WITH BOTH PITCH AND YAW 




R1018 

TVt DAPS, WITH INTERMEDIATE WAITLIST CALLS. NOTE. HOWEVER 




R1019 

THAT THE STROKE TEST IS PERFORMED ONLY IN THE PITCH AXIS. 




R 1020 

■"■An FXAjZP'LE WAVfFORM IS GIVEN BELOW. TO DEMONSTRATE STROKE- 




R1021 

■■ TEST parameter SELECTION 




R 1022 

RESTARTS CAUSE TEST TO BE TERMINATED. ANOTHER V63 REQO IF TEST 




Rl02S 

IS TO BE P E-PUN. 




R102V 

PULSE BURST SIZE IS PAD-LOADED (EStROKERT^n THAT AMPLITUDE OF 




R 102R 

■ WAVEFORM CAN BE CHANGED. THERE ARE TEN PULSE BURSTS IN 




R 1024 

the HALF-A MPL ITUOE OF THE FIRST FREQUENCY SET IN THE 




RIOBO 

STA'^JDAPO waveform. A*'4PL1TU0E IS lOTESTROKER y (1T42 . 15 ) f 



* 

R 1031 

NOMINALLY 50/42.15 = 1.185 DEG 




RIOBT 

CALI I NG SEQUENCE. . . . 




R1033 

cXTFfTOED' VERB 68 SETS UP STITKISTI JOB 




R 1 CiT4' 

PITCH AND YAW TVCOAPS. FINDING STRtiKPR NON-ZERO. DO A ..TC HACK.. 




R10i6 

A N TN T E R N AL L Y - G F WA 1 f L FST GTUTL ENTERS AT ..HACKWLSf.. 




R'rOT5“ 

NORMAL EXIT HOnES.... 




R10A7 

TC BnNKFR — (..0.. t= ENTRY FROM GAP. . .TCTSKPVR. . IF from wA ITL ISl ) L I S i 




R1030 

SUBROUTINES CALLED.... 




RTCr^U' 

XMTLIST 




R 1 0 vr 

ALARM nP ABORT EXIT MODES 

— 




RI0"4’J 


NUNE 


FTA S^^BUF IHI\ I AL 1 Z A T I UN TlFOEIT ^TT). 


R 104<f 
R rO"^T 


ESTROKt^R (PAn-L(jAD'l 
SlRUKbFw CAUUn 





TTTT)'^ 



R I O'mT 

R 10^1 8 


STRK'l S! I 


HACK, HALKWL51 


w. 10A9 


INITlAl tZATKiN bGP S 1 RLl!<t’" I 

BURSTS INTO TVCFTTCH VlA.^ADS* 
STROKER "= +0 VmFN TE'ST^OMPLETETJ 


PIJLSE 
P F SETS 




t: 

R, lO'=i R 


^ T7ATT\rr~^'^ +rT T caku = 


TrET5"= - 


BUNKER 


TTETT 
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TVCSTROKETEST 


USER* S PAGE 

NO. 2 

EO S3 











P105'+ 

EXAMPLE STROKE TEST 

WAVE FORM, DEMONSTRATING PARAMETER SELECTION 








P 1055 

NOTF. . ..THIS IS NOT 

THl ofricial waveform.... 







R1056 ** 


R1058 

ifeijc 


^ 5{£ 




1 fp lyg— - 


R 1060 



3}C2JC 

EXAMPLE WAVEFORM (EACH * REPRESENTS 





R 1062 




85.41 ARCSEC OF ACTUATOR CMNO) 





R1064 

* 


❖ ^ 






PI 066 









R 106S 




4«5it Icjfe 





P 1070 

'Jim 



:?p:4e :(e:^£ :{c:{t 





R1072 



^ sjc 

:^c:4e 





R1074 



^ it 

jfe a>:5>: a}c:<e * 34 c ^ ^ ^ ^ 





91076 



^ * 

3 !? = 4 :=*s i 4 := 4 t 4 :* 4 e 4 t^* 


■ . = 



R1078 




^ /fi ;<E 3 }e *ijc 4 :;^ = 4 c 3 )£ ♦♦ ! 4 e 3 Jc 





R 1030 







- ■ 


R 108 2 




-s j{c ifltijx ?!<♦ ^ 54t=*« 





R1084 




3ie 3}t “^e 4c ijt ajt ijt ^ ^ ~5Jc ^ WW 





R1086 



❖ * 

4c 4c 4^ $ 4t * 3^ 5 





R 1088 



3je # 

4c 4c 4s4t 4e4e 4t4e 4t4e 





RIOOQ 




4c 4c 4t:ic 4c4e 4c4c 4=+ 34=4£ 





pa 0-^2 



3{e iic 

4c 4c 4=4' 4c4e 4f4e 4c 4c 





R 1094 



3}t -i: 

4c 4c 





R1096 



■ff. :{e 

5 !c 4e 





R109B 









RllOO 









P IT^ 




4c 4c 





R1104 



^5r 

4c 4t 















Runs 

FOR THIS (UNO 


ICIAL, TlIAHf'LFJ 

WAVEFORM* THE REQUIRED PARAMETERS ARE AS FOLLOWS.. .. 






RTT07 FCARIl (NUMBER GF SETS » 

R1 1 OB ESTROKER = +3 (PULSE BURST SIZE, SC. AT 8t).41 


R“n7T7 sFrr.. ■ 

P. 1 1 1 0 FREVS = +3 (NUMBER REVERSALS MINUS TJ 

prm F CA0P Y ^~T? ( NU>1 BcR" TTr 'PITUS F 'BORSTS^ TN" 1/2 AMPLITOPEI 

^11X2 SFT2 • • 

B ] 1 1 it fCARDI = +U — (NUMeEfi REVERSALS MINUS'TJ 

r-ITTA F?rAir04^^'‘‘^“"TWMBERnTE”TUTL ST15TI(TSTS TN \T7 AMPCT ruubj 

TTiir; sETjr: 

n ] ) 1 6 FCARD2 = +"5 (NUMBER REVERSALS minus h 

RTTT7 FCAR:D5“'S^T7 njUMBER Ul- PlIE'TrE BU7STS*TN 1/2 AMPLirUOb) 

p T 

PllF? — FCAROS = +i) — (NUMBER REVERSALS MINUS 1) 

p li;U F CAP, 06 - +P‘ — ( NUMBTR^TF" FULSE BURSTS TN T7T AMRL I (UUE) 


!> 
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TVCSTROKFTEST 



USER'S PAGE 
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?l\?l 

STROKE TEST I NIT I AL I ? ftTI DM PACKAGE 

(AS A JOB, 

FROM VERS 68) 

■ 














1122 

17.2552 


BANK 17 






1123 

REF 2 LAST 962 20,?000 


SETLOC DAPS2 






1 1 2 4 

?0,3501 


BANK 







1125 

REF 

1 




COUNTS 

$$/STPK 





1126 

R IT F 

2 LAST 

106 

E6. 1655 


EBANK= 

CADDY 






1127 

REF 

1 


20,3501 

0 3512 1 

5TRKTSTI TCR 

TSTINIT 

STROKE TEST INITIALIZATION PKG 

{ CALL to 



A1128 








AS A JOB BY VERB68) 

- 




1129 


20,3502 0 000'!, 0 STRKCHK INHINT 


11^0 

REF 

71 

LAST 

975 

20,3503 

31*466 

1 

CAE 

OAPDATP.l 

CHECK FOR CSM/LM CONFIGURATION 


1131 

REF 

47 

LAST 

972 

20.3504 

7 5002 

1 

MASK 

B 1 T14 



11 32 





20,3505 

0 0006 

1 

EXTEND 




1133 





20,3506 

1 3511 

0 

BZF 

+ 3 















1133 

REF 

5 

LAST 

562 

20,3507 

31 • 413 

0 

CAE 

ESTROKER 

BEGIN ON i^XT DATTSSTTFITCR OR YAW) 


1139 

REF 

7“ 

LAST 

967 

20,3510 

55*574 

1 

TS 

STROKFR 

(STROKING DONE IN PITCH ONLY. HOWEVER) 



1 1 

R E F“ 

98 

Tirsi 

93 5 

20.3511 

1 52 IT' 

1 

rcF 

ENOOFJO0 
















1144 ' 

REF 

1 



?0,3517. 

4 T522“ 

TT 

TSTimT rs 

TXADDY 

NORMAL ENTRY FROM STRKTSTT 



RFF 

3 

LAST" 

98 1 

20.3513 

5 5 * 65 5 

1 

TS 

CADDY 



114^ 

R2TF“ 


LAST 

106“ 

Z(JTT5T4 

5 5 * 6'5 6 

IT 

TS 

N 

NU 1 t SON CHNG FC ADDY O- } TO CADDY ( i 



1147"“ 

PEF 

T" 



20,3515' 

3 3523 

IT 

CAF 

FRFVS 



1148 

REF 

2“ 

LAST" 

TOTS 

?.0 , 3 51'& 

■ *55*667) 

IT 

rs 

R ^VS 















114T“ 

ser 

T" 



20,35I"r 

4 3524 

0 

cs 

FCARD 

NOTE SGN CHNG FCARD(+) TU CARDl”) 


1150 

TEF 

2 

LAST 

“T06” 

20,3520 

55' 561 

IT 

TS 

CARD 




1151"" 

RE'T 


LA ST 

97T' 

20.3521 

0 0002 

0 

TC 

0 

RETURN TU S T KK I 5 1 I -H UJK u Mn. :> l i 
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TVCSTROKETEST 


IJSFR^S PAGE NO 


E6 S3 


PI 132 


R 1 ] 3 3 


R 1 1 5 3 


R1156 


R1157 


O 1 i q 3 


R11S9 


THE OFFICIAL STROKE TFST WAVEFORM (3 JAN. 1967) CONSISTS OF FOUR STROKE SETS. AS FOLLOWS.... 


SET 1...10 BURSTS IN 1/2 AMP, 


4 REVERSALS 


SET 2... 6 BURSTS IN 1/2 AMP. 


6 REVERSALS 


SET 3. 


5 BURSTS IN 1/2 AMP. 10 REVERSALS 


SET 4... 4 BURSTS IN 1/2 AMP, 14 REVERSALS 
THP PULSE BURST SIZE (FSTROKER) IS PAD-LOADED <5 BITS AS OF 3JAN.1967) 
THE REMATNING W AV EFDR M- GE NE RAT ING P AR AM ET ER S ARE AS FOLLOWS. 


1 ] .3 0 


1161 


1162 


1163 


1164 

1165 


1166 
1 167 


IIdB 


J0T^522 


WO 12 1 ECAOPY 


nn: 


0 


20.3523 


00003 1 


erevs 


DEG 


20,3524 


00004 0 


CAW 


DEG 


20.3525 


00005 1 FCARDl 


DEC 


20.3526 

20.3527 


00011 1 
00015 0 


FCARD2 
F CAR 03 


DEC 

DEC 



20.3530 


20,3531 


00006 

00005 


20,3532 


00004 0 


FCAR04 

FCARD5 

FCARD6 


DEC 

DEC 

OLG 



4 


NO. PUL'SE TOR STSTN ITZ AMP, SET1..T+T0T 
NO. REWRSALS HINDS 1. SETl ( 3) 

NO . stroke sets. 4T 

NO. REVERSALS~M1NUS I. 5ET2 ( 5) 

^ ( 13 

MO. f>lJLSE aiJP'STS IN 1/2 OTP. SET2..(* 6) 

( + 

SET4..(+ 4T 


11^=) 


REF 40 LAST 958 


5016 


2 0MS 


BTT2 


R1170 

STROKE TEST PACKAGE PROPER.... 














1171 

REF 2“ ~TXSr~ 

“T06 F6.U5T 



■ ESANKi BUNKER”" 




117? 


20,3533 

u oaa/T 

1 HACK 

EXTEND 

ENIKY I IN lb KUPI 1 I-KU*^ IVUUAKb 


rrr? 

REF 3 LAST 

2(r,’3 5 T4" 

23*657 

1 

QXCT BUNKER 

SAVE 0 FOR DAP RETURN 



TTT4' 

T175 



r0“.1585 


D C C 
K u ) 




2073536 



xy 

T 


GAF 




ZD APS XZ r FA S SFS/TIATn 



= 8C5=TVCI)T^ 


¥a:itltst 


1176 

1177 


REF 


1177 


1 1 7 3 


REF 


REF 


4 

1 

1 


LAST W2 


F6.1657 

20 . 353T 


20.3540 

20.3541 


03542 1 
40066 0 


EBANK= BUNKW 
7GAW HACFWrST 



1 3544 


1177 

RFF 

“17“ 



“720.3542 

3 "4367 

i:“~ 

HACKWLST 

CAF 

TCTSlCaVR 

ENTRY FTOM WISITLIST 


1 180 

Q EF 

5 

LAST" 

982 

20,3543 

55*657 

0 


TS 

BUNKER 

BUNKER iS TC IASKDVER 















rir.i 

* RTF ■ 


TXST 

981 


3 1574 

a 


CA 

STRTTKFFW 

SX R OK E 


1 lo? 

REF 

5 

LAST 

964 

20,3545 

26 0 54" 



AOS 

TVCPI TCH 




117 3" 

h 1” 

25“ 

T7rST“ 

964 

“T0,Tb4 6 

~T~ 5 OTTF“ 

1 


CAT 

BTTTT 

KbLtAbb I Hb bKKUK cnutNlf-K:> 


1134 





2'), ’•i'B4T“ 

0 O 007>" 

17" 


C A ■ C * >1 L 




1135 


10 

ITAST 

96 8 

2 0 , .'i 5 6 0 

“D5“Cn“4 

1 ■ 



CH AN14 



1 18o 

■nTrir 

4. 

TiGT Par 

■ 2073 55r 

2 5 * 6 5 j 

ir~ 


TNGR “ 

CAlFY'" 

COUNT OOWTT IHE NO. BUKSlS. THIS SLOPE 




gap: 

ASSEMBLE REVISION 05E OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1,1969 

TVCDAPS .011 

PAGE 983 


L 

TVCSTROKETEST 

USER'S CAGE 

NO. 5 

E6 S3 


1187 

REF 

5 

LAST 

98 2 

20,3552 

4 

1655 

1 

CS 

CADDY 


1188 





20,3553 

0 

0006 

1 

EXTEND 



1189 





20,3554 

6 

3556 

1 

BZMF 

+2 


1100 

REF 

6 

LAST 

982 

20,3555 

0 

1657 

1 

TC 

BUNKER 

EXIT, WHILE ON A SLOPE 


11^1 

REF 

3 

LAST 

981 

20.3556 

11 *660 

1 

CCS 

REVS 


1192 

REF 

1 



20,3557 

1 3577 

0 

TCP 

REVUP 

POSITIVE REVS 

1193 

RFF 

7 

LAST 

983 

20,3560 

1 3603 

0 

TCF 

REVMP +4 

FINAL REVERSAL. THIS SET 


0 

REF 

3 

LAST 

981 

20.3561 

25*661 

1 

INCR 

CARD 

NEGATIVE REVS SET LAST PASS, READY FOR 

1 1 95 

KEF 

4 

LAST 

9P3 

20,3562 

4 1661 

0 

CS 

CARO 

THE NEXT SET. CHECK IF NO MORE SETS 

1196 





20,3563 

0 0006 

1 

EXTEND 



1197 

KEF 

1 



20.3564 

1 3 5 75 

1 

BZF 

STRDKILL 

ALL SETS COMPLETED 


119P 

'’EF 

5 

LAST 

983 

20,3565 

51* 661 

1 

INDEX 

CARD 

✓ 

1199 

RFF 

2 

LAST 

931 

20,3566 

3 3530 

1 

CAF 

FCARD +4 

PICK UP NO. REVERSALS (-)* NEXT SET 

1200 

REF 

4 

LAST 

983 

20,3567 

55 * 660 

1 

TS 

REVS 

REINITIALIZE 

1201 

P.EF 

6 

LAST 

933 

20,3570 

51' 661 

1 

INDEX 

CARD 


120 2 

REF 

3 

LAST' 

983 

20,3571 

4 3 533 

0 

CS 

FCARD +7 

PICK UP NO. BURSTS T^T/2AMP. NEXT SET 

1203 

REF 

3 

LAST 

981 

20,3572 

55*656 

1 

TS 

N 

REINITIALIZE 

■ 12U^ 


6 

LAST 

083 

20,3573 

55*655 

1 

TS 

CADDY 


1205 

■REF"’ 

7 

LAST 

98 3 

20,3574 

~o~TEwr 

1 

TC 

BUNKER 

EXIT, AT END OF 



1706 


9 TT^ST 

W2 

7073075" 

■ 55^577 

1 STRi 

DKITL TS 


RESET 

'TTD +0J TO ENT) TEST 


Tim 

KEF 

8 LAST 

983 

20,3576 

0 1657 

1 

TC 

bunKEr 

m 

X 

. 

STROKE TEST FINIS 


120'8-" 

RFF 

5" 

LAST”' 

983 

20,357'T 

55*660 I — WnTW~ 

— rs 

TTFVS 

ALL REVERSALS tXCFPl 

LAST Of S'El 

1209 

RFF 

4 


T53 

20, 3600 

■5”l656no 

' C A 

N 



TTiir" 





20,3601 

6 0000 1 

rjmjBL'E” 


2 X 1/2AMP 


1211 





20,3602 

1 3606 0 

TTTF 

+ 4 




1212 

■ ROF- 

101 

LAST " 

B9B 

20,3603 

4 501 / 0 +4~“ 

CS 

TTNE 

PINAL HtVhRSAL# IHlb 

SET 

1213 

TF5" 

6 

L A S T" 

983 

20,36o4 

55*6 60 1 

TS 

REVS 

PREPARE TO BRANCH TO 

NEW BURS I 

17X5“ 


5" 

TZAOT 


^ 0 f 3 60 5 

~3~r65'6" 0" 

C7I 

u 

JUST KtruRN TO ZERO, 

FINAL SLOPE OF SET 

1215 

RFF" 


“TA ST 

933 

25 . 3 60 6 

55*655 1 

TS 

CADDY “ 

croup 













1216 

— WEF~ 



93 3 

20, 3607 

4 1 5 ^^4 1 

— crs 

S T R 0 K E R 

CHANbb 6lGN uF SLOPE 


r2TT 

kFF 

TTT 

TTAST 

9B'3 

20,3610 

5 5 * 5 f 4 1 

T S 

S 1 KUKFR 



r7TF“ 

REF 

- - rr 

LAS! 

983 

20,3611 

0 1657 [ 

IX 

bunker 

EXIT AT A KEVbKbAL L li A b t I 
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RIOOO 

PROGRAM NAME. •.TVC ROLL AUinPILaT 






RlOOl 

LOG SECTION.. .TVCkOLLOAP SUBROUTINE. .. DAPCSM 






P 100^ 

MODIFIED RY SCHLUNOT 21 OCTOBER 1968 







R1005 FD'JCTinNAL DESCRIPTION.... 



R10b6 

*AN ADAPTATION OF THE LEM P-AXtS CONTROLLER 







R1007 

^MAINTAIN OGA WITHIN 5 DEG OEADRND OF OGAOt WHERE OGAD = OGA AS SEEN 







R1008 

BY IGNITION (P40) 







RIOO^ 

^MAINTAIN OGA RATE LESS THAN 0.1 DEG/SEC LIMIT CYCLE PATE 







R 1012 

^SWITCHING LOGIC IN PHASE PLANE..., SEE GSOP CHAPTER 3 







RIC13 

^USES T6 CLOCK TO TINE JET FIRINGS 







R1014 

^maximum jet PIPING TIME = 2.56 SECONDS, LIMITED TO 2.5 IF GREATER 







RIOIS 

^MINIMUM JET FIRING TIME - 15 MS 







R 1016 

*JET PAIRS FIRE ALTERNATELY 







P1017 

*AT LEAST 1/2 SECOND DELAY BEFORE A NEW JET PAIR IS FIRED 







RIOIG 

^JFT FIRINGS MAY NOT BE EXTPNOEn. ONLY SHORTENED. WHEN RE-EVALUATION 







Rlbl > 

OF A JET FIRING TIME IS MADE ON A CATER PASS 







R1020 CALLING SEQUENCE.... 



RT02T 

— WOIL'D'A'P CALL VIA WAITLIST. IN PAPTrCTJUAIT^TnO/CEXEC TCVERY 1/2 SEC) 






* 

R1022 

WITH A 3CS DELAY TO ALLOW FPEE TIME FOR OTHER RUPTS (OWNRPT, ETC.) 







Nf.mwrL "P'xi 


R1024 ALAPM OP, ABORTTXIT MODES.... NONE 


PIO?") SUBROUTINES CALLED NONE 


irnj26 ' 

OTHER INTFREAi 

C in S • « • • 






TV C EXEC“ 

SETS' UPHROLLD^P TASK EVERY 1/^ ' SECOTvIT) AND UPDAIES 1/CUNACC 





■ EVERY 10 

SEC ONDS Tm A MASS PROP' ANTI" S AO .’XS ) 




R102P 

^RESTARTS 

SUSPEND ROIA DaP COMPUTATIONS UNTIL THE NEXT 1/2 SFC 




R1030 

STSMPL’F'FEinOO.' rTHE'-'^ATlT OF TVCEXXCUTTVE TFEAT CALLS ROLL DAP IS 




■ “ R'roji 

■ Nor RtSTAPTED.) TH^ OGAD FROM” IGTTITI OM IS MAINTAiNfeU. 










PTTOBT 

"ERXSABLE I NTT 

lALIZATTON REOi 1 1 RED. . . . 






*1/C0NACC 

(540.15) 




R1034 

■ *00AO (CODX AT IGRTTT0IXr 





^ og an 0 w 

XCDUX AT TVCT9fTT4 AND T VCEXECUT I VE 1 




■’1036 

*OGAP AST 

(iiGAMiTO-AT TVrtXECUTIVF) '' 




^ 10362 

^fRTTLLPlRF 

= TEMRE0' = ■RUEEWrTRO ='0' ( HKCL EANTZOOF IN TVCDAPONl 




PTT5T7 

OUTPUT.... 






R1038 

*RTTUL“JtT 

PAXR FTPINGS' 









- ■ , , II ■ 1 M 
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TVCROLIDAP 


USER 

*S PAGE 

NO. 3 

EO S3 



P10>-1 

SOMS NOTES ON THE ROLL AUTOPILOT, AND 

IN PARTICULAR. ON ITS SWITCHING 






R 1042 

LOGIC. SEE SECTION THREE OF THE GSOP 

( SUNOr SK/CnLOSSUS> for details. 







R1043 


SWITCHING LOPTC IM THE PH/\SE PLANfc.. 


1044 

1 n /. c 

Rr046 


OGARATr 



R1047 


j}c Xe Sv' 5{- 3{< 


:4e Jjs j!t Jjc 


PI04B 
R 10A9 


T 


(Region i, see text bitLowj 


^ lOSO 


RIQSl 

R1052 


^ ^ ^ ^ 




( C OAST) 


. . . RARAB0L4 (SWITCH! NG = CONTROCT 


'r 


R1053 


RIO 54 


055 

P1056 

R1057 




( RIRF G ROLL JFTTT 


( 


.+LMCRATEr.. 




W 


R1053 

(3T(y5^ 


OGAERROR 


R1060 


^ ijc 

' ~( -A"K;“TnGAFTmr 


S?" 


R1061 


^ 1052 
RI063 
R106^ 


W 


(REGION 6-PRTMEl 


(SEE TEXT EFTIJWT 


R 1065 


(FIRE POS roll JETSJ 


R1066 


( COaSTT 


R1067 


r^ 

r m 


106 


“yr 


IJe $ 5 5 5 ? 5 W W W 

-wmiiw 


R l 06 

roTo 



■yr 

'I' 




# :fle ^ 

— -MAXLTM 


5}t Jjt * ^ 


R1073 


w 


K 1075 



mOTT 

R1073 


HING RAkABOLAS are control parabolas, thus REOUIRI'MG KNOWLhUGfc OF 

ro NTTOIT^ C E LFRTn' WT TTO NACir,“^F ITS RECIPTTOCATr t^TTC CFNATir 
ROLL 




TTCF 



llAm RACK WET 


JET 


IS SfMPIY 



OESIRED DGARAIIT 


TTOTT 

T iriTO 


WBJECT TO THE LIMITATIONS DISCUSSED UNIJFR FTINCTTDIsrAU OFSFRTFTTON 


Rioai 


THE 


QUET ARE“CHMPRIZEO 



1033 


CrjNTRnL KEG IONS I +or~^ , 

TWrVE SUBSET PEGI 'MS 1 AND I He CURKbi>RUNiJlNb I-KKIME.T 

6-PRTME y ■■■ 


SEE SECT HjP!" T”nF' THE GSHP (SUNDISK HR COLOSSUS) 
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TVCPOLLOAP 

USER'S PAGE 

NO. A 

EO S3 





10^4 

GIVEN THE OPERATING POINT NOT IN THE COAST REGION, THE DESIRED OGARATE 







P 1 0?V3 

IS AT THE POINT OF PENETRATION OF THE COAST REGION BY THE CONTROL 







RIOB^ 

PARABOLA WHICH PASSES THROUGH THE OPERATING POINT. FOR REGION 3 







P 1 0 37 

DESIRED OGARATE IS SIMPLY +-MAXLIM. FOR RFGIOMS 1 OR 6 THE SOLUTION 







R 1088 

TO A QUADRATIC IS REQUIRED (THE PENETRAtlON IS ALONG THE STRAIGHT 







Rioa9 

LINE OR MINLTM BOUMORY SWITCH L INES J . AN APPROXIMATION IS MADE 







R 1090 

INSTEAD* TAKE AN OPERATING POINT IN REGION 6* . PASS A TANGENT TO 







P 1071 

■ THE CONTROL PARABOLA THROUGH THE OPERATING POINT, AND FIND ITS 







KIOOR 

INTERSECTION WITH THE STRAIGHT LINE SECTION OF THE SWITCH CURVE... 







R1093 

THE INTERSECTION DEFTNES DESTREO OGARATE. IE THE OPERATING POINT IS 







R109'+ 

■ ■■ CLOSE TO THE SWITCH LINE. THE APPROXIMATION IS QUITE GOOD (INDEED 







R1095 

THE APPPlTXIMATF AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS 







R 1096 

THE SWITCH LINE IS AOPROACHEOJ. IF THF OPERATING POINT IS NOT CLOSE 







R1097 

TO THE SWITCH LINE» THE APPROXIMATE SOLUTION GIVFS VALID TREND 







R 1098 

information (DIRECTION OF DESIRED OGARATE! AT LEAST. THE 







R1099 

RF-FVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2 







R 1 1 00 

SECOND INTERVALS) '•ILL BENEFIT FROM THE CONVERGENT NATURE OF THE 







RllOl 

APPROXI MATION. 







^IIOZT" LARGE TTCTTERR OR THF TA^!OTMT INTFR^SFCTS +-MIRLTM SWITCH 




R 110 2 2 

INTERSECTING THE STRAIGHT LIMF SWITCH. HOWEVER THE minlIM IS 



R 11023” 

Ignored in computing the firing time, so that the extension (into 



R 1102 A 

THE COAST REGION) OF THF'STR ATGHT LINE SWITCH IS WHAT IS FIRED TO. 




rrnTfE~TorrTrw~iTTiD5"Tr5irFTN"THF~cnATr"R¥GTorrFFFoRTrFTACTriTiG 



'U1026 

THE DESIRED IWrElTSECTION (IF. IN THE RFCtION BETWEEN THE MINLlM 



RT17P { 

A'TD THE STRAIGHT'TTTTE' GWTTCTI) IT WTIT EXIBTT NORMAL COAST-REGION 



R110?F" 

6LHAVIGR Af^D TURN rjFF THE Jl fS. THt- PURPOSE OF THIS HIRING POLICY 



RTTDZO~ 

IS TO MATNTAIN STATIC HOLr STABI L I TY TN'THE EVENT OF A JET 



R ri OT~" 

“FTVTLFD-ON. 




R m3 

WHFTT^HF OPERATING POIMT IS IN REGION 1 IH»- SAME APPROX I MA 1 i UN IS 





MADE. BUT AT AM AR T I FTC TArrr-TTRETnTD OR DUMMY OPERATING POINT, 



P1115 

defined by.. OGAERPOR = INTERSECTION OF CONTROL PARASOCA STTD 



rittt: 

OGATRRDR AXIS, OGARATE = +-LMCRATE" WFrERE"^ IGN IS OPPOSlIb IHAT OF 



RTTT7 

RTAL OPERTrrTWGTniNT TATF; WHEN THE UPERATTNG POINT FIAS PASSED 



RlllR 

FROM RtGlON 1 TO R^GIO'N 6», TH^z DUMMY PUINT IS NU LUNGER RtguiKEU, 



RTm 

- ATJD T!HP SOLUTION TTVTTTG TO THAT OF A REGULAR REGION 6* PUINI. 





RllZO ■ 

eouatign Fnp'~swncHrMG PAFTrgnu^v (sel figupe above). 







RTTZI 

■ 2 ■ 







R1122 

SilGArP-KOR = (DB - " S' iOA- ATE ) ~ ( 1/CONACC) /2 ) SGN( SOGAHA ( E ) 













- — — , . . . - ■ . . - - 



R1123"“ 

EQUAIITIN FUR SWITCHING STRArGETT LINE SE(;MENT.... 








Rii24 

■ 5TTG A1TATF ‘ - S L U P F ) T S 0 GTERTTO R T - I5^]G^RATE1 TNiHKLtP 








KHZ': 

WHERE INTF-CEP = DffT^ST-OPF ) - LMCRATE 




■ 


■ ■ ■- 
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L 

tvcrqlldap 

USER’S PAGE 

NO, 5 

to :>:J 




R 112 

tOUATIGN FOR INTERSECTION, CONTROL PARABOLA AND STRAIGHT SWITCH LINE,.,, 







=• 1127 

OOGADOT = NUM/DEN, WHERE 






R112P 

2 






R1129 

MUM = (-SLOPE) (OGARATEJ (1/CONACC) 






R1130 

+SGM( OELOGA) (-SLOPE) ( OGAERROR - SGN( OELOGA) ( 08) ) 






R1131 

+LMCPATE 













R113? 

OEN = (-SLOPE) ( LHCRATE) ( 1 /CONACC ) - SGN(DELnGA) 













R 1 1 33 

2 






RllR-i 

OELOGA = OGAERROP - (DB - OGARATE (l/C0NACC)/2) SGN(OGARATE) 





J-S_ 



R113 5 

Fljf sFGTONS 6 AND 5 -PR I ME USE ACTUAL OPERATING POINT ( OG A, OGARATEl 







R1 136 

FOR GGAERROR AND OGARATE IN THE INTERSECTION 

EQUATIONS ABOVE, 







R1137 

FOR REGIONS 1 AND 1-PP. IME USE DUMMY OPERATING POINT FOR OGAERROR 







R1138 

AND QGARATE, WHERE THE DUMMY POINT IS GIVEN 

BY.... 







R 1 1 3 9 

OGAeRRdR= DELOGA + OB SGN( OGARATEl 








R1 1+0 

OGARATE= -LMCRATE SGN(GGARATE) 









R 1141 

NOTEt OGAERROR = OGA - DGAD USES DUMMY REGISTER 

OGA IN ROLL DAP CODING 







R 1 1 A? 

ALSO, AT POINT WHERE DOGARATE IS COMPUTED, 

REGISTER DELD^ IS USED 







Rl 1A3 

AS A DUMMY REGISTER FOP THE OGAERROR IN THE 

NUM EQUATION ABdVE 





— 





f 
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P11432 

ROLL DAP 

COOING. 

« • • 






















2 000 

OFF 

3 

LAST 

958 

16, 2000 



SETLOC 

DAPROLL 




2001 





1^*3272 



BANK 





2002 

REF 

Q 

LAST 

946 

f6t 1662 



EBANK= 

DGANGW 




2 003 

REF 

1 






COUNT* 

tt/ROLL 




2006 

RFF 

10 

LAST 

939 

16.3272 

31* 662 

1 rolLdap 

CAE 

OGANOW 

QGA RATE EST I MATOR. . . S I MPL E FIRST-ORDER 



2 00/ 





16,3273 

0 0006 

1 

EXTEND 


DIFFERENCE (SAMPLE TIME = 1/2 SEC) 



2008 

PFF 

3 

LAST 

946 

16. 5274 

21» 663 

1 

MSI) 

OGAPAST 




2009 





16.3275 

0 0006 

1 

EXTEND 





2010 

PFF 

29 

LAST 

935 

16,3276 

7 5013 

1 

MP 

BIT5 




2011 

R’^F 

205 

LAST 

975 

16 . 3277 

22 000 

1 

LXCH 

A 




2012 

o^F 

1 



16,3300 

55* 53 3 

1 

TS 

GGARATE 

SC. AT 8-4 REV/SEC 





R2017 

COMPUTATIONS WHICH - 

QLIOW USE 

OGA EOF 

i r 

IGAERR (SAME REGISTER) 





R20l'3 

EXAMINE 

DURATION OF 

LAST JET 

FIRING ] 


JETS NOW ON. 




















2019 

R E F 

2 

LAST 

105 

16,3301 

3 1 57T 

T 

DURATION CA 

ROLLFIRE 

SAME SGN AS PRESENT TORQ, MAGN= POSMAK 




2020 





16.3302 

0 0006 

1 

EXTEND 






20 21 





16,3303 

1 3305 

0 

B7F 

42 

ROLL JETS ARE NOW 




202 > 

REF 

1 



16 ,3304 

1 3313 

1 

TCP 

ROLLOGIC 

ENTER LOGIC, JETS NOW ON. 


















2023 

R EF 

T 

LAST 

TOF 

16.3305 

31*573 


CTF 

temreTT 

EXAMINE LASi FIRING I NT E R V A L 




2024 





16 ,3306 

0 0006 

i 

EXTEND 


If positive, dqnt fire 




20''‘5 


2 

LAST 

9B9 

16,3g!5'7“ 

1 33 IT 

r 

ITTF" 

ROLLOGIC 

ENTER LOGIC. JETS NOW OFF* 





2026‘ 

REr 

TTcT 

L A S'1 — 

97^^ 

16,3'mT 

3 5021 

nr 

C7TF 

ZERO 

JtlS HAVt NU ! bttM UM- 4UK l/^ .'iCU. WMll 




2027 

RTF' 

■ "-"n — 

LAST 

FRF — 

16, 3311 

55* 573 

nr 

15 

TtMKtG 

RE SET 1 EMK EG 




2028 

RFF" 

— z^7 

LAFl 

^4^ 

■ 16,3312“ 

1 5324 

0 

WAIIl/2~ TCF 

TASKUVbK 

tTTTT ROLL DAP 





— R 2029 

. _ • 1 i J 

^TJTF 

FB-T17F 

CONACC ) “( ddaraTE) SQ 

(1/2 IN THE SCALING) 






2030 ■ 

— r rp ■ 

2" 

LATI — 

■W9 

16, 3 3 IT" 

4 1533 

nr 

RGLLOGIC CS 

UGARA1 t 

SCALE U AT 2l— 4) KtV/StC 




2031 





16,3314 

'33' orraT 

nr 

EXTEIW 






zuTr~ 

— RFF" 


LAS~I 

“F43 

16,3315 

"T T 6 4TT 

0 

- —FTP 

1 / C U N A C C 

SCALED A! 2(4*9) SEC SO /REV 




2033 





i6,g'3r^“ 

0 0006 

nr 

X 1 fc NO 





** 

2 0T4:- 

— RFF 

T 

— UJ^Sl 


16.3317" 

'/ 1533 

31 

HP 

□ GARA t £ 





2'03‘5"" 

R fcF 

— r 



16, 3320 

6 3 706 

nr 

AD^ 

UT 

sCalEu at 2(+0) REV 




2 03 6 

— TEF" 

T 

LAS I — 

W9 — 

l6, 3321 

55*5 63 

0 

1 S 

J L M K t G 

yUANMIY SCALEU Al 2(+0) KEV. 


















K 2067 

GTFF 

SIGN OF GGARATE 











2TrTFr- 

— FTEF" 

4^ 

LAS f 

FF9 

16, 33F2 

3 1533 

rr 

CA 

(JbAKAT t 



. - 

« 

203 9 





16 , 332 3 

TmrroFnr 

EXIF ND 






29 40 





16 , 3324 

6 332/ 

■nr 

BZKF 

+ 3 

LEI SG^Un) BE NEGAIIVE 




TOrziT” 

RFF 

ST 

“LTST 

939 ^ 

IF733F5” 

3 50I7""T" 

C A 

Bill 





20^.7 





1 6 , 3'3 2 S~ 

333^33 

nr 

TCF 

42 





2 043 ” 

JTFF 

— ST 

— TAFT 

989 

16, 3T27 ■ 

4 5017' 

nr 

CF 

B t T 1 

■ fi ' " ' ^ T — ifc — 




27J47r- 

REF- 

T 

TTTSl 

TTT6 

— IF-,333T5- 

" 55* 6 65' 

T 

T S 

S G N R 1 

+ OR - 2(-14) 
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E6 $1 


R 204 5 


2 04^ 


2047 


2048 
2 049 


2950 


RZO'^l 


2052 


20 53 


2054 


2055 
2( 


205 7 


2 05B 


2059 


2060 
2 Go 1 


2062 


R20 63 


2064 


2 065 


T(wr 


2068 


CALCULATE DISTANCE FPOM SWITCH PA^iBOLA (DELOGA) 


PEF 


LAST 




LAST 

LAST 



16.T331 0 0006 1 

16, 3332 7 1573 0 


EXTEND 


MP 


TEMREG 


SGNIOGARATE) TEMREG NOW IN L 


16,3333 
1.6,3 334 


4 0001 1 
6 1664 1 




REF 


2 


LAST 1 


I"), 3335 55*667 0 DELUGAC TS 


DELOGA 


SCALED AT 2(+0 
SCALE B+0 REV, PLUS TO RIGHT OF C-PARA^ 


EXAMINE SGN(nELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN 


15t33T^ 0 0006 1 

16,3337 6 3342 1 


EXTE ND 

bT^ 


+ 3 


RFF 11 LAST 732 


16,3340 3 4371 0 


CAF 


PRin30 


( 30000T 


RFF 38 LAST 941 


16.3341 

16.3342 


I 3343 1 
3 5001 0 


TCF 

CAF 


O u 


F 


o 

16 


LAST 106 


16,3343 55*670 0 


TS 


11 

B1T15 

I 


=CS (40000) 



^EF 


LAST 900 


16,3344 51*670 1 


INDEX 


■lEF 


LAST 989 


REF 


1 


16. 3345 

16.3346 

16.3347 

I 6 TI 



0 1666 0 
4 0000 g 

0 0006 1 

, 3421 (5 RFGITST 


■sgnrt 


0 

COM 

Extend 

EirffF RTTirON' 


TSET 0 
CA OR CS 


SGN( 0 GARATFy 


IF REGION 1 TTJELOGA OGATIATF^AWE 


NO JET Fr»E YET. TES 



■R F F 4 nm 


16,3351 ^r’^670 1 


TMJFX r 


L- F— 



5 

7 


LAST 

LATT 


9BP 


q -p p 


16.3352 

16, 335^ 
16,33^27 


0 1533 0 

5 ^ 6T1^ 


0 



OGARATE 
I OG AR ATE 


10,3355 


R F F 



6 3714 TT 
0 0006 1 

6 Bwrrr 


FT 


WK L m 


CA OR CS*,.80TH must BE NEG. HERE 
I.E. I UGARAFt 
SCALED AT 2(- 





BTW 



TF^EGTW^ 



TOO HIGH, E IP t JETS) 


R2070 

RTOTl 


C OMPUTATfnTTTT 

SWITCH SLTTPF 




((-SLUPrJOGA + GGARATEJ 

( S L 18 P G / S EC / DE G 



I NT ERC EPT, • NOT F ■ TFTFr 

QUANT ITT^“~ — 


SIR. L 



2072 

2crr3 


o 


EF 


6 LTST 9^ 


2'0T4 


^ E F 4‘8 LXST WT 


2075 



REF 



6 


UATr 

UATT 


9^ 

WT 


TETTvrr 

16, 3360 
T6 ,^TTOT 
1 5 , 3362 

T 6 , 3 36 3 


3 1533 O’ 


Cr 01106 I 

7. 


FornTNU 





55«S73 0 


207T 


7 

Tcrn 




T 


1 6 , 3'3'64: 




ETITTA^ 

TEMRbG 

n 


2081 


Tb , 3 3"66“ 

T67 3 367 "ZO” 0 01" Z 

20 ODr"T 


ZUTTr 


T 


16,3370 

T6r.33Tr 


EXTENU 
ITP 

DDoum: 

DDUUBL 

DDHUBL 


SLOT^F 


lOGA ERROR MUSI Bb LESS IHAN +-225 utb) 


trT5F3"T 


TO 


TEMREG 


TTyrn 




■5TFF 5 


ITOT 

L^ST 


mu 




1 6 , 33 7Z 51*67'0"T 

TTZTTTT 0 OO O D’Z' 

r673TT4 4 00073“!! 



T) 

t:ott 


( (-SL 



ATZ(“3) RbV/SEC 


1 


GAP: 

ASS PMBL 

E REVISION 

095 

OF AGC PR' 
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L 

tvcrolldao 







USER’S PAGE NO. 8 

E6 S3 














2086 

REF 

1 


16.3375 

63711 0 

AO 

INTERCEP 


SCALED AT 2(-3) REV. 



2087 




lt>t 3376 

4 0000 0 

COM 






2088 




16,3377 

0 0006 1 

EXTEND 






2089 

PE- 

1 


16,3400 

6 3611 1 RFG2TST 

B7MF 

MOROLL 


IF REGION 2 (COAST SIDE OF 

StRT LINE) 



R20Q0 

CHECK 

TO SEE IF 

OGARATF IS ABOVE MINLIM BOUNDARY 







2091 

R^F 

3 LAST 

990 

16,340 1 

3 1671 0 

CA 

lOGAR ATE 


ALWAYS NEGATIVE 



2092 

REF 

1 


16,3402 

6 3712 0 

AD 

MINLIM 


SCALED AT 2(-4) REV/SEC 



2 093 




16,3403 

0 0006 1 

EXTEND 






2094 

REF 

2 LAST 

99 1 

16,3404 

6 3611 1 RcG4TSt 

8ZMF 

N*3R0LL 


IF REGION 4 (COAST SIDE OF 

MINLIM) 



R20 96 

ALL AREAS CHECKED EXCEPT LAST 

AREA... MO F IRE IN 

THIS SMALL SEGMCNT 

















2096 

REF 

6 LAST 

990 

16,3405 

51*670 1 

INDEX 

I 







R 6F 

5 LAST 

990 

16,3406 

0 1664 1 

0 

(IGA — 





209S 




16,3407 

4 0000 0 

COM 






2099 

REF 

2 LAST 

9B9 

16,3410 

6 3706 0 

AD 

DB 





2100 




1<) , y 411 

4 0000 0 

COM 






2101 




16,3412 

0 0006 1 

EXTEND 






2102 

REF 

3 LAST 

991 

lo,3413 

6 3611 1 REG5TST 

rt7MF 

NOROLL 


IF REGION 5 (COAST SIDE OF 

Ob 5 




R2103 

J FtS 

MUST FIRE 

NvOW.i 

) GAP ATE IS 

NEG.tOR VISA VERSA). USE DIRECT ST^^, LlNt. 




R2104 

U t L 

A AND TJELOGART 

ARE USED 

AS dummy vap t a rlfs 

TN THF 

SOLUTTON 





R 2 106 

STFin 

~GWr LTNF~A 

^ % 
*■ 1*1 jjM f 

^ r 1 * 

nMATIiliN TO OUAnPATTC SOLUTION 

THF INTERSECT 

TW 




R21i)o 

OF THE CONTROL 

PARABOLA AND T 

HE STRAIGHT-LINE SWITCH LINE. THE STRAT 

GTIT 




R210/ 

LINE 

IS THE TANGENT 

TO THFXONTRDL PARABTTFA AT 

THE OPERATING PDTNT. 

(FOR 



wrry^r 

QF!: RATING PUINI 


REGIONS 6 

TIP" 6^ 7 







— — - ■ 1 ^ m m ^ ■ m^m m m ■ m m % ^ "M ^ ^ 

TTJrr 

PTFF 

DTST 

99 r ■ 

“T6 , 34^17r“ 

3T»664 1 RFGinN& 

CAE 

UGA 


USE ACTUAL OPERATING PUINI 

EUR lANbtNI 


2110” 

RTF 

“F L9^5T 

9915 

16,3 41 6 

5FT oAT” CT 

TT" 

"FcrnTAT 


aciual state 



rnrr 

RFF 

“7 lXET 


1*-,.3416 

3 1533 0 

CA 

OG AR AT E 





2112' 

RTF 

“2 FAST 

106 

IF , 3 4T7 

55*665 1 

TS" 

DELUGARI 


ACIUAL UfcL UCAKAl^ 


2113 

REF 



16,3420 

1 3430 1 

“TCT^ 

□NkulL 

















"R'21l4 

“ OFTS" 

ALSO FIRE FROM 

“RE rnrxxcE 

TT-HFAT a TE’ r S ixr S C VTFA” Ai^ERSA),USb INDIREtl 



R 21 nr 

“ STRAIGHT L INI: ESTARLISHtU RY 

TANTFNl FT A^CONTRDL TrfliT:AFT} FA" XT TT uElQGA 



R 2 inr 

F'W 

SGNIOELOGA) J, 

-LMCRAT t 

SGNObLOGA) ) 

(THIS IS THE DUMMY 




R21 1.7 

” OPERAIING PUINI 

E Ok 

UPeP AT 1 NG 

“PTT'T'TTS tn kegiuns 

T: AND 

Twr 






2TTF" 

^ 

/ LAST 

991 

16,3421 

51*6n) 1 KULLUN 

TNOtX 

I 





~7TL^ 

R tF 

3 “L AFT 


11,3422"” 

■ 0 3706 0 

0 

DH 





TTTXy 

RFF 

4 LAST 

99T 

16 f 3 4 ? 3 

”27 *66 I O ' 

AW " 

DELOC^A" 


DELUGA WAS D 1 ST . EKUM bWlILM PAKAC5ULA 



2121 

'Txrp 

< V 1 I 

1 


— 16,3424 

4 3^0 0 

C5 

LMCRAT b 


LIMII LYLLt KA)t Al 

K tv/ O tl. 


2127“ 

^TTTTr 

u r 

“B nVSF““ 


“T6, 3425 

51 *670 "I 

IMUtX 

1 





2123 

RFF 2 

TT7 nrsT 

990 

16,3426 

0 00 i 

0 

A 





2124 

RcF 

7 TAFT 

^991^ 

rF.,3477" 

53*665 1 

TS 

DEL UGA RT 


tVALUAIb SIAIt bUK INUlKtUI Ll^t. 
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TVC '^Ol LOAP 


USER'S PAGE NO. 


E6 5 


R2125 

SOLV 

E STR 

aiGHT 

LINES 

simultaneously t 

0 

OBTAIN desired OGARATE. 
















2126 





16*3430 

0 0006 

1 

UNROLL 

EXTEND 


OELOGART IN ACC. ON ARRIVAL 


2127 

REF 

4 

LAST 

989 

16,3431 

7 1640 

0 


MP 

1/CONACC 



2123 





16,3432 

6 0000 

1 


DOUBLE 




2129 





16t3433 

0 00 06 

1 


EXTEND 




2130 

REF 

2 

LAST 

990 

16,3434 

7 3707 

0 


MP 

-SLOPE 



2131 

REF 

3 

LAST 

990 

16.3435 

55* 573 

0 


TS 

TEMREG 

2 ( -SLOPE) RATE /CONACC 


2132 





16,3436 

0 0006 

1 


EXTEND 




2133 

REF 

4 

LAST 

991 

16,3437 

7 1665 

1 


MP 

DLLOGART 



2134 

REF 

5 

LAST 

992 

16.3440 

5 5 * 665 

1 


TS 

WTiTGART 

2 (-SLOPE ) ( RAT ESQ) /CONACC 


2135 

REF 

26 

LAST 

982 

16,3441 

4 5005 

0 


CS 

BTTll 



2136 

REF 

9 

LAST 

991 

16,3442 

51*670 

1 


INDEX 

1 



2137 

REF 

208 

LAST 

991 

16*3443 

0 0000 

1 


0 

A 



2138 

REF 

9 

LAST 

992 

16,3444 

27' 573 

0 

R ATEOEN 

ADS 

TtMREG 

DENOMINATOR COMPLETED 



213^ 

RFF 

10 

LAST 

OQ2 

16*3445 

51 ' 670 

] 


IMDtX 

I 



21A0 

REF 

5 

LAST 

991 

16,3446 

0 1667 

1 


0 

DELOGA 



216^1 





16,3447 

4 0000 

0 


COM 




2142 

REF 

4 

LAST 

991 

16.3450 

6 3 70 6 

0 


AD 

T5^ 



2143 





16,3451 

4 0000 

0 


COM 




2l6«f 





16,345? 

0 0006 

1 


fxteno 




21‘+5 

REF 

3 

CAST 

992 

16. "3 4 53' 

7'^77T7“ 

TT 


Mp 

-^L OPE 



2146 

reT“ 

6 

LAST 

992 

16, 3^^54 

27* 665 

1 


ADS 

OELUGART 



2147 

REF 

2 

LAST 

991 

16,3455 

3 7nr 

1 


~Zi 

LMCRAT E 



2148 





16.3456 

0 0006 

1 


EXTFNO 




2149 

REF 

27 

LAST 

992 

16, 3457 

7 5005 

0 


MP 

Bl Til 



2150 

RFF 

7 

last 

992 

16,3460 

6 1665 

0 

RATENUM 

AD 

DELUGART 

numerator CUWPLttfcO 



2151 

REF 

82 

LAST 

990 

16.’461 

56 001 

TT 


XCH 

T 

PLACE numerator IN L FOR OVERFL. CHECK 


2152 

REF 

177 

LAST 

989 

16,3462 

3 5021 

X 


CA 

TTRO 



21 *17 





1 6 .■‘346'2" 

0 0006“ 

1 


EXTEND" 




2154 

REF 

10 

LAST 

“991 

16*3464 

1 L ' f73 

0 


"XT 

TEMREG 

OVERFLOW, IF anything, NOW APPEARS IN A 


2TT5 





1, 6 , 3 46 5 

0 0006 

X 


EXTbNlT' 




T1T5 


1 



1 6 * 3466 

1 T474 

1 


9 Z F 

DVOK 

NO 0 V EP TL 0^ .•••(0*L)/!tMIREG — O.IT 















2157 

KEF 

209 

■LAST" 

~m2 — 

1 o f .5 *^6 T 

“TU "000 

0“ 

TTiL I MAT^ XTTS 

A 



2138 

RET^ 

19 

TATT 

93 G 

n o,Tirnr 

3 4777 

X 


CAP 

posmax 

POSIT IVF OVERFLOW 


2159 

pEF 

1 



IS. 3471 

1 3So3 

0 


“TTF 

ROLLSEt 



2160 

- 

20 

LAST^ 

99 2 

T6T^4T2“ 

- 4 - 4777 ^ 

X 


“XS 

POSMAX 

NEGATIVE OVERFLOW 


“2r5T~ 

R FT 

■ 2 “~ 

LAST' 

^^9^72 

16,3473 

1 3503 

0 


■ TCF ■ 

R 0 L L 5 F T 




2162 

— vTF 2TG 

LAST 

99 V 

16.3474' 

"27 OTHT 

1 

“XVOK 

UXCH 

“A 

PU 1 NU^ t H A 1 UK AL K 1 N ! U A f U in L 


2 1 6 i 





“T673Mt75^ 

0 00 (T6 TL ■ 


EXTENET 




2164 

— RfT" 

11 ■■ 

TTSTT" 

~W2 

16.3476 

1 1 • '5 73 

X 


"XV 

T E M K E G 

RESULT OF division is DtSIKtO UCARAlt 


2T6^” 

REF 

"7 

LAST 

~9T2 ■ 

i6,347r 

1 3503 

X 


xcx 

R0CU5ET 

I TTCTAL EU Al b— 4 RbV/SEC ) 
















2173 

1 W Cm I 


LAST 

990 

"T673 5'F'O 

4 3714 

'1 

RATELIM 

~xs~ 

XAXUXT 



2174" 

REE 

IT 

LXST" 


16.3501^ 

'~51 rSTOT 

X 


“XNDEX“ 

J 




II 
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L T VC ROLL DAP 


USER'S PAGE NO. 10 E6 S3 



2175 

REF 211 

LAST 

992 

16,3502 

0 0000 

r 


0 

A 

IF I = CA, DESIRED RATE IS -MAXLIM 



R2176 

COMPUTF 

JET FIRE TIME 

. BASED 

OM OFSTt 

IFD 

RATE MINUS PRESENT RATE 















21T7 

f>EF 12 

LAST 

992 

16t 3503 

55*573 

0 

ROLLSET 

TS 

TEMREG 

STORE DESIRFD OGARATt (SCALED R-4J 


21771 




16,3504 

0 0006 

1 


EXTEND 




217B 

KEF 8 

LAST 

991 

16.3505 

61' 533 

0 


su 

QGARATE 

RATE DIFF. SCALED AT 2(-4) REV/SEC 


211 o 1 

RFF 13' 

LAST 

993 

16 » 350 6 

55* 573 

0 


TS 

TEMREG 

OVERFLOW PROTECT 


217B2 




16.3507 

1 3512 

0 


TCF 

+3 

if ft 


217821 

PFF 212 

LAST 

99? 

16,3510 

50 000 

1 


INDEX 

A 

II ft 


217822 

R EF 2 

LAST 

889 

15,3511 

4 5000 

0 


cs 

LIMITS 

If ft 


2179 




16.3512 

0 00 06 

1 


EXTEND 




2180 

RFF 1 



16,351? 

7 7665 

I 


MP 

T6SCALE 

T6SCALE = 8/10.24 


21 B1 




16,3514 

0 0006 

1 


EXTEND 




2132 

REF 5 

LAST 

992 

16,3515 

7 1640 

0 


MP 

1/ CON ACC 

SCALED AT 8 + '? SECSQ/REV (MAX < .60i 


218? 




16,3516 

20 001 

1 


DDOUBL 




21B U 




16,3517 

20 001 

1 


DOOUBL 




2184 

REF 14 

LAST 

993 

16,3520 

55*573 

0 


TS 

TEMREG 

OVERFLOW PROTECT 


213A1 




16,3521 

1 3524 

0 


TCF 

+ 3 



21342 

RlF 213 

LAST 

993 

16, ?5?2 

■50 OGO 

1 


INDEX 

A 

if if 


21R4? 

RFF 3 

LAST 

993 

16.352 3 

4 5000 

0 


CS 

LIMITS 

n n 


2185 

RFF 15 

last 

993 

15 , 3524 

55' 573 

0 


TS 

TEMREG 

JET EIRE TIME AT 625 MTCRDSEC/BIT 


2186 




16.3525 

0 0006 

1 


EXTEND 


POS MCANS POSITIVE ROLL TORQUE, 


213? 

r<FF 4 

LAST 

991 

16,3526 

1 3611 

0 


BZF 

NOROLL 




R21P3 

vJ T I 

1 1 Pi 1 

7 3 N7~, - 

TF9Tn=nR~JFTS NOW 

ON. 






2TWr~ 

~RFF 16^ 

riTST' 

993 

T5T35T7 

3 1 • 5 / 3 

■ 1. 


CAE 

TtMPFG 

DESIRED CHANGE IN UGAKAIE 


2189 




16,3530' 

0 00 06 

1 


FXTtTqir 




2T9(5 

“!?FF 3“ 

LAST 


16,3531 

7 1571 

1 


M P 

ROLLFIRE 

(SGN of torque. .zero IF JETS N!IW nppj 


7vn 

"Ttff 21‘4 

XAST" 

902* 

16, :» 5 3 2 

10 000 

0 


CCS 

A 



“219Z 

£ F r 



16, 3 5 33" 

1 3537 

T 


TCF 


CDl^riNUb FIRING IfllH PRESENT PULAKllY 


219? 

Twp — r“ 



16,3534 

1 3542 

0 


TCT 

NEWROLL 

START NEW FIRING NOW, PLUS 



■ i;TF 5“ 

LAST 

9T3 

16, 35T5" 

1 3611 

IT 




NORDLL 

terminate old firing, new sign RcQUES I EU 


2T95 

2“ 

LAS! 

99? 

TTT, 3 5 377 

1 3542“ 

"TT 


RTF 

Mb W roll 

Start new firing nuw* minu^s 



R2196 

“XiJN 1 INUE 

“ PRESENT FIR I 

MG 




















Tvn 

PEE 178 

T A S I" 

— 992 

1 6 , 35 3 r 

3 50 21 

1 

MURFROTL CAF 

TFFTn 



2T9B 

tZ~ 

LAST 

W2 

16, '3 5 40 

— 5 5 « 67TJ' 

0 


! S 

I 

USE TEMp* AS MOkfcROLL SWITCH 


ZT99 

ttEF T" 



T75T254T 

1 35'53" 

~ 0 ~ 


rcR 

MAX 1 h 1 KE 















R2200 

START"NEW FIRING, BUT 

~XHFUK“ 

IF GRFATFR 

T HAM M I M 

FIRE IlME. 















THTL 

“TrT= rr 

LAS T" 

993 

TF7T94T 

— rnxTT 

"TT 

NFWWULL 

CCS 

TtMRtG 

CALL I HI S ! 6 E 1 K b 


TZJJ2 

REF 10? LAST 

933 

15,3543 

6 5017 



50 

ONF 



2203 




Ifc , 3544 

— 1 3545' 

T* 


TCF 

+2 



2204 

RbF 105 

LASI 

— 

16,3645 

6 50l T 

i. 


50 

□ ME 



2205 




2"6","3526' 

— 4 0000 

0“ 


C OM 


— MAG(T6FIRF) 


220o 

■“RET 1 “ 



“r5T3X4T 

6 3715 

~T~ 


50^ 

TM INFIRE 

TMTNF T P F — MAX t T o r 1 R E i 
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USER* S PAGE 
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E6 S3 


2 207 



16,3550 

4 

0000 

0 


COM 





2208 



16*3551 

0 

0006 

1 


EXTEND 





2201 

REF 

6 

LAST 993 16,3532 

6 

3611 

1 

M I NT S T 

BZMF 

NORDLL 

IF 

NOT GREATER THAN TMINFIRE (NEW FIRE! 















R2210 

PROCEED 

WITH NEW FIRING, BUT 

NOT 

LONG 

ER 

THAN TMAXElRF. 






2211 

REF 

18 

LAST 993 16.3553 

3 

1573 

1 

MAXTFIRE 

CA 

TEMREG 




2212 



16,3554 

0 

0006 

1 


EXTEND 





2213 

RtF 

1 

16*3555 

7 

501*^ 

1 


MP 

l/TMXF IP 

I .f 

1/TMAXFIRE 


2214 



16*3556 

0 

0006 

1 


EXTEND 





2215 

REF 

1 

16,3557 

1 

3565 

0 

MAXTST 

BZF 

NdMXFIRE 

I F 

LESS than THAXFIRE 



221o 

RFF 

215 

LAST 

993 

16*3560 

10 000 

0 

CCS 

A 


2217 

RFF 

1 



16, 3561 

3 3716 

1 

CAF 

TMAXFIRE 

USE MAXIMUM 

2218 





16,3562 

1 3564 

1 

TCF 

+ 2 


2219 


2 

LAST 

994 

16.3563 

4 3716 

0 

CS 

TMAXFIRE 

USE MAXIMUM 

2220 

RFF 

19 

LAST 

994 

16,3564 

55* 573 

0 

TS 

TEMREG 



P 2221 

SET 

UP 

SIGN OF 

REOUI 

RED TORQUE 

. 






2 9 22 

RFF 

20 

Lasi 

994 

16. 3 $ 6 5 

11*573 

“0“ 

NOMXEIRE CCS 

TEMREG 


2223 

9EF 

21 

LAST 

992 

16, 3566 

3 4777 

1 

CA 

PGSMAX 

POSITIVE TflRQUE REQUIRED 

2224 





16*356 f 

1 357T“ 


TCF ■ 

+ 2 


2225 

rIF" 

4 

1 AST 

“Tn 

16.3570 

3 5001 

0 

A 

NEGMAX 

NEGATIVE TORQUE REQUIRED 

2226 

REF 

4 

LAST 

993 

16,3571 

55*57r 

T” 

TS 

ROLLEIfTE 

SET ROLLFiRE FOR + OR - TORQUE 












2227 





16.3572 

4 0000 

0 

CHm 


Complement... pos. for neg. torque 

2223 





16, 3 ~ ? 3 

0 0006 

1 

EXTEND’ 



2229 





16,3574““ 

■5"3^77 

T“ 

3ZMF 

+ 3 

POSITIVE TTTRQUH HEQUI RED 

2230 

rFF" 

21 

LAST 

994 

16,3575 

4 157^ 

0 

CTS 

tfmreg 


Z2Tir 

\ 1 

“ZZ 

LAST 

99 4 

16,35 /b 

55*573 

~jr 

T3 

TEMPtG ■■ 













2232 

R EF' 

13 

— L A 5 T“ 



3 167T5- 

T" 

FIKtLSJUK lA 

I 

IS If MOKEKUL L 

223 3 





16. 360 0 

0 0006 

"T“ 

EX r END 



“22T4’ 


T 



16,360T 

r 3603 


[T2F 

FIREPLUG 

Y ES 

2235 


1 



16.3602“ 

1 3614" 

TT 

TCF 

jetroll 

MAG(T6FIREI NUW in ft MR eg 


?Z 36 “ 

- 17 pf 

1 

- -- — — — — 


16",“360 3 “ 

" 3 D (JTr 0 

FTPrPLUG 

CAE“ 


CHECK FGP EXTENDED FIRTNGT 


2237 





16 ,3604 

0 0006 1 


'"XTE^ 




2233 



L A ST“ 


16 . 36 D 5 "’ 

61»573 T“ 


SIJ 

T EMPE G 



T 24 T ■ 





16,9 606 ■ 

“D“DDD 6 37 “ 


TXTEND 



2242 

RFF 

“^r“ 

last ■ 


16,3607 

6 5324 1 

pYT ST 

0 Z M r 

TASKOVFR 

IE EXIENSIUN WAN! ED* DUN 1 * EXIT RtfLL DAP 


2243 

REF 

3 

LAST 


1 6 * 3 610 

1 36 nr"rr- 


TCF “ 

J F T R G L L 















2 244 


T 7 D 

LATT" 

99 3 

16 , 36 X 1 “ 

4 5021 T) 

NOR OL L 

~CS 

Z E R U 

CGA 5 I • • • • ( N EG ZERO ELIK flMhbJ 


22 v 5 ” 

REE 

- 5 ^ 

LAST 

99 T 

16 , 36 T 2 ■ 

55 * 5 71 I 


"TS 

KOLLI" IRE 

NUl E* JETS CAN EIRE NEXT PASS 



— RTF“ 

27 r 

LAST" 

"“ 9 T 4 

16 * HvSlB 

5 5 «^ 573 “Tr“ 


“TS 

TEMlihG 
















2'247 " 





16,3614 

^Cr ODTS “T 

JtTRDTL— 

EXTEND 



224 B ■ 

— P FF~ 

— r~ 



16 , 3615 ' 

T705 0 


DCA ■ ■ 

NOFi ’Ll f b 

— - — r . ■ 
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2249 

R6F 

2 

LAST 

131 

16.3616 

53* 311 

1 

DXCH 

T6LQC 



22 50 

REF 

25 

LAST 

99 4 

IfS. >61 7 

3 1573 

1 

CA 

TPMREG 

ENTER JET FIRING TINF 


2251 

PEP 

2 

LAST 

994 

16, 3620 

54 0 31 

1 

TS 

TI MF6 















22'32 

REP 

14 

LAST 

994 

16,3621 

3 1670 

1 

CA 

I 

1=0 IP MORFROLL.KFEP same jfts on 


22 53 





16,3622 

0 0005 

1 

EXTEND 




22 5^ 

PEP 

49 

LAST 

994 

16,3623 

1 5324 

0 

SAMEJETS BZF 

TASKGVER 

IF JETS ON KEEP SAME JETS. EXIT ROLL DAP 




2255 R"F 6 LAST 994 16.3624 11*571 1 CCS ROLLFIRE 

2256 RFF I 16,3625 1 3631 1 TCF -t-TORQUE 

2257 REF 1 16,3626 1 3672 0 TCF T6ENA3L 

2258 REF I 16 , 3627 1 3652 1 TCF -TORQUE 

22 59 REP 2 LATT 995 1 6 , 3 o 3 0 1 3672 0 TCF T6ENABL 


R2260 

PROC 

EEO 

WITH PLUS TORQU . 









22or“ 

■ EF" ■ 

2 

LXST 

105 

16. 363 1 

3 1572 

0 

-i-TnROUE CA 

rollword 

WHAT WAS THE 

kbi +TtJKUUE LIJMB i NA VIUIM 


2262 

REF 

65 

LAST 

98 9 

16,3632 

7 5017 

0 

MASK 

BI Tl 

WAS IT NO. 9-11 



2263 





16,3633 

0 0006 

r 

EXTEND 

■ ■ 1 J . 1 ^ If 



727^ 

rTF“ 

1 



16 , 3634 

1 3 644 

0 

B7F 

NO. 9-1 1 

Noi 9 — 11 , SO UST 

: IT THIS TIME 















226 5'“ 

R EP 

'T5“ 

LA3T" 

99 5 

1 6 , 3'635“ 

4 5017 

0 

N0.13-r5 cs 

3IT1 




2266 

REP 


■■'LAST 

995 

16,3636 

7 T 5 TT 

T~ 

MASK 

~HnLLW0Rn 




2267 

REF 

4 

LAS! 

995 

16,3637 

55 ' 572 

1 

TS 

ROLL WORD 

CHANGE BIT 1 TO 

ZERO 


2268 

REF 

1 



16,3640 

3 5(5Tr 

0 

X5T 

+ROLL2 




226F- 





16.:i64T~ 

0 00 09F 

1 

PXTENO 




2270 

REF 

? 

last 

133 

16,3642 

01 006 

0 

WP ITF 

CHAN6 




22 

REP 

3 


995 

16,3:64T 

T 3672' 

0 

rcT 

T 6 E M A B L 





I 


2 277” 

RTF” 

irr~ 

LAST 

995 

— 16,5o44 — 3 501'^ 

"T NO. 9-11 

“CAF 

BTTl 

ISI JETS TO FIRE (MRtLEAN US RULL><URU) 

7Trr~ 

"RTF" 

""5~ 

LAST 

■"W5” 

— 16,'354'S 27^372 

I 

“ADS 

RDLLWURD 

CHANGE Bl I 1 TO ONE 

2T74~ 


1 



16,3646 T~5rrZT 

T 

CAT ■ 

+RnLLT 


2 2 75“ 





1 6.3647 0 OO06 

1 

EXTEND 



2 2 /6 " 

— TEF” 

3 

LAST 

■5^5“ 

16 ,36 50 Cn OTRT 

0 

“WRTPr' 

CHAM6 " 


2 277" 

P -"P 

— Zf— 

Tl'ATT 

9’9T" 

16.3661' 1 3 6^2 

0 

nxF 

TBtNABL 

- - - 


22/d — RTF 5 LATT 995 

ZZT9 RTF 41 LAST 93T 

ZZTT3 

Z2n RTF I 


nrriTST 3“r5T 2 cr 

I7rr3T51i T^TDT 6' F 
16. 36T4 — 0 0006 1 

1 65 , 5 r> r> 5 I 3 6 65 0 


- 1 r j RT TO ^' C A RTILWIJKU WHAT'WAS LAST -fUKgUb COMBINA 

7T71SK TTT? " 'W'AS"! T Nn.~12-10 ~ 

EX TFMT5 

B7T TfT!. 12-10 NOT 12-IU7 SO USt Tl THTTr TTHF 


77W 

ZZFT 

ZT^ra: 


Z2 R'6 

Z73T 

ZZTF 


RTF 42 CATl 9T5 TTTTSTS 4 5016 1 

TFF 7 LATT 9^ IT . 3 65 7 ‘ 7 1572 1 

^FF 8^ L AST ^9^5 16,3660 55* 6 f2 i 

rrTF 1 16. 3661 3 3 71/ 0 

16,3662 0 0006 I 

TTEF 4~” L ASl 995^ 16,3 66 3 OT 006 0 

rtf 5 L AS I 9 9 5 1 6 * 3 664 I 36 'd 0 


NU. 16-14 X“S BN 2 

MASK RULIWLIRU ^ 

——rS RTTirLWORU — ~~CHANTrF~T I T 2 TO TTRO 

C AF — R Cl l l 2 

TXTEND 

WR I T E CHANS 


22T9 


RTF" 43 LAST" ■ 


16,3 66T 


3 


■501 F 3 NTT. 


CAT 


HTTZ 


TST -JETS T O' F T R E < W RC tTAtr TrS~TOLLWOR D) 
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U TvC^nUlOAP USER'S PAGE NO. 13 E6 S3 


2?90 

RFF 

9 

LAST 

995 

16*3666 

27*572 

1 


AOS 

ROLLWORD 

CHANGE 8IT 2 TO ONE 


22'-U 

RFF 

1 



16,3667 

3 4377 

0 


CAF 

-RGLLl 



22 92 





16,3670 

0 0006 

1 


EXTEND 




2 29 3 

RcF 

5 

LAST 

99 5 

16.3671 

01 006 

0 


WRITE 

CHAN6 




22H 

R E F 

39 

LAST 

990 

16,3672 

3 5001 

0 

T6ENA8L 

CAF 

B1 T15 



22 95 





15.3673 

0 0006 

1 


EXTEND 




2296 

REF 

3 

last 

53 7 

16,3674 

05 013 

0 


WOR 

CHAN13 



2 2 '97 

PFF 

50 

LAST 

99 5 

16,3675 

1 5324 

0 

RDAPEND 

TCF 

TASKOVER 

EXIT ROLL DAP 





; 

A S S c MB L E i 

REVISION 055 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1,1969 TVCDAPS .011 

PAGE 997 




L 

TVCROLLDAP 








USER'S PAGE NO. 14 

E6 S3 




P229H 

THIS T6 

TASK 

SHUTS 

OFF ALL ROLL JETS 











2 299 

REF 15 

LAST 

971 

16,3676 

22 016 

0 

NOROLLl LXCH 

BANKRUPT 

SHUT 

OFF ALL (RQLL) JETS, (A 

T6 TASK 



2300 

REF 130 

LAST 

994 

In, 35? 7 

3 5021 

1 

CAF 

ZERO 


CALLED RY ..JETROLL..) 




2301 

REF 7 

LAST 

995 

16.3700 

55* 571 

I 

TS 

RCLLF IRE 

ZERO 

INDICATES JETS NOW OFF 




2302 




16,3701 

0 0006 

1 

EXTEND 







2303 

REF 6 

LAST 

996 

16t3702 

01 006 

0 

KILLJETS WRITE 

CHAN6 






2304 

REF 4 

LAST 

971 

16,3703 

1 5335 

0 

TCF 

noqrsm 






























gap: 

assemble REVTSiHN 055 OF AGC PROGRAM C 

IMANCHE BY NASA 2021113-051 

10:28 APR. 1t1969 

TVCOAPS .Oil 

PAGE 998 


L 

TVCRQLLOAP 



USER* S PAGE 

NO. 15 

E6 S3 


P2303 

chnstants for 

ROLL AUTOPILOT.... 












2306 

Rp n LAST 

^62 E6, 1702 ' 

EBANK= BZERO 




2307 

REF 1 

16*3704 03676 

0 N0R0L1T6 2CADR NOROLLl 




2307 

’^EF 1 

16,3705 34066 

0 





2309 16 t 3 T 06 00344 T 06 DEC .01388839 DEAD BAND (5 DEG). SC.AT B+0 REV 


231 y 





16*3707 

06315 

0 

-SLOPE DEC 

o 

• 

-SWITCHLINE SL0PE(0.2 PER SEtl SC.AT 6+0 

» — T TT 1 


A2311 










PER SEC 


2 312 





16*3710 

noiii 

0 

LMCRATF DEC 

.000277T8 ~8+4 

LIMIT Cycle rate lo.i oeg/seCi sc.at 


A 2 3 1 3 










B-4 REV/SEC 


2 314 





16,3711 

00510 

0 

INTERCEP DEC 

.0025 B+3 

DB(-SLOPE) - LMCRATE* SC.AT B-3 REV/SC 














2 315 





16,3712 

01330 

0 

MINLIM DEC 

.00277778 B+4 

RATELIM.MIN (lOEG/SEC). SC.AT B-4 REV/St 














2316 





16,3713 

00027 

1 

l/MINLIM OEC 

360 B-13 

reciprocal thereof, SHIFTED 14 RIGHT 



2317 





16,3714 

07071 

0 

NAXLIN DEC 

.01388889 B+4 

RATcLIM*MAX (5DbG/SEC). 5C.AI B-4 KtV/SL 



2318 





16*3 ^15 

00030 

1 

TM INF I RE DEC 

1.5 3+4 

15 MS (14 MIN)* SC.AT 16 BITS/C5 



231 1 





16,3716 

07640“ 

1 

TMA XF IKE DEC 

250 8+4 

2^ m ^ SbC/f b>C#AI 1€> 



2320 

REF” 

28 

LAST 

"Wr 

5015“ 



l/TMXFIR = 

BIT3 

RtClPKDCAL IHtKtUh# 5>Hl^ItU 1^ Klblilw 


A23201 










RDUNOS TO 00700004* SO ALLOWS 2.56 


A23202 










SEC FIRINGS BEFORE APPLYING Limi 


23203 

REF 

4 

LAST 

B33"” 

7665'" 



■T6SCATE“ = 

PITITlTI 

. r 1 - = — z-=- ■ ■ ■ ■ 1 ^ ^ _L-- 



23R1 

(PF 

21 

LAST “ 

887 

502?"' 



+ROLLI 

FI VF 

ONBITS FItR JETS 9 AND 11 


232? 

REF 

2 

LAST 

201 

50T7“ 



+ ROLL 2 

0CT120 

ONBITS FOR JE!S 13 aNO 15 


Z2:73“ 

’ R F»=^ 


LAST 

6119“ 

43 77 



-WDCL 1 

n^TN “ 

ONBITS FOR JFIS 12 NaU lU 


2324 





16*3 73 7 

00240 

T" 

-R0LL2 ncT 


ONBITS FtJR JfclS 16 AND 14 




GAP: 

ASSEMBLE 

REVISION 055 

OF AGC PROGRAM 

CO.-^ANCHF BY 

NASA 2021113-051 

10:23 APR. 1,1969 

TVCOAPS 

.011 PAGE 999 


L 

MYSUSS 






USER'S PAGE 

NO, 1 

EO S3 


0001 



20,3612 


BANK 

20 




0002 

REF 1 


21,2000 


SETLOC 

MYSUBS 




000 



21,204? 


BANK 






0004 

REF 3 

LAST 20R 

Eb, 1510 


ERANK= 

KMPAC 




0005 

RFF 1 


5074 

SPCOSl 

EQUALS 

SPCOS 




OOOd 

REF 1 


5075 

SPSINl 

EQUALS 

SPSIN 




0007 

K EF 2 

LAST 997 

5074 

SPCOS2 

EQUALS 

SPCOS 





0008 

REF 2 

LAST 999 

5075 

SRSIN? 

EQUALS 

SPSIN 



■'F. .1 K . T - 



ROOlO 


ONF AND ONE HALF PRcCISTQN MULTIPLICATION ROUTINE 




0 0 3D 

TTim 


xms2 


0033 


0 0 

0033 


0011 

REF 

2 

LAST 

108 

21,2042 

55* 512 

1 

SMALLMP 

TS 

KMPTEMP 

A(X+YJ 






0012 





21,20'f3 

0 0006 

1 


EXTEND 








0013 

rfF 

V 

LAST 

907 

21,2044 

7 1511 

1 


MP 

KMPAC +1 







0014 

R EF 

5 

LAST 

999 

21,2045 

55*511 

1 


TS 

KMPAC +1 

AY 






0015 

*R ^ F 

181 

LAST 

997 

21,2046 

3 5021 

1 


CAF 

ZERO 







0016 

REF 

6 

LAST 

99 9 

21,2047 

57' 510 

1 


XCH 

KMPAC 







OOF' 





21,2050 

0 0006 

1 


"TXTEND 








0018 

"~RTF 

— T 

“XXST 

W5 

■ T 1 , ? 0'51 

7 1512 

1 


Mp- ■ ■ 

KMPTEMP 

AX 






001 ' 

REF 



999 

21 ,2052 

21' 511 

1 


UKl 

KMPAC 

AX+AY 






OOTO' 

'RTF 

193 

LAST 


21,2053 

0 0002 

0 


TC 

Q 

























R002i 

— SUBROUTINE FCTR" 

DUUBL 

- PPECrSTON AnniT 

IONS UF ANGLES 








R0027“ 

^rATTirx 

TFiNTTTrW 

rA 05(15) ANGLE Sr.ALTn 


BY 180 TTF 


TiuucmTr KMPAC. 










iILT 15 SLACfO IN 

KMPAC. T 

ISING = 


MCT (22 

MCT ON ri\ 

i/ E R F L n W ) 
























0024 


XT 

~TXST 

TFT 

2 1 » Z 0 5 ^ 

ZT'TTT“ 

T 

DP A DO 

DTS"' 

XMTAC 







0025 





21,2055 

0 0005 

1 


EXTEND 








0026 

RTF 

r 



2 1 , 20 35 

I~71773 

T 


"^~FZF 

TSK +1 

NO OVERFLOW 






0027 

OFF 

9 

"TAFT““ 

999 

2177057 

ir*"51'0 

0 


cirs 

KMPAC 








T 


7031 


■^n=T 


T 



\ I 


xnr 


ITT 

T 


H^TT 


7T77T63 

21*2054 



TXF 


TTP A 0 n 


OVERFLOW 


21*2065 

21*2066 


i~zroTn 

i 2067 



TCF 


c + 

UPA0rj2 + 


ITFPEF 


TT 


orcF 




003d 


^ FF 

7FF 


77 

TT 



TKTTT 

0023 


FFF 

■n-r: 


73 LWr 


7^4 

"nRjTT 


7TT7037 


7177073 

71,2071 


■003^ 


r“i7 

■EF"“I74 


0043 


aO“4T “ 


KFF 

IFF 


j 

7 


TTTST 

rTlST 

LA'S! 

FAFT 


70 


TT 


noxj 


71*2072 

21,2073 



ATJ 



IS 


KMPAC“ +T 


LOWER = 0* A=0 
ITTfT NOT 



TJ 

0007 0 


TSK 



XMPAC 

T3 


074 

377 


,7074 
2X77073 


3~5001 0 
1 2072 I 


OPAOTIX 


'AIT' 


NKGMAX 

T5K 


KMPAC GREATER THA7I 3 



GAP: 

ASS^'VBLF REVISION 055 OT <-^GC PRnGPA'V COMA^ICHE BY NASA 20?1113-051 

10:28 APR. 1.1969 

T VC HAPS 

•Oil PAGE 1000 






L 

MYSUBS 

USER’S PAGE 

N0> ?. 

E6 S3 


00A2 





21 ,2 076 

4 0000 

0 

DPAOn- 

COM 



00 <+3 

REE 

24 

LAST 

999 

21,2077 

6 4777 

1 


AD 

POSMAX 

KMPAC LESS THAN 0 

004 A 

REF 

3 

LAST 

999 

21,2100 

1 2072 

1 


TCF 

TSK 














00^5 

REF 

6 

LAST 

999 

21.2101 

6 5001 

0 

r.)PA0D2 + 

AO 

NEGMAX 

CAN NOT OVERFLOW 

0046 

P EF 

13 

LAST 

999 

21,2102 

55» 811 

1 


IS 

KMPAC +1 


0047 

REF 

7 

LAST 

1000 

21.2103 

3 5001 

0 


CA 

NEGMAX 

UPPER WAS = 0 

0040 

R PF 

4 

LAST 

1000 

21*2104 

1 2072 

1 


fCF 

TSK 










♦ 








GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA ?02I 113-051 

10:28 APR. 1,1969 TVCOAPS .011 PAGE 1001 


L 

RCS- 

CSM 

DIGITAL AUTOPILOT 






USER'S PAGE NO. 1 EO S3 




POOQl 

T5 INTERRUPT PROGRAM 

FOR THE 

RCS-CSM 

AUTOPILOT 






P0002 


START OF 

T5 INTERRUPT PROGRAM 























00C>3 





20.3612 




BANK 

20 




0004 

REF 

2 

LAST 

736 

21.2000 




SETLOC 

nAPS3 




000 5 





21,2105 




BANK 



















0006 

REF 

1 







COUNT 

21/DAPRC 


















0007 

R FF 

14 

LAST 

1000 

E6, 1510 




E8ANK= 

KMPAC 




0008 

REF 

16 

LAST 

997 

21,2105 

22 016 

0 

REDORCS 

LXCH 

BANKRUPT 

RESTART OF AUTOFILOT COMES HERF 



0000 

REF 

7 

c. 

LAST 

73 6 

21.2106 

3 1465 

1 


CA 

T5PHASE 

ON S T5 RUPT. 



0010 





21,2107 

0 0006 

1 


EXTEND 





001 01 





21,2110 

6 2112 

1 


BZMF 

+ 2 

IF T5PHASP +0, -0* OR RESET TO - 



0010 2 





21,2111 

1 ?114 

0 


TCF 

+ 3 

IF T5PHASF +, LEAVE IT +. DO A FRESHDAF 



00103 

REF 

104 

LAST 

993 

21,2112 

4 5017 

0 


CS 

Tine 




00104 

REF 

3 

LAST 

1002 

21,2113 

55* 465 

0 


TS 

T5PH^SE 




0011 





21.2114 

0 0006 

1 


EXTEND 





0012 

REF 

1 



21,211$ 

2 1 2 r 

F“ 


OCA 

RCSLOC 




0013 

REF 

IQ 

LAST 

971 

21.71 16 

53*313 

0 


ox?Th 

T5LaC 

HOOK UP T5RUPT TO AUTOPILOT 



0014 

9 PF 

3 

LAST* 

736 

21,2117 

1 2123 

F" 


TCF 

RCSATT +1 




0015 

REF 

15 

LAST 

ITRT2 

FFTlSlCT 




F3ANK= 

K M A C 




0016 

K c F 

A 

p 

LAST 

1002 

21.2120 

02122 

T“ 

RCSLOC 

2CA0R 

RCSATT 




0016 





■71,2171 

42066 

1 






















0017 

ref 

17 

LAST 

1002 

21,2122 

22 016 

0 

7C^ATT 

FXCH 

BANKRUPT 

SAVE BB 



0013 





21^2123 

0 0006 

1 


EXTEND 


SAVF 0 



00 

PFF 

13 

L A ST 

967 

21,2124 

22 012 

1 


^x?Fi 

QRUPT 




0020 

R E r 

40 

LAST 

^^6 

2T. ,2125 

“F“FuOT 

0 


' TTAT 

RT TT5 ■ 

BrTi5 chanbi = 0 ie I mu power is om And 








'TT.TIZF' 

"FTTroOTT 

1 


EXTF:ND 


S/C CONT SW TS IN CMC (I*E* TF X/C AUTO 



0022 

REF 

5“ 

last 


21 , ?127 

02 031 

~T~ 


RAND 

CHAN31 

RILUT is FULLY tNABLFOJ 



0023" ' 





2 1.71311 

“0 0006 

FT 


EXTFNIT 





01174“ 


1 



21,2131 

1 71 ‘60“ 

IT 


bZh 

SETT6 

TF G/C AUfOPILOt IS FULLY ENABLED, 



A00?5 











GU 10 S^tl 5 

















0026 

REF 

IF“ 

TTrsr 


FI ,2177 

4 1501 

a 



RCSFLAGS' 

IF G/C AUTOPILOT IS NOT FULLY “ENABLED, 



002 7 

REF 

49 

LAST 

^^TO 

irTTTTT 

~7~3mT 

1” 


porsK 

B I T 1 4 




0023 

REF' 


LAFT 

rau7~ 

FI ,213 4 

/ 1 ’ U 1 

IJ 


ms 

TTCTFUAG^ 

SET NURATE FLAG, 



13 020 

RTF 

Z5~ 

LAST nrOTI 

FTT7TTT 

■J 477 / 

1: 


” XAF 

PFSPIAX “ 




o 

o 

o 

REF 

7” 

LAST 

734 

TT, 7T3F" 

55'332 

0 


T 5 

HUL OF L AG 

SET HOLDFLAG +, 



0030T“ 

■RTF" 

T72“ 

“FAST 


2 T. t ^ 1 3 / 

3 5021 

F*' 


CAT 

ZERO 

ZERO ERRrjKX, ERRORY, Anu ERRORZ, 



■ ~m30T 

rff 

F" 

last 

rrr^ 

FIT2T4U“ 

55' 567 

FT 


TF 

FTROTK 




00303 

“RTF" 

A 

LAST 

6^6 — 

TTTTprr 

■“55T57TT 

FT 


T S 

t K V LJ F\ 1 




00304 

REF 

— ? 

Lxsr 

UT9 

“214 2147 

55* 571 

"X" 


TF 

ERR UR L 




ron 

RFF 

—50 


TT3F2 “ 

2l,214F 

— 3 5007 

FT 


— CAT 

BITTTT ■ ” 




0037 





21 ,2144 

0 0006 

1 


FXI t MO 





~ 0013 


6 

LAST 

FT5TT2 

2 1 , 2 r45" 

02 031 

F 


RTfNF 

CHANJl 

AND CHhCK FnEt FUNCTION (BIT14 CHaNTIj# 



0033 OT 





21, 7 T4F 

“~0 0006“ 

F“ 


EXIEND 















gap: assemble REVISION 

055 OF AGC P'^HGRA^ COMANCHE BY NASA 202111 3-051 


10:2B APR. Itl969 

TVCDAPS 

•Oil PAGE 1003 









L RCS-r.SM DIGITAL 

AUTOPILOT 


USER'S PAGE 

NO. 2 

E6 S3 



00331 

REF 

o 

u 

LAST 1002 

21*2 1 47 

1 2160 0 


BZF 

SETT5 

IF IN FREF MODE. GO TO SETT5. 



111 * 








00332 

REF 

4 

LAST 1002 

21,2150 

55*465”0 


TS 

T5PHASE 

IF NOT IN FREE MODE, 

00333 

REF 

1 


21*2151 

3 7676 1 


CAF 

0CT37766 

SCHEDULE REINITIALIZATION IFRESHOAPI 

00334 

REF 

15 

LAST 971 

21*2152 

54 030 0 


TS 

TIMES 

IN 100 MS VIA T5RUPT 


00335 

!' EF 

3 

LAST 734 

21,2153 

0 263? 1 


TCR 

ZEROJET 

ZERO JET CHANNELS IN 14 MS VIA ZEROJET 











003'+ 

REF 

1 


21*2154 

1 2350 1 


TCF 

KMATP IX 


0035 




21.2155 

37770 0 

OELTATT 

OCT 

37770 

BOMS (TIMES) 

0036 




21,2156 

37776 0 

nELTATT2 

OCT 

3T776 

20MS (TIMES) 

0037 




21.2157 

37634 1 

ONESEK 

DEC 

16284 

1 SEC(timE5) 

0038 




0005 


CHAM5 

EQUALS 

5 


0039 




0006 


CHAN 6 

EQUALS 

6 


0043 

REF 

4 

LAST 233 

7671 


PRI034A 


PR 1034 


R 0044 



CHECK PHASE 

UF T5 PR 

OGFAM 






R0045 


BECAUSE OF THE LENGTH OF 

THE T5 PROG 

RAH. IT 

HAS BEE 

N DIVIDED INTO 


R0046 

THREE PARTS* T5PHASE1 

* T5PHASF2t AMO THE 

JET SELECTION 

LOGIC, 


R0047 

TO . 

AL! jW 

FOP THE EXEC 

UTTON OF 

OTHER 





R004R 

INTERRUPTS. T5PHASE 

IS ALSO 

US^D IN' THE 

INIT I AL I7AT ION 

OF THE AUTOPILOT 


R 0 04 R 

VARIABLE 

S AT TURN ON. 






. — 1,,^ . Bii— * ■ m 1 m- WIT. — 

rOg5o 

1 fl 

COuInG of T5RR7ST 

IS... 







RO051 



+ - INITIAL 1 7: T5 

RCS-CSHTAUTOPILDT 






TSPHA'SE^ 

= +0 = PMASL2 

“TSF‘THF“ 

tt program 





p 0053 



- = RESTART DAP 






P0054 



PHASE!' OF THE ' 

T5 PROGP-'AM 






rTTJ55 

iTFr 

5~ 

LAST 1003 

2i,2iT(r 

1P465 0 

SFTTS 


T5PHA5E 


UU^ 

TTFF 

T~ 


21 *'^161 

“T“?5’44 “I 


TOF 

FR fcSHDAP 

TURN UN AUTUPILUI 

■ 005/ 

REF 

T 


21,2162 

1 2661 0 ■ 


TCF 

T5PHASt2 

BRANCH lU PHASE2 OF PROGRAM 



REF 

T~ 


2l,2l6J" 

1 2546 0 


TCF 

R FUAP 

RESIaht au I up 1 HJ I 












0TJ51 

nrEF 

E~ 

LAST 100"3 

■ZTTTTTTzr 

55*465 0 



T5PHASb 

PHASE 1 KESEI FUK PHASE ^ 

0060 

"TTEF 

r6~ 

~L7fST 1003 

TL', 2 ro5“ 



C7\ ^ 



0X761 

REF 


LAST TXJ9 

21.2166 ■ 

55*634 0 


”TS^ 

T 5 T I M t 

UStD iN COMi^FNS A I 1 Nb FUK utLAYS IN T5 



“ITFF 

T" 


21,2157" 

3 2155 I 


CAF 

DEL IATT2 

RbStr FUR I‘7KUPI in 20Mb FUK PHASb2 

0063 

■^TEF 

17 

LASI 1003 

21,21/0 

54 0*30 n 



T 1 M F 5 

UF PKUbRAM 





’ •' p. p . t ' - , ^ 4 i ^ * . * 4.4 

• 

.. . . 4 





1 1 . 1 • , , . • . * * 

* * * • ■ 

4 




ry^o: ASSEi^BLE P.EVISIGN 

055 OF AGC 

PROGRAM COMANCHE 

RY NASA 2021113-051 10:28 APR. 1,1969 

TVCDAPS .011 PAGE 1004 







i- 

1. RCS-CSM DIGITAL 

AUTOPILOT 


■ — = — USER'S PAGE 

NO. 5 E6 S3 



P0064 I mu' STATUS CHECK 


0065 

RFF 

26 

LAST 

3S3 

21.2171 

4 1321 

1 


CS 

IM00fiS33 

CHECK IMU STATUS 

0066 

R EF 

34 

LAST 

823 

21.2172 

7 50l? 

0 


MASK 

BIT6 

BIT6 = 0 IMU OK 

0067 

f^EF ?16 

LAST 

994 

21.2173 

10 000 

0 


CCS 

A 

BIT6 = 1 NO IMU 

006R 

D CC 

A *- . • 

1 



21.2174 

1 2210 

1 


TCP 

RATEFILT 


006 9 

REF 

IB 

LAST 

1002 

21,2175 

4 1501 

0 

FREFCHK 

CS 

RCSFLAGS 

BIT14 INDICATES THAT RATES HAVE NOT BEEN 

0070 

REF 

51 

LAST 

1002 

21,2176 

7 5002 

1 


MASK 

RIT14 

INTTI ALI ZED 

0071 

2EF 

19 

LAST 

1004 

21.2177 

27*501 

0 


AOS 

RCSFLAGS 


007?. 

OEF 

5? 

LAST 

1004 

21 f 22 00 

3 5002 

0 


CAF 

9IT14 

NO ATTITUDE REFERENCE 

0073 

R E F 

a 

LAST 

1002 

21,2201 

55 '332 

0 


TS 

HOLDFLAG 

STOP ANY AUTHMATIX STE EPl FTG AND PREPARE 

A0074 











TO PICK UP CDU ANGieS UPON RESUMPTION OF 

A0075 











ATTITUDE HOLD 

0076 





21 . 2.20? 

0 0006 

3. 


EXTEND 



0077 

REF 

7 

LAST 

1002 

21. 2203 

02 031 

1 


RAND 

CHAN31 

CHECK FOR FREE MODE 

0078 





21,2204 

0 0006 

1 


EXTEND 



0079 

RFF 

1 



21.2205 

1 2417 

0 


'WU 

“KRtSUMEl 

DM FUEE MODE PROVIDE FREE CONtPQL ONLY 

0030 

R E'F 

1 



21,2206 

1 2534 

0 


TCF 

REINIT 

TILT 

OORl 





21,2207 

00030 

1 

B1TS4, 5 

2JCT ■ 

30 















0092 

R'EF 

?0 

LAST 

1004 

“TTTTZTOr 

3‘ TBOl 

T~~ 

F ATFFILT 

X7f 

TLCSELAGS 

SEE IF RATEFILTER HAS BEEN INlTlALl 7EU 

•x 

C 

o 

RFF 

53 

LAST 

1004 

21, 2211 

7 5002" 

1 


MASK 

3IT14 


0084 





21.2212 

0 0006 

1 


EXTEND 


IF SO, PROCEED WITH RATE DERIVATION 

0085 





21.2213 

1 2215 

1 


"STF 

+ 2 


0086 

REF 

2 

LAST 

1003 

21,2214 

1 7350 

1 



KT^STR 1 X 

IF NOT, SKIP RATE DbRIVATIOM 


R 0087 



RATE 

TTTTFT 

T I -1 r 

NG = 7.72MS ' 





'^0068 

RATE 

FILTER EQUATIONS 







R00B9 

ORHO 


DELKHO 

- (.DADOT + (1 

- GA INI) ORHO 




R0090 








^IT 




2 0091 

A DOT 

— 

AOGT 

+ GAIN2 ORHO + 

KMJ OFT 






<009? 



-1 









R OOR"? 


— 


^ — 









R0094 

WHERE DELRHO = 

= AHGB 

(COU - COU ) 






20005 
























0096 

REF 

40 

LAST 

946 

TT7T7TT" 

3 5 0 1 6 

0 


CAF 

TWO 


~1)09 7 

RFF 

3 

LJTT' 

IT2 

TT, 27T^ 

55*506 

TT * 

WROLGOP 

TS ' 

SPNDX^ 


600 if 





21.2217 

“6 O aOT) 

1 


DOWCF 



009 0 

REf= 

2 

last 

108 

21,2220 

55' 507 

0 


T S 

OPNDX 


Olocr 

RFF 

3 

' ' L ^'ST 

“TTT04 

21, 2221 

"51’^ 597 



TNOEX" 

DPNOX 


aim 

■RET“ 


— LXST 


“^1,2222 

“ 4r ry5T“0''^ 


CS 

ORHO ■ 

ORHO SCALED 180 DEG^S 

010? 





21,2 2'2'5 ■ 

0 0006 

l 


EXTEND 



UTUT 

:<i-F 

~T 

' LA-ST 

TETO 

“~7T, T2T4 

“5~ 161 7 

"0 


INOFX^ 

A T T KA L MN 

PICK UP DES IRED “F 1 LTER GAIN 

"DTO^ 

RFF 

~r 



21.2225 

7 307/ 

0 



GA iin 


0195 



— UK^ 

1004 

2 1 , 2 2 2 6 

51 ' 50 7 

1 


Twrnr' 

OPNDX 


0 1 0 3 

^VFF- 

3 

^HET^ST 

‘1TFT4 

Tl.2 22 / 

21 « 553 

1 


“TTAS“ ^ 

ORHO 

(1 —•064)DRH0 

OKTT 





2 1,2 2 -VO " 

TT ODO'6 

1 


EXTENTT 




GAP: ASSP/--B 

LE P 

-VISION 055 

OF \GC PROGRAM CJMANLHE BY 

NASA 2021113-051 

10:28 APR. 1,196^ TVCDAPS .011 PAGE 1005 



L 

RCS- 

CSM 

DIGITAL AUTOPILOT 




USER*S PAGE NO. 4 E6 S3 












0103 

RHF 

5 

LAST 1004 

21.2231 

5 1507 1 

INDEX 

DPNOX 



010^ 

REF 

6 

LAST 172 

21,223? 

4 1534 0 

DCS 

ADOT 



0110 

P EF 

16 

LAST 1002 

21t2233 

53’5ll 1 

DXCH 

KMPAC 

. 1) AOOT 


0111 

3rr 

2 

LAST 235 

21*2234 

3 5003 1 

CA 

QUARTER 



0112 

•^EF 

1 


21,2235 

0 2042 0 

TC 

SMALLMP 



0113 

REF 

17 

LAST 1005 

21,2236 

53*511 1 

DXCH 

KMPAC 



0114 

REF 

6 

LAST 1005 

21.2237 

51 *507 1 

INDEX 

DPNDX 



0115 

REF 

4 

LAST 1004 

21,22^0 

21*553 1 

DAS 

DRHO 



0116 

f?EF 

4 

LAST 1004 

21,2241 

11*506 1 

CCS 

SPNDX 



0117 

REF 

1 


21*2242 

1 2216 1 

TCF 

ORHOLOOP 




0113 

REF 

'20 

LAST 946 

21,2243 

3 0032 0 

CA 

cnux 

MEASURED BODY RATES — 


0119 

REF 

2 

LAST 109 

21.2244 

57*635 0 

XCH 

RHO 



0120 




21.2245 

0 0006 1 

EXTEND 




0 121 

PEF 

3 

LAST 1005 

21,2246 

21*635 1 

MSU 

RHG 



012? 




21.2247 

4 0000 0 

COM 


OELRHO = AMG8 (CDU CdO K 

■ ■ ■ — .■■■■■ . — . - ■ ■■ ■ - ■ ■! —L ^ ..... . . ... 


A0123 








-1 


0124 




21,2250 

22 007 0 

ZL 




01241 

RTF 

2 

LAST 108 

21.2251 

53*516 0 

DXCH 

DFLTEMPX 



0125 

REF 

1 1 

LAST 971 

2lt2252 

3 0033 1 

CA 

COUY 



0126 

REF 

2 

LAST 109 

21,2253 

57*636 0 

XCH 

RHGl 



0127' 




21*2254 

0 0006 1 

EXTEND 




0123 



o 

o 

< 

2 1 » 225 5 


^TSU 

RHQl 



0129 




21,2256 

4 0000 0 

COM 




0130 

— 

1 


2T.2257 

55*502 0 

TS“ 

T5 TE MP 

rCOUY “ RHOlI SCALED 90 DEGS 







21,22 6(T^ 

IT 0006 I 

EXTEW 




01T2" 

REF 

2 

LASl 109 

2 1.2 2' 6“' 

7 1640 0 


AMGBl 



0133 ■ 

RFF 

3 

LAST“rrM75“ 

ZTVTZ5T ~ 

21*516 rr” " 

DAF^' 

DEL T E MPX 

” DFLTE MPX = ( CDUX-RHU) F AMGBl ( CDU Y-RHO it 










MUS I He DOUBLE PkEC I SI ON~OTr WtLL LOSE 


wrjT~ 








PUL S F S 


~ 0136 

RTF' 

- 

rA3T 110 

21,2263 " 

‘J 164 TO ' 

CX 

A?i*GB4 



0137 




? 1 ,2TS^ 

0 0006 1 

■ EXTEND 




oTTT“ 

p E r 

2 

LAST 1005 

21*2265 

7 1502 0 

R15 

T 5 T E M P 



■ 0130 ■ 



LAST 

2T , T76o ■ 

53 ■ 520 0 

DXCH 

'TTETTFEMPy 



0140 ■ 

ref~ 

2~~ 

LAST mK 

21 ,2267 

3 1643“X 

CA 

AMGP 7 



OKI 




— 2X772775“ 

0 0006 1 

extend 




or4z 

REF 

3 

“L AST IWF" 

2i,22rr ■ 

7 1502 0 



1 5 1 1 M P 



OThT” 

f ^ c F 

T 


‘ TTT7772“ 

53^27 r 

■ nXCTT 

D E L T E M P Z 



0144“ 

— RFF" 

~T7r 

LASl 971 

— 2X72771“ 

3 00.34 0 

C A 

CDUZ 



01‘t5 

RTF" 



2 

LAST TD^ 

— 21,22T4 

57»63T"Tr 

XUH 

RHOZ 



014ft 




21,?? 75 

inoo'6 1' 

FXTENU'^ 




OK/’ 

— fTFF" 

T~ 

LAST 1005 

— 21,227S“ 

21*637 0 

M S U 

RHOZ 



01 




2177777“ 

A onoo 0 ■' 

CUM" 




—TTKT" 

— IRFF“ 

- zr 

~T7TST I W5 

2 L * 2 iOO 

5 5 • TTOT^ TJ 

TS 

1 5 T EMP 

rCDUZ ~ RHn2 ) SCALED vO OFGS 


OKO 




— 2T, 2 301 ■■■ 

0 0006 I 

E X T E i'TD 




0151 ■ 

'^TV~ 

~z 

‘ LAST nrr 

2T77 3 0'2 " 

7 1647'T: 

MP 

AmGR 5 



DT52~ 

RFF" 

T 

T:A5T'TaiT5“ 

71, 2303“ 

21 * 520 O ' ■ 

TTAS 

DEL TF MPY 



AOi32i 








+ AMls O’? ( L, UU Z *“ K HU 2 ) 


0153 ■ 

'j ^ p 

7~ 

' LTS! — rro 

2rrr23TPr- 

- 3 - 

— as 

A Mg B B 



0154 




2X77.305 

' 0 iiaon 

■ EXTENTT 




















































M ^ _ 
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10:28 APR, 1*1969 TVCOAPS .011 PAGE 1006 


L 


RCS-CSM DIGITAL AUTOPILOT 


USER'S PAGE NO. 


E6 S3 


0155 


LAST 1005 


21*2306 7 1502 0 


MP 


T5TtMP 


0156 


REF 


DELTEMPZ 


AO 1561 



AMGB7(CDUY-RH01 > 

+ AMGB8(CDUZ-RH02) 


0157 


REF 41 LAST 1004 


21.2310 3 5016 0 


CAF 


TWO 


Q15R 

0159 


KEF 


LAST 1005 


21 . 2 ~ni 

21, 2312 


55*506 1 
6 0000 1 


ADOTLOOP T$ 

DOUBLE 


SPNDX 


0160 


LAST 1005 


21,2313 55*507 



OPNOX 



01603 REF 


LAST 1005 


316 3 1516 1 



DELTEMPX 


01604 


0160 5 



LAST 1006 
LAST 1005 


21,2317 

21,2320 


51*507 

21 • 553 


IND EX 
DAS 


DPND X 
ORHG 


01^06 


21.2321 


0 0006 1 


EXTEND 


01607 REF 


01608 REF 



01609 


LAST 1006 


21.2324 


507 


INDEX DPNDX 



0162 


REF 


LAST 1006 


21.2327 


1552 


ORHD 


0163 

01 64 


21,2330 
21 .2331 


6 0000 I 
6 0000 1 



DQUB 
DOUBLE 






0155 


21,2332 


0166 
0 1 67 



LAST 1004 


01o3 


"RFF 13 LAST 1006 


21.2333 

21.2334 

21.2335 


0169 

0170 



0171 


REF 


OST 1005 
LAST 1006 

last 735^ 


21.2336 

21.2337 
21,2340 


0 0006 1 

^ 1 5 1 7 0 
7 3115 n 
51 * 507 1 

2 1 * 5 35fr ~0 

51*506 


EXTEND 





wrTKK im 

GA IN2 

DPNDy 


VTCK 





AODT" + (.i6)rrrjDRHo 


0172 


21 . 


3 1520 1 
0 0006 1 


I)A$~ 
INDEX 


TOfyr 

SPMDX 

mr 




S/C TORQUE TO INERTIA RATIO 
SCALETJ“ <450) ( 1600X7757. 3Trr6334) = m. 3 


0173 


REF 


0174 


0175 


REF 

RFF’ 


? 

14 


LAST 1006 
LA^T 108 
LAST 1006 


21.2342 


2 1 , 23”47 
TIT 


5 1505 0 

7 1“5T7~T 


EXTEfTD 

X 



T 507 


0 1 7 6 
0177 
Ti7r 


REF 

R'FT 


8 


LAST 1006 

LASTT 1 



(TFT 


21 . 2345 2T*534 0 

2 1 , 2 3 T6 "TT'TUT. 




0179 


01 30 


0161 


REF 

REF 


2 

2 


LAST 

last 


T09 

TTTO 


D 

7^ 




LATT 1004 


2T;2350 

21,2 35 1 
TT.PTTT 



3 1560 0 
7 5TJ76rT 
I o" ~ ooTr 0 


HATTI 


01^2 
0X83 
017 



RbF 


1. 

5 



5^7: 


PTF 78“ XA3T 




21V2 


23 61 “0 

TT 

I 



ATT SE CT 

L0W4 






y i o :j 

0 1 1^ 6 

rx r r i o u ^ o i ^ ^ ^ ^ l ^ 

p.fp I 

03« 7 0 

- ?t;ADR HB'GDTOT 

■' 




0H6 

“^-£7 1 ^ OTTT3T7 

— — ^ ^ ag— — j i 1 V ^ 4 ^ / A 

4^r06’6 'IT 

■ r A c M I M r 






TTR-R 


TFT 



1006 


21 , 2361 


5150 


TENTHSEK 'TS 


A I ! SEC 



GftP: ftSS'-MBLP PF.VlSrON OSS OF ‘\GC PRPr;P(AM COMANCHF RY NASA 2021113-051 10:23 APR. 1.1969 TVCDAPS .011 PAGE 1007 

r~ PCS-CSM niGITAL AUTOPILOT USER'S PAGE NO. 6 E6 S3 


P0189 

WHEN AUTOMATIC MANEUVERS ARE PEING 

PERFORNEO, THE FOLLOWING ANGLE ADDITION MUST OF MADE TO PROVIDE A SMOOTH 


P. 01^1 

SEQUENCE OP (ANGULAR COMMAMOS TO THE 

AUTOPILOT — 



P0192 

CDMXD = CDUXD + DELCOUX 

(DOUBLE PRECISION) 


R0193 

CDUYD = CDUYl) + OELCnUY 

(DOUBLE PRECISION) 


P 0194 

COUZD = cnuzo + 0PLC0U7, 

(DOUBLE PRECISION) 




R0195 

THF STEERING PROGRAMS- 







1) ATTITUDE MANEUVER ROUTINE 






Roi«a 

2) LEM TRACKING 







R0199 

SHOULD GENERATE THE DESIRED ANGLES (CDUXDt 

CDUYD, CDUZD) AS WELL AS THE INCREMENTAL ANGLES 

IDFLCDUX. DELCDUY. 




R0201 

OpLCOUZ) so that THE GIMijAL ANGLE COMMANDS 

CAN BE INTEPPOLATEO BETWEEN UPDATES. 






R 02 n 3 

HGl.DFLAG COOING- 







90204 

+ = grab present CDU ANGLES AND STORE 

IN THETADX. THFTAOY. THETADZ 





R0205 

AND PERFORM ATTITUDE HOLD ABOUT THESE ANGLES 





Rr)206 

ALSO IGNORE AUTi'JMATIC STEERING 






R0?07 

SET = + BY 






R0208 

1) i Nltl AL i ZATION PHASE OF 

AUTOPILOT 





R0209 

2) OCCURANCE OF RHC COMMANDS 





R0210 

3) F9Rf-: MnoF 






P0211 

4) SWITCH OVER TO ATTITUDE 

HOLD FPOM AUTO 





R0212 

WHILE DOING AUTOMATIC STEERING (IN THIS CASE 





R 0 2 } 2 0 3 

H'T OFLAG IS MOT ^AXTUA L L 

Y SET TO +♦ BUT THE LOGIC 





R0212PS 

FiJE'CTIONS AS IF IT WERE 

• ) 





R02121 ^ 

5) S/C CONTROL 3 WITCH TN T C5^ 





RO 2 1 2 2 

61 TMir Pn WER OFF 






R0213 

+0 = IN ATTITUDE HOLD ABOUT A PREVIOUSL 

Y l^ST a A L I ShTU R E E £R E NC E 





R0214 

- PERFORMING AUTOMATIC MANEUVtR 






R021S 

-0 - MOT USED AT PPESETIT 










^ 



PJT2T6" 

NOTE THAO IHIS FLAG 

MUST BE STn^ = - TW TFTE“S1 EER ING PROGRAM 

IF IT IS iU CUM^ANTTTHF AUTOPILOT. 




R 0 2 1 8 

SINCE ASTRONAUT ACTION MAY 

CHANGE TH^ HOLDFLAG SETTING# IT SH'^ULD BE 

MONITORED BY THE SIEEKING PRUGKAM lU 




RU220 

DETERMINF'TF'THt AUIUMAIIC 

TTETTJENC E^A S’ TfEEArTNTERTUPTED AND IF SG» 

TAKE APPKOPRlAlE ACflUN. 





U272 

ttff 

g— 

LAST 1004 

71 .236? 

4 1332 


CS 

HOLDFLAG 



IT7?3 




21 * 2 3 6 3 

U 0 U 0 6 

1 

“ EXTEND 




0774 

TTF" 

1 


2 1 # 2 3 64 

6 2411 

1 

BZM F 

DACnOLs 

Ih HULDf'LAl^ BVf^Abii AUIUMATIC 


ATTZTT 









CTMI^ANDS “ 


0226 

REF 

47 

LAST^ 1006 

Z 1 f Z 3 6 5 

T“5DlTr' 

IT 

7CT)XJTNC7 CAF 

TWO 



0777 

RTF" 

9“ 

LAST 1006 

? 1 1 2 3 66 

5 S* So 6 

1 

DEL OOP TS 

SPN )X 



OTTB 




21 #2367 

“6^0070^ 

1 

nnUBlTE" 




0229 

REF 

“15“ 

“LAST 1006^ 

2 h f 5 ^ (i 



TS 

OPNOX 



DZTTS 




~TTrz7Tr~ 

0 0 0 U 6 

1 

t X I E NU 




0771 

REF 

717 

LA ST 10(76 ■ 

“7TTTT77 

■ 5 0 0 0 0 ' 

1“ 

rTJDFX“ 

A 



— 0237 

^EF 

O 

1_A5T 5V~5' 

21 » 2 3 T 3 

“3“r747~ 

0 

DC A“ 

CDUX'O ' 




1 



s 







gap: assemble REVISION 

OS') OF \GC FRnG'-.A'^ COMANCHE BY NASA 20?1 113-051 

10:28 APP. 1 

♦ 1969 

TVCOAPS .on 

PAGE 1008 









L RCS-CSM OIGITAL 

AUTOPILOT 

USER.' 

S PAGE 

NO. 7 

E 6 S3 



0233 

REF 

19 

L A ST 

1006 

21 ,2374 

53*511 

1 

DXCH 

KMPAC 


0234 





21,2375 

0 0006 

1 

EXTEND 



0235 

REF 

16 

LAST 

1007 

21,2376 

5 1507 

1 

INDEX 

DPNOX 


0236 

REF 

6 

LAST 

595 

71,2377 

3 1576 

1 

DC A 

DELCDUX 


023 7 

REF 

1 



21,2400 

0 2054 

3 

TC 

OPAOL) 


023B 





21,2401 

0 0006 

1 

EXTEND 



023'^ 

PEE 

20 

LAST 

100 8 

21,2402 

3 1511 

0 

DC A 

KMPAC 


0240 

REF 

10 

LAST 

1007 

21,2^03 

51 * 506 

0 

INDEX 

SPMDX 


0241 

REF 

:> 

LAST 

687 

21.240A 

5 5 * 5 72 

1 

TS 

THETADX 


0242 

REF 

17 

LAST 

1008 

21,2405 

51 * 507 

1 

INOFX 

DPNDX 


02“43 

REF 

10 

LAST 

100 7 

21,2406 

53*647 

1 

DXCH 

CDUXD 


0244 

REF 

11 

LAST 

lOOR 

21,2407 

11 * 506 

1 

CCS 

SPNDX 


0245 

REF 

1 



21,2410 

1 2 3 66 

1 

TCP 

DtLCJnP 

^ ■ - t* ^ 
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I RCS-CSM OIGITAL AUTOPILOT USER'S PAGE NO. 8 E6 S3 

P02<'i6 'ICS-CSM AUTOPILOT ATTITUnP ERROR DISPLAY 


P02''t7 TH8EE TYPES HE ATTITUDE ERRORS YAY BE DISPLAYED ON THE FDAI- 



R0 243 

MODE 1) AUTOPILOT FOLLOWING ERRORS 

SELECTED BY V6lE 







ROPSO 

GENERATED INTERNALLY BY THE AUTOPILOT 

















R0251 

MODfE ?.) TOTM ATTITUDE ERRORS 

SELECTED BY V62E 







R0253 

WITH .-.CSPECT TO THE CONTENTS OF N22 

















R 02531 

MODE 3) TOTAL aSTRGMAUT ATTITUDE ERRORS 

SELECTED BY V63E 







P02533 

WITH RESPECT TO THE CnNTENTS OF M17 










■•iODE i IS PROVIDED AS A MONiitOR OF THE RCS DAP AND ITS 

ABILITY TO TRACK AUTOMATIC STEf 

:RING COMMANDS. 

IN THIS 



R0286 

MODE THE ATTITUDE ERPO^'S WILL BE ZE'=*QED WHEN THE CMC MODE SWITCH IS IN FREE 








P02*59 

mode 2 IS Provided to assist the crew in manually maneuver ing the s/c to the 

ATTITUDE 

(GIMBAL 

ANGLES ) 

iiPtCl f“l tu 



R0261 

IN N22- THE ATTITUOE 'ERRORS WRT THESE ANGLES AND THE 

CURRENT CDU ANGLES ARE 

RESOLVED 

INTO S/ 

C CONTROL 

AXES 



R0263 

AS A FLY-TO INDICATOR. 









R0263 1 

MODE 3 IS PROVIDED TO ASSIST THE CREW IN MANUALLY MANEUVERING THE S/C TO THE 

ATTITUDE 

XGIMBAL 

ANGLES) 

SPECI PI ED 



f^.02633 

IN N17. THE ATTITUDE ERROPS WRT THESE ANGLES AND THE 

CURRENT CDU ANGLES AKE RESOLVED 

INTO S/C CONIKOL 

AXES 



R0243 5 

■CS A FLY-T'J mOICATOP. 









Rf)264 

V60 rs pftnVTDFO to load mi? with a snapshot dt thf 

CURRENT CDU ANGLE b* IHUb ^jYNLHKUNlZ.lNG 

IHb MUDt 

J D 1 S PL A T 



R 0 2T,o 

WI TH TH E C3J R R ENT “"S / C A T r I T ODE. THTS^ITEITB MAY B F U SE D 

AT AMY TIME. 






— = — ■ * — - — - ' - — — " ~ ~ ~ yi. < tat " " - 


— R02^9 

THEFF DISPLAYS WILL HE AVTLlLlABLh IN ANY MODE 1 AU 1 U 

if H[JLUf TKttf G+Mf U!< 

SCSI UNLt 

! HE KLS 

UAK HAS 




— R 07^r ' ' 

INI rrATtiD ■ VI A V46E. MUITE" 1 , HOWEVER. WILL BE MtANlNGEUL ONLY IN b+JV AU I u UK 

HOLD. 1 HE LKEW 

MAT PKtStI IVIA 



— R02 ri 

V23M17) AN ATTITUDE REFl’^ENCE (DESIRED GIMBAL ANGLES! 

INTO N1 A1 ANY I 1 ME. 







077^ RTF 7T LAS T 1004 21, 2411 4 1501 0 — DACMDLS CS RCSFLA'GS ALTERNAl E BLlwttN HJAl'JSPi ANU i-uaiuSP2 



REP 

~2W~ 

LAST 

745 

f Z A- 1 Z 

T FDT^T 

~ 0 ~ 

3AFK 

3ir4 ■ 


02H0 ■ 





Tit 2413“ 

”0"00U6 

"T“ 

EXTEND” 



0231 

REE 

— T" 



21.2414 

1 31 60 

1 

BZE 

EDA 1USF2 













0282 

— r-F^- 

“22 

~t7VST 

lODQ “ 

21.2415 

^ 27' 501 

3J“ 

FDAIOSPl ADS 

K CSPL AGS 


uim — 

REP” 

— W~ 

LASr 

“^4^ 

21t24rF" 

0 2420 

0 

TC 

N E E l)L E R 


02^-4 

' REF" ■ 

33“ 

XXST~ 


“71,2417 ■ 

1 53 33 

31“ 

KRESUHEl TCF 

RESUME “ 

END PHASE 1 



GAP: ASSPi'^PLE REVISION 055 OF A G C PPOGRAM r.QMANCHF BY NASA 2021113-051 


L 


RCS-CSM DIGITAL AUTOPILOT 


10:28 APR. 1.1969 TVCOAPS .011 PAGE 1010 


USER'S PAGE 



E6 S^ 


P02B5 


R0286 


R0287 


R0293 


FOAI ATTITUDE ERROR DISPLAY SU8‘^0UTINF 


PROGRAM DESCRIPTION: 


0, KEENE 


5/24/67 


THIS SUBROUTINE IS USED TO OISPLXY ATTITUDE ERRORS ON THE FOAI^IA THE DIGITAL TO ANALOG CONVERTERS IDACS) 
j fsj the CDUS. CARE TS TAKEN TO METER OUT THE APPRQPR I ATE NUMBER OF PULSES TO THE I MU ERROR COUNTERS AND PREVEN 


R 02 3 9 

00291 OVERFLOW, TO CONTROL THE RELAY SEOOENC I NG , AND TO AVOID INTERFERENCE WITH THE COAPSE ALIGN LOOP WHICH ALSO USES 


THE OACS. 



R02-4 

CALLING SEQUENCE; 







R0295 

DUPING THE INITIALIZATION 

SECTION OF THE USER'S PROGRAM, i^IT3 OF RCSFLAGS SHOULD BE SEI lU INlllAlb 1 Ht 


■■ 



R0297 

TURM-ON SEQUENCE WITHIN THE N 

rEDLES PROGRAM: 






R0293 

CS RCSFt.AGS 

IM EBANK6 





R0299 

MASK 8IT3 






RO'TOO 

ADS RCSFLAGS 








ROaoT; m SCALED IHO DLGRFtS NOTE: THFSF LOCATTONS ARF' SUBJECT 

R0304 SKI SCALED liO DEGREES 

R030E AK2 SCALED 180 DEGREES 


RWQ‘6" ' “FIJ L 1. SC ALTO TJFFL t CT I ON CORRESRONDS T O 1T~T7^ DFGRETS CT ATTITOTT^FfTROT: 
R0307 (= 3 34 BITS IN I ''M ERROR COUNTER) 

, _ _ _ - MMT T IB I - - ■ - - ~ ^ = 

m53(TS A C A L L T^‘ fTEEDLER WILL THEM TIPOATF. THE UrSP L AYl " 


R 0309 INHINT 

RfTBTiJ' TT fBNKCALL f TOTE ; FBANK SHCTOLD BE SFT"TrrnE? 

p,0311 CADR NEEOL-R 

R0312 TFUTETT 


K03iT 

THIS PROCESS SHOULD R'F REPEATED EACH TIME THE ERRORS ARE upDAIED. Al LbAS! 

3 RASSbS !HrtU IHb PKUGKAH ARE 


“ R0316 

T r 0 iJ 1 R FO B FT^OITE A 

/THING I S" ACTnATLY^DTSFLAYED ON" THE ERROR MFTFR 


■ ■ a- - ». ^ ^ ■ — 


R 0 3 1 6 

NOTTT^FACH CALfTTT 

NEFOLER" D0S1 

r BE SEPARATED 8Y Al LEAbI BUMS lU 

ASSURE PKUHEK RELAY SE WUEIVi, 1 . 








— ^ - — - - ■ » II . 


PDTT? 

ERASABLE USED: 







■ RII319" 


AK 

'“CBUXCMD 





R 0 3 ? 0 


— m 

CDUYCMD 





9 0321" 


AK2 

CDU7CM0 





R 0 3 2 2 


E DR I VEX 

A * L . Q 





ft032J 


E DP ' VP7 

T K 1 p ^ P 





R0324 


FUFIVE7 

SPNDX 













R O' 

S WTTCTi'" s: 

RCSFLAGS"’ ” 

BITS 3.2 







170 CRAWFLS: 

— cmNr?“ 

— RTT ^ ( CO ATTSF AXTGN^ ■ 

-■"RFAIT ONLY) 

































, p , r -r - - r- — 

- 


^ — . • . — . -*■- * — — 1 — — ^ . 

— — - - 


L 

P.CS-CSM OIGITAL AUTOPILOT 




USER’S PAGE NO. 10 

E6 S3 


^032 7 

CHAN! 2 

BIT 

6 

tIMU ERROR COUNTER '^NABLE) 



P0328 

CHAfa4 

BIT 

13 

,14,15 (DAC ACTIVITY) 




R 0329 

SIGN C0NVENTI0N< 

AK = THETAC - THETA 






R0330 

WHERE 

THcTAC = CQMHAND ANGLE 






R0331 


theta = PRESENT ANGLE 









0332 

REF 

30 

LAST 

1009 

21.2420 

3 5014 

1 NFEDLER 

CAF 

3IT4 

CHECK FOR COARSE ALIGN ENABLE 


0333 





21.24?1 

0 0006 

1 

EXTEND 


IF IN COARSE ALIGN 00 NOT USE IMU 


0334 

REF 

35 

LAST 

958 

21,2422 

02 012 

0 

RAND 

CHAN12 

ERROR COUNTERS. DONT USE NEEDLES 


0335 





2 1.2423 

0 0006 

1 

EXTEND 




0336 

REF 

1 



21, 2424 

1 2431 

1 

BZF 

NEEDLERl 



03 37 

REF 

23 

LAST 

1009 

21,2425 

4 1501 

0 

cs 

RCSFLAGS 

SET BIT3 FOR INITIALIZATION PASS 


0338 


7 0 

LAST 

998 

21.2426 

7 5015 

1 

MASK 

BIT3 



0330“ 

PEE 

24 

LAST 

101 1. 

21,24TT 

27* 501 

0 

ADS 

RCSFLAGS 



0340 

REF 

195 

LAST 

099 

21.2430 

0 0002 

~0 

TC 

Q 





0 342 

0343 

0344 


!^F 2^ 

pTF 21 


FAST 101 L 

LAST 947 


21. 2431 3 1‘;Q[ r 

21,^432 7 6211 1 


NFEOLERl CA 

MASK 


RCSFLAT.S 
SIX 


21.2433 


rFF 


21.2434 


0 0006 1 

1 2471 0 




t 



¥IF 


NEE[)L6T3 


0343 

0346 


o 


tEF 30 LAST 1011 


?1, ^435 

7TT2 


Hr 



U34T 



2 TA^T 24T3 21,Z437 


7 3015 1 

0 0006 1 

1 TTro" 1 


MASK 
rXT li ITO' 


B 173 




ffTT3 = O', BIT 2 = T 


0 348 

FEF~ 


0:542 

0350 

REF 

^6 

03;' r 

REF 

TTT? 


LAST lOOTf 


2 1. 2440 

2 r; 747rr 



LAST loll 
TTAST 1002 2^ 


21,2442 


4 5 

injoo6 t: 

Trr2 



BTT 


o 




4? 


(53 

4^ 



T“ 



WAnO 

rr"C5 



M p 



^44^ 




TyT54 

0 3bb 




^TEF 


4 xxvr 

7^ C7LST 


966 

XTD 


2 1 » ? 444 
21 t 2 445 


5F»"4T6^ 


0356 

PXF“ 

— 7~ 

LAST 

“1 

0T5T“ 

KEF 

7 


1 

035 3' 

EF 

2 

las) 

i 

035'9“ 

.P ET 

2 

LAS 1 

3 

D3"6X 


2 

L A ST 

1 

TT34T“ 


28 

LAST 

11 


TTF 

n5 


r5~2 


nr? 


2 1 ,2 4'46 
21 tL ’44 7 

21t2^50 
Trr7 45T 
7T774^’ 
21 ,2463 



CHANT? 

TEFF 
AK 


FlUET 77135 BIT3 = X 

DISABLE ERROR COUNIER ’TO' iERO 

MUST WAIT AT LEAST 60 MS BEEOFE 


ENABLIMC COUNIEFS- 



FIRST 


55*504 0 
5^'305 
34 


21 •24^4 


54 

34 


TT53 

TT3T 


U 



AT? 

EUR I VEX 

hORIVEY 


REGISTER V 


EUR IVEZ 
CDUXCTO 


TERU THE OUT 



05? I 


T3 

TS 



7X72433 4 42X1 “X 


zmzc^TT 

“SXX 


FOTT PA33? 


0362 

— TFF" 

26 

LAST 

1011 ■■ 

2 1.245- 6" 

— 1 1501 

"0 

MASK 

HLSI-LACIS 


0 36 3 

FEF^ 

44^ 

TTIST" 

— 995 

21.245T 

“6 50 16^ 

0 


13 1 1 2 


0364 

— 2FF '2T 

XASl 1011 

~ZT,~?4^Tr 

66 ' 6 1 

0 

1 s 

kcsflags 


0365 

KEF 196 

LA'ST^ 

1011 

21.2 46 t 

0 0 0 0 2 

0 

IC 

u 

tNU 


0333 

TJ33T 


33 L A3 T 1011 


7 X72432 


TTToE 


REE 


0337^ 


XT 

9 




TAST 

EAST 


TOXT 

T 


7X7743T 

2X72434 

2X77433 


3^301? 1 
0 0006 I 


NEEULEU2 CAF 
bXIEN 


BITS 


HU F RR HE COUNT E RS 


05 012 

4~3ZII 


T 



CHAN'12 


xs 


SIX 



AY ATTITIJOE 
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OF AGC PR 

OGRA‘'i COMAMCHE 
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1. 

RCS-CSM 

DIGITAL AUTOPILOT 




USER'S PAGE NO. 

11 E6 S3 



0370 

REF 28 

LAST 

1011 

21.2466 

7 1501 0 

MASK 

PCSFLAGS 

ERRORS WAIT ATLEAS 

T 4 MS FOR 


0371 

UEF 29 

LAST 

101? 

21 ,2467 

55*501 0 

TS 

RCSFLAGS 

RELAY CLOSURE 



0312 

REF 197 

LAST 

1011 

21 .2470 

0 0002 0 

TC 

Q 





0373 

REF 

37 

LAST 1011 

21,2471 

3 5012 1 

NEE0LES3 

CAF 

BI T6 

CHECK TO SEE IF I MU ERROR COUNTER 

03 74 




21,2472 

0 0006 1 


EXTEND 


IS ENABLED 

0375 

° EF 

38 

LAST 1011 

21.2473 

02 012 0 


RAND 

CHAN12 


0376 




21,2474 

0 00f)6 1 


EXTEND 


IF NOT RECYCLE NEEDLES 

0377 

RPF 

9 

LAST 1009 

21.247*=; 

1 2425 1 


37F 

NEEDLFR +5 



0378 

REF 

43 

LAST 1007 

21,2476 

3 5016 0 

NEEDLES 

CAF 

TWO 


0379 

REF 

12 

LAST 1008 

21,2477 

55* 506 1 

OACLOGP 

TS 

SPNOX 


03 PO 

REF 

3 

LAST 1005 

21.2500 

4 5003 0 


cs 

OUARTFR 


0381 




21,2501 

0 0006 1 

■ 

EXTEND 



0^82 

REF 

13 

LAST 1012 

21 ,2502 

5 1506 0 


INDEX 

SPNDX 


0333 

REF 

18 

LAST 1011 

21.2503 

7 1 


MP 

AK 


03 84 

REF 

83 

LAST 992 

21,2504 

54 001 1 


TS 

L 


0385 

REF 

219 

LAST 1007 

21,2505 

10 000 0 


TCS 

A 


0336 

REF 

1 


21.2506 

3 2542 0 


X A 

DACLI3IT 


0337 




21, 2507 

T 2511 1 


TCF 

+ 2 


0388 

REF 

2 

LAST 1012 

21.2510 

4 2542 1 


CS 

OACLIMtT 


0339 

REF 

34 

LAST 1012 

21,2511 

6 0001 0 



L 


0390 

REF 

6 

LAST 1006 

21,2512 

55*502 0 


TS 

T5TFM{> 

OVFLO CHK 

0391 




21,2513 

1 2517 1 


TCT 

■1-4 


0392 

RFF 

220 

LAST 10 IT* 

21,2514 

000 I 



A 

ON OVERTLOW LIMIT UUTPUl TU +-384 

0303 

REF 

3 

LAST 1012 

21,2515 

3 2542 0 


TAF 

QaCLlMIT 


0394 

ref 


LAST 1012 

— 21,2516 

54 001 1 


TS 

L 



1 E F 

HR 

^AST rorz" 

— 21,2517 

51 ’ 506 0 


INDEX 

SPNDX 


0396 

■■ rTT” 

— 5” 

LAST roi"r 

21,2520 

4 1503 1 


CS 

tORIVFX 

CURRENT VALUt UF DAC 

53 TT 7 — 


W 

TA3T- 1012 

2 1 . 2 5 2 1 

~5~TyOT)XT7~ 


ATT 



OTOn ■“ 

^ ^ 2 

IT 

LAST rcnz 

21, 2322 

“51^506 0 


TNDFX“ 

SPNDX 


0399 

RTF' 

3 

last 1011 

— 21,2523 

26 050 0 


ADS 

cnuxcMo 


Q4W 

1^FF“ 

IT 

LATT~1012 

T1.2524 

51'506 0 


INDEX 

SPTTDX 


0401 

'■~FEF“ 

T 

LXST 1012 

21,2525 

ZT’TOl 0 


TTCCTT 

EURIVPX 


0402 

rEF" 

1T“ 

LAST 10 IZ" 

21.2526 

ll* 506 T 


7XS 

5PMDX 


Cr40T 

~ “R EF” 

1 


21,2527 

“T. zrrr 0 


TCF 

DTACTDOF 


0404 

■REF” 

5 

LAST 597* 

' 21,2530 

3 7707 0 


CAT^ 

13, 14, 15 


0405 




21.2531 

0 0006 1 


EXTEND 



0406 

^ REF 

TIT 

LAS! 

— 21,2532 

05 014' r 


WnT 

CHANl 4 

SET DAC ACTIVITY BITS 

17407 

REF“ 


XAST 101 2 

21 , 2533 

0 0002 0 


TC 

g 











= = = MP ■ ■ 

0408 

— 

r 


2T, 2 53'4' 

3 2540 1 

*RE7TqTT 

CAF 

dFOTZCTT' 


0409 

— ?TFF“ 

l6 

TATT 1003 

7TTTT3T 

54 OTCT 0 ■ 


TS 

TI ME5 

RFINlTIALlZE DAP TN 20DMS 

0410 

— 

/ 

last 1003 

2ITT5TT 

53*4 65 0 


TS 

T 5 P HA S E 


04 11" 

R EF 

TT 

LAST IOO 9 

“21 ,253^" 

~ir"'5TJT 


nXF 

PE SOME 


04125 ■ 




27,2 540 

T775T 0 

DEI ATZDO DEC 

16364^“ 

20aMS 



0'4T3 - 




21.2541 

771 77 rr“ 


DEC 

^^84 

- - - - -— — — - - ■ — ' 



w 


gap: 

ASStMRLE REVISION 

05S OF AGC PROGRAM COMANCHE BY NASA 

2021113-051 

10:28 APR. 1.1969 

TVCDAPS .011 

PAGE 1013 









L 

F‘CS-CSM DIGITAL 

autopilot 



USER'S PAGE 

NO. 12 

E6 S3 









0414 


21,2S42 37200 1 DACLIMIT 

OEC 

16000 




0415 


21*2543 00600 1 

DEC 

384 





gap: ASSFMBU- REVISION 055 OF ^GC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR. 1,1969 TVCOAPS -Oil PAGE 1014 


1 

RCS-CSM 

OIGITAL AUTOPIIOT 





USER'S PAGE NO. 13 E6 S3 


P041^ 

INITIALIZATION 

PROGRAM PnR RCS 

-CSM autopilot 





R041 7 

THE FOLLOWING 

QUANTITIES WILL 

BE ZEROEO 

ANO SHOULD APPEAR IN CONSECUTIVE 

LOCATIONS IN MEMORY AFTER WBODY 











: ROAIR 

WBODY 

( +1 ) 

OFT 


TAU2 





R0420 

WBO DYl 

(+1) 

DFTl 


BIAS 





P042i 

W30DY2 

{ + 1 ) 

0FT2 


BI ASl 





R0422 

ADOT 

( +1 ) 

DRHO 

(+i) 

31 AS 2 





R0423 

AOOTl 

(+1 ) 

DR HOI 

( + 1) 

FPRGPX 





R042A 

A00T2 

t + 1) 

0RHD2 

(+1) 

ERRORY 





R0425 

MER'RORX 

(+1 I 

ATTSFC 

ERRURZ 





^^<0426 

MERRORY 

P‘1) 

TA'J 







R0427 

MERRORZ 

( + 1) 

TAUl 







0428 

RFF 105 

LAST 

1002 

21,2544 

3 B0i7 1 

FRESHOAP 

CAF 

ONE 

RESET HOLDFLAG TO STOP AUTOMATIC 

0429 

REF 10 

LAST 

1007 

21 ,2545 

55*33? 0 


TS 

HOLDFLAG 

STEERING AND PREPARE TO PICK UP AN 

A0430 









ATTITUDE HOLD REFERENCE 


0431 

PFF 37 

LAST 

959 

21,2546 

0 4740 0 

REOAP 

TC 

IBNKCALL 

DECODE DAPDATPl, nAPDATR2 FOR DEADBANDS 

0432 

R-F 2 

LAST 

253 

21,2547 

40347 0 


CAOR 

S41,2 

RATES, QUADFAILS, QUAD MANAGEMENT 


0433 

RFF 3 8 

LAST 

1014 

21.2550 

0 4740 0 


TC 

IBNKCALL 

DECODE IXX. TAVG AND CONVERT 

0434 

RFF 2 

L AS r 

254 

21,2551 

4O5O0 0 


CADR 

S40.14 

TO autopilot GAINS 


0436 

RFF 1 



21, 2552 

3 2623 1 


CAF 

NC4T5VAR 

NO. LOCATIONS TO BF ZEROED MINUS ONE 

0437 

REF 18 

LAST 

1012 

21.2553 

55*506 1 

ZER0T5 

TS 

SPNDX 


0438 

■■EF 184 

LAST 

1011 

21,2554 

3 5021 1 


CAF 

ZERO 


0439 

RFF 19 

LAST 

101 A 

21.2555 

51 * 506 0 


INDEX 

SOf^DX 


0440 

REF 10 

LAST 


21,2556 

55 ‘ 523““0 


"TS 

WBODY 



REF 20 

LAST 

TDT4 

"2X77357 

11*506 1 


CCS 

SPNDX 


0442 

RFF 1 



21 ,2550 

1 2553 1 


TCT 

ZER0T5 


0443 

REF 4 

LAsr~ 

1003 

21,2561 

0 2632 1 ■ 


“TCIT 

Z E kO JE T 












0444 

REF 185 

LAST 

1014 

2 1 ,2562 

4 5o2l 0 



ZERO 


(T443" 

RET T' 

LAST' 


21.2553 

55* 637’ 


“TS 

CHANTEMP 

INITIALIZE MINIMUM Il^PULSE CONTROL 


04451 

RFF 2 

LAST 

109 

21 ,2564 

55*63? 0 


^3 

C H 3 1 T h M P 

INITIALIZE RHC PUSiriUN MEMUKY FUK 

A 04452 









MANUAL RATE MODES 

04^ 

RtF T' 



21,2565 

3“^2624 0 


CAF 

= • 24 


0447 

RFF 2 

LAST 

110 

21 .2565 

55*654 0 


TS 

SLOPE 

INITIALIZE SWITCHING LOGIC SLOPE 

% 






+ 




04^8“' 


“LAST 

- Qirr " 

21,2567 

”3" 5015 0 


C 

FOUR 


0449 

REF 3 

LAST 

1003 

2 1 ,"?5T(5~ 

55*634 0 


“TS 

T5TT3TE 

PHASE 0 RESETS FOR PHASE 2 iNterrUPI 173 

X0450 









60MS. PHASE 2 KEStlS FOR PHASE i KUPf 

A045711 









TN (BOMS — 151 fMb(40MS)). THEREFORE 

A04502 









PHASE I ( RATEFILTER ) HEG I NS C YCL 1 NG 1 00 

A 045:) 3' 









MS FROM NOW AND EVERY lOOMS THEREAFTER 


P 

O 

REF 6 

LAST 


21,2571 

3 5024 1 


CAF 

fcUEVEN 


0452' 

“2r 

LSST“T(KT5' 

“71 ,7577” 

5 5 r “T 



A I 1 K ALMN 

KhSE I rO PICK UP KALMAN FlDbK GAlFTS" 

AWrT“ 









TO Initialize ihe s/c angular rates 
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I. 


RCS-CSM DIGITAL AUTOPILOT 


USER'S PAGE NO 


I A 


E6 S3 


0A73 


ID 


EF 21 LAST 1005 


2l5'’S73 3 0032 0 


CA 


CDUX 


04 74 


t*EF 


4 


LAST 1005 


21*2574 55*635 1 


TS 


RHO 


04 75 


KEF 12 LAST 1005 


21*2575 3 0033 I 


CA 


CDUY 


0476 


IT p C 
I \ C. r 


LAST 1005 


21*2576 55*636 1 


TS 


RHOl 


0477 


REF 15 LAST 1005 


21*2577 3 0034 0 


CA 


COIIZ 


0473 


REF 


LAST 1005 


21*2600 


55*637 0 


TS 


RH02 


0^-7 9 


REF 136 LAST 1014 


21.2601 3 5021 1 


CAF 


ZERfl 


RESET AUTOPILOT TO BEGIN EXECUTING 


0480 


REF 


LAST 1012 


21*2602 55*465 0 


TS 


TS^HASE 


PHASE2 OF PROGRAM 


0481 


n 


EF 27 LAST 1004 


21*2603 4 1321 1 


CS 


IMG0ES33 


CHECK IMU STATUS 


0432 
04 83 


REF 33 
REF 221 


LAST 101? 
LAST 1012 


21*2604 

21,2605 


7 5012 
10 000 


0 

0 


MAS K 
CCS 


BIT6 
A 


IF BIT6 = 0 IMU IN FINE ALIGN 
IF BIT6 = 1 IMU NOT READY 


0484 


REF 


1 


21*2606 1 2612 1 


TCF 


TMUAOK 


0485 

0436 

0487 





LAST 1014 


21.P607 

21,2610 


55'617 1 
3 2626 1 



’ -F 

S t- I 


1 


21.2611 


1 2617 1 


TCF 


ATTKALMN 
RCSINI TB 
RCS5WIT 


CANNOT USE IMU 
PROVIDE FREE CONTROL ONLY 


A0483 


donT Start up rate filter 

SIGNAL NO RATE FILTER 


0489 


REF 


0490 

0491 

0492 



RlF 


LAST 1006 
LAST 1006 
LAST 1008 
LAST 100"6 


21 ,?61 2 
21*2613 
E6. 1510 


3 7671 0 IMUAOK 
0 5134 1 


CAF 


PR 1034 


NOVAC 


21 *2ol4 


03447 0 


TC 

EBANK= KMPAC 
2COTR AMBGUPDT 


start 'matrix imiTM. 

BY^'S^r'TF IMU NTTT~ 




049 


TO93 

0494 


P FF 


h h 


1 

To 


rA3n (irz 


^1,2615 44066 1 

21*26 16 3 26?S 1 

7TV7Err~ 55'50T'0^ 



’■a#' 


ZKW 

T3“ 


RCSINir" 

GS 




BI T IT 



ASSUME WE HAVE A' GOOD IMU 

6 P R O GTITFM 





CLEAR BTTl 
S€T~W[TT -INITTALIZE NEFDLF 5 



-RFSET FUR FDAIDSPI 


04 07' 

7^0498 

96 

TTTTO 


RTF 


T 


1 . 2 '6 ? G 



AT 


TbWA [T6Ty 



LEAR BIT4" 

NEXT I5HUP1 WMS FROTTTinW 10 ALLTW 
ERROR LUUNIbK TO ZERO. 


TITO 


xy5TyT 


■ 

RTF 


IG 

35 


LA ST rOTZ 
FAST lOTT 


21. 2621 


21*2622 


54 ' G37)^ 
0 '^ 53T3“ I 



TTHT5 


(MINIMUM DELAY 

SINCE ATTKALMN 


IS +11* PROGRAM 


Trrnr then 



A15502 

A0503 


PICK UP THE KALTIAN TlLTbR GAINS* 'RATF 

FILTER WILL BEGIN OPERATING ZOOMS FROT 

—— =_ = 


R0504 


CON'STANTS USED IN IMITIALT7 


PROGRAM 


0505 

TTSTS 


2T, 

TTTT 




TT5CTT 

05 03 


ZT7Z5Z5 

21*26~2T 


07 53‘4"T 

00004 0 
ZOTJDA ~T 


1VU7T5VAR 

= .24 

TTCSINIT 

n?rST 



05 0 I 

G5TIT 


21* 262 r 


tttttt: 


TTB 

IRWAITSO 



35 

T74 

00nTT4 


= SLOPE OF 0.6/SbC 


^^TF Z2 LA SnGT5 


Tjrn 


G5TT 


PFF 

TTF 


T 


F6* I^ICT 
21*2 630 

21* 261T 



DT 

bHANK= KMMAC 


TT35ITT[ 
TE 


TTATODT 


TCATT- T 6 STATTI 



05 39 01 FTP 


TJ5Trrcr2~RTT 

05300T RFF 


— r 

zi 

T5T 



L'ATT 
XASTTroT^r 
TTST TOIT 


ZTTzerr^f 


55*T*a5“T 
3 5 021“T 



SP^DX 

ZTPrr 


Tm BLAS12. BLAST 1* BLAST. yWuki>2 
YWORUTT 


PW0RD2* PWORDl, RWORDZT 
AND RWOROr. ^ 



GAP: A?;SEMRLE REVISION 055 

np AGE. PR 

OGRAM CJ 

(MAM CUE 

BY NASA 2021113-051 

10:28 APR, 1,1969 

TVCDAPS .011 

PAGE 1016 




L 

RCS- 

CSM 

DIGITAL AUTOPILOT 





USER'S PAGE 

NO. 15 

E6 53 




053004 

REF 

22 

1 AST 

1015 

21,2635 

51 • 506 

0 

INDEX 

SPNDX 






053005 

REF 

2 

LAST 

103 

21,2636 

55*451 

1 

TS 

RWORDl 






053006 

REF 

23 

LAST 

1016 

21 f 2637 

11 * 506 

1 

CCS 

SPNDX 






053007 

REF 


LAST 

1014 

21 , 2640 

1 2633 

1 

TCF 

ZEROJET +1 







053008 

REF 

12 

LAST 

1014 

21.2641 

3 5015 

0 

CAF 

FOUR 






053009 

REF 

2 

LAST 

103 

21*2642 

55»462 

1 

TS 

BLASTl +1 




1 • ~ 1 — - 


05301 

RFF 

8 

LAST 

1015 

21,2643 

3 5024 

i 

CAF 

ELEVEN 






05 31 

REF 

9 

V . 

LAST 

103 

21.a?644 

55*464 

1 

TS 

eLAST2 +1 






0532 REF ^ TATf 995 21,2645 4 5017 0 CS BlTl 

0533 REF 51 LAST 1015 21,2646 7 1501 0 MASK RCS FLAGS 

0534 RFF 32 last 1016 21,2647 55*501 0 TS RCSFLAGS RESET BITl OF RCSFLAGS Tn 0 


0535 





21,2650 

0 0006 

1 

EXTEND 




0536 

REF 

1 



21,2651 

3 2631 

1 

OCA 

TbAQOR 



0537 

REF 

3 

LAST 

995 

21,2652 

53*311 

1 

nxcH 

T6L0C 



0538 

P EF 

1 



21,2653 

3 3050 

1 

CAF 

= -H4MS 

ENABLE 

T6RUPT TO SHUT OFF JETS IN 14 NS. 

05 3 

REF 

3 

LAST 

995 

21,2654 

54 031 

1 

TS 

TIME6 



0540 

REF 

41 

LAST 

1002 

21*2655 

3 5001 

0 

CAF 

BI T15 



0541 





21,265“6” 

0 0006 

1 

EXTEND 




0542 

REF 

Q 

•m 

LAST 

996 

21*2 6'5T ■■■ 

3 

O 

15“ 



C^ANn 




0543 

REF 

19^> 

LAST 

lol2 

21,2660 

0 0002 

15^ 

TC 
















0544 


6 

last nrs^ 

21,2661 

TTTTrrT 

"1 

TSPHASE2 CCS 

A1 TKALMN 

I F ( + ) 

INITIALIZE RATE ESI IN ATE 

0545 

REF 

1 



21*2662 

1 3146 

0 

TCT 

KALUPUT 




0546 




2 1 f 

2663 

1 2665 1 

TTF 

+2 

ONLY IF ATTKJfXMN PUSlClVb 

0547 




2 1 1 

7554“ 

1 2665 1 

TCP 

+1 


054B :^FF 


LF5T 

1003 

~7TT 

2665 

3“215'6 1 

CA 

DFXTATTZ 

RESET FOR PHASE3 IN 20 MS 

0549 REF 

20 

LAST 

1 0 15 

“nr 

2 666 

56 O'Wl 

XTH 

T I ME 5 

(JET SELECT lUN LUUIC 1 

JJF^O REF 

4^ 

XAST‘ 

TiTPr 

2T7 

T65T~ 

■■ ■’7'634X! 

AITS 

T 5 1 I ME 

lU CuM PENS ATE FUR DELAYS IN T5RUPT 


tjbbcrr REF ?T“XA5T rOT5 21, 26TT! '3 1501 1 ~C7r" 

05^0' 2'~ 'REF^ 42 LAST "TO I S' TTVT^Tl 7'5'001 I M7FSK 

0 55 7)1 21 ,2572 0 0006 1 FXTE 

' 0550 X ITEF T 2T,'T6'7 3 T^T 5“0 B ZF“ 

7T5W5 “ SnSF r05 13 ST 1014 21,26 /4 ”0 C5 

05506 — iTFF 7 LAST lOT^ 21,2675 55*617 1 NOHIAUTO TS 


T7U5F L A^G S TF A HTGFt KBrTT AUTO MANEUVER TS' TN 

B1 T 1 5 PRUGRESS rBTT'lS OF RCSFLAGS ~SETTT 

ATTKALMN TO -I 

Nt3HTAnT0 OTHERWTSE 6tl AiIkALMAT TTTTr. “ 

T)iriE 

ATTKAUMN “ 



gap: 

ASSEMBLE REVISION 05S 

OF AGC PROGRAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. 1,1969 TVCDAPS .011 PAGE 1017 



L 

PCS- 

CSM 

OIGITAL AUTOPILOT 



* 


USER'S PAGE NO. 16 E6 S3 



P0551 



MANUAL ROTATION COMMANDS 






0552 

KEF 

1 



21,2676 

4 3032 

1 

cs 

0CT01760 

RESET FORCED FIRING BITS (BITS 10 TO 5 


0553 

REF 

34 

LAST 

1016 

21 , 2677 

7 1501 

0 

MASK 

R C S E L A G S 

OF RCSFLAGS) TO ZERO 


055 A 

REF 

35 

LAST 

1017 

21 .2 700 

55' 501 

0 

TS 

RCSFLAGS 




05 5 





21,2701 

0 0006 

1 

EXTEND 




0556 

REF 

3 

LAST 

1004 

21.2702 

00 031 

0 

READ 

CHAM 31 



055 7 

REF 

87 

LAST 

1012 

21*2703 

54 001 

1 

TS 

L 



0553 

R FF 

3 

LAST 

1014 

21 ,2704 

3 16 32 

1 

CA 

CH31TFMP 



0559 





21.2 70"5 

0 0006 

1 

EXTEND 




0560 

REF 

10 

LAST 

188 

21*2706 

06 001 

0 

RXOR 

LCHAN 



0561 

KEF 

1 



21,2707 

7 3036 

0 

MASK 

MANROT 

= 0CT00077 


0562 





21*2710 

0 0006 

1 

EXTEND 




0563 

REF 

1 



2 1 , 27 1. 1 

6 27 24 

1 

BZMF 

NOCHANGE 




0564 

i- 

222 

LAST 

lOi 5 

21,7712 

22 000 

1 

LXCH 

A 



0565 

K F F 

4 

LAST 

1017 

21. 2713 

55'632 

0 

TS 

CH31TFMP 

SAVE CONTENTS OF CHANNEL 3l IN ChBITEMP 



0566 

7EF 

88 

LAST 

1017 

21,2714 

3 0001 

0 

CA 

L 



056 7 





2 1, 271 5 

0 0006 

1 

EXTEND 




0 56 5 

REF 

30 

LAST 

989 

21*2716 

7 5013 

1 

MP 

BIT5 

PUT BITS 6-1 OF A IN BITS 10-5 OF L 


05W 

— p^eF 


lATT 

1017 

2 1 , 2717“ 

3 00 OT" 

0 

CA 

T " 



tJ5 7 0 

R1EF“ 


“HTTOrr 

1017 

2T.2720 

“27 * 5 D1 

0 

Tm ■ 

RCSFLAGS 

SET FORCED FIRING BITS FOR AXES WITH 


40571 










WITH CHANGES IN COMMAND. BITS 10,9 FOR 


“irOTTT" 










ROLL* BITS 8*7 FOR T ATI • BITS 6*5 PUK 


A1}'5T3 










PITCH 














05/4 


i 

LASI 

1017 

2 1 , 2 72 1 

4 1501 

T)‘ 

cs 

RCSFLAGS 

SET KAIE UAMFING FLAGS (BlIS 13,12fAND 


05 /5 

RnpF 

~r 



— 21*2/22 

7 3037 

1 

'MASX " 

“DC f 1 6000 

IT OF RCSFLAGS! 


05 76 

FIFT" 


— rsrr 

1017 

— 21*2723 

27'501 

75 

ADT 

RCSFLAGS 















05 77' 



LASl 

1017 

Zl,2T24^ 

“4 *11532 

0 NGCRATT 

f:7 t C i 

CH311 eMP 



057S 



T 

LAST" 

1017 

21,2725 

7 3036 

0 

MASK 

MANR'DT 



057 7 





21,'2TZ6- 

TJOTTS" 


EXTEND 




05 BD 

REF 

T 



2T72777~ 

6 3250 

7J ' 

BZ MF 

AHENOKU! 

IF NO manual Commands* go ro AHENukOT 



0581 

FTEF" 

~n: 

— LAST~rcrrzr 

21.2730 

55* 3 32 77 

TS 

HU LULL AG 

SET HULDPLAG + 














0T37" 

RTF" 

— z 

— CTrST” 

550 

21,2/31 

0 3130 

U 

1 L 

S 1 1 CKCHK 

WHEN 1 HP KHC is OU T UE UtlENlf PMANNUX, 


ADFBX 










YMANNDX* ANU kMAnnUX ARE ALL SET* BY 


2n)5w 










MEANS QF STlCKCHKf TO Of It OF 2 FOR N 0 1 


A 05^ 










+ , OR - RGTAnUN KESPECIlVkLY AS 


A 0537) 










COMMANDED BY THE RHC. 

— - - — 



API tK 


A 05^8 

A058 9 

AOS m\ 

Au8vi 

A0592 


THE RHC IS RETURNED TO DIfTENT* THP 
PROGRAWI BRANCHES TO AUPMUROT AND AVOIDS 
STICKCHK SL) pmannuX» yMAimNDX » 57TD 
RMANNDX ARP r^OT RTtSET TO ZERO BUT ITATHE 
L EF T SET TO THETR LAST CtrT^ DETENT 


GAP: 

ASSt'^BLe REVISION 

055 OF AGO PROGRAM C 

UMANCHf BY NASA 2021113-051 

10:28 APR. 1.1969 TVCDAPS .011 PAGE 1018 








L 

RCS-CSH DIGITAL 

AUTOPILIT 


USER'S PAGE NO. 17 E6 S3 

— 


A 05^3 


VALUES. 


05P4 

PEF 

2 6 

LAST 

^32 5 

21, 3732 

4 0075 

1 

cs 

FLAC 7 WR 01 

SET STIKFLAG TO INFORM STEE'^ING 


0505 

REF 

54 

LAST 

1004 

21,2733 

7 500? 

1 

MASK 

BIT14 

PROGRAMS (P’OT^ that ASTRONAUT HAS ~ 


0596 

REF 

21 

LAST 

1019 

21.2734 

26 075 

1 

ADS 

FLAGWRDl 

^ASSUMED RGTATTnN^L CONTROL OF SPACECRAFT 



0597 

PEE 

55 

LAST 

101 B 

21,2735 

3 5002 

0 

CjSF 

RIT14 



059 8 





21.?'^36 

0 00 06 

1 

EXTEND 




0599 

REF 

Q 

LAST 

1017 

21.2737 

02 031 

1 

R AND 

CHAN31 



0600 





21,2740 

0 0006 

1 

EXTEND 




0601 

REE 

1 



21.2741 

6 3051 

“D 

3ZME 

FReEFONCT ■ 




0603 

P.EF 

39 

LAST 

1017 

21,2^42 

3 1501 

1 

CA 

PCSFL AGS 

EXAMINE RCSFLAG5 TO SEE IE PATE FILTER 


06 03 

REF 

56 

LASt 

lOlfl 

21,2743 

7 50 02 

i 

MASK 

B1T14 

HAS Been initialized 


0604 

REF 

223 

LAST 

1017 

21.2744 

10 000 

0 

CCS 

A 

IF SO, PROCEED WITH MANUAL RATE COMMANDS 


0605 

REF 

2 

LAST 

1004 

2 1, 2745 

1 2534 

0 

TCF 

REIMIT 

TILT, RECYCLE TO INITIALIZE FILTER 



0606 

REF 

22 

LAST 

99 8 

21.2746 

4 502? 

0 

CS 

F [VE 

IF MANUAL MANEUVER IS AT HIGH RATE. SET 


0607 

REF 

5 

LAST 

732 

21,2747 

6 Il30 

1 


ITATE INDX 

attkalmn to ~1. 


060T 





21,2750 

0 0006 

1 

EXTEND 


OTHERWISE, LEAVE ATTKALMN ALUNE* 


0609 





21,2751 

6 2 754 

0 

bTmF 

+ 3 



061 0 

REF 

107 

LAST 

1016 

21.'2?5 2 

4 5017 0 

CS 

ONE 



0611 

REF 

8 

LAST 

1016 

21,7 753 

55*6l7 


TS 

ATTKALMN 




06 1 4 

P r: c- 

44 

LAST 

ioi'2' 

21 , 275''+ 

■3 

0 

CAF 

TWO 

A UTG - H orn 

MANir/rir RU'I ATION 

061 5 

REF 

24 

LAST 

1016 

21, •7755 

55 *‘5 06 

1 

SETWBODY TS 

spKjox 




0616 





21,2 75 6 

6 OOOO 

1 

DOUBLE 





06 1 7 

ref 

"TB 

L A ST 

looa 

21,2757 

i ~ jL- iB JT 


TS 

DPNDX 




0613 

REF 

25 

LAST 

101 9 

21,2760 

51*506 

0 

INDEX 

5PMDX 

RMANNDX — 

0 MO 

ROT AT ION 

0617 

■REF" 

3 


550 

21.2 76T 

3 T65"7 

D 

CA 

R'MANNOX 


1 + 

R OTA T I 0 N 

m m — ^ ... 






“ Zi . 2 7F2~" 

■nnoow 

"TT 

EXTEND 



2 — 

R 0 T A T I ON 

0621 

REF 

1 



21 ,2 76'3 

1 30'0'5' 

IT 

ITTF 

NURAI 8 

IF NO ROTATUJN 

command UN THiS AXIS. 

A 0622 










“~GOi TU NMJRAiE. 




0623 

■E"EF“ 

— 7r~ 

LAST 1018' 

— 21,2764 

6 1130" 

T 

AO 

RATETNDX 

RA! EINDX = U 0.05 D EGAS EC 



0624 

RtTF" 

Tm~~ 

L AST TO lb 

21,2T63 

54 002 

1 

TS 

~Q " 

^TT d.Z DEG/StC 



0625 

■ ‘RFF" 

2 or 

CTST TDlfl 

" '71,276^ 

50 O TTT) 

T^DFX 

0 

= 4 0.5 UEG/SEC 



0626 

REF 

1 


21,2757 

3 3037 

0 

C A 

MANTABLt ~1 

= 6 2.0 UbG/StC 







21.2 770' 

0 0006 

1 

EXTEND 





DSTB” 


-^q 

LAST 329 

— 2T.2771 

“"T~500TT 

MP 

BIT7 

MULTIPLY MANTABLt BY 2 TO THE —6 



06?^ 

ptr" 

19 

LAST 1013“ 

— 21,2772 

“nrsirr 

"1 

INOEIT" 

DPNDX 

tD get commanded r.aiE. 



06nr^ 

— ^Zf~ 

IT 

TAFT^OTTr 

21,2773 

53* 526 

T) 

DXTTH 

WBOTTY 

Set WDHDY TCrXuMMANUtU rate. 



11671 

r?FF ■ 

~Tir 

L.AST roil' "' 

21,2774“ 

3 1501 

T 

CA RCSFLAGS 


Ob32 

REF 


LAST 1017 

2I,277F' 

T 3T) 37 

I' 

MA5K“ UCr 160750 

IS RATE damping COMPLETED CblTS 13.I2AND 





“21 ; 2 776 

0 0006 

A. 

EXT END 

11 OF RCSFLAGS ALL ZekO.) TF SO, GO TU 


"RTF" 

— T" 


““ZTiTTTT” 

T ■ 3(yrr 

T — 

BTF '^ERlJPDAr 

ME HU PD A! TU UPDAI t CUMULAIIVE AMIIUDE 

.30635 








E k K t) R • 
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L 

PCS- 

CSM 

DIGITAL AUTOPILOT 






USER'S PAGE NO. 18 

E6 S3 




0636 

REF 

188 

LAST 

1015 

21,3000 

3 5021 

1 

7_ER0ER 

CA 

ZERO 

ZEROEP ZEROS MERRORS 




0637 





21f 300) 

22 007 

0 


ZL 






0638 

REF 

20 

LAST 

1013 

21,3002 

51 • 507 

1 


INDEX 

DPNOX 





063 Q 

REF 

3 

LAST 

1006 

21, 3003 

53 * 542 

1 


OXCH 

MFRRORX 





0640 

RF F 

i 



21.3004 

1 3023 

1 


TCP 

SPNDXCHK 






0641 





21.3003 

22 007 

0 

NORATE 

ZL 






0642 

REF 

21 

LAST 

1019 

21 ,300 5 

51* 507 

1 


INDEX 

DPNDX 





0643 

REF 

12 

LAST 

1018 

21 , 3007 

53*526 

0 


DXCH 

WBODY 

ZERO WBODY POR THIS AXIS 




0 64 4 

REF 

41 

LAST 

ioia 

21,3010 

3 1501 

1 


CA 

RCSFLAGS 





0645 

REF 

3 

LAST 

1018 

21,3011 

7 3037 

1 


MASK 

GCT160a0 





0646 





21.301? 

0 0006 

1 


EXTEND 


IS PATE DAMPING COMPLETED 




064 7 

REF 

2 

LAST 

101 9 

21,3013 

1 3023 

1 


BZF 

SPNDXCHK 

YES, KEEP CURRENT MERRORX GO 

TO SPNDXCHK 



0648 

REF 

1 



21, ^014 

1 3000 

0 


TCP 

ZEROEP 

NO. GO TO ZEROEP 





■ “0'6'4 7 

— iTEn^" 

'202 

last 

1018“ 

21,3015 

50 002 

TT 

MFRUPOAT 

INDEX 

0 

MERRORX=MERRURX+MEASURED CHANGE IN ANGLE 



0650 


2 

LAST" 

1013 

21,3016 

4 3037 

1 


TTT 

M ANTABLE -1 

-COMMANDED CHANGE IN ANGLE 




0651 





21,3017 

0 0006 

1 


EXTEND 


THE ADDITION OF MEASURED CHANGE IN ANGLE 



0652 

REF 

3 5 

LAST 

830 

21.3020 

7 IlOll 

0 


MP 


HAS ALREADY SEEN DONE IN THE 

R AT E FILTER 



0653 

R EF 

2 5 

TAST 

101 9 

21,3021 

51 * 5 or 

1 


™r5EX 

OPNDX 

COMMANDED CHANGE IN ANGL3^ = i 




0654 

REF 

4 

LAST 

1019 

21,3022 

21 • 542 

1 


DAS 

MEPRORX 

. ISEC = MANTABLE ENTRY TIMES 

2 TO THE -8 


















0655 


"TT" 

LAST 

1019 

3 1 , 3023“ 

31 • 507 

1 

SPNOXCHK 

INDEX 

DPNDX 





0656 

REF 

5 

LASt 

1 019 

2 1, 3024 

3 1541 

0 


CA 

MERRORX 





0657 

RTF 


L AST 

1018 

2l ,3025 

“51^3716 

a 


iTroex" 

SPNOX “ 





0653 

‘”RrF“ 

6 

LAST 

icroz 

21, ?026 

5 5 

0 


TS 


ERRORX = HIGH OROEK word UF 

MERRORX 



065'^ 

RET“ 

27 

LASt 

1019 

21,3027 

11 • 506 

1 



SPNDX 










21,3030 

1 2 7 55 

TT 


TCF~ 

S E T W B ODY 





0661 

REF 

r 



“■^1,3031 


r 


TCP 

JETS 





0662 

— 2T, 5032 


lTCT01T6a OCT 

^nT60 

FORCED PIRING BITS MASK 




07>6 T 

TlTTTPnr 

01400 1 

DC T 01 400 UC1 

OTTOrr 

ROLL EURCED FIRING MASK 

U K U Jr K U 1“ 


0664 “■ 

21,’30"T4” 

untre 0" I 

DCTDOTOOTTCT 

00060 

PITCH FORCED El KING MASK 



0665 

21, 3035 

00300 1 

ncT00300 net 

00 300 

YAW FDRtbU FIRING MASK 

MUSI BE 


AD67;iS ■ ' 






PRESERVED 


■ ^■0 63 f 






FOR INDEXING 



<:! 1 , 3 0 3 6 

OO077 1 

manrOT nUT 

7 7 




■05OT" 

21,3037” 

16UD0 0 
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0067 

REF ■ 

“ 2 ^ 

L A ST" 

1040 

nTTS^TT" 

1 2664 

Tr~ 


ICF 

TAHPCOM 
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TCr 4 TJ~ 

17,2657 

1 26 66 



TCl^ 

TABPC' 0 'M ”T 2 “’ 




00 74 ■ 





17 , 26 jO" 

0 00 oor 

~T~ 

naNNUX 

DEC 

~ TT 

INUtC iS FUK 1 KANSLA f 1 LHH LUnnAi'lUC) 


0075 " 





17 , 27 :, 6 I 

— 00003 T" 


"DEE" 

■ 3 

FOR USE TN lABLE LOOK UP 


0076 





17, 2662 

O'OOOT" 

~T~ 


DEC 

6 

1 1 ^ • • ■ * - 

_ 

01 T 77 ~ 
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COS'S 
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3 
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17,2666 

6 1520 

1 

AD 
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0086 

PEF 
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1032 

17,2667 

50 000 

1 
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A 


o 

o 

R EF 
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17,2670 

3 2714 

1 

CA 

PYTABLE 


00R8 

'’I?F 
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17t2671 

7 2733 

0 

MASK 

PJETS 

=1417 OCT 

0 0 9 

REF 

2 
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103 

17,2672 

55*^53 

0 

TS 

PWGROl 


OO'^O 





17,2673 

0 00 06 

1 

EXTEND 



0091 

RFF 

37 

LAST 

1039 

17,2674 

7 5011 

0 

MP 

9TT7 
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P E F 

2 

LAST 
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1 7,2675 

55* 523 

0 

TS 

NPJETS 
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JET 
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N3 

QUAD FAILURES) 
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5 
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1 
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TAU2 
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00 

P pc 

A* 

110 
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1040 

17.2677 

3 5017 

1 

CAF 
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« 
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17,2700 
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1 

TCF 

+ 2 


O0-,'7 
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48 
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1040 

r7',270l 

3 5016 

0 

CTF 

TWO 
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2 
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55*521 

1 

TS 
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1 


RBDFA 1 L 
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0100 
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1 r.2704 

1 2710 

1 

TCF 

BFAILY 
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(THTi 
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0 

TCF 

TABYCOM" 

+ = S OUAD FAILED 
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r 



FT, 2706 
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“0 ■ 

TCF 

DFAILY 

- = D QUAD FAILED 
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RFF 

2 

LAST 

1041 

17,2707 

1 2733 

0 

TCF 
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REF 

6^ 

“ XAST 

XCR4D 

■ 17,2710 

3 43X4 


BFATUY C;4F^ 

TTTNF 


0105 

ReF 

3 

LAST 

"Twr 

17,27X1“ 

1 2 73 r 

1 

TCF 

TABYCUM 

+ 2 
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“TT 

L AS 1 

1040“ 

17,2X2 

3 5 771 

~TT~ 
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fTTUT 
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zr 

LASl 1041 
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0 

0 
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r 
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+ 

0 
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— 

0 


0 
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T 
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0” 

+ 


3 
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17.2720 
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2421 

+ 



3 



0119 
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— 

■h 


3 
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17.2722 
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1 OCT 
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0 



6 



0121 

17,2723 
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+ 
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6 
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2442 
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17,2741 

3 2714 1" 


CA 

PYTABLE 




0T4r 

kT'-F 

1 


r7,ZT42 
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R INDEX 


0 1 7T“ 

— RTF“ 


LAST 1042 

17, 3000 

50 000 1 


I NDEX 

A 


0TT6 

rr^zxr- 

X 



1 7,3001 

3'‘313’) 0 


CA 
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TXSXS" X 

BDZCHECKXA 

ZNUX 






UIXT" 


TTTxmx 

0 0006 1 

— ■ EXTENT) 







0132 

R cF 

X 17, 3006 

6 3040 0 


NGBUZ 

NO Z — 1 R ANSL AT lUN 
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L 

JET SELECT UN LOGIC 


USER' S 

PAGE NO. 6 E6 S3 




P0183 

TABLi LOOK UP FOR RO Z-TRANSL AT I ON WITH AND 

WITHOUT REAL BO 

QUAD FAILURES, 

Z-TRANSLATION WILL BE POSS- 



^01^5 

IBLE AS LONG AS ROLL COMMANDS CAN RE SATISFIED WITH 

THE AC ROLL JETS. 

CRITERION.. 

IF THE RESULTANT NET ROLL 



<?01 ^7 

COMMANDS = 0 (WITH Z-TR ANSL AT I ON ) AND IE T AO = 0. TH 

EN INCLIIDF THE BD 

Z-TRANSLATION 

COMMANDS. IE THE RESULTANT 



R0189 

ROLL COMMAND = 0, AND IF TAD NZ. THEN IGNORE THE BO 

Z-TRANSLATION 





0190 

9EF 

6 

LAST 

1041 

17,3007 

1 1' 627 

1 


CCS 

RPDFAIL 



0191 

R c r 

36 

LAST 

1040 

17*3010 

3 6214 

0 


CAE 

THREE 



0192 





17,301 1 

1 3013 

1 


TCF 

+ 2 



0193 

REF 

30 

LAST 

1011 

17,3012 

3 6211 

0 


CAE 

SIX 



01Z4 

RFF 

5 

LAST 

1043 

17,3013 

51* 516 

1 


INDEX 

ZNDX 



0195 

p ef 

1 



17,301 4 

6 2771 

1 


AD 

XLNINDX 



0 1 96 

REF 

231 

LAST 

1043 

17.3015 

50 000 

1 


INDEX 

A 



01^7 

REF 

1 



17,3016 

3 3151 

1 


CA 

YZTABLE 



0193 

REF 

1 



17,3017 

7 3162 

0 


MASK 

RDZJETS 

= 3417 OCt 


019'=> 

REF 

4 

LAST 

1043 

17,3020 

6 1451 

0 


AD 

RWORDl 

ADO TO ROLL COMMANDS 


0200 

RFF 

31 

LAST 

103 9 

17, 3021 

55' 502 

0 


TS 

T5TEMP 

IF POSSIBLE. MUST CHECK TAU FIRST 



0201 





17,3022 

0 0006 

1 


EXTEND 




0202 

REF 

38 

LAST 

1041 

17,3023 

7 5011 

0 


MP 

BI T7 

DETERMINE THE NETTOTI: COMMAND WITH 


0203 

REF 

1 



17,3024 

6 6061 

0 


AD 

= -4 

Z— TR AN SL AT I OTsl ADDED ON 


02 04 

REF 

2 

LAST 

108 

17,3025 

55* 522 

1 


TS 

NP JETS 

NET NO. OF +,- ROLL JETS ON 


02 05 





17,3026 

0 0006 

T" 


EXTEND 




0206 

PEF 

IT 



1 /, 3027 

1 3033 

0 


737F 

TAUCHECK 

* 



0207 

REF 

32 

LAST 

1044 

Tr*'^u3o 

“3 1 5 02 

"1“ 

ATR^DZ 

CA 

T5TEMP 

Z-TRAN5LAT ION ACCEPTfcD tVtN 1 HU Wt MAY 


020 8 

REF 

5 

LAST 

1044 

17,3031 





RWOROl 

Have introduced an UNDfcSiRtABLb kull 


0209 

R E F 

1 



17,3032 

1 3274 

1 



wcrnTTE 

SrANCH to JET" on-time CALCULATIONS 



0210 

REF 

7 

LAST 

1043 

rT.3033 

li’ 5 6r~lJ 

TAIJCTECX 

CCT 

TAU 



021 1 

RFF 

2 

LAST 

1043 

17,3034 

1 3040 

1 


TCF 

NOBDZ 



5^12 

REF 

1 



IT, 3035 

“1“^TT3T)‘ 

~7r“ 


TCF 

A L R B D Z 



0213 

- PEf- 

' 3 

LA~ST“ T044 “ 

■’rr,3Tn^ 

r 3040 

T~ 


TCF 

NDBD Z 



0214 

REF 

2 

LAST 

1044 

17,3037 

1 30 30 

0 


TCF 

acrbdZ 




(T2T5~ 

RFF“ 

'5 

LAST 

1 0 44“ 

— rT,3040 

3 14 51 

TT 

NOTTOT" ■ 

TA 

R W PR DI 

ZT-TKANSLATIUN NIH ALLtPItU 


0?15 





17,3041 

0 0006 

1 


EXTEND' 



- - ■ m j— i — 

02T? 

RFF 

39 

last 

1044 

17, 3042 

‘7 5011 

0 


■ ^p- ~ 

!5rTT 



52 IR 

REF 

1 



rTV3Tr4ir 

6 7715 

O' 


40 

=-2 



0219 

RFF 

3 

LAST 

1044 

17.3044 

$5* 522 

1 


T S 

NR JETS 



0220 

REF 


“ L ATT 104^4' 

"17,^045 

I 32 74 

T 


TC'F 

ROLLT IME 

BRANCH TO JET ON-TiME CALCULATION 




















::€* 


I ^ tav^-ife n 
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Ji!T SELECTION LOGIC 

USER'S PAGE 

NO. 7 

E6 S3 


P0 221 

30 QUAD 

SELECT ION FOP 

POLL COMMANDS 
















022? 

RFF 

7 

L AS T 

1044 

17,3046 

11*627 1 

BOROLL 

CCS 

R80FAIL 


0223 

REF 

1 



17,3047 

1 3053 0 


TCF 

RBFAIL 


0224 

REF 

1 



17,3060 

1 3057 1 


TCF 

RZXLNS 


0225 

R F F 

1 



17. 305 i 

1 3055 0 


TCF 

RDFAIL 


0226 

REF 

2 

LAST 

1045 

1'^,'305 2 

1 30 57 1 


TCF 

RZXLNS 


0227 

P FF 

8 

LAST 

1043 

17,3053 

3 4334 1 

RBFAIL 

CAF 

NINE 


02 28 

REF 

1 



17,3054 

1 3061 1 


TCF 

TABRZCMD 


0229 

REF 

6 

LAST 

1043 

17,3055 

3 5771 0 

POFAIL 

CAF 

TWELVE 


0 2 30 

REF 

2 

LAST 

1045 

17,3056 

1 3061 1 


TCF 

TABRZCMD 



0231 

RFF 

6 

Last 

1044 

17.3057 

51 *5 16 1 

RZXLNS 

INDEX 

ZNOX 

NO BD FAILURES 

0232 

REF 

4 

LAST 

1043 

1?,3060 

3 2660 0 


CA 

XLNNDX “ 

+,-,0 2-tRANSLATION PRESENT 

0233 

PEE 

4 

LAST 

1043 

17,3061 

6 1517 0 

TABRZCMD 

AO 

RINOEX 



RFF 

232 

LAST 

1044 

17,3062 

50 000 1 


INDEX 

A 


U7T5 

REF 

2 

n.AST 

1043 

17,3063 

3 3130 0 


CA 

RTAPLF 


0236 

RFF 

1 



17, 364 

7 3150 1 


MASK 

BORJETS 

= 34017 OCT 

0237 

RPF 

T 

LAST 

1044 

17,3065 

55*451 1 


TS 

RWO^Dl 



0238 

PEF 

6 

LAST 

1043 

17,3066 

3 1515 1 

ACYCHFCK 

CA 

YNDX 

ANY Y-TRANSLAT [ON 

0239 





17, 3-067 

0 0006 1 


EXTEND 



OTTO 

'■;eF 

1 



1 7, 3070 

1 3122 1 



ndacy 

NO Y-TRT^TISLATION 

0241 

RFF 

7 

L ASt 

1043 

1 7 , 307 1 

11»626 0 


CCS 

RACFAIL 


03^3 

EF 

3'^ 

LAST 

1 044 

17,3072 

3 6214 0 


"XTTF “ 

THR E E 


0243 





17,^073 

1 307TT 


*TCF 

+ 2 


0244 

REF 

“3r 

LAST 

1044 

17.3074 

3 6211 0 


CAF 

SIX 


D'745~“ 

L. 

r 

“TTLST 

TUT5~ 

1 r , 3 0 7 5 

51 ''515 1 


INDEX 

YNDX 


0246 

^ F" F 

L. * 


LAST" 

*1344“ 

17, 3076“ 

6 2771 1 


TIT 

XLNINDX 


0247 ■ 

H c F 

TTT 

LA3T 

3343 

17,3077 

50 000 1 


INDEX 

A 


0248 

R E E 

2“ 

L“AST' 

1344^ 

17, R TOO 

3 3151 1 


T7S 

YZ TABL E 


0249 

~WEr~ 

1 



17,3101 

“7 3T63”T 


MA“SK""" 

AC Y JETS 

= 34360 OCT 

02 5 0 


— r 

L A3 T ■ 

1045 

17,3102 

6 14'5T"D" 


AD 

RWORDl 


02nl 

REF 

“TT 

i/3nr 

T044“ 

TTTTTTnr' 

55*502 0 


TS 

T 5 T t 


0252 





17,31 04 ‘ 

0 lJUOT~r 


extend 


FOR EXPLANAllUN SEE CODING UN RTABLF 

025 

REF 

”33" 

TJ ST 

~TU72 

17,3105 

7 5014 0 


MP 

B I T4 


02^ 

PEF 

nr 

,r 

TTTST 


rTTTrOT* 

6 6061 0 


Tt5 

--4 


-rrz^rr~ 

RtF 

i^r 

LAST 

3“a4T 

1 /,?.107 



"TS 

NK J c TS 

NU. l)F NET ROLL JtTS 

02'^3” 





1 7 , m 0 

0 OOTTiTT' 


EXTEND 



0257 

RFF 

1 



TT.TTTT' 

1 J 1 1 > 


TTF 

1 aulhCk 

IF NRJFTS = 0 


0259 

R FF" 

”T2r 

L A S' r 

104 5 

t r , 3 1 1 2 

3 1502 L 

BDRACZ 

LA 

1 5T hMP 

Y- 1 K ANSLA 1 lUN ALL’rKItU 


— RTF“ 

~cy" 

LAST 

3rU43* 

TT. 8Trr“ 

“55^^51' T 


TS 

PWUROl 


0260 


3 

L4ST 

1344 

T7^,T7nT 

T 32T4“T 


“TCF 

ITOTLTIME 

BRANCFI TfJ JET ON-TIME CALCULATIONS 


OToI — 

— R E F ' 

B 

— LAST 1044 

I7V3T1T" 

11*561 O' 

' TAUCHCK 

LLS 

I AU 






0262 

— 2 E F ■■■■■ 

“2" 

— CTTST — rCTS 

IT, SITS' 

1 3122 1 


TCF 

Nu AC Y 






0263 

' REF~ 

~r 


"TTTTTTT" 

1 3112 1 


TUT 

B'lR ACZ 






aZ6’4~ 

R'E'F 


LAS! — r04T 

'1120 

1 ^ \ 2 , 2 ^ 1 


TCF 

NDACY 






u?rs5 

■ TEF 

”2“ 

T AST T 045' “ 

17, 'U?! 

^3112 TT 


TC F 

3DK ACZ 







1 
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T ' ■ ■ - w . 


L 

JET SELECTION 

LOGIC 






USER'S PAGE NO. 8“ 

E6 S3 












. ' ' ■ - “p ■ - - ■ - 


02-^6 

REF 10 

LAST 

1045 

17,3122 

3 1451 

0 NOACY 

CA 

RWORDl 

Y-TRANSLATICN NOT ACCEPTED 



0267 




17t 3123 

0 0006 

1 

EXTEND 





o:^ iB 

REF 33 

LA S T 

1045 

17.3124 

7 5014 

0 

MP 

BIT4 




0269 

REf 2 

LAST 

1044 

IT, 3125 

6 7 715 

0 

So 

=-2 




0270 

REF 5 

LAST 

1045 

17,3126 

55*522 

1 

IS 

NR JETS 




0271 

REF A- 

LAST 

1045 

17,3127 

1 3 7 7 >r 

1 

TCP 

RriLLTIME 
















I 



Im 




•* 


« 




kt 


MM* 
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L 

JST SELFCTION LOG T C 


USER'S PAGE NO. 9 

E6 S3 





R0272 

TABLE FOR ROLL» Y AND ANSLAT TON COMMANDS 








R0273 

EITHER AC OR BD ROLL '’^Y 8E SELSCrFO. IF AC ROLL IS 

SEt FCTEO, Y-TR ANSLATIONS MAY BE SATISFIED 

SIMULTANEOUSLY 




R0?.75 

P'^.riVIOED THAT THERE ARE MO AC QUAD FAILURES. IF THERE 

ARE AC FAILURES. Y-TR ANSLAT I ON COMMANDS WILL BE IGNORED. 




R0277 

IM WHICH CASE THE ASTRONAUT SHOULD SWITCH TO BD ROLL. 







R02 73 

TF BDROLL IS SELECTED, 7-TR ANS L AT I ONS MAY BE SATISFIED SIMULTANEOUSLY PROVIDED THAT THERE ARE 

NO BD QUAD 




R02 30 

FAILURES. IF THERE ARE 3n FAILURES. Z -TR ANS L A T I ON COMMANDS WILL BE IGNORED. 

IN WHICH CASE THE ASTRONAUT SHOULD 




R0232 

SWITCH TO AC ROLl . 







R02S3 

NOTE THAt IF ONE QUAD FAILS (F.G. B FAILED). Z-TRANSLAT ION IS STILL POSSIBLE AND THAT THE UNOESIREABLE ROLL 




R0285 

INTRDOUCED BY THIS TRANSLATION HILL BE COMPENSATED BY 

THE TWO AC ROLL JETS 

ACTUATED BY THE AUTOPILOT LOGIC. 





R02B7 

WORD MAKE UP....KTABLe 








R02S8 

TWO WORDS. CORRESPONDING TO AC OR BD ROLL SELECTION 

, Have been combined 

INTO ONE TABLE. THE 

WORD CORRESPUND- 




R02^0 

ING TO AC ROLL HAS THE FOLLOWING INTERPRETATION.. 







R 0291 

BITS 9,10,11 ARt coded TO GIVE THE NET ROLL TORQUE 

FOR The word selected 

. THF CODING I S. . 





R02P3 

BIT Nrj. 11 10 9 NO. OF ROLL JETS 








RO? 

0 C 0 -2 








0 0 1 -1 







R02‘- 6 

0 10 0 







R02P7 

oil +1 







— R0298 

10 0 •»-2 
















R02 79 “ 

"THrS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM 1 HE Y7- 1 K ANbLA ! 1 UN 

1 A L t f w fi 1 M n A i f n c 

SAWt 1 Y Kt ur 




!^03'31 

COiMNG As ABOVtf AND THE NET ROLL DETERMINED BY SHIFTING THE RESULFADsTT WUKD 

RIGHT 8 PLACES AND SUBT«ALMNC HIJUK. 












R03‘03 " 

TPTr V'URIJ CURRESPUNDING' TO BD ROLL HAS A SIMILIAK IN 1 EKPK t j a ( lUN. 

THAI BlIS i2t 13t 

ARE CODED 




— R0305 

(AS AS'OVT-J TO GTVE THE NET " uLL TORQUE, 









— A030S 


ROLL fKANS DUAUhAlL 

BIAS 





xrvn 

“ 17,3130' ■ 11000 T PTABLE nc I 

ITOOV 0 


U 




aTo3 

rrrrm — 22125 1 om 

22125 + 


0 






— TT . 3 T32 002 52 'I OCT' 

002 52 


0 

-= — ^ ■- — 




OTTO' 

TTTTm n231 1 ‘ OCT 

11231 (T 

+Y(+Z) 

3 


. - 


0311 

17,3134 15421 1 TO 

1 5421 

+ Y ( + Z1 

J 

- — ^ - 




0312 

17,3135 0A510 1 OCT 

0461 0 - 

+Y C-rTT 

3 




03X3 

17,3135 11146 T TTCT 

11146 0 


b 




0TI3i^ 

rrr3TT7 — r5wn out 

15504 

-Y(-Z) 

— — ^ = — 

6 

— ^ 




03X5 

17, 31 ATI 04442 1 UC T 


Y ( Z j 

^ A !.<■ ^ 

— ■' " = V m 

6 

-- — " — 




03X3 

— 17,3141“ 1 1 0 nm ' OCT 

3Trooo 0 

A f B I 





03T7 

1 / . 3 i 42 i *:> t)04 1 *JL ! 

1 5 504 + 

A( B) 

■ — ■■ ■ ■ ■ ■ — -1^'- - ■— » — jt # ^ — — 

9 

— 




OTP^ 

17, 3143 04510 “1 OCT 

04510 — 

A I B j 

y 

Y ^ ^ 




03X9 

17,3144 11000 I OCT 

1 1000 0“ 


i 




0373 

1 Z , 3 1 A 5 15421 1 OCT 

15421 + 

C C 0 } 

M ^ 

i d 

1 — 




0321 

lT,3T4Tr 04442 T OCT 

0 4 4 4 — 

C C 0 # 

1 d 
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JET SELECTION LOGIC 

USER'S PAGE 

z 

a 

• 

o 

t6 S3 



R0322 

RTABLE MASKS - 






0323 

17,3147 03760 0 ACPJETS OCT 03760 





03?^ 

17,3150 34017 0 BDRJETS OCT 34017 


















gap: 

assemble revision OSS OF AGO f^HOGRAM COMANCHE 3Y NASA 2021113-051 10:28 APR. ltl^69 TVCDAPS .011 

PAGE 1049 







L 

JFT SELECTION LOGIC 

USER'S PAGE NO. 11 

E6 S3 



R0325 

Y, Z TRANSLATION TABLE 





R0326 

ONCE AC OR BD ROLL IS SELECTED THE QUAD PAIR WHICH IS NOT BEING USED 

TO SATISFY THE ROLL COMMANDS 

MAY BE 


R032a 

USEO TO SATISFY THE REMAINING TRANSLATION COMMANDS. HOWEVER. WE MUST MAKE SURE THAT ROLL COMMANDS ARE 

SATISFIED 


R0330 

WHEN THEY OCCUR. THEREFORE. THE Y-Z TRANSLATIONS FROM THIS TABLE WILL BE 

IGNORED IF THE NET ROLL TORQUE OF THE 


P0332 

COMBINED WORD IS ZERO AND THE ROLL COMMANDS ARE NON-ZERO. THIS SITUATION 

WOULD OCCUR, FOR EXAMPLE, IF 

WE EN- 


R033'^<- 

COUNTER SIMULTANEOUS +R +Y -Z COMMANDS AND A QUAD D FAILURE WHILE USING 

AC FOR ROLL. 



C!03?6 

TO FACILITATE THE LOGIC. THE Y-Z TRANSLATION TABLE HAS BEEN COOED IN A 

MANNER SlMlLIAR TO THE ROLL 

T ABL E 


R0338 

ABOVE. 




^033‘^ 

BITS 9.10.11 ARE CODLO TO GIVE THE NFT ROLL TORQUE INCURRED BY Z-TR ANSLAT 1 ONS. THE WORD SELECTED CAN THEN HE 


f<03^1 

ADDED TO THE AC-POLL WORD AND THE RESULTANT ROLL TORQUE DETERMINED FROM 

THE COMBINED WORD. SIMILIARLY BITS 


R0343 

1.2,13,14 ARE CODED TO GIVE THE NFT ROLL TORQUE INCURRED BY Y-TRANSL AT I ONS 

WHEN BD-ROLL IS SELECTED. 




A0345 







TRANSLATION 

OUADFATX 

B I AS 


0346 



17,3151 

11000 1 YZTABLE 

OCT 

ITODD^ 

0 


0 

OWT 



17.315? 

11231 1 

OCT 

11231 

+Z(+Y) 


0 

0343 



17, 3153 

11146 1 

OCT 

1 1 1 46 

-Z(-Y) 


0 

034*^ 



17,3154 

11000 1 

OCT 

11000“ 


B C A ) 

3 

DTim 



“17.3165“ 

■ Q4610 1 

“Dcrr^ 

0461 0 

+Z(+Y 1 

B( A) 

3 

03 SI 



17,3156 

15F04 1 

Dcr ■ 

1 5 504 

-z(-y ) 

BTin 


0352 



17,3157 

11000 T ' 

“OUT 

1 lO'TO 

0 

1 ) ( C ) 

6 

03^5 ■■■ 



rr.TTGcr" 

15421 1 . — 

“OCT"' 

15421 

+ Z ( +Y J 

TITCT 

6 





i7,3r&r“ 

04442 1 

OC T 

0 4 4 4 2 

-z(-y) 

fim 

6 


R 0355 

“ YZ-TA^BrU“MASKS- 






0555 

TT.7T52“ 

03417 O' BDZJFT5 

CTCT 

5)5417^ 


0357 

TTV 3 1 65“ 

”^3U0^ ACYJEIS 

OCT 

34360 



R0353 


~ADDIT lONAL 

rONSTANIS 



















OBS'?'" 

PEF ^ 

LAST 054” 

7715 

=-2 = 

MEG? 






0555“ 

■TIFF" 1“ 


6061 

=-4 

N E G4 


. 
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R0362 


R036A 
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P036® 


R0369 


R0371 


R0372 


R0374 


^03 73 
P03 77 


R0379 


P03 86 


^87 

0383 


0389 
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039 2 


J:"T SELECTION LOGIC 


USER* S PAGE NO. 12 


E6 S3 


CALCULATION OF JET ON-TIMFS 


THE ROTATION COMMANDS { T AU : S )* WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET 

SATISFYING THESE COMMANDS! TAU MUST 


GPEPATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS T O BE USED IN 
A L S (] BE O^CRE 3ENTED ACCQR'JlNG TO THE EXPECT ED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5 


ERVAL . 


IN 


ORDER TO MAINTAIN ACCURATE KMOWLFOGF OF VEHICLE ANGULAR RATESt 


EXPECTED 


THE rate filter . 


T1JFT:S, also in TERMS OF l-JET OP FRA T\ ON ) 

NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO ROTATIONS WERE CALLED FOlT 


NEVERTHELESS, WE MUST 


UPDATE DFT. 

'.nTTFN the ROTATIONS HAVE FINISHED* WE MUST PROVIDE CHANNEL INFORMATION TCT 

j{-(P Translations, this will be done in the next section, however, to insure that jets are not fjred for l es 

tHAr~A^MINTMUM I MPU LS E ( 1 AM S ) • ALL JET CHANNET COMMANDS WILL BE HELD FIXED FROM THE START OF 



FUIT 



PITCH JET 


TIME CALCULATION 



rAST lO^D 


17,Tr^ 

17, 3165 



HI 

1 317A 


17, 3 1 3170 0 


PTTCRTTI^ CZS 

TCP 

ITF 


TAUl 

PTAUPOS 



Tif^i6'r 


LAST 108 


REF 


17.3170 

17. 3171 


r 3172 1 

55*550 1 



+ 2 

PTAUNED 



133 T2~^ 


TS 

TUF 


DFTl 


Tr"RTrnnTT5N 


COMMANU^ 


0393 

REF 

3 

LAST 

104 1 

17,9172 

4 1523 0 

DTAUNEG 

NPJETS 


03°^ 

REF 

4 

LAST 

1050 

17,3173 

55*S73 0 

TS 

NPJETS 


0395 

REF 

7 

la<.t 

1050 

17,3174' 

3 1562 1 

PTAUP03 [75 

TAUl 


0396 





3 7, 3175 

0 0006 1 

EXTEND 



0397 

PFF 

5 

LAST 

TF50 

17, UV6 

5 1523 1 

INDEX 

NPJETS 


0374 

RFF 




17,3 177 

“7 3353 0 


WJFT ‘ 


0399 

REF 

3 

LAST 

1016 
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■yT= 

P. L, 


F 1 

RFF T44 

REF'"^ 


1 5 , 2 7E? 


7 31 77 T 
6 17LT3“T 
0 3027 1 


rs " 
extend 


‘ PRFL 


YAW EPROR = RREL - PRFL T AN ( AL 


707 

TT 


SINTPTM 

p.pft: 


”STN 


LAST 10 


T572TE3 5irT70T)“T 


nWEX 




C^F 


2U/SDZ 

“A 

T^JFTCOUF 


GO TESl UZ. GLI \ 
+/- i IF NOT " 



+0 IF IN 1)Z 


ETTB F ZO LAST iO/2 


15*7765 55« 720“'! 


T 


JET EM 


R 0TT7 


START PITCH autopilot he: l 


RATE t) A 



TT7W 


Cr3E7 


IT3E3 


REF 2 

JTFF TT5 

' T 



last rDT 4 

TAET 


IETTT^E 

15,2767 



3 I7u 

0 3027"T 


U7A 

TT 





R E F 

RTF 


T57 77T0 50 0 00 “T irxmonrM 

15'* ’7TI 3~32'DE 


T 


INDEX 

FAF 


CUME HERE FROM EX ATM“DAP 


71 last 10 /T 


T5TTTT^ 


2 n /20 T 


TOTE 


P/KJCLTDE 

JLTEM 




TOTE 



FTTE 


TTTT 


15,2 m OTTGOE 


FXT'NlT 



S NUI REQUIRE SAVTNG^ULO CODES 
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2 LAST 1065 

15, 2774 

01 005 0 

WRITE 

PYJETS 

SET PYCHAN TO DESIRED BIT CONFIG. 


0387 

REF 

4 LAST 1066 

15 , 2775 

ll»7ll 0 

CCS 

J6TAG 


0353 

REF 

1 

15.2776 

0 3216 1 

TC 

CM/RCS 


03 8 1 * 

REF 

1 

15,2777 

0 3677 1 

TC 

CM/FOAI 


03 '^O 

REF 

1 

1 5 .3000 

0 3704 1 

TC 

CM/FDAIR -1 

(JETAG=-1 FOUIVALENT TO CMnAPHOO='-l ) 










f 







L CM ENTRY DIGITAL AUTUPILDT USFR*S PAGE NO, E6 S3 


P0391 


DEAD ZONt LDGIC USCO BY cNTPY DIGITAL AUTOPILOTS 


0392 


0393 


03Q4 

0395 


03 


1 -c 


A0397 

0393 

0399 

0400 


0404 
040 5 
0406 


0407 


040B 


04 09 


0410 

0411 


REF 2h6 last 1074 


15t3001 10 000 0 3007 


CCS 


YAWL I M= 1.0-3/ 180=16 334-273=16111 


REF 


15.3002 6 3175 1 


AO 


YAWL! M 



15 


i— > 


LAST 1076 


3003 
15,3004 


1 3033 0 
6 3175 1 



DZCGM 
YAWLIM 


PFF 


15.3005 1 3034 1 


TCF 


DZNnCOM 



BIA 


REF 


15,3006 55*624 1 BIASCOZ 


LAST 1076 


15.3007 
15, 30 10 


10 OOP 0 
4 3174 1 



JhT 


CM/BIAS 


FOR E 
save RATE/180 

FART ER ROR 0 
= .6/180 



ERROR /130 IS IM L. 
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REF 


REF 

RFF 


LAST 1076 

last roT6 


15.3014 

15.3015 

15,3916 

TTTTDTT 

15,3020 


002 0 
0 3001 0 

00 2 


11* 624 


4D/SD7 


DXCH 


GENERATE THE ERFim 

WTT 



RESTORE CALLERS 



6 317 2' 0 


TOT 




L , 

HERE IN EXT 


ERROR BIT 


'WZZ 


243 


rATT TZIZ 
last 1076 


15 , 302 I 

1 5 . TZZ2 
I5,30T3 



TcT 

THT" 




IF RAXF GFQ 407 S 7 SFT L = 0 ' AMU I AKt 
JET BITS ACrORniNG TO SGN OF RATE." 


40 /SLI 





0412 

15.3024 

1 3026 

1 

TTF 

|M 1 — 

041? 

15.3025 

T2 CKTr 

0 

ZL 

0414 PEF 3 LAST 1076 

lb, 3026 

“5T^6 24 

0 

XCH 


+ 2 


RATE OK. CONY! 
R AT E “GTTS 




714T5 

0416 



E rn TEST IF A ¥TTHlN~2DFF7S^T 
170 - YDOT uz i^rnr PDof) 



0419 

i 5 , 3 0 3 3 

4 00 00 

TT 

DZFOM COM 





042(5 

— 

REF 22 LAST 1074 15, 3034 

— mrx: — tttzt — i a ct — rrm 1 c: _ -3 rrrrz 

55»72l 

^ tTTTTT” 

TT 

~T — 

— ns 

J E T E M +1 

7 FRIT 

(? E N b K A 1 F 1 A (i . 

Stl C(AJ =‘Tn 

btl C(AJ — — +1 OUlSlUt OZ 

I MS TT)F 
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LTLST T0T6 r37T0'36 Fr00TI2~O 
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R04P4 


1 . IF 

ABSICAIF) -Ct45) POSt USE 

IF 

CALFA POS. CMr)APMOO= +0 



P0426 


BETA ; 

YAN EC'.' OR = SGN(CALF) (BETACOM -BETA) 

IF 

CALFA NEG. CMDAPMOD =-0 



R0428 



RATE = BETADOT 

IF 

CMDAPMOD =-0, RATE = RREL 



R0430 



R-AXtS = CONTROL 













R0431 


ROLL : 

ROLL ERROR = SGNICALFl (POLLC - POLL) 

IF 

CMDAPMOD = -0, RATE DAMP ONLY, 



P 0433 



■ATE = PREL 





R0434 



P-AXIS = CnNTRni 






R0435 


2. IF 

C(45) GEO CALFA GEO -C(45). USE 

CMDAPMOD = +1 



R043 7 


BETA: 

ROLL ERROR. = SGN(-SALF) (BETACOM -BETA) 





R043 3 



RATE = BETADOT 





R043 9 



P-AXIS = CONTROL 






R0440 


ROLL: 

YAW“TRKM = 3T;N (SALF) (R(3L lc -roll ) 

RAT^: DAMP ONLY. 



R0442 



RAT?" = PREL 





R0443 



R-AXIS = C^^JTR^L 






R0444 ■ ■ 3. for all cases , USE 

R0445 •» L F A : PITCH ERROR = IALPACOM - AL FA ) 



R044H 


(T4^r9 


6"" 

LAST 

lU /4 

1 5,T0"37“ 

^ 55* 700 

"0 FXDAP 

TS~“ 

CMDAPMOD “ 

+u FOR NOW 



0453 

■ TP'F' 

T~ 

LAST 

T073 

IS. 3040"' 

1 i • 5 06 

T 

CC5"^ 

CALFA 




a^r5'4 

“RTF" 

T" 



is,30 vr 

6 3176 

1 

AD 

C4bLIM 

= 1 • 0— COS 145) 



U455 





IS, 3042 

1 3045 

0 

TTF 

+ 7 




0436 

REF 

T 

LTTST 


1575057 

i lTTT 


AD 

X45tTM 




0457 

R 

2 56” ■ 



1 5 f 3 0 

54 000 

0 

T5 

A 




CJ45B 

“555" 

1 



1 5 t 3 04 5 

I “5X75" 

~jy— 

TC E 

tXi)AP2 ~~~ 

HERE IF ABS(CAT4'A) L tUS(43) 




04332 

^ t r 

4 

LAST" 

107T 

13,3045^ 

11*506 


CUS 

CALFA 

IXALFA! > 0,^0 



0AS33 





■ T5 73T75T 

1 3 05'T 

u 

rcF 

+ 1 

CONTINUE lE PUS; GO TO EXUAP4- IE NEG, 




0455 

REK 

5” 

LAST" 

1066 ■■ 

15. 3050“ 

11*77 / 

0 

CCS 

P63FLAG 

VALID VALUf“S AKtS -"i» +1» 



0550 

REF" 

1 



~TTT3Tr3Tr 

0 '3065 

“0 — 

TC 

EXDAT>5 




0461 





^3,3052' 

“T)“Ta54‘ 

u 

rC 

+ 7 




0462 

PEE 

T~ 

LAST 

TTTT7 

"T5TT05T" 

n 3 0 64' 

0 

1 L 

F X U A P 4 




0553 

“REF“ 


LAST 

1064 

15 ,3055' 

' cr ^ 5417 

0 

TC ' 

PH ASCHNG 

SINGLE PASS THROUGH HERE, 



0454 





15,3055 

' 50 3 3 A 

T 

nTC"r 

40 1 14 




0555 

"TTFF" 

120 

LAS I 

1074 

15,3056" 

4 50 1 ( 

0 

5 

THTE 




0555 

RbF 

5 

LA5T“ 

1077 

lb, 30-37 

R 5 ’ 727" 

TJ - 

TS 

P6 3FL AG 

SET FLAG TO ASSURE SINGLE PASS* 



0557 

PFF 

" — I 



15, 3060' 

3 3171 


C A 

M 5 E C 




05o5 

— TTT-fr- 

43 

LAS! 

106B 

1 . 3 (7 6 1 

0 57 4 5 

1 

1 C 

W A M L 1 S 1 




0555 

R EF 

55 

ITAST^ 

“TOTZ" 

T'., 1661 



FOANK^ 

AtTG 




0470 

REF' 


LAST 

715 

15,3 OFT" 

02 TT4 

0 

^CADP 

7 A KEP 6? 

CALL TO TTR iiNAT^ PoZ IN N 



0570 





16, -^066 

55055" 

”0 



_ — _ — _ — _ — 
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A0A71 


65 DEG/ 30EG/SFC = 21 SEC NOMINAL 

IT tire from ALFA=45 TO ALFA TRIM 



047 3 


REP 


5 LAST 1073 


15,3064 11'7T1 0 PXDAP4 


CCS 


JFTAG 


0474 


R 


1 


15.3065 1 3073 1 


TCF 


FXHAPB 


ROLLJET INTERFACE TEST BETWEEN 
DAP AND THE 2 SEr’CM/RCS DAP 


1 SEC 


0473 


REF 


LAST 1073 


15,3056 1 3073 X 


TCF 


EXDAP3 


0476 


REP 207 LAST 1076 


15,3067 3 5021 1 


CA 


ZERO 


0477 

0478 


REF 


LAST 1065 


0479 


REF 


LAST 1078 


15.3070 

15.3071 

15.3072 


0 0006 1 
01 006 0 


53' 9110 


EXTEN D 
WRITE 

TT 


ROLLJETS 


TURN 
UNTIL 


UFF ROLL J F T S IF “ON AND WATT 

M/RCS cycl 


OF 2 SE 


JETAG 



PROPER VALUF +0 



0431 


REF 


LAST 1077 


15,3073 


bOt 


EXDAP3 



RO 

CAUFA' 

RAXERR 


TrL BE IN ERROR UNTIL NEXT CM/RCS CALL 

GEQ COS’! 451 

BETA/ 180 



04 34 



208 LAST 1078 


15.3076 4 5021 0 


0485 


REF 


7 LAST 1077 


0486 


P EF 


LAST 1078 


15. 30 77 
15 , 31 


0487 


R!=E 


4 LAST 1073 


0483 

0439 




04 90 




8 


LAST 1074 
LAST 1076 
LAST lOT^ 


15. 3101 

15.3102 

15.3103 

15 .3104 


55* 700 

4 1573 

5 5 ' 5 73 0 

5~5'5 00 1 
54 001 1 

11 * 700 0 



ZERO 

CMDAPM OD 
RAXERR 


EX JAP I 


0491 

0492 


REF 121 


0493 

75494 


0495 

A 0496 




LAST 1077 
L ATT I(T77 
LAST 1074^ 


15.3105 

15.3106 

15.3107 


0 3110 T 

3 5017 T 

50 000 r 


TS 

iir 

TS 
~CUE 

nrr“ 




'.AX ERR 


TO“Z 


FOR CM/R'CS 

COMPLEMENT OF YAW 
FOR YAW PDA! 

WANT RAXTRR TDR ’ 


RROR. 


UTOAPMOD 


index 



COORDINATE BETA CONTROL 
CICMDAPNuUT CAN BE +1",“' 


OR -0. 



T TO COORD IN MODE +0 
RREL. “ 


T5T?ilO 

15.3111 


iri703 1 


0' 30 06 r 




TFTT 



DZ. +0 IF IN DZ. + 
4D/S, 



r“ 

IN 


OTHERWISE 
= 01 


049 7 


0498 

0499 



11 

252 



T57TTT2 0 000"6 

15.3113 0^^ 001 


T 


EXTEND 


■“2 

22 


ra ST 17)74 
LAST 1076 


rSGTTTF 

75T15 



5D 

3“ 





1 , 

I 

1 


"RITR — 

I NO EX 
XAT 


lchaN 


L HAS BETA BIT 


YJETCOUE 


15.3116 — 55*720 I 


TE 


J E T b M 


DE02 


0503 

DEO 4^ 


REF 

■RFh 


D8 


LAST 1074^ 



3 

0506 


REF 

REF 


E 


left 

U 


1078 


15, 31 IT 

15 . 3120 


3 157 


TT 



OAXERR 


ALFTT ERRORT 


54 001 T 



TE.3TEI 3 i70T^ 



LAST TDTF 



“D5TT7 

7T5DE 


REF 12 LAST i07F 



0 3006 T 

TETTTZl — 0 0006 T 

15, 5174 04 001 1 

,312 5 I ETTO ^T 


TTT 

TTT 



FTIR“ ALFAUUi USE QREt 


FI AEED7 


EXTEND 

KTTR LCHAN 



TCF 


PXDAPIN 


CONTINUE UN IN DAP 


0 509 


KEF 


C LASI 1078 


TETTTZF 25»700~T 


TNCK 


CMriAPMOD 


EET 



nr^TT 


25IT) 

T7ETT 


REF 122 

REF“ 


LAST 1078 
EAST lOTE 


TETTTZT 


r5,TT30 


4 501/ 0 

55*711 0 


CE 

TS 


UNI 




jtTAi; 




INOlCAIfc CHANGb hWUM .1 SbL UP’JAlb 

T U 2 SEC HUK ROLL JE T S. ( IF CWDAPMOD 
=TT SNO JET AG =— 1 ♦ yUENCHES JEfS TF l)M ) 
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0515 


15,3133 13 134 0 


NOOP 


0516 

REF 

4 

LAST 

1073 

15.3134 

1 1 ' 507 

0 


CCS 

SALFA 

BETA CONTROL WITH P JETS 


0517 

REF 

5 

LAST 

1078 

15. 3135 

4 1573 

0 


cs 

RAXERR 

B(>= BETACOM - BETA/180 


0513 





15,3136 

1 3140 

0 


TCF 

+2 



0519 

REF 

6 

LAST 

1079 

1 5 • 3 1 3 7 

3 1573 

1 


CA 

RAXERR 

* 


0520 

REF 


LAST 

1066 

15,3140 

55' 713 

1 


TS 

PAXERRl 

TEMP SAVE. ERRDR/180 


0521 





15,3141 

0 0006 

1 


EXTEND 




0522 

R “r F 

5 

LAST 

1067 

15,3142 

7 5002 

1 


MP 

HALF 

CM/FDAI EXPECTS ERROR/360. 


05 23 

REF 


LAST 

1079 

15,3143 

57' 713 

0 


XCH 

PAXERRl 

ERROP/360 FOR FOAI, GET FRROR/180. 


0524 

REr 

99 

LAST 

1078 

15,3144 

54 001 

1 


TS 

L 



0525 

RFF 

5 

LAST 

1079 

15,3145 

11 ' 507 

0 


CCS 

SALEA 



0526 

REF 

4 

LAST 

1073 

15,3146 

4 1704 

1 


CS 

BETAOGT 

USE BETADOT TO COORD iN MODE +1 ““ 


052 7 





15,31 47 

0 3151 

1 


TC 

+ 2 



0523 

REF 


LAST 

1079 

15, 3150 

3 1704 

0 


CA 

BETAOnt 



0529 

PEF 

3 

LAST 

1078 

15 ,315 1 

0 3006 

1 


“TC 

BIASED/ 



0530 





15.3152 

0 0006 

1 


EXTEND 




0531 

REF 

“TT 

LAST 

1073 

15,3153 

04 001 

1 


RQR 

LCHAN 



0532 

REF 

2 53 

LAST 

1078 

15,3154 

50 0 00 

1 


INDEX A 



0533 

REF 

2 

LAST 

1074 

15,3155 

3 3205 

0 


CAF 

P/^iJCnOF 

GET ROLL CODE 


0534 





15,3156 

0 0006 

1 


EXTEND 


ROLL CONTROL WITH YAW JETS. 


0535 

RFF 

3“ 

L A S T" 

1078 

15,3157 

01 006 

0 


WRITE 

RDLLJETS 

WF.LL skit regular roll 5Y$T 



0536 — 

1 > h P 

— T 

last 

1067 

15,3160 

3 1717 1 


t:a 

ROLL HOLD 

ROLL/180 AT CM/UAPON I IMt. 


“ (3FT7 





15, 3 161 " 

0 0006 



EXTEND 




053"^ 

“RFF ra 

ntST’ 

1074 

— 15.3162 

Z 1 1564" 

TT 



RTJLX / 1 8 0 

1,S CO MPT, OUT SO WHA1S A BIT.? 


0333 — 

”PFF“ 

TTjjy 

LAFT" 

1079 

IFTTTol 

54 001 

~r 


TS 

L 

FURLE a LIMlf CYCLb In YAW KAit. 


05415 

'"FF 

6 

LAFF 

1079“ 

15,3164 

11' 50 F 



CoS 

SALFA ■ 



0541 

REE 101 

LAFT 

10/9 

— 15,3165 

FTroTTr 

TT 



L 

TO hEMOVE its biasing EFFECT ON M OviT. 



R E F 

7 

LAST 

1078 

15, 3166 

0 3101“ 

I 


TC 

EXDAPl 



0543 

RFF 

T 

LAST 

10T9" 

15,316 f 

4 00 or 

1 


"TTS 

I 



10'544 

RFF“ 

3 

TUST' 

1079 

15.31/0 

0 31T) T“ 



TC 

EXDAPl 










15, ril 71“ 

04064 

TT 

NSbC 

DEC 

2100 

66 Ubb/ 3 Ubb/SbU 


A 0546 










I F Ns cC 

TS Changed, KtMbMBER to changf 4.33spui. 


054 A 





— 15,3i72 

“3T7Tzr 

0 

40/ S'LTM" 

DFC 

16368 

1.0 -4/180 U/S = 4/1800 tXP 14 


0548 — 





15,3 ITT' “ 

377 55 


YDLIIL IM 

T5FC 

16 3 66 

= 1.0 - YDOT Ij /= 16384 -18 


Ar0545" 











ViJUT DZ = YDOT TCDU/180 = Z/1800 bXK l*f 



0550 





15, 31T'‘r“ 

00067 


4 o 1 A S 


^T5 

=.6/ibU »l^ = 6D 


0553 





r?, 3175“ 

— 3/267 

FT 

YAwrw 

DFC 

1 6 065 

" YAWL I M=1 .”0‘-3. 6/ 180=16384-329=16055 


CF553 — 





15.3176 ■ 

liZ7F 

TT 

C4 5L 

UbC 

TF9ZF9 

= 1 . O-LOS 1 45 J 


^0553 













05531 





15,31 / ^ 



SINTRTM" 

“DTTC 


STNC— 20) (FOR NOMINAL L/u — .31 


05532“ 





— 15,3200 ' 

3S'0'4''r 

1 

cnsTRKM 

Dfc C 

.93959 

CnS(-201 (FUK NOMINAL L/U - 



inr553^ 


H05536 
R 0 5'5 3 3 


r o MAK E ~D7VP INSENSITIVE ro PTTCIT ERRORS DOE r tr”7\ C C U MU L AT E 0 

njM. our 



VUSE NOMINAL VTtUE (-20 D EG) FOR^TRTM AtTIT 
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A05S4 




JET 

CODE 

TABLES 

FOLLOW _ 



















0*^55 

15,3201 

00120 

1 



OCTAL 

00120 

POS 

Y 




0556 

15 1 32 02 

00000 

1 

Y JETCODE 

OCTAL 

00000 

RCS 

JET BITS 




0557 

15^3203 

00240 

1 



OCTAL 

00240 

NEG 

Y 




0553 

15,3204 

Wo 05 

1 



OCTAL 

00005 

POS 

R JET BITS 

ALSO POS P JET 

BIT^ 


0559 

15f 3205 

00000 

1 

P/PJCODE 

OCTAL 

00000 
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15,3206 

00012 

1 



OCTAL 
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neo 

R 
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P05&1 

RCS 


THIS SECTION IS ENTERED EACH 2 SEC 8Y 

WAITLIST CALL FOLLOWING 

A DELAY OF 1.2 SEC AFTER PIPUP. 


R0563 

THE 

TASK 

SETJTAG SETS A FLAG 

IN JETAG TO signify THAT ROLL UPDATE 

IS 

DUE. IN ROUGHLY 5 CS BPOYRATE WILL 8E 


R0565 

EXECUTED 

AND JETAG 

WILL CAUSE 

CM/RCS 

TO ACT ON 

ROLLC 

IMMEDIATELY THEREAFTER. THE 


R0567 

TASK 

SAVES THE CALL 

TIME SO THAT CM/RCS CAN DETERMINE 

HOW MUCH OF THE 

2 

SEC INTERVAL REMAINS BEFORt THE 


R0569 

NEXT 

UPDATE. 





















0570 

REF 

15 

LAST 1068 

16.3207 

4 0025 

1 SETJTAG 

CS 

TI MEl 


SAVE NOMINAL UPDATE TIME FOR SYNCH 


0571 

ref 

2 

LAST 111 

15,3210 

55*712 

0 

TS 

TUSED 




A0572 










THE 5 CS APPEARS IN TIMETST. 


0573 

REF 

123 

LAST 1078 

15,3211 

3 5017 

1 

CA 

ONE 


RATHER THAN I NCR, FOP SAFETY 


0574 

REF 

B 

LAST 1073 

15,3212 

55*711 

0 

TS 

JETAG 


SET JEtAG=l TO CAUSE CM/RCS TO BE 


0575 

REF 

92 

LAST 1077 

15 ,321'3" 

0 5412 

0 

TC 

PHASCHNG 




05 76 




15, 3214 

00001 

0 

OCT 

00001 





0 577 FEF 55 LAST 1072 15*3215 0 5324 1 TC TASKOVFR EXECUTFD AFTER NEXT BODYRATE UPDATE 
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OVRLIN52 +1 






0753 

PEE 

12 

LAST 

1084 

15,3437 

4 1613 0 

OVRL I ME 1 

CS 

-VT/180 

DRIFT AT V 







075^ 

REF 

2 

LAST 

1084 

15,3440 

55*567 0 


TS 

VOT/180 








0755 

REF 

?09 

LAST 

1078 

15,3441 

3 5021 1 

0VRLTME2 

xa ■ 

ZERO 








0 756 

P EF 

4 

LAST 

1035 

15, 3442 

55*621 1 


TS 

TONI 








OTTT 

' REF 

3 

TA6T 

10¥5“ 

TT, 34« 

“6 1567 1 

~~T^FTm2 

CA 

VDT/180 

VOT/180, OR VMT/iaO DIT 

VT/160 






0756 





15.3444 

6 0000 1 


DOOBTF“ 









0/5 9 





16,3449 

0 0006 1 


extend 









07' 0 

“RTF" 

3 

L A ST 

1084 

rT,T446 

"T 3750“ 1 


mp 

180/8 A1 T 








'0761 





1 *? , 3 4h- 7 

6 OOOD 1 


DDU B L t 


FOR SECOND BURN, Al 







U7^ 

- EF 

9 

t 

LAST 

112 

15,3450 

5'*6oT 0 


TS 

TaD2 

= T0N2 / 4T 
























0/63 





16,3451 

4 OOOU 0 


TTTW 









0TV4 





1 5,3452 

0 0006 1 


EXTEND” 









0765“' 

RTF" 

1 



15, 3 5 3 

6 345? 1 


a IMF 

GETOFF 








0766 

“FEF 

3 

FAST" 


■ ■■T6",F45^ 

66’‘6F7”Tr 


T S 

TON? 








07561“ 

— * CT“ 
Tv r 

8 

LA51 

108 5 

1 5 , 34 5 5 

3 1617 0 


C A 

JNDX 








07662“ 

REF 

T 

LASI 

1085 

15, 3456 

5 5 ’ 5 ? 0 0 


I s 

JNDXI 





- I ' 1 — • — . — ^ , — — 




0767 

■“RTF" 

4 

LZFT 

1085 

15,345 / 

4 160^ (' 

GEIfFE 

675 

r i 

1UN2 / 41 







0766 





“ W. 346 0 

■ 0 00F6 1 


EXTEND" 









075;^ 

K E F 

■ 4 

“TA6T~rDPr5^ 

15,34Tr“ 

T I66T“ir 


FTP 

T/DT/IBO 

V D f / 1 ^0 f OR VT/XBOf OR 

VMT/180, 






0776 — 


T 

LAST^ 

1084 

rT7TT5T“ 

55*615 0 


T5 

X D / 3 60 

USE AS TEMP 







UTTZ 

KEF 


UATT 

TOFT 

15,3463 

4" rsiTiT 


TTST 

VDT/180 








0 7/11“ 





15, 3454 

“TT’nUTyT” T 


“FX 1 End 









07712“ 

RTF 

r 



15.3465 

1 3501 r 


"TTZT 

1 iJEPUVFl 

rpm IHE DIVIDE IF DtN” 

= U. 






0 7T2 

“RFT' 

^3 

LAST 

TOST 

6"5, 3^-66 

T~r6T3 T 


AD 

-VT/IBO 








0771 





167-^667“ 

T) oo cm” 


EX TcNTT 









0776 — 

■R"EF“ 

5 

LAST" 

1085 

1 5 , 3 4 / () 

7 1621 r~ 


MP 

! U N 1 

1 UN 1 Z 4 I 







0775 

pp 

- 7^ 

LAST“ 

1085 

15, 3471 

o 1615 1 


“inr 

XD/3F0 

lEMP = -vuf/iau / 2 lUN^ 






— 0776 

— !TPF“ 

~rr 

TATT 

1084“ 

r-7,347T“ 

6 1614 0 


AD 

Llx/360 








0777 





i5,3'f 73 

22 00 7""0' 











0773 

“RTF' 

TTO 

LAST 

“1033“ 

■ Ti? , 3 4 T 

56 001 0 


DOTR 

L 

lEST THE divide 







0779 — 





T6,6'^6" 

“(T ‘ “0T1TT6 r 


EXTEND 









07311 — 

P'EF" 

6 

LATT 

103T 

15, 347 6 

11*56/ 0 


DV 

VD 1 /IBO 








otht 





16,6677“ 

“rr aoo6 i 


“EXTEND" 









0762 

REF” 

~r 



7T,3’500 

1 3 503 IT 


BZ F 

G ETQF E 2 

DIVIDE OK 








0737 

REF 

— p 



1673601“ 

““9 ^rT45 0 

“ TGFFDVFL 


2 Jt I T 

uvr"Lf run 

r IC^UC* 






0783 ■ 

'R EF 

T 



15,3507 ■ 

“ T T61T) r 


TCE ’ 

“T I MSC AL 











GAP: ASSFMBLE REVISION 05F OF AGC nPriGRAM COMANCHE BY NASA 20P1113-051 


10:28 APR 


1,1969 TVCOAPS -Oil 


07 


0 797 
0798 


0799 


0800 

0801 


CM entry OIGITAL AUTOPILOT 


REF 111 LAST 1035 


REF 


LAST 1085 


REF 

REF 


LAST 1035 
LAST 112 


15,3503 56 001 0 GETnFF2 XCH 


15.3504 0 0006 1 

15.3505 11*567 0 


15,3506 0 0006 1 


15,3507 7 5045" 1 

15,3510 55*605 1 


L 


EXTEND 
DV VOT/180 


EXTEND 


VIP 

TIMSCAL TS 


2 J E T t 


USER’S PA"GF 



74 ^ 


E6 S3 


GET NUMERATOR* 


CIA) = TOFF / 2T 



0802 

P cF 

1 



15,3511 

.3 37 sr 

1 

CAF 

4JFTT 




0803 





15,3512 

0 0006 

1 

EXTEND 



m ■“ 


0804 

REF 

6 

LAST 

105 5 

15,3513 

7 1621 

1 

WP 

TGNl 

^ ( T On 1 ) = T UN 1 

/ 

4T 

0805 

ref 

7 

LAS r 

1086 

15, 3514 

55' 621 ■ 

i 

TS 

TONI 

I ^4 C S 
















0 806 

REF 

2 

LAST 

108 6 

1, 5 , 3 5 1 5 

3 3751 

1 

CAP 

4JFTT 




0807 





15,3516 

0 0006 

1 

EXTEND 





0808 

PEF 

5 

LAST 

1085 

1 5,3517 

7 1607 

0 

MP 

TQN2 

C(T0N2) = T0N2 

■ ■ , m 1 m t mm m • m, ~m- m m i » » 

/ 

4T 

0809 

P EF 

6 

LAST 

1086 

15.3520 

55*607 

0 

TS 

TUN2 

IN CS 







CANNOT REOO AFTER TIMETST. TUSED GUNF 

SET +0 TO SHOW ROLL DAP CALLtD. 


A0812 

Aoan 

A0ai4 

OA 1 8 — CAST 1062 15,^523 3 5017 1 CA 

0^16 “RCF 2 LAST 1068 1377574 54 3C5 0 TS " SW/NOX 


CAuSF THE TM OF R oDY RATES VIA UPBUFF TITTE 

— mrr AL ized. also cause needles to bl oonl un n5 xt 

"“TTflDTTR'' ALTER NATE PASSES THROUGH CH/OUHPRT 


081U REF 210 LAST 1085 15,3521 3 5021 1 CA ZFRO 

0811 pTf 9 LAST 1081 15,3522 55^ T'l I 0 TS JFTAG 
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10:2B APR. 1.1969 TVCOAPS .011 PAGE 1087 


CM ENTRY DIGITAL AUTClPILtST 


USER'S PAGE NO 


25 


E6 S3 


P0817 

TIMFTEST SECTION FOR RCS 



R081 s 

ENTER WITH THREE ll^E INTERVALS AMD THE CORRESPONDING JET CODE INDEXES IN 

ERASEABLE LOCS TONI, TOFF, TDN2, JNDX 


R 08? 0 

JNDXl. SECTION PROCESSES TIME INTERVALS FOP WTLST CALLS AND ASSURES THAT 

WTLST CALLS ARE MADE ONLY 


R0322 

(1) FOR PQS INTFRVALS GREATER THAN A SPECIFIED MINIMUM ( HERE CHOSEN AS 

2 CS) AND 


R03?4 

(?) FOR THE INTERVALS THAT WILL BE EXECUTED WITHIN THE TIME REGAINING IN 

THE SAMPLE INTERVAL T (2 SEC). 


P 08^6 

TIMFTST ESTABLISHES 6 LOGS CONTAINING JET COOES AND CORRESPONDING TIME 

INTERVALS. THUS: TONI, TIBITS. 


R0523 

TOFF. TBITS, T0N2. T231TS. OF THESE THE FIRST 2 LOCS ARE TEMPORARY. FOR IMMEDIATE ACTION, IN GENERAL. 


R0B30 

SECTION JETCALL BELOW PROCESSES THIS LIST. 




0831 

REF 

16 

LAST 

1081 

15^3525 

3 0025 0 

timftst 


TimLI 

CORRECT FDR POSSIBLE TIMEl OVFL, 

0832 

REF 

6 

LAST 

1032 

15.3526 

6 5002 0 


AD 

POSl/2 


0833 

REF 

7 

LAST 

1087 

15,3527 

6 5002 0 


AO 

pnsi /2 

OVFL GUARANTEED. 

0834 

F 

3 

LAST 

lOB 1 

15,3530 

27*712 “0 


ADS 

TUSFD 

BITUSEO) =-TUSED =-OLTIMEl 


0H35 

RFF 

1 



15, 3331 

3 37A6 1 


CA 

-T-3 

==-T +2 -5 (SEE SETJTAG) 

A 0 836 











0337 

REF 

4 

LAST 

1087 

1 5. 3332 

27'712 0 


ADS ' 

Tuseo 

TUSED = TI ME ( K ) “T I ME ( K” 1 ) “T+2 


083 8 

ref 

' 30 

LAST 

1043 

“TF73533 

4 5016 1 


CS 

Twn 

USE 2 SINCE TIME3 UNCERTAIN TO 1 

0S3P 


8 

LAST 

10B6 

1 5 . 3 5 3A 

6 ^621 0 


AO 

TONI 


o 

•JO 

o 





1 5.3535 

0 0006 1 


EXTEND 





P £F 

1 



1 5 f ^ 536 

6 3550 1 


■■■ ETZ M F 

T I MFTST 1 


081^2 

P ef 

9 

LA sr 

1085 

15.3537 

51«617'0 


“rNTTcX 

JNDX 



REF 



LAST 

1079 

15, 3540 

3 3205 0 


C AF 

P/RJCDDE 


0844 

R EF 

2 

LAST' 

113 

15 , 354 1 

1 


T5 

TTBTTS 





"TTEF" 

cj— 

LAST 

1087 

i5.35A? 

3 1621 0 



ruNi 


rrufs 


5 

"LAS I 

103 7 

15, 354T’ 

■^7' 712 O' 


ADS 

TUSED 


DW7 





15 ."3 5 ATT 

Tr~0006 1 


b X 1 E NU 



DW5 

“RFF" 

— r“ 



15.3545 

6 3552 0 


■“BTPTF 

TO PbTE ST 


084^ 

"ftf" 

211 ■ 

TASTT 

T03b' “ 

15,3SA6 

T 502T~T 


"TTA 

L b K lJ 


0880 

R E F 

r~ 



1S,35AT 

T 360T CT 


"TUF 

1 1 ME I S 1 3 


UWTL 

“FFF" 

128 

LAST 

1036 

15.3550 

4 5017 0 

TI MFTSTl 

~rs 

□ NE 


m52 — 



iZAsy 

1087' ~ 

15,3551' 

55*621 1 


1 s 

I U N 1 


0853 

* 

* 1 

31 

3rAST^ 

TTTHT 

1 “> . ? 5 2 

■■ 4 5 016 1 ■ 

TUr FT r ST 

"CT" 

T W(T 


■"’OMSi 

■>tF 

3~ 

LAST 10J6 

15, ^ 553 

6 1 6 0 5 “ 0 


AD 

TIIPF 


0 8 A S 





15,3354 

“TrTJTT05'~r 


E X 1 E N 0 



OTTTB 

REF 

"r~ 



15.3533 

Q 3 5 <6 4 0 


^BTMF 

TI METST2 


0357 

"FTF" 

4“ 

LAST' 

TOFT— 

15, 3556 

3 1605 0 


LA 

"TOFF 


0553 

E F 

6 

LAST 

1 08T~ 

— 15,3 5 57 

27*712 TT^ 


ADS 

TUSFF 


08 39 





— 15. 1560 

O' 00O6‘I 


EXTEND 



rTTToTi — 

RiiF 

— r~ 



15,3561 

6 3566 1 


H L ME 

1 ■- )N2 J LS 1 


0 361 


7T2“ 

T.AST irnjT 


3 *5 0 T 1 


TIA 

Z r: RO 


08 52 ‘ 

r.FF~ 




15, 3 63 

1 3605 0 


TCF 

T I METST4 


0853 

REF 

120 

LASI 

lOB 7 

15,35 64 

4 511X7 0 

1 1 Mb T S ) 2 

C S 

UNb 


— 

REF 

5“- 


"TORT 

IF. 356 5 

5 5»6I75'X 


TS 

TUFF 


0853 

K fc r 

52 ^ 

•LEAFT- 

“TORT - 

1 5 , 35 65 

^F0T6“"l 

T0N2TFST 




0353 

“RFF" 

— r~ 

LAST 

i 0 ?F” 

15,856/ 

6 1607 1 


Al) 

1 UN2 


0 86T ■" 





15.3570 

■ T) OD 0 5 1 


EXTEMT 



rnorr 

REF' 

X- 




■ 6 T6T)6 1 


B7MF 

TI METST5 
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ENTITY digital AUTOPILOT 


RAGE NTj; 26 


16" S 3 



R0883 


SECTION 


RQ88S 

R08B7 


JETCALL 

A positive 


OTABLISHES WTLST ENTRIES, AND 


EXAMINES CONTENTS OF JET TIMES IN LIST» 

JET COOES. A POSITIVE NZ NUMBER IN A TIME REGISTER TnTjTCATES THAT A WTLST CALL IS TO BE MADE. 
EXECUTED. A 4-0 IMOICATES THAT THE TIME INTERVAL DOES NOT APPLY, BUT THE CORRESPONDING JET 61 



R08 39 


R0.R91 

R0393 


EXECUTED. A NEG NUMBER INDICATES THAT THE TIME INTERVAL HAS BcEN PROCESSED. IN EVENT UF +0 UK -1 
TUR SEOWNT TIME REGISTER IS tXXMriNTED FOR POSSIBLE ACT lOR. THUS JET BTTS^ TO BE EXECUTED 

THAN ONE REGISTER 


AND ITS J 

APE To"' 
• THE 


C 


TONTTTNIT 

T 



BF 


mr 



MDTTE 


W9T 





15,3'610' 5CT2Tn^ JETCALLr^CA^ 



0B9S 

REF 

2 

LAST 112 

1'" , 3611 

55*611 1 

TS 

M M 1 ■ =g-=- 

OUT tag 

0896 

REF 

2 

last 112 

I5t36l2 

55*61? 1 

TS 

NU J 1 1 

0897 

“TFF 

2 

L A Sr 112 

16,3613 

5 5*6 06 1 


! H M b 

0898 

REF 

12 

LAST 1088 

i 5 f r> 6 1 A 

53*622 1 

DXCH 

TONI 

0899 

Ref 

255 

LAST 1082 

15? 8615 

10 OOD TT" 

CCS 

p 

A 

O9O0 

"TTF 

T ■ 


1 5 T 3 6 1 6 

1 3633 0 

T CF 

J c t C A L L 2 

0901 

REE 

3 

LAST 1083 

15, -i 6 1 7 

23*612 0 

JETCALL3 LXCH 

NU JET 



xrAUC~wTTrsrT~ 

WTLST ENTRIES COME HERE FROM JEfCArC 


0902 


RIF 



TJ7 

7 


LAST 1088 
LAST 108 8 



rrsTo 

IS, 36Tr 





TTS 

oxen 


TOFF 




rff 


TF7TST2 m 




0 ) ' J ^ 

i \ CZ f 

2 

"LAST laSTJ 

16,3623 

1 3633 Tf 

■ — rcF 

JErCATXX 

CALL WILST 

0906 

“RTF" 


LAST lOBT 

"15.3624 

23*612 0 

LXCH " 

NUJ El 


THT7 

"RTF" 

ITT 

LAST lOFR — 

15,36:25 

4 50 W 0 ■ 

c s 

U NE 


■a9W‘ 

REF" 

~TU 

"TAST ioa'3 

15,3626'" 

53*610 0 

UXCH 

1 UN2 


OmT 

R EF“ 

~2r5T~ 

"XA S'TTD FF ’ 

"T5TTF27" 

"TCr o oi) 0~ 

XCF 

A 


0910 

"RFT" 

T" 

LAST lO'FS — 

1^,3630 

1 3633 0 

TC E 

JbTCALO 

CALL W!LSI 

0911 

TEF 

-- cr 

LAST I OFF 

15,3631 

"2Tn5T7~0 

LXCH 

NUJET 

- — # a ■% ■ — - ■ ■■ •’ " 1 ■ ' . , . _ 1. 

" 'CTO 12 

“RTF" 

r~ 


“T5V3632 

0 3642 I" 

re 

JFTACTN 

C ( A ) “ +0 



REF 

TT7" 

LAST 1086 

15,3633 

56 001 0 

JETCALL2 XCH 

L 

SAVE JFI BlIS hUK AEltK WILbl CALL 

O’Rl A- 

REF' 

6“ 

L A ST TOTE 


~27^enmr~ 

■ AOS 

N U J c f 


— — a<TnT 

RTn^TTT' 

LAS! ITTIB 

“T5,“3TT5" 

56 TO! T ■ 

XCH 

L 


09 1 6 

REF" 

irT" 

LAST 1088 

15,3 6T6 ■ 

6 5017 1 


L. J 1 N C, 

1 o ^ w r f 1 o Ih' f 1 1 * f ' ^ 

ryrn 

KEF 

"TT 

“LAST 1077 

15,3637 

0 5245 1 

re - 

waitlist 


OTTF 

RTF' 

AT" 

" FAST 10/7 

96, 1 6 6 1 


bBANK=“ 

AOG 


0919 

pFF" 

T" 


15,1640 

03650 i 

Jf i f\ 1 Imi^ 

4k ll * ■ m T m 1 


091^ ■ 

fc r 

1 


1^,3641 

BZCTTO ' 0 



A ■ i- — t ■ ■■■ 1 1 * # ■ ■ ^ fcf — r'k T n r* ■ i i i 'l f t CT t C ^ Vfltni-Fill 

o 

■u 

O 

R Ft* 

r 

LAS I rU88 

15,3642 ■ 

3 16T7“T) 

JFTACTR’ XA " 

NU JEl 

ClJMt HEHE WHEN DESIRED JET CuDc lb K.rs(UWfM 
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1 , 1969 

TVCOAPS .011 
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L 

CM ENTRY 

DIGITAL AUTOPILOT 





USER'S PAGE 

NO . 27 

E 6 S 3 















09?1 



15.3648 

0 0006 

1 

EXTEND 


NO NEED 

TO SAVE 1 

OLD CODES 



0922 

REF ^ 

LAST 1079 

15,3644 

01 006 

0 

WRITE 

ROLLJETS 

SET RCHAN TO NEW 

~ R 1 T CONFIG . 




0923 

REF 3 

LAST 1038 

15.3645 

1 1 • 6 1 1 

1 

CCS 

OUTTAG 






0924 

REF 56 

LAST 1081 

15.3646 

0 5324 

1 

TC 

TASKDVER 






■ O '^ Z '3 

^>EF 2 

LAST 1075 

15 , 3 647 ' 

0 3705 

0 

PDLLOUMP TC 

CM/FOAIR 



















A 0926 







EDIT 

DUMP AT ABOVE 

LOCATION 

• 




R 0^27 


WAITLIST ENTRIES COME HERE , 


0928 


REF LAST 1011 


15,3650 3 5015 0 JETCALL CAP 


BIT 2 


CM/OSTBY =1030 BIT 2 


0929 


REF 


LAST 1089 


15.3651 55*611 1 


TS 


093 0 


REF 23 ^ LAST 1081 


15, 3652 7 0102 0 


MASK 


OUTTAG 

CM/FLAGS 


SIGNIFY WTLST ENTRY 

IS SYSTEM DISABLED 


0 9 31 


15,3653 0 0006 1 


EXTEND 


0932 


REF 


LAST 1088 


15.3654 


64 3 


BZF 


JETACTN +1 



YES , QUENCH RGLL 
NO , CONTIW^ 

AI POS . CtLy “=+0 




OTT 


TTCm 


OEAD“ZOME ET^PTES COME 






TiTST 


1 ",3 65 7 ^ 1700 0 DZCALL 

T 573.:.60 7 5017 0 — = 


T 3 


C TO AP^TT 


PnSSTBUE 



CMDAPKarJ 


1 . + 0 , -0 


MASK "FTTI 


LAST lOM 

LAST 




0'V356 


■RTF 

FFF 





0935 T 


0935 8 

0935 ’^ 


TFF 

RTEF 


TT5 


LAST 1089 
LAST iOBF 


15,3661 

1 5'. 3 66 2' 

15t366T 

15,3664 


54 GOT 1 

5mRKrT 


IT 



0 9 3 {' 
A 0936 I 


TTFF 

RTF 


XT 6 

— F 


LAS3 10B9 

LAST I072r 


15,3 46F 

15, 3666 




■ X^TAST 



TFTTFFT 

r5,3"6T0 


F^TTTFn: 

50 ooru 

0TJ0~1T 

rxi 

IT 

0 



L 

“A 

“RUT 


C(L)=0 FOR -0; C(LJ=1 FOR -I OR 

ERASBLt ORObR : RULLTRVROLLC . RULLC + 1 .' 
GET ROLU /180 OR FOTL C "^ 1 / 360 ) . 




6 “ 

0 2 5 2'2 


Ty 

TO 


7 T 

r 




TTT 

TS 


ANGOVCnP 

ROLLHaiD 


m 

TBOTH MUSI BE SCALED ' 

Cl A)=RGLL/180 or Z 
TF“CMDAPMOn 



0, ysvb rgll angle. 


COMMAND. 


093 6 2 

TEFTT" 


R EF — R 1 5 XASl 108 B 




n 9 39 
U9TO 


RTF 

RFF 


O 


RTT 


TTTTT 


T 


TXT 

~X 


LAST lO'SF 
LAST 1036 
r A^ ST ■ 1 0 B 6 


T5T3TTT 

15.36 fZ 

15,3673 


3 5021 

cr~oo"oy 



15. 3T.T4' 
15. 3 67F 

r >,36 /6 


1 

01 006 O' 
55*' 567 '0 
FXtTTFTJ 
0 T6'4T'T 


TTA 

EXTEND 


T~PTT 


WRITE 

T S 


DZCALLT ^ TS 


RGLLJEI S 
VOI /180 
"JE TAG 


COME HERE TF IN UZ . ANU CANCEL JETS 
IMHINT NOI NbhUEl ) HERE ". __ 

TURN UbF ALL RULL Jb ' I ' F : 

Scl =O TU SHUW IN DEAD ZONE. ■ 

TH crAr=o. 



TC 


RULLOUN 
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P0942 


CM ENTRY FOAT DISPLAY 



R0045 


calculate by integration the RniL EP7RriR BETWEEN THE 2 SEC CM/RCS UPDATES . D I SPLAY ATTITUDF ERRORS AS FOLLIQWST 

ATM OAf^: ^ ‘ 




DISPLAY ONLY ROLL ATTITUDE ERROR 


P09A/: 


A 


EXT ATM DAP: 


PRESENT 3 ATTITUDE FRRORS RELATIVE TO THE 




XE^E'ACFm^TTrr 


R0948 


ROLL 


ROLLC-ROLL 


R0949 


PITCH 


R0950 


YAW 


ALFAC-ALFA 
PE TAG- BET A 


R0951 


DURING ENTRY, 


R0953 


THE SUBROUTINE NEEDLFP 


THE FDA I NE OLES HAVE FULL SCAL»^ OF 57,5 DEG IN ROLL ANT5 

EXPECTS (ANGLE/IBOJ AND SCALES TO 16.875 DEG 


rS". 875 
FUTL 



TWITCH AND YAW 



ZSrRTUPDATE^ 



0961 



LAST 1082 


15,3701 7 1506 1 


CALFA 


FOR ASSUMED COORD I NAT lORT 



0964 


LAST 1082 


15,3/04 



A0965 


EDI 


AT ABOVE LOCATION. 


0966 

WT^ 


REJ 


C 


7 LAST logo 


T57T70? 3 5002' 0 CM/FDA t'i C.h HA 

13.i7f)A — 0 00 OA. I EXTFiMD 



0 9-S 


09Ai9 


REF 


B LAST 1090 


IS, 3707 


1 


Ts.TTTI) 


7 1 7 1 A 1 


IT 


PAXERRl 
PXXEIT 


full SCALE FOR 



(ROLL) IS 67.5 D 


. ( Rucr'^BTRwn 3 0 ) for fdai nfedle 


A0970 

A0971 


Program to file body — rates for tm on one pass"antt 


TTTTf P‘0 A T F THE N E E UL c"TT I S P L A Y OTJ' THE ^TIFXT 


A 0972 


T7NCHRTWTZATI0N WITH CM/RCS IS USED SU IHAI *HE”TM 


A0973 

A 0974 


IS DONE IT ITH T HE ROLL SYS ! EM AND NEEDLES STARf UN 


THE^STJBSTQUETTr PASS 


A 0'9 75 





TTFF 

RE] 


4^ 


LAST 10R6 
ITATTrCPJO 


T5 , 371 1 

T57T7TZ 


4 0305 0 CM/DUMPR CT 


COMBINED ALTERITATTOTT" SWITCH AND’ FILE 


WTT 


5'4”T aE T7 

0 0006 1 



1 5 , 37T3 
TT, 3Tr4 ~T TTZirr 


I s 

EXTEND' 


TW/NHX 


BTMF TTMT^IXE 






INDEX. 

FILE STARTS WITH SW/TNDX +T THTT 
BN DfBTTF; ■ 



A0980 


INDEX IS POS FOR NEEDLES 


0 9'S I 


093? 


9 FT 

RTF 


T9 CA S I 1 0 T^T 


IS, 371b 


10 LAST 1012 


T 


■> , 3 / 


16 


0 4 74n"'TJ 

4? 420 r 


TC 

TTSTTF 


IBMKCFCL 


N F c 15ETR 



RFF 


r 


T5T37TT ^ D^TTTT 0 


TC 


X H TBNU 


A 0934 


INDEX "TS NEG FOR IM FILB 


0985 


REF A 1 LAST I Ob 4 


mm 

wrrr 


tttttto — 6 62'uru 

0 OUO^fTT 


CMTMFILE AD 



EXT EW 





T 


TTT3 


777 


o 


B7-MF 


TAVHNITX 
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L 

** M r 

U ' U 

NTRY 

DIGITAL AUTOPILDT 






USER'S PAGE NO. 29 

E6 S3 


— — » — 

0983 

REF 

17 

LAST 

108 7 

15t 3723 

3 0025 

0 


CA 

TIMEl 

INITIALIZE THE TM LIST IN UPBUFF. 


0989 

RtF 

3 

LAST 

72 

15.3724 

54 3 04 

1 


TS 

CMTMt I ME 




0990 

REP 

3 

LAST 

871 

1 5. 3725 

4 5025 

1 


CS 

THIRTEEN 

INITIALIZE COUNTER 



0991 

REF 

5 

LAST 

1090 

15,3726 

54 305 

0 

SAVENOX IS 

SW/NOX 

A NEGATIVE NUMBER. 



OO'IZ 





15,3727 

0 0006 

1 


EXTFNO 





0993 

keF" 

8 

LAST 

1081 

15,3730 

3 1702 

0 


DCA 

PPEL 




0994 

RFF 

6 

LAST 

1091 

15,3731 

50 3 05 

1 


INDEX 

SW/MDX 

- - - - II ■ ■ 1 ==a. , 



0995 

RE = 

2 

LAST 

72 

15.3732 

52 324 

0 


DXCH 

ENOBUF -1 




0996 

PEF 

8 

LAST 

1078 

15,3733 

3 1703 

1 


CA 

RREL 




0997 

REF 

7 

LAST 

1091 

15,3734 

50 3 05 

1 


INDEX 

SW/NOX 




0998 

REF 

3 

LAST 

1091 

15.3735 

54 325 

1 


TS 

ENDBUF +1 


* 



0999 

PEF 

3 

LAST 

1073 

15,3736 

3 1623 

1 

CM/END CA 

CM/SAVE 




1000 

REE 

19 

LAST 

1034 

15.3737 

54 021 

0 


TS 

SR 




A 1001 










DOES 

NOT PROTECT TEMK, SQ IN 5PSIN/C0S 

— ~ 



I1 


rooz 

1003 

1004 


TUTO 


iwr 


1007 

AlOOB 


A 1 007 


AlOlO 


A IDTI 


A1012 


ArOTT 

A1014 


A1017 


A1018 


A10I9 


A 107TT 


WTOTT 


RFF 


1 


LAST 1072 

^ 46 last 1062 


1^43740 
15.3741 
1 5 , 3747 


0 00Q 6 °T 

3 3745 1 
53*313 0 


Fxr 

DCA 




OXCM 


T5TOLER2 
T5 



T5T3 74^ 0 5333 1 


T 



RTF 2^ 



LAST lo^r 
LAST I 


TTT? 



15,374'4 


tN^= T5L0C 

03153 0 T5I0LER2 ?CADiT T5IOL0C 




12062 0 


HEFINE THE FOLLOWTW 



REGISTERS IN UPBUFF I U 


IJ3 Firnri TFTE^ t T t R CW TtfflfJLb BUOY RAJr' iNFCikMATIUN 
T HE I NFORMATION IS FILci) EACH 0~r2~Sr-C. GIVING 15D ' 
DAI A RUINTS^EACH 1 SEC^ fM HSI IS «bAD TWICb 



IHt SbOUENCE TST 


SP TIME 
SWITCH 


INITIAL TIME 



F 

IT 


ALSO INDEX. 
ROLL RATE 


R 


PilCH KATb 

YAW RATE 


FTCT 


CMTMTrmr^ 


UPBUFF 


SW/NDX 

ENDBXJF 


UP BUFF 

TJPBUFF 


n 

+ 160 
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L 

CM EMTRY DIGITAL AUTOPILOT 





USER'S PAGE NO, 30 E6 S3 




P 10?1 1 

SPAOrR 





















R1022 

CONSTANTS USED 

IN THE ROLL CONTROL SYSTEM: 






R1023 

CONSTANTS ARE 

THE FOLLOWING: A = "-1 

deg/secso. 

VM 

20 DEG/SEC, 

T = 2 SEC, TCDU = .1 SEC, 



R102'5 

XMIN = 4 deg, 

VMI N 

= 2 OEG/SEC, K = . 

25* 

A1 = 4. 

55 D 

eg/settso; 

VT = 1 DEG/SEC. INTERCEPT WITH DZ SIOE 



R 1027 

XBUF = 4 OEG 











102 3 



15,3746 7746^ 

1 

-T-3 

DEC 

-203 

CS 



102 - 



15.3747 00012 

1 

VSOMIN 

DEC 

.61050061 e-3 

VSO MIN/4 A PI = 4/(4 (9.1 ) TW) 



1030 

REF 5 last 

568 

5033 


2 T/TCDU 


0CT50 

T/TCDU EXt^-l4 TCDU =.1SEC 



1031 



15,3750 23617 

0 

180/ft ATT 

DEC 

.61813187 

180/rB “FT. IT 4) = (180/ATT) EXP -3 



1032 

REF 2 LAST 

1084 

15*3753 


-VMT/180 


-VM/360K 

= 20 (2) / 180 



1033 

RFF 3 LAST 

886 

5045 


2 JETT 

= 

4SECS 

CS 2 (2j 100 Integer 



103^e 



15,3751 01440 

0 

4JETT 

DEC 

800 

CS 4 (21 100 INTEGER 



1035 



15.3752 00266 

0 

XMIN/360 

DEC 

182 

XMIN/360 = 4/ 360 EXP 14 = 132 INTEGER 



1036 



15,3753 70706 

1 

-VM/360K 

DEC 

-.22222222 

=-20/( 360 (.2511 



1037 

RFF 4 LAST 

1085 

1 5,3750 


1/16A1 

— 

180/3ATT 




A 103 71 







1/16A1 

= 180/(16 A1 TTl 



A1038 








= lS0/(l6 4*55 41 



103<i 



15*3754 O0l33 

0 

X 

o 

TTFT 

91 

= rXMlN ■•'VI (T — l/Kll/360 — 2/360 tXF 14 



10^0 

RFF 2 LAST 

1084 

15, 3754 


BUFL IM 


XS/360 

4/(2 














r(T4r~ 

RTF R LAST 

1 09 0'~ 



"KTin::^ 

— 

HALE 

KT = (,251 2 = .5 




*** end of TVCnXP^ ■. DT 1 
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L 

nnwN-T LEMETRY PROGRAM USER’S PAGE NO. 

1 EO S3 



ROOOl 

PROGRAM name- DOWN TELEMETRY PROGRAM 



R0002 

MOD NO,- 0 TO completely REWRITE THE DOWN TELEMETRY PROGRAM AND DOWNLINK ERASABLE DUMP 

PROGRAM FOR THE 


R000=+ 

PURPOSE OF SAVING APPROXIMATELY 150 WORDS OF CORE STORAGE. 



R0006 

THIS CHANGE REQUIRES AN ENTIRELY NEW METHOD OF SPECIFYING DOWNLINK LISTS. REFER TO DOWNLINK 


R0008 

LISTS LOG SECTION FOR MORE DETAILS. HOWEVER THIS CHANGE, WILL NOT A^^FECT THE 

GROUND PROCESSING 


Ronio 

Of DOWN TOLfMETRY DATA. 



Roon 

MHO 3Y- KILROY, SMITH, DEWITT 



R0012 

DATE- 020CT67 



R0013 

AUTHORS- KILROY^ S'MTH. DEWITT. DEWPLF. FAGIN 



R0014 

LOG SECTION- OONN-TEL EMETRY PROGRAM 



R0015 

FUNCTIONAL DESCRIPTION- THIS ROUTINE IS INITIATED BY TELEMETRY END 



R0016 

PULSE FROM THE DOWNLINK TELEMETRY COMVERTEP . THIS PULSE OCCURS 



ROOT 7 

AT 50 TIMES PER SECI EVERY 20 MS) THEREFORE DODOWNTM IS 



R0018 

EXECUTED AT THES'F RATES. THIS ROUTINE SELECTS THE APPROPRIATE 



R0019 

AGC DATA TO BE TRANSMITTED DOWNLINK AND LOADS IT INTO OUTPUT 



R0020 

CHANNELS 34 AND 3^. THE INEORMATION IS THEN GATED 3UT FROM THR 



R0021 

LGC IN SERIAl FASHION. 



R0022 

THIS PROGRAM IS CODED FOP A 2 SECOND OOWNLTST. SINCE DOWNRUPTS 



R0023 

OCCUR EVERY 20MS SND 2 AGC COMPUTER WORDS CAN f)L PLACED IN 



R0024 

CHANNELS 34 AND 3^ DURING EACH OOWNRUPT THE PROGRAM IS CAPABLE 



R002o 

OF SENDING 200 AGC WORDS EVERY 2 SECONDS. 

» 


R0026 

CALLING SEQUENCE- NONE 



■ ROTTTT ■ 

PROGRAM IS ENTERED VIA’TCF OODOWKITM WHICH IS EXECUTED AS A 



R002B 

result OE a riOVTNRUPT. CONTROL IS RETURNED VIA TCF RESUME WHICH 



R 0 0 2 2 

“TN’ EFFECT IS A RESUME. 



— FTDXl^TT ^ 

■ SUBROU’^ITIES" CALLED- NONE 



— RMn — 

NORMAL EXIT HCTDe- TCF R’-SUmE 



ROO 12 

ALARM DR ABTTRT'EXIT MHL'h- NONE 



R0033 

kesIaKT P^^nTEClIDN: 



— R00i4 

UN A FRpSH START ANI^ RESTART THE 'STARTSUB' SUBPOUflNb WILL INIIIALI/E iHb UUWNLISI 

HUl N > EK ( AL t UALLY 


H 0 ! ) i ?5 

ITNTMGOliJ) ILI THE BETTirmNr, OF IHb CUL>RENT DOWNL 1 5 T M . E . CUKRfcNI CUNJENIS V’F UNLSIADKJ. mib MA:^ mt 


KU038 

EFFECT aF"lGNURlNG THE REMAlNOtR OF TFTF “DO W1SIT TS 1 WHICH THF'DOWN-TEL EMFTkY PROGRAM WAS WORKING uN WHEN ________ 


— R0040 

THE "RESTARTI Ok ■'P-ESH START)" OCCURR'E'iT AND RITUME DOWN TELETTFIry from the BEGINNING Of the CUkkeni 


— ROO'fZ 

■ DOWN! IS 1. 

' 9 ■ '-m 1 mm ip'i ■ — — — - — — " * ' ' -■■■■■ ■ 1 


R0043 

AXSO UF IN! erf ST — IS THE FACT THAT ON TA KFSTARl THE AGC WILL AtKU UIJHNLINK CHANNELS 

13, 34 A ND 35 • 


— R004/ 

downlink list SEL'-CTION: 




THE APPROPRIATE IT^WNLINK LISTS A31E FELECfbU 3Y THE FOLLOWIFIG: 



R 0 

1 . FRESH START 



— ROObO 

■ 2TVT7rXXc WHERE XX = THE MAJOR MODE BEING StLECTbO. 



R00'5I 

T. UPUAlt PRUGkAMI p-277' 



R0052 — 

T; NON-VTT' SL-LECTABr- — rYTF PROGP AMS ( E . G. AGS IN IT XArTTATTUNl SUNDANCE . LUMINARY) 

Anu P61-P62 


— ROOT.rT- 

IRANSn TON (COLOSSUS) ETC. I'. 



R 0002 5 

“OOWNLINK List RULES ANUnrrHTTATlUNS: 



R0052S~ 

■R'E'AD SECTIONTST WHTCH FULLOW ‘nETIKTS^ WRTTRJP. 



— ROOS'J — 

UiJTPHI- EVERY 2 SECONDS 100 DOUSLt PP'ECISIUN WUROSll.E. 2U0 LGt 



R00S4 

CrjM^UTEK “WOFIJS) A^T TRANS MI TTFD”VTA DOWNLTNK. 



RTTOTS — 

CRASADL'^ INTI lALlZATION REQUIRED- NONE 



KUU5o 

'DNIMGUIU' AND 'DNLSIAUk' ARE INlllALlZbD BY iHb F ’tSH SlAFI KKUGRAM. 



R005B' 

DEBRlirTmaSABLE LOCATTDNS ■ destroys C r BY' THIS "PROGRAM)- 



R0051 — 

LDATATST.DNTMBUFF TO DNTMBUFF +21D.TMrivrDFX . DA’ Q . 
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L 

nOWN-TFLEMETRY PROGRAM 


USER’S PAGE 

C\i 

1 

• 

b 

EO S3 



R0060 























ROlOl 

ROlOi 


R 0 VJ^ 


vruim 

Tl 0 T (TT 


ROlO ) 
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L 

nnWN-TELEMtTRY PROGRAM USEP»S PAGE 

NO. 3 to S3 





P005J 

OODOWNTM IS ENTERED EVERY 20 MS BY AN INTERRUPT TRIGGERED BY THE 





RODS 6 

RECEIPT OF AN EMDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER. 






R00fc7 

NOTES REGARDING DOWNLINK LISTS ASSOCIATED WITH THIS PROGRAM: 





R0068 

1. OnWNLISTS. - DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE 





R0069 

DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER 





R 0070 

EXECUTION. 





ROOTS 

2. EACH DOWNLINK LIST CTjNSISTS OF A CONTROL LIST AND A NUMBER OF 





R0076 

SUBLISTS. 





ROOT? 

3. A SUBLTST refers TO A SNAPSHOT OP DATA COMMON TO THE SAME OR OTHER 





ROO'^B 

DOWNLINK LISTS. ANY SUBLIST CONTAINING COMMON DATA NEEDS TO BE 





R0079 

CODED ONLY ONCE FQ!-? THE APPLI CABLE OOWNL INK LISTS. 





R0080 

4. SNAPSHOT SUBLISTS REFER SPECIFICALLY TO HOMOGENOUS DATA WHICH MUST BE 





ROO^l 

SAVED IN A BUFFER DURING ONE DGWNRUPT. 





R0082 

5. THE ION ADR FOR THE 1ST WORD OF SNAPSHOT DATA IS FOUND At THE END 





R00B3 

OF EACH SNAPSHOT SUBLIST. SINCE THE PROGRAM COOING SENDS THIS DP WORD 





R0084 

IMMEDIATELY AFTER STORING tHE OTHERS IN THE SNAPSHOT BUFFER. 





R0085 

6. ALL LISTS ARE COMBINATIONS OF COOED ERASABLE ADDRESS CONSTANTS 





ROOBS 

CREATED FOR THE DGWNLTST PROGRAM. 





R0087 

A. IDNAOK 1-WGRD DOWNLIST ADDRESS. 





R0038 

SAME .'\S ECtADR. BUT USED WHf-M THE WORD ADDRESSED IS THE LEFT 





ROOS^ 

"HALF f)F A OOUBLE-PRFCtSluN WORD FOR DOWN TELEMETRY. 





— k 00^0 

fi. 2DNA0R - 6DNAD^' ’ N-WOnn DOWNLISt ADDReSS. N = 2 - 8. 





R0091 

SAME AS'lDNADR. BUT WITH THE 4 UNUSED BITS OF THE ECADP FORMAT 





ROO'^T 

“TILLEO IN WITH 0001-0101. TO POINT TO A LIST OT N DOOBLf- 





ROEPTB 

PRPCrSTQinTOPTiTS. ^TORTT) XTTNSETimV'^LY, FDR OOWN" TELt:MbTKY. 





R 0 0 * 4 

C. ONCHAM O'lWNLIST rHANNFL ADDRESS. 





K009b 

SAME AS lUNADR, ■ BOriTITR PREFIX BUS UlTT. UStU lU PUINI lU 





R009<S 

A PAIR DF CHANNhLS KOiX'OOWN TtLENtTRY. 





— R0037 

D. DNPTR Down TELE<^FtRY SUBLIST r’OINTEK. 





— R0098 

SAXF^ASXTATTDT TAGGtO AS A CTTNSTTINmrSt D TTT CDNIRDL" LISTTD POINI ru A SUHUSI. 





R 0 100" 

X:TirrTDT!--- A DNPTK-CANN'‘‘T be USTO IN A SUBLIST. 





77 THE WUP.D ORDER C'lDE IS SET TO ZERO AT THE BEGIMNlNG > JF EACH 

A ttDNADR TTHE2* IS 0^-tECTEU I THE XONTRDL LT'SHONLYy. 

B. IN mE ~SITAF5FmT~SUBLIS i <1NILY . THF OTATTRTTT^^Cirf^^^ 



U UH ANY EBl^m 


ST' 


DUW .ML i 7^ 

— rmi^FnroivrnsRrTC i n r s'ttay 3E listed ELSTmtRF 
— um 



Ft'rrSTEO HERE 'SO 



S CLEAR THAT THESE THINGS CANNOT 'BT 



R 0110 
ROliV 


1. SNARSHUI UUWNLISJr 

— (A1 CANNiJ T CHN I AtM Tl -li: ir t : AOKS ( 1 . fc. IDNAHi^'S): 0. 400» lOUO. iwu. ^uuu. 3UI)U. :iZOTT7 


n 


T3 


( B )■ C ATT C f JN 1 A 1 N “UNEY'TTn 


R 0 ITT 

KOI IS 


ALL OOWNLINKbU UATAIcXc 



F Q U I V AL EN I I'J F IHt HULLnwiNG cCATIRTCKE; TON A UK SI : ' 3 77. 777 , 


TTf THF 

r 1777, 2377, 27777, 3377, 377T7 


KOI IB 


(NUIb: I’HE IbRM FUUlVAL"FRn • 'itAMi TFOTr 


nTE — I MM A OR III bONAlOK WILL BE KKULESSfcU Llf^t 1 lu a bcADKST 


TOrTTO 


Tr^TTiirrFDTTTSTS- ANU SU -3 rS TTXAMM^T KA'VF- FNTRTES = nCTAX'TJOOOO DIT uCTAL 11111 
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L 

DOWN-TFLEMETRY PROGRAM 


USER'S PAGE NO. 4 

EO 53 



P0122 

A. THE 'lONAOR TIHP2' WHICH WILL CAUSE THE DOWNLINK PROGRAM 

TO SET 

THE WORDFR code TO 3 MUST APPEAR IN 

THF 


R0124 

CONTROL SeCTION OF THE DOWNLIST. 






R 0 1 2 5 

5. * ONCHAN O' CANNOT BE USED. 





. ■ 1 — 

R0126 

6. 'DNPTR 0* CANNOT USED. 











R0127 

7. DNPTR CANNOT APPEAR IN A SUBLISF. 






R0128 








R012 R 

E3ANK SETTINGS 



yw i ^ ^ 


R0130 

IN THE PROCESS OF SETTING THE EtiANKIvIHEN PICKING UP 

DOWNLINK DATA) THE DOWN TELEMETRY PRJGKAN 

PUTS 


R013? 

•GARBAGE* INTO .3ITS1F-12 OF FRANK. HUGH BLAIR-SMITH 

WARNS 

US THAT 31TS15-12 OF EBANK MAY BECOME 


R0134 

SIGNIFICANT SOMEDAY IN THE FUTURE. TF/WHEM THAT HAPPENS. 

THE PROGRAM SHOULD INSURE! BY MASKING 

bIC. 1 

- 1- 

ROl 3 6 

THAT BITS IS- 12 OF EBANK ARE ZERO. 





R 0 1 3 7 

INITIALIZATION REQUIRED- TO INTERRUPT CURRENT LIST AND START 

A NEW 

ONF. . 




R0)33 1. AORES OF DOWNLINK LIST INTO DNLSTAOR 


R01.39 2. iMEGONc INTO SLI^^I.IST 

ROl'tO 3. NEDONE INTO DNECADR 


TTTPrra “btsnk tt 


0143 

REF 

2 

LAST 170 

05,2000 




SETLOC OnWNTELM 



0144 




05. ?571 




BANK 




0145 

REF 

23 

LAST 179 

0 3 40 




E8ANK= DNTMBUFF 














0146 

R bF 

1 






CnUNl 05/DPR0G 




0147 

REF 

21 

last 1073 

05s 3521 

5^4 0 1 6 

~T 

OODOBNrnT 

TS BANKRUPT 



01 4 A 




05,3522 

0'U(3TT6 

7~” 


“EXTEND 



0149 

REF 

TT- 

LAST 1073 

. 35 23 

22 01? 

i 


gXCh u^uPT 

SAVE 0 


0150 

l?FF~ 


LAST 1057 

03*35 24 

7 30Tr 

1 


C A B I T7 

St“T WUKL) OKuEi^ oUlJt TQ !• EXCtPrION At 


0151 

■ 



05,3525 

0 on 06 



EXTEND 

THE BEGINNING OF EACH LiSi IHt WLIRU 


OlSS 


TT” 

Last 1062 

05*3526 

05 on 

0 


WQR CHAN13 

CODE WILL BE SEI BACK TG~0. 


0153 

REF 

“T“ 

Tsirr z¥u 

03 f 3 3 2 T 

0 C)33 V 

“T~ 


"TC DNT^TGDTTr 

GO TO APPRUPKIATE PHASE UE PKUGKAM 













0134 

TeF 

17 

TV5T 971 

05,35R0 

'i 7716 

"IT" 

DHPHASbl 

CA NLGONE 

INITIALIZE ALL CUNlKUL WUKIJS 


OlES 

^ “RbF 

1 



55, I3T 

1 


“TS SUBLIST 

WORDS TD MINUS ONE 


01 'TS” 

REF ■ 

1 


■TTTTT5TZ” 

54 3 37) 

cn 


"TS ^ ON E CAUR 



0157 

R^F” 

1 


05,3533 

3 3 6' 53' 

"T" 


"TTA LnNPHAS2 

SET DNlMGClTU =□ ALL SUBSLOUENI UUWNKUP 1 S 


0TT8" 


4 

last 1096 

0 5,3 53 4 


0 


TS DNTMGUIU 

GU TO DNPHASE2 


- (JY5V 

REF"~ 



nj57T5T5“ 

1 ^ ^ 1 

7" 


1 CF NE WL I S 1 



0150 




LAST 10^6 

05, 3536 

10 3 3 6 

H" 

nNPHASfc2 

CCS ON EC A Ok 

SENOTfld i.IE DATA IN PKGtsKESS 

- — % a 1 r* % * * , — » ■ If"!! ^iir* ^ — r* n — 11 ini r5 n o 


rrnsT 

FTEF 



05,3537" 

■0~316^ 

“T" 

DODNADR 

tC FETCK2WD 

YES — IHEN EEICh 1 he next 2 SP WUKUS 


0X57“ 

REF“" 

"77“” 

LAST-' 8T2 " 

05 f 3 '^40 

TT753” 

~rr 

MINI IMF2 

-IDSTAOR TIMF2 

NEGATIVF Op TInE2 luNAUK 


016 3 




05.5541“ 

i 3 542" 

~ir 


T E +1 

( bCAUK Of 3 f ft /4001 = fffff) 













OTW 

RLE ■ 


L A^T 1 (yjn 

05, 3 

10 i iT 



"CCS SUBLIST 

is ThE suBLIsT in CONTROL 


. _ — .. ■ ■ ■ ■ ■- — ■ 1 
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DOWN-TELEMETRY PROGRAM 


USER'S PAGE NO 


EO S3 


0165 

REF 

1 



05,3543 

1 3701 

0 


TCF 

NFXTINSL 

YES 


0166 





05,3544 

76001 

0 

DNAORDCR 

oct 

76001 

DNADR COUNT AND ECADR DECREMENTER 



0167 

REF 

1 



05 , 3 54 5 

3 03 34 

0 

CHKLI ST 

CA 

CTLIST 



0163 





05»3 54E'> 

0 0006 

1 


EXTEND 


\ 


01t>0 

REF 

9 

LAST 

1096 

05,3567 

6 3551 

0 


BZMF 

MEWLI ST 

IT WILL BE NEGATIVE AT END OF LIST 


0170 

REF 

1 



05,3550 

1 3556 

0 


TCF 

NEXTINCL 



0171 

REF 

6 

LAST 

792 

05, 3551 

50 3 32 

0 

NEWLI ST 

INDEX 

DMLSTCOO 



017 2 

REF 

1 



05,3552 

3 2335 

0 


CA 

ONTABLE 

INITIALIZE CTLIST WITH 


0173 

REF 

2 

LAST 

1097 

05,3553 

54 33A 

1 


TS 

CTLIST 

STARTING ADDRESS OF NEW LIST 


017A 

REF 

7 

LAST 

1097 

05,3559 

4 0332 

1 


CS 

DNLSTCGD 



0175 

REF 

1 



05,3555 

1 3771 

1 


TCF 

SENDID +3 



0177 

9 i- 

3 

LAST 

1097 

0 5 1 3 5 5 6 

50 334 

0 

NEXT INCL 

INDEX 

CTLIST 



01 ' P 





05,3557 

3 0000 

1 


CA 

0 



0179 

PFF 

"260 

1. AST 

1089 

05,3560 

10 000 

n 


CCS 

A 



0180 

REr 

A 

LAST 

1097 

05.3551 

24 334 

0 


I NCR 

CTLIST 

SET POlTiFFR TO PICK UP NEXT CTLIST WORD 


0151 





05,35S2 

1 3 5 66 

0 


TCF 

+ 4 

On next ENIRV T13 prog* (A SHOULD NOT —0) 


018? 

PFF 

5 

LAST 

1097 

05,3563 

56 334 

0 


XCH 

CTLIST 

SET CTLIST TO NEGATIVE AND PL ACE ICODI NGT 


0 1 3 3 





05,3565 

4 0000 

0 


cn:-^ 


UNCOMPLEMENTED DNAOR INTO A# (FOR LA# 

— — ■ - ■ - ■ 1 f ^ T "1 . 


01 

REF 

6 

L AST 

109 7 

05,3565 

56 334 

0 


XCH 

CTLIST 

{ ST IN I 


01r35 

REF 

"261 

LAST 

1097 

05, 3566 

24 000 

1 

+ 4^ 

INCR 

A 

( CTL I ST J 


otst; 

REF' 

3 

L A ST 

1096' 

05.3567 

54 336 

0 


"TS 

dnccaor 

SAVE DNADR 


0 1 3 7 

REF 

1 



— F5 , 3 5'TO ■" 

6 3540 

0 

AD 

M I NT I M E2 

TbST FUR TIME? (Nb(7* OF ECADR) 


01 .(8 

R EF 

26? 

LAST 

109 7 

05,3571 

10 000 

0 


~CCS 

A 



0 1 o9 

RFF 

1 



05, 3572 

1 357F 

1 


"TCF 

S E T W n +1 

DON'T SFT WORD ORDFX CODE 


cnrro 





05,357T“ 

47777 0 

MINSni'A 

GOT" " 

4 7 77 7 

MINUS BIT 13 AND 14 (CAN'T GET HuREl 


mm — 

rET 

T~ 

last 

109 7 

05,3574 

1 3576 

1~ 


TCF 

S E T W G ■♦'1 

DON'T SET WORD ORDER CODE 


um 

REF 




0 5 , ? 5 75 

TT 7670" 

"G 

SFTWO 

TC 

W 0 Z E R 0 

GU SET WDRU URUER LUUE TO ZcRD* 


wm 

REF 


"LAST 

1097 

~XT5‘,35 76" 

3 TT77'5" 

“T” 

+ 1 

~imr 

□NEC ADR 

keluad a with 1 hE UNADR* 


crpn;^ — 

r6F 

— r~ 



— 05,35T7” 

o 3571 

0 

+ 2 

TG 

rM I ^ J B 1 3 1 4 

iS THIS A regular DNADR? 


DTW 





— 05,360t)'' 

m WOT) 

r “ 


XTCTENG 




— 0 1 


— p- 

LAST 1096 

05TT6T) r ■ 

■■5"7"6T5“ 

1 


37^F 

FETCHPIJD 

YES, (A MUST NEVER BE 7tRu) 


OTTT 

REF 

— r“ 



05,3602“ 

6 7 710 




MI NBIZ 

NO- IS IT A POINTER (DNPIRl 0^ A 


■ 





— 05,3603 ■ 

0 0006 

~T~ 


EXIT NTT 


CHANNEL! DNCHAN ^ 

a -a- ■ — r* — n fci'ri I'l — — It 1 Ml IJg n 1" T X FT ^ * 


0i<T9“ 

PFF' 

1 



■■■ U5,T60A 

"6 3624 

T 


TTTMF 

DGDMPTR 

IT'S A POlNIbR, (A MU SI N t V b K BE Z b U 1 


^ mm m ^ ^ ■ a • ^ 1 T r — A ^ t rit' 1 t ' 

OTITO 





— 05,3605 " 

0 00 06 


, jf , • ^ 1 1 " 


6 

ItACuUItJJ AO CAlCNUJ 11 ^ UnAINJMCL 


UZTT 

T — 

■ "S'- 

LA^X 

1097 ■ 

05 .3'6106 

"FO FTF 

mm 


TNOEX"" 

□ N bC A DR 



JJ7U2 





— 05.360/ 

44' 000 



INDEX” 

0 -4000 

(EXbCUIbU AS kEAITj 


0203 


nirr 

LAST 

1 OEV~ 

05, 3610"” 

56 001 

~T~ 


XX — “ 

L 



OTTTf 





■ 05, 361 1 ■ 

G 00116“ 

mm 


TC 

6 

(EXECUTED AS EXTEND) 


0705 — 

RTF" 

6 

LAST" 

lOP / ■ 

— 05.361:7 ■ 

50 

m~~ 


INDEX ' 

□NbCADR 



CTZOTT 





05,361 3 ^ 

'43* 777 

1 


"TMTcX" 

0 -6001 

( E X b C U 1 t D AS R t AD 1 


OZOT^ 

■ REF' 


LAST TCrOT^ 

05 , 3 614 

F4 336 

0 


T5 

DNECATTR 

S E II UNECADR 


mm 

PFF 

IB 

L AS'T 

10F6“ 

— 03,3615 

3 7716 

15“ 


TTS 

NEGUNE 

rO MIMJS 

— -■ ■■ T 11 ■ f 1 ~T*~ — r^r^i* \ t T M Ji 



RTF' 


LTTST 

1097 ■ 

0 5 , 1616 

56 3 36 

“T“ 


"xm 

□Nbt AUK 

WHTLb PRESERVING A, 


c 

IN. 

REF 

— r 



— 05,361 7 

“T 3 714 

X " 


XCF 

UN 1 MbX IT 

GU SEND CHANNELS 


■ ■ .1 

— 0 2TI” “ 

FEF 

42““ 

TTLST 

1X9^“ 

05,30 21} 

7r"^iTm 

“a 

WnTEFTT" 

cx 

H 1 f 7 



OTTT^ 





0 0 , T5FT' 

“OTrrTTTXT “ 


EXTEND^ 


■■ - . — 



GAP: 

ASSEMBLE REVISION 0E5 

or AGC PR 

HGRAM C 

‘IMAMCHE BY 

NASA 2021U3-051 

10:28 APR. 1.1969 CHIEFTAN.028 PAGE 1098 



L 

OOWf 

vl-TEL 

EMETRY 

PROGRAM 





USER'S PAGE NO. 6 EO S3 



0213 

REF 

13 

LAST 

1096 

05t 3622 

03 013 

0 

WAND 

CHAN 13 

SET WORD ORDER CODE TO ZERO 

- - - - 11 - ■ — — . 1 ■■■■■ r— ' - ... - 


0?] 4 

K EF 

2L4 

LAST 

1035 

05,3623 

0 0002 

0 

TC 

Q 

RETURN TO CALLER 



0213 

'"EE 


LAST 

10'^ 7 

05 , 3624 

50 336 

1 DOONPTR 

INDEX 

ONECADR 

DNECADF CONTAINS AUHES Uh SUbLlSI 


0 ?. 1 6 





05t3625 

0 0000 

1 

0 

0 

Clear and ado list entry into a. 


0217 

R FF 

2 63 

LAST 

1097 

05,3626 

10 000 

0 

CCS 

A 

IS THIS A SNAPSHOT SUBLIST 


0218 

REF 

10 

LAST 

109 8 

05,3627 

3 0336 

1 

CA 

ONECADR 

NO, IT IS A REGULAR SUBLIST. 


0219 

R t F 

1 



P5 , 3 S30 

1 3700 

1 

TCF 

DOSUHLST 

A MUST NOT .ZERO. 



0220 

REF 

11 

LAST 

1098 

05.3631 

56 336 

1 

XCH 

DNECADR 

YES, IT IS A SNAPSHUI SUBLISI. 


0721 

PEE 

3 

LAST 

1096 

05,3632 

54 337 

1 

TS 

SU3LIST 

C{ONECADR> INTO SUBLIST 


0222 

REF 

216 

LAST 

10P9 

05,3633 

3 5021 

1 

CAE 

ZERO 

A INTO A 


0223 

REF 

2 

LAST 

73 

05,3634 

56 336 

1 

XCH 

tmindex 

(NOTE.. TMTNDEX = DNECADR I 















R02?4 


RQ226 

R 022 .: 


R02 30 


THh FOLLr]WIMG CODING (FROM SNAPLQOP TO SMA^NT)HS FOR THF^PURPOSc OF TAKIMG A SNAPSHOT OP 12 DP REGISTER^ • 

OnNF BY SAVING 11 DP REGISTEKS IN DNTMBUFF ANO SENDING THE FIRST OPWORD I MMtDIATELVT. 


THIS IS 

THE SNAPSHOT PROCESSING IS THE MOST TIME CONSUMING AND THEREFORE THE 


GOING AND LIST S’TRUCTURg WERE 0ESIGNE(T 


TO MINIMIZE TIME. TH!: TIME OPTIMIZATION KtSuLTS IN RULES UNIQUE TO THE SNAPSHOT PORTION OF THE QGWNLIST, 


rs u 21 :> 21 

R 0233 

1 nn o c u L ^ o m 

_ 

ONLY IDN ADR'S CAN APPEAR 

IN THE SNAPSHOT SUBLIST 



P 0234 



THP IPNADR'S CAMNOr RERITT 

TCTTHE FIRST LOCATION IN ANY BANK. 





0236 

TTF" 

43 LAST 

1068 

— 05, 3635' 

54 oo:^ 0 

5 NA PL OOP 

T5 ■ 

EBANK 

SET EBANK 


0237 

2EF 

3 LAST 

373 

05f 3636 

T 4375 7T 


MASK 

LOWS 

ISOLATE RELA! IVh ADDR SS 


0233 




05,3637 

0 0006 1 


EXTEND 




0239 

P. E F 

264 UKrr 

1098 

05,3640 

5 0000 1 


I NDE X 

A 



0240 




E3, 1401 



EBANK= 

r4cn ' 



0241 




05,3641 

3 1402 0 


“DTTA 

1401 

PICK UP 2 SNAPSHOT WORDS. 


0242 

R EF 

24- TaTT 

1096 ■ 

0340 



E B ANK” 

ONTMeUFF 


II ^ _ 

0243 

^ rt;f“ 

L ATST 

I0OB“ 

— 03.3642 

“50 '3 3 6 “I 


INDEX 

TMINDEX 



0 244 

REF 

25 LAST 

1098 

05,3643 

62 341 0 — 


DXC H 

DNT MBU FF 

STORE 2 SNAPSHUT WORDS IN BUFFER 


CTTrr 


ZT” r_XST~ 

1098 

— OBTBTTZT 

24 336 T" 


INC R 

T M 1 N D b X 

SET Buffer inOEX Fuk NEXT 2 words. 


0^T6 

RTTF” 

5“ EAST 


□3,3645 

24 336 1 


I NCR 

"TMINDEX 



0247 

R FF 

4 — CA^ 

10^“ 

— 03, J543“ 

24 337 0 

SNAPAGN 

I NCR 

S U B L I ST 

SET PQINTFR TU NEXT Z WORDS UF SNAPSHUI 


0748 


■ 5 ' f A ST 

109T" 

05,364"7' 

50 33T“0 


INDEX 

SU3LI SI 








— 05,363“0“ 

0 0000 1 


U ' 

0 

= CA SSSS (SSSS = NEXT ENfKY IN SUBLISI I 


O 

o 

REF 

265 LAST 

1098 

05,3651 

10 OgO 


CCS 

A 

fESr FUR LASI I WO WORDS UF SNAPSHUI. 


0251 

‘ "RTF" 

1 


— 0 5' , 1'6 57 

1 T6'3T 0 


TCF' 

SNSPLnop 

NUI LAs I 1 WU. 


0252“ 

PTF" 

1 ■ 


05,36'5'3“ 

OT53'5r T 

XD^rPFrSS2 

GFNATJIT' 

^JN PH AFE2 





RTF' 

6 LAST ■ 

1093 

05, 3 r, 54 

5^ 3"37T~ 


T 5 

SUBLI S 1 

YES, LAST. SAVE A. 


02 54'' 

— RFF' 

T9“[:ast 

1 09 7' 

05,3655' 

3 'T7T6 TJ 



NtGOFlF 

SIT DNECADR AND 


0255 

RTF' 

12 LAST 

TTFnr* 

0 5 j 36 56 

54 336 0 


TS 

DNECAD'R " 

SUBLIST POINTERS 


0255“ 

REF 

— 7 TAirr 

lOO'P” 

— 05,3 S"5T“ 

56 33 / ir~ 


XCH 

SUBLTSl 

lO MEGATlVh. VALUES • 


0757“ 

— RFF" 

4V LAST' 

109 8 

05, 3660 ■ 

54 0U3'"a ■ 


“TS 

EBANK 

4 



kEF 

'4 TTITT 

TWF~ 

Tl5 , 36 61 

~T' 4373 0 


'MASK 

L UW 8 



025^'“ 




OFTTFTT" 

0 0006 r““ 


extend 




02 617“ 

4 rz » 

266 LAST 

1 n ^ 

J, V J* Jr * ‘ 

05,3 6'6 3 ■ 

"T" era oiTT 


‘ INDEX" 

A 


- - 

0751“ 




ET, l^TTT 




1401 

1 L.L»»i» ■■ — 1 1 ■ 1 ^ .1 '■ ■ — ■ ■ I. — - ■ — 




























GAP: 

assemble revision 055 OF ^C 

;C PROGRAM COMANCHE 3Y NASA 2021113-051 

10:28 APR. 

ltl969 

CH1EFTAN.023 

PAGE 1099 










L 

:>nWN-TELEMETRY PSDGRA^I 


USER'S PAGE 

NO. 7 

E? S3 



0262 




0593664 

3 

1402 

0 

OCA 

lAOl 

PICK UP FIRST 2 WORDS OF SNAPSHOT. 

0263 

REF 26 

LAST 

1098 

0.340 




E0ANK= 

DNTMBliFF 


02 64 

REF 2 

LAST 

1097 

0 5 » 366 5 

1 

3714 

1 

SMAPENO TCF 

ONTMEXIT 

NOW GO SEND THEM. 


0265 

REF 

13 

LAST 

1098 

05,3666 

3 0336 

1 

FETCH2W0 

CA 

DNECADR 




0266 

REF 

45 

LAST 

1098 

05t3667 

54 003 

0 


TS 

EBAMK 

SET EBANK 



02o7 

REF 

5 

LAST 

1098 

05.3670 

7 4373 

0 


MASK 

LOW 8 

ISOLATE RELATIVE ADDRESS 



0268 

REF 

113 

LAST 

1087 

05,3671 

54 001 

1 


TS 

L 




0269 

REF 

1 



05,3672 

3 3544 

1 


CA 

DNADRDCR 

DECREMENT COUNT AND ECADR 



0270 

RTF 

14 

LAST 

1 09 9 

05.3673 

26 336 

0 


ADS 

DNECADR 




0271 





05,3674 

0 0006 

1 


EXTEND 





0272 

REF 

11^ 

1. AST 

1099 

05.3675 

5 0001 

0 


INDEX 

L 




OFTB 





F3 ,1400 




EBANK= 

1400 




02 74 





05,3676 

3 1401 

0 


DC A 

1400 

PICK UP T DATA WORDS 



0275 

REF 

2 7 

LAST 

1099 

0340 




E6AMK= 

DNTMBUFF 




D"2 7^~ 

REF 

3 

L ATr 

1099 

0 5 . 3'6' ?T" 

1 3714' 

XT 


TCT 

DMTMEX 1 1 

NOW GO SEND THTM. ^ 




0277 

REF 

8 

LAST 

1098 

05,3700 

54 337 

1 

DOSUBLST 

TS 

SUBLIST 

SET SUBLIST POINTER 



0278 

RTF" 

> 

LAST 

1099 

05,3701 

50 337 

0 

NFXTI NSL 

INDEX 

SUBLIST 




0279 





05,3702 “ 

0 0000 

1 


0 

0 


IN SUBlIST) 


0230 

REF 

267 

LAST 

1098 

05^3703 

10 000 

0 


CCS 

A 

IS IT THE END OF THE SUBLIST 



0281 

R E F 

10 

L”5Tr 

1 0*9 

05,3704 

24 337 

XT 


INCP 

SUBLT ST 

NO- 



0202 





05, 3705 

1 3?ll 

1 


~TCT 

+4 




0283 

REF 

11 

LAST 

1 099 

05.3706 

54 337 

1 


TS 

SUBLI ST 

SAVE A. 



UT^ 

REF 

lo~ 

lATT 1098 

■G5,370r- 

"X 7716 

0 


CA 

N EGO NE 

~~ TFT SUBL 1ST TO MI NU S 




“TTEF T2 " 

LAST 

T09X 

TStlTTU” 

”56 33X^ 

■X 


XUH ■ 

subli^t 

RbTRIEVt' A. 



02 86“ 

REF 

Tisr" 

LAST 

109 

03,371 1 

24 000 

1 

+4 

INCR 

A 




02B7 

■RTF' 

IT” 

—CATST' 

TIJ9X— 

05, 37 12" ■ 

54 336 W 


XT 


SAVE DNAOR 



CT2W“ 

REF 

T~ 

LAST 


' 05, T TXT” 

1 3 5^7^ 

0 


XTT" 

SFTWD +Z 

GU USE COMMON COU ING( PKUbLt MS 

WOULD 


^ U y 











OCCIJK IP THE PKUGHA^ tKtU A 



A0290 “ DNPTR“NGW1 


rnm 

OZTZ 



xrz'^ 



TIZv-5 

0296 


XJZT7 

0293 


RTF 

RTF 


TTET 

RTF 




TTF 


0300 


TTF 


T 

T 


I 

T 


T 103T 


05,37TT 

■UTTTTTT 

TT5T3TTT 

7TTTT7TT 


T5 


X a:ft ~ obXi/Ri 


0 0006 1 

01 03 A 1 

3 oooixr 

0 ooo 6 ‘' r 

01 03 b '0 
X “ 5 X 33 0 


DNTMf-Xir FXI. 2NU 
iiJFirF 


X7\TT 1093 


TTTOr 

T33T 


0 3 3'4 

TTTTT 


MEXITL 




c 

WITF 


ON! M2 


TWTSU13E 



HINB12 





ONtCAOR TOUAC S" f NUbX 


DnWN-ThUbMt !RY tXIT 

TO SEND" A + L TO CH7VNNTLR> 34 + 3i> 

KESPbCI IVfrUY 


I flfmetry 




STJBXTST EQUALS TJW 







GAP: 

ASSE'^BLE REVISION 055 OF AGC PROGRAM CO-^ANCHE 3Y NASA 2021113-051 10:28 APR. 1.1969 CHIEFTAN. 

028 PAGE 1100 




— - ■ - - m. ^ , , , . ■ ■ ■ — = 


L 

DOWN-TELEMETRY PROGRAM “““ USER'S PAGE NO. 8 

EO S3 



P0301 

SUBROUTINE NAME- DNDUMP 



P0302 

FUNCTIONAL DESCRIPT TDM - TO SEND(OUMp) ALL ERASABLE STORAGE *N* TIMES.IN - 1 TO 4X BANKS ARE SENT 

ONE ATX TIME 


P^0304 

EACH BANK IS ^RFCEEDED BY AN ID WORDt SYNCH BITSt ECADR AND TIMEl FOLLOWED BY THE 256D WORDS OF EACH 


R0305 

EBANK. EBANKS ARE DUMPED IN ORDER(I.E. EBANK 0 FIRST. THEN EBANKl ETC.) 



R6308 

CALI ING SEQUENCE- THE GROUND OR ASTRONAUT BY KEYING VTAE CAN INITIALIZE THE DUMP. 



P 0310 

AFTER KEYING IM V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK 

ERASABLE DUMP 


R0312 

WILL BEGIN. 



R0313 

ONCE INITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINAIED (AND INlfcKKUPIbU UUWNLlbl KblNSIAItUI Ui\LY 


R0316 

BY THE FOLLOW ING; 



R0316 

1. A FRESH STABT 



B031 7 

2. COMPLETION GF ALL DOW^xLINK DUMPS REOUESTED (ACCORDING TO BITS SET IN DUMPCNT). NOTE THAT OUMPCNT 


R0319 

CAN BE ALTERED BY A V21N01. 



P0320 

3 . ANO INVOLUNTARILY BY A RESTART. 



R0321 

NORMAL EXIT MODE- TCF DNPHASEl 



R0322 

ALARM OR ABORT MODE- NONE 



R 03 2 3 

♦SUBROUTINES CALLED- NONE. 



R0324 

ERASABLE INITIALIZATION REQUIRED- 



R0325 

■ ■ ■ DUMPCNT OCT 20000 IF '-t CGMPLFTE ERASABLE DUMPS ARE DESIRED 



R0326 

DUMPCNT ^ OCT 10000 IF 2 COMPLETF ETTSSABlF DUMPS TIRE DESIRED 



R0327 

DUMPCNT uCt 04000 1 H 1 COMPLETE ERASABLE DUMP IS DESIRED 



R032B 

DEBRIS- DUMPLOC. DUMPSW. DNTMGOTO. EBANK AND CENTRAL REGISTERS 




TIMING- TIME(IN SECS) = (( NO. DUMPS ) ^ ( NO . EBANKS ) * (WOSPERFBANK + NO.IDWDS)) / NO.WDSPtRSEC 



R0331 

TIME(TN SECS} = ( 4 )7( 8 ) ( 256 + 4 ) / 100 



R0333 

THUS TI'^ECIN SECS TG SEND DUMP OF ERASABLE 4 TIMES VIA DOWNLINK) = 83.2 SECONDS 




R0335 


S T R UC T U R F OF ONE FRANK AS Tt i$ SENT BY DOWNL INK PROOGRAM 


R033b 


{ R EMTNOcR-THI S ONLY 0-SCRIBES ONE OF THE 8 EBANKS X ^ (OUMPS) = 32 EBANKS WHICH WILL BE 



DNDUMP) 


R0333 



I 



W 


R0339 


wmj 


TAKEN FRO^ CuNTTNTG'nF FCFT) CUMMENTT^ 


R0340 


I 



R 0"3 


R0344 


ROB 4 E 
PTTB 4 7 


3 

5^ 


R034R 

F0T5T 

P"0 


6 

7 




DUMPLr3C 
T I M FT 



2NlJ 



0 R 0 

w np. ry 


F EBANK 
OF E.3ANK 


X 

y 


TF”FPi7AN}C )C 


ITLTTX 

77340 

13400 

“14120 

'0^400 


0O142 

00I4y 


0 
T 
X 

T 

r 

X 

T 

1 




T.OT'^TT [DOWNLINK ERAS ABUt DUMP^(X=7 CSN, "B XKT 
3YN0R "BXr57TSA^E XI^ 05XD“T7rXLr OTHER 



(^EF'TnBT’S ON DUMPLOOU 3RI) ERAS' DUMPV 
TTHE XT 


3400=tCA0R OF blH WO 



IN THIS FXAMPX 
IN THIS EXAHFXF 


TH 1 S 

THIS 


WORD 

WORD 


CUNI ENl S OF 

CONTENTS OK 


E/»1400 (EtAUR 3400) 


TH THISX XAMPXE THIS WORD = CUNFFNIS PF 


F7X401 

ET7T4TT2 


( tUAUK 

(ECAOR 


340 IJ 


3402) 


R0334 



7 0 3S5 
■ROBSE 


T 


7000 


WORD (JF EFTAW X 


OT777 


IN THIS EX A M P LXTRIS WORD = XON TENTS OF 


T7TTXCADR 37^7) 





R 036(5 

R0361 


■ROTET 


70X7 



66 


MOTb- ouiTxnc cTnsrnsTTNs thf caxmEE 



FOR EACH WPOXTTNGXEHT 


XHEX TT"ST"’^JUTUXXTXyUHPXT7r'X XDtTDWS- 

x^ 



NOT liSEO 

TSTTSTXXOTFXnU! 

” ERASABLE 


= D,lt2 


IJ : 


^TTHICH MEANS THA3 
. 3 OR - -RESPECTTVEVT TS TTETR nTTREXS 


FTE = THANK PIT'S 


!<PRRP = 


TTHTN 



gap: 

ASSEMBLE f 

lEVISinN 055 

OF ARF. PROGRA’^ COMANCHF BY NASA 2021113-051 

10:28 APR. 1,1969 CHIEFTAN.028 

PAGE 1101 

















L 

DOWN 

-TELEMETRY 

PROGRAM 






USER«S PAGE NO. 9 

EQ 

S3 



03 68 

REF 

217 

LAST 

1098 

05.3722 

3 

1 

ON DUMP I 

CA 

ZERO 

INITIALIZE DOWNLINK 




0369 

«EF 

1 



05, 3723 

5 4 33 6 

0 


TS 

OUMPLOC 

ERASABLE DUMP 




0370 

REF 

7 

LAST 

109 7 

05,3724 

0 3 766 

0 

+ 2 

TC 

SEND ID 

GO SEND ID AND SYNCH BITS 




0371 

RF.F 

1 



03,3725 

3 3734 

1 


CA 

LDNDUMPi 

SET DNTMGQTO 




03 72 

REF 

5 

LAST 

1096 

05,3726 

54 335 

0 


TS 

DNTMGOTn 

TO LOCATION FOR NEXT PASS 




0373 

REF 

18 

LAST 

1091 

05,3727 

“3’ 0025" 

0 


CA 

TIM51 

PLACE TIMEl 




037^+ 

REF 

121 

LAST 

1099 

05,3730 

56 001 

0 


XCH 

L 

INTO L 




03 76 

REF 

2 

LAST 

1101 

05,37 il 

3 0336 

1 


C A 

oumpT. nc 

AND ECADR OF THIS EBANK INTO A 




0376 

REF 

A 

LAST 

1 099 

05,3732 

1 3714 

1 


TCF 

DNTMLX IT 

SEND DUMPLOC AMO TIMEl 





0377 

REF 

1 



05, 3733 

037 35 

0 

LDNDUMP 

AORES 

DNOUMP 





0373 

REF 

1 



05, 3734 

03 7 50 

0 

LUNDUMPl 

AORES 

ONDUMPl 




















0379 

REF 

53 

LAST 

1087 

05,3735 

3 5016 

0 

DNOUMP 

CA 

TWO 

INCREMENT ECADR IN DUMPLOC 




03 8 0~ 

REF 

3 

LAST 

1101 

05,3736 

26 336 

0 


ADS 

OUMPLOC 

TO NEXT DP WORD TO BF 




0381 

RFF 

6 

LAST 

1 099 

05 , 3737 

7 43 73 

0 


MASK 

L ow a 

DUMPED AND SAVE IT. 




03 32 

R E F 

269 

LATH' 

1099 

05,3?40 

10 000 

0 


CCS 

A 

^n^S BEGINNING OF^ AT TTEW 

EBANK 


038 3 

rTF" 

1 



05,3741 

1 375? 

~w~ 


TCF 

GNDUMP2 

NO- THEN CONTINUE DUMPING 




0534 

REF" 

4 

LAST 

1101 

37 42 

3 0336 

IT” 


"TA ■ 

OUMPLOC 

IS THIS THE END OF THF 




03 86 

“ REF 

1 



“OSTi’43 

7 (JJTi 

0 


MASK 

OUWCNT 

^ THIN = 1 TO 4T XTJMPLETE ERAS 




0386 

REF 

7 

LAST 

1015 

05,3744 

1 76 71 

1 


MASK 

PRI034 

DUMP(BIT14 FOR 4. 8IT13 FOR 2 

Ok 

RIT12 


urrr 

R;’F 

TTTT 

LAST 

11 OF" 

05,3745 

10 000 

0 


"TCTS' 

A 

FOR 1 COMPLETE ERASABLE DUMPISIJ 

m 




— z 


193 

05 ,'3 7^ 

■ 1 “3o37F 

0 


"TCT 

DNPHAT^El 

YbS^ STA'^1 SfcfMDlNu 1 N 1 bKKUP 1 b L) 

1 J 

OWNL I ST 



A 0389 AOAI N 


0390 

L. C P 

■ — 2 — 

XSTT 

260 

05,274T“ 

“1 3774 

1 


TXF 

ONDUMPl +?■ 

NTT-' GO BACK AfJTTTTnTrALIZE NEITT BANK 



0391“ 

— RTF" 

— r~ 



05, 3''50 

3 3733 


ONDUMPl 


LDNDUMP 

b t I U N 1 LJ 1 !J 


0392 

TFT" 

6“ 

“OTST- 

11(11“ 

— CrF.'?/5T' 

54 33 5 15 


^s WTMGnrn 

FUR WDKUS 3 TO 256U TJE CUPFFN1 ETTANK 















0393 

— PTF" 

5“ 

LAST 

1101 

— TT7TT5T" 

— 3TTW 

1 

DNOUMP? 

C A 

dumphTC 



0394“ 


4F 

L A ST ^ 

— croviTW 

“54 T5FT 

V 


TS 

EBANK 

SET *’"t3ANK 


TB^95~ 

^FFF" 

~r~ 

CAS T ”TI OT" 

— 05,3754 

7 47 7-J- 

T 


MAST 

XFWB 

ISuLATE kElATIVE ADDRESS. 


0396 

— kFF" 

215 

last 

1098 

05,3755 

54 00? 

1 


TS 

0 

INUTE: MASK iNslRUCrltlN IS USED TU PICK 


039 7 

— RFF" 

14 

TTTST 

73 9 

05,3 756 

3 50 20 

0” 


“C7S 

N E GU 

UP Erasable registers so that eittimo 


0 3 TH 

REF 

T2^2 

LAST 

1I0T“ 

— 05. 3 757" 

54 001 

Tr“ 


TS “ ~ 

L 

REGISTERS 20—23 WILL NUl BE AlHEKEU.j 


0399 

— TTF" 

FTP 

LAST 

1101“ 

— 0 5 , 3T6 Tr 

50 O02 

IT" 


INDEX 




0400 





— lTTTWTT 




EBANICS 

1400 

PICK UP Luw ORDER REGISTER OF PAIR 


OWI” 





— 0r5',3761 

T 14Tn 

“ 1 “ 


MASK 

1401 

UF ER AS ABL E 1< Eg I STE R S . 


umT~ 

— ^’FF” 

123 ■ 

LASi 

1101 

— 05,3 7S2“ 

56 001 



“XFH 




0403 

fTPF” 

217^” 

FTTST 

1 1 or” 

051376 3 

50 007" 

"TT” 


1 N U E X 

Q 

PICK UP HIGH ORDER RegisieR UE PAIR 


0404— 





05,376T' 

7 1400" 

~rr 


MASK 

1 4 0 U 

OF erasable registers* 


U405 

K EF 

28 

LASI 

TOW 

0340 




E H ANK = 

UN ! MBUEE 

— ^ y — T* ■ f f !■ ' ■“ . i . - 


D4Tn5“ 

REF 

5 

TTAST — riOl 

05,3 765 

1 3714 

~7 


TCF 

Unimex n 

GO SEND THEM 















^ . — - — - - — • — — — — — f • ^ ^ ^ A ^ ^ t HI ft O ft ft - 

04 or “ 





05,3756 

0 0006 

T 

SENUnr 

EX 1 ENU 


DT CKAaMuLu uunr 


0408” 

REF” 

— 7^ 

"CAST^ 

TTOIT 


7 2 3 3T 

"T” 


■QXCTH 

UN 1 MGUTO 

SET unImguEj Su next IlMt prug will gu 


040' 

RFF" 

— Tr~ 



0 5,3/ /O 

3 SOFT 

TF" 


LAE 

EKASl U 

lU LtJLAI 1 VJIM hULLUWlNl? SiL 















041 a “ 

RTFF 


"TATSF 

ITDl 

— 05T3‘77r 

54 ODT 

FT” 


T S 

L 

M4ENTRANCc USPQ by ' 

- 


GAP: ASSEMBLE ‘'EVTSIQN 05^; OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969 CHtEFTAN.023 PAGE 1102 

1, O'nWN-TELPMETkY PROGRAM USER'Sl^AGP NO. TD EO S3 


0411 

REF 

2 

LAST 

10*^7 

05,3772 

0 362 0 

0 

TC 

W02ER0 

GO SET WORD ORDER CODE TO ZERO 


0A12 

REF 

1 



05,3773 

3 2000 

0 

CAF 

LOWIDCnO 

PLACE SPECIAL ID CODE INTO L 


0413 

RFF 

125 

LAST 

1101 

05.3774 

56 001 

0 

XCH 

L 

AND ID BACK INTO A 


0414 

REF 

6 

LAST 

1101 

05,3775 

1 3714 

1 

TCP 

DNTMEXIT 

SEND DOWNLIST ID COOE(S). 








GAP: 

ASSEMBLr REVISION 055 0^ AGf 

PPIK^RAM 

COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969 

CHIEFTAN.023 PAGE 1103 


L 

IMTFR-BANK CO '^MUN T C AT I flN 


USER'S PAGE 

NO* 1 EG S3 


ROOOl 

THE FOLLOWING ROUTINE CAN 

BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE 

BANKCALL VERSION, THE 

R0003 

CAOP OF THE SU3RDUT1MF IMMEDIATELY 

FOLLOWS THE TC BANKCALL INSTRUCTION, WITH CIA) AMO 

ciL) preserved. 



0005 




A6 62 



BLOCK 

02 





0005 5 

REF 

1 





COUNT 

02/BANK 






0006 

? EF 

4 

LAST 420 

4662 

52 134 0 

8ANKCAI L 

DXCH 

8UF? 

SAVE INCOMING A.L. 




0007 

REF 

?18 

LAST 1101 

4663 

50 002 0 


INDEX 

0 

PICK UP CADR. 




0008 




466 4 

3 0000 1 


CA 

0 





0000 

REF 

?19 

LAST 1103 

4 66 5 

24 002 0 


I NCR 

Q 

SO WE RETURN TO THE LOG. AFTER THE CADR“. 





ROOIO 



SWCALL IS IDENTICAL 

TO BANKCALL 

, EXCEPT 

THAT THE CADR ARRIVES 

IN A. 





0012 

pep 

126 

LAST 1102 

4666 

54 001 1 

SWCALL 

TS 

L 





0013 

RFF 

5 

LAST 484 

4667 

22 004 0 


LXCH 

FRANK 

SWITCH BANKS, SAVING RETURN. 




0014 

REF' 

7 

LAST b22 

4670 

7 5054 1 


MASK 

LOWIO 

GET SUa-AODRESS OF CADR“. 




oors 

R“EF“ 


LAST 1103 

4671 

56 002 0 


TfCH 

Q 

A,L NOW CONTAINS OP RtTURN. 




0016 

REF 

5 

LAST 1103 

4672 

52 134 0 


dxCh 

BUF? 

RESTORING INPUTS IF THIS IS A BANKCALL. 




flOTT 

RFF 

221 

LAST 1103 

46 73 

50 002 0 


INDEX 

0 









46T4^ 

“0 200'0 0 


TC 

10000 

SETTING 0 To 5 WRETUKN. 





OOTO 

"RTF" 

F 

LAST 1103 

46T^ 

56 134 1 

SWRETURN 

TOT 

BUF2 +1 

CUMbS HhRb lU KbIUKN lU LALLtK* LIA*LJ 




002 0 

REF 

36r 

LAST TraS 

46 76 

56 Cr0 4 T 


THT 

FBANK 

ARE PRESERVED FOR RETURN. 




oon 

REF 

— 7“ 

LAST 1103 

4677 

56 134 1 


TOT 

ftUF2 +l 





0(57T' 

RTF 

8 

L AST ITOl" 

4700 

0 0133 0 


TC 

BU F 2 







RU023 



— TTIirTTrLLOWI NG ’RDUTINE CAM BE USED AS A UNILATF 

RAL JUMP WITH CIA.LI PKtShKVEU AND THt LAUR 1 tU 1 A I t L Y 




R0075 

FflLLnWING Turrc PiISTJUW INSTRUCT I ON. 





















002 6 

RL'F~~2Z2 

I AST 1103 

4T0T 

56 00? 0 

■paSTJUMF" 

TOT 

0" 

S A VF incoming C(A). 




7)0? V 

REF 771 

LAST rrOT 

4 ■’02 

50 000 1 


INDEX 

A 

GET CADR. 




OoZ8 




4703 

3 OOOO 1 


C A 

0 


















ROOZ^ 



BANKJUMM IS 

THr SAME 

- -A 5 - pQs^T’J UMP, bXCFPT 

IHAf !Ht LAOK AHKlVtS 

TN A • 





UUTL 

REF 

■ T 

— LAST IIU3 

4704^ 

54 "0 04- T 

BANKJUMP 

IT 

FBANK 





01X32 

RFF 

” ar 

LAST IIOJ" 

4703 

T *5 0 5^ 1 


MASK 

Low 10 





OUTB — 

RcF 

T7T 

— LAS! rren 

4 706 

56 002 0 


TUR 

y 

restoring i.NPUl trnn tf inib was a 




0034 — 

RFF 

“374“ 

— TRST — mx? 

TTDT 

' 50 002 0 

13>"L0000 — 

INDEX 


POSTJUIMP. 




0075 — 




4 7 1 CT 

~L 2O O 0‘1 * 

P R I n 1 2 

TC F 

10000 

PRI012 = TCF luOOu = 12000 





\ 






gap: 

ASSEMBLE REVISION 055 OF A(;C PROGPAM COMANCHE 3Y 

NASA 

20211 13-051 

10:28 APP. 1*1069 CHIEFTAN.023 

PAGE 1104 


L 

IMTFR-RANK COMMUNTCAT lONt 



USER'S PAGE NO. 2 

to S3 


POO 36 

THE FOLLOWING ROUT INF GETS THE RETURN 

CAOP 

SAVEn BY SWCALL 

OR BANKCALL ANO LEAVES IT IN A. 



0038 

REF 

9 

LAST 

1103 

4711 

3 50 54 

0 

MAKECAOR 

CAF 

Tnwio 


0039 

REF 

q 

LAST 

1103 

-'‘■^12 

7 0 133 

1 


MASK 

3UF2 


0040 

REF 

10 

1 AST 

1104 

47 13 

6 0134 

1 


AO 

BUF2 +1 


0041 

REF 

225 

LAST 

1103 

4'714 

0 0002 

0 


TC 

Q 




00465 

REF 

4 

LAST 

380 

4 7 1 5 

54 135 

1 

SUP DA CAL 

TS 

MPTEMP 


0047 

REF 

B 

LAST 

1103 

4716 

56 004" 

0 


KCT 

FBANK 

SET FBANK FnR DATA. 

004 7 5 





4717 

0 00 06 

1 


EXTEND 



0043 

Q rrp 

10 

LAST 

587 

4720 

04 007 

T~ 


ROR 

SUP5R6NK 

SAVE FBANK TN BITS 15-11* ANO 

0043 S 

RPF 

5 

LAST 

1104 

4721 

56 135 

0 


XCH 

MPTEMP 

SUPERBANK IN BITS 7-5. 

0049 

REF 

10 

LAST 

1104 

47 22 

7 50 54 

1 


MASK 

LOWIO 


00495 

R EF 

127 

LAST 

1103 

4723 

56 001 

0 


XCH 

L 

SAVE REL. ADR. IN BANK. FETCH SUPERBITS. 

0050 





4724 

0 0004 

0 


I NH I NT 


BECAUSE RUPT DOES NOT SAVE SUPERBANK. 

00505 





4725 

0 0006 

1 


EXTEND 



0051 

REF 

“1 1 “■ 

LAST 

1104 

4726 

01 007 

1 


WRITE 

SUPEPBNK 

SFT SUPERBANK FOR DATA. 

0052 

m 

T1 

128 

LAST 

1104 

4727 

50 901 

0 


I NDEX 

L 


00525 





4 r30 


IT" 


CA 

1 0000 

PINBALL (FIX MfcM OISP) PkhVENiS DCA HERE 

0053 

REF 

TT 

LAST 

1104 

4731 

56 135 

0 


"ICITH 

MPTEMP 

SAVE 1ST WO* FETCH OLD FBANK AND SBANK. 

00534 





4732 

0 0006 

T~ 


EXTEND 



00535 

"ITTF" 


■ [TTT 

1104 


1)1 '0717^ 

“T 


W R I T 

^ 1 1 ^ ^ rU' fC 

RE ST OR'- SUPERBANK. 

0054 





4734 

0 0003 

1 


R EL I NT 


— 1— f ~'g ' W l'~y ' ' ■ ’ “■ - - — — ■ ■■ ^1 ■ 

0054 D 

RFF 


LAST 

1 1 04 ■ 

4735' 

54 O04 

1 


1 

FBANK 

RESTOi^E EBANK. 

UOETS" 


7 

L 4 ST 

1 1 0 V 

4736 

3 0135 


CA 

M PT FMP 

RECOVER FIRST WORD OF DATA. 

00555 





4 73 7 

0 0002 

0 


ftETUSN 


24 WDS. DATACALL 516 MUt SUPDACAL 432 MU 


GAP: ASSEMBLE ^'iFVlSlUN 055 OF ^bC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APP. 1,1960 CHTEFTAN-028 PAGE 1105 


L 


INTcR-BANK CGNMUN I C AT I ON 


USER'S PAGE NO. 


EO S3 


P0056 



THE FOLLOWING 

ROUTINES ARE 

IDENTICAL TO 

BANKCALL AND SWCALL EXCEPT THAT THEY ARE USED IN INTERRUPT. 





0053 

REF 

2 

LAST 

A22 

4740 

52 073 

1 

I BNKCALL 

DXCH 

RUPTREG3 

USES RUPTREG3,4 FOR OP RETURN ADDRESS. 




0050 

rt r* c 

16 r 

226 

LAST 

1104 

4741 

50 002 

0 


INDEX 

Q 





0060 





4742 

3 0000 

1 


CAF 

0 





0061 

REF 

227 

LAST 

1105 

4 743 

24 002 

0 


I NCR 

Q 




















0062 

RPF 

129 

LAST 

1104 

4744 

0 

0 

1 

I SWCALL 

TS 

L 





0063 

REF 

10 

LAST 

1104 

47 45 

22 004 

0 


LXCH 

FBANK 





0064 

REF 

11 

LAST 

1104 

4746 

7 5054 

1 


MASK 

LUWIO 





0065 

REF 

228 

LAST 

1105 

4747 

56 002 

0 


XCH 

0 





0066 

RFF 

3 

LAST 

1105 

4^50 

52 073 

1 


OXCH 

RUPTREG3 





0067 

R FF 

229 

LAST 

1105 

4751 

50 002 

0 


INDEX 

Q 





006 3 





4752 

0 2000 

0 


tc 

10000 






0060 

REF 

3 

LAST 

68 

4753 

56 073 

0 

ISWRETRN 

XCH 

RUPTREG4 





0070 

R P F 

11 

LAST 

1105 

4 7 54 

56 004 

0 


XCH 

F3ANK 





0071 

REF 

4 

LAST 

1105 

4755 

56 073 

0 


XCH 

RUPTREG4 





007? 

REF 

4 

LAST 

1105 

4756 

0 0072 

1 


TC 

RUPTREG3 






ROO'^0 

2. USPPCAOR ACCESSES 1 NTt ’ PRFf I VP CODING 

1 IN OTHER THAN 

THE USER'S 

FBANK. THE CALLING SEQUENCE IS AS FOLLUWS: 





A0002 








X 

nx 

uspncAXP 





A 0093 








L + l 

CADR 

INTPPFTX 





A 0 0 V A- 











RETURN IS JQ^+2 





rFTTTl 

REF" 

6 

LAST' 

~n2 

4757 

54 164 


USPRC ADR 


LOG 

SAVc A 




nro4 

REF 

~ZT 

"~TASXr 

95 a 

4 7 6 0" 

3 5010 

nm 


nra 

" BXTB 





0X715 

REF 

T 

LAST 

mn 

■mTTTT 

57rXTZ3 

X 


'JS~ ~ 

“XTTCP 

EXIT iNSlPUCIlHN TO EDOP 




UVJE 

"RTF" 

~Yh 

1 , A ST ■ 

685 

47ft"?“ 

0 

0 

0 

l 


C A 

BBANK 





CTTUT 

R F >- 

T 



4 7 5 3 

54 165 

1 


XS 

BANK S ET 

USER'S BBANK lU BANKSt ? 




01 OB' ■ 

R E F 


X^SST 

1105 

4764 

mcrrniz'TT 


n NDXX 

Q 





urm 





4760“ 

3 0000 



CA 

0 





OTTO 

REF 

T2r 

LAST 

1105 

4 766 

54 004 



nx 

FBAN^ ■ ■ 

INlEKPKtTlVE BANK lU EBAnK 




nm 

“PTF 

T2 

TASr 

1105 

■4T6T' 

^ “50 5^27 1 


MASK 

C i )WXT) 

YltLUS 1 nT t kP RETl Vb KbLAfIvE AUUkbSS 




fTTT^ 

iTEF"' 

TXT 

LAS T ■ 

TT03 

4 y 7 0 

56 002 



“TTR 

Q 

INlbKPKbTIVb AiJURbSS lU Qt bblLbllMb L+ 1 




am ■■ 

REF 


rwsT' 

xrros 

4 7X1” 

56 164 

X 


3CCH 

me 

L+1 TO LOC, RETRIEVING ORIGINAL A 




0X7X4 

’ FT" 

r 



47TZ' 

1 4107 

"X 


^XCT^ 

0+ 10 000 






L 

INTF^^-BANK COMMUNICATITN 

USER'S 

PAGE m. 4 

EO S3 





P0117 

THERE ARE FOUR POSSIBLE SETTINGS FOR CHANNEL 07. (CHANNEL 

07 CONTAINS THE SUPERBANK 

S E T T I NG* 1 





R0119 

PSEUDO-FIXED 

OCTAL PSEUOn 






R0120 

SUPERBANK SETTING S-REG. VALUE BANK NUMBERS 

ADDRESSES 






R0121 










R 0 1 2? 


R012^ 


P01.26 

R012B 


P 0130 


R0132 

R0134 


POl -16 


R013:3 


P.01A4 


SURF PBANK 


OXX 


2000 - 3777 


30-37 


70000 


107777 


WHERE 


YTHING ANO 


SUPERBANK 4 


100 


2000 


3 777 


40 


TT 


110000 - 127TTT 


ALLY BE SEEN 
AS^TT 



SUPERBANK 5 


101 


2000 - 3777 


50 



130000 


^TTTTT 


ONLY BANKS 40-43 WILL EVE 
AND ARE presently AVAILABLE) 

NOT AVATLABLE TO 




SUPER RANK S 


1 10 


2000 - 3777 


60 


67 


150000 - 167777 


-Jc ^ 


THIS ROUTINF MAYBE CALLED BY ANY PROGRAM LOCATED IN BANKS 00 


THE USER 

(PRESENTLY NOT AVAILABLE TO 
THE USER) "" 

I.E., NO program living IN ANY 


SUPER BANK SHOULD USE SUPEPSW. 


ROlB-5 SUPEPSW MAYBE CALI ED IN THIS FASHION: 


ROT BO 


- — -- ■ ^ 


— • ~ - W mm -w 







R 0151 OH I K 

) THI^ ^ 

ASHiON : 








R0TS7 

TAT 

SUPERSET 

WHEPE SUPI 

iPCET IS ONE OF THE FOUR AVAILABLE 





R0L54 

TCP 

SUPtRSW 

SUPER SANK" 

BIT CONSTANTS: 





R0155 

• • • 

^ m m 


SUPEROll octal &T5 





R0157 

• 

m 


SUPERIOQ OCTAL IDO 





R0159 

• 

• 


SUPFRlOl OCTAI. I27r 





ROl'Sl 




SUPERllO OCTAL l40 


■ - ^ — ■ ■ = 

■ ■■ ' ■- — - 1 ' ■- - — 

^ ■ — 


r(5TR6 CS F ABBCON — “ WHTITE == StnjC ON BBCON SUMfcTHiN ^ 


R0147 

TCR 

SUPFRSW 

(THE SUPERBNK BITS ARE IN THE BBCUN) 


R0148 

. . . 



. . - — - — 


R 0 1 4 9 


-irrSB ZTTT 

0154 RTt n LAST 1104 4T74 

A015 j - 

LAST 1T05^ 4775 

AO 167 


U UUU6 1 SUPFRSH EXTEND' 

01 007 1 WRITE SURERBNK 


0 0002^ TC ■ 0 



WRITE BUS ^-6-5 OF 

THE ACCUMULATUK INTO 

CHANNEL' 07 


TC TO INSTRTJCTTtn'TTt 

] L L UW I NG 

TC SUPERSW 


GAP: 

ASScNBLE REVISION 055 OF AOC PROGRAM COMANCHE BY NASA 2021113-051 

10:2B APR. 

CHIEFTAN.028 PAGE 1107 



L 

INTERPRETER 


USFR*S RAGE NO. 1 hO S3 



ROoni 

SECTIDN 1 DISPATCHER 






R0()02 

ENTRY TO THE INTERPRETER 

• INTPRET SETS LOG TO THE FIRST 

INSTRUCTION, 

BANKSET TO THE BBANK OF THE 


■10004 

OBJECT INTERPRETIVE AND 

INT3IT15 TO THE BIT15 CONTENTS OF 

F0ANK, INTERPRFTIVF PROGRAMS MAY BE IN 


R0006 

VIRTUALLY ALL BANKS PkLSENT UNDER 

ANY SUPER-BANK SETTING. WITH THE 

RESTRICTION 

THAT PROGRAMS IN HIGH BANKS 


R0003 

{RIT15 OF F3ANK = 1) DO NOT REFER 

“Tg”"LOW BANKS, AMD VICE-VERSA, THE 

INTERPRETER 

DOES NOT SWITCH SUPERBANKS. 


ROOlO 

r-BANK SWITCHING OCCURS WHENEVER 

GENERAL ERASABLE (100 - 3777) IS 

AODRESSEO. 



— 


0012 

“■ 



6006 


3LCCK 

03 



0013 

REF 

1 




COUNT 

03/INTER 



00135 


0014 


0015 


0016 


0017 


0013 

0019 



OUTl 


R'=F 


R "F 


REF 


WW 


1 


8 LAST 1105 


LAST 1105 


2 LAST 1105 


REF 43 FAST 1016 
REF 5 LAST 69 


F LAST ir05 


6006 0 0003 1 

6007 0 0006 1 

6010 2? 164 1 


6011 3 0006 


6012 54 165 1 


6013 

6014 


f 5 001 1 
115 0 


ZUT5 54 0 


6016 1 60iT 1 


INTPRET RFLINT 

EXTEND 


QXCH 


CA 


TS 

MASK 

TS 


rs 



L F 


LOG 


».BANK 

bankSeT 


BIT15 

INTBI T15 


E D n P 




SET LOG TO THE WORD FOLLOWING THE T 


NTERF 


OFT 15TH BIT 


MAKE SURE NU 



RFKT 




LEFT OVER 


PICK UP OP C0DF"FATR:'"ffN13 



l\ 


0022 

TTTT2F 




0025 


0026 

TKT2T 


W28 


FEF 

FFF 



16 LASI liUr 


FDT7 



22 006 1 
“6F 



INIRSM LXCH 


OLOAD LOADS MPAC* MPAC +1* LFAVl 




6021 0 0006 T 

Fa22 5 01 16 1 


DTD AD 



IN MP 


bbank: 


MTPRET +3 

+ • 


tXTHW 



F 


FFF“?FB LAFi FTF 


REF 21S LAST ITFT 


7rFZ3“ 3 0"0FI“D DCTT 

7mr24 F2'T5'F~I SL0AD2 DOOTFr ' W 

”T C7TF 


OTZ3 3 



7TFI 


RE5UME“SUSPENDEl) INfERPkETIVE JOB 



LOAD OP CTC(ADORWU)J INTO MPAC,MPAX“FT 


ZERO MPAC: ^2 
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1 


P0030 


0032 


003 3 


0034 


0035 


0036 


0 0 3 7 


0039 


0040 


0041 
R0042 


0043 


I NrERPRETER 


USER'S PAGE NO. 


EO S3 


AT THE END 0^ MOST I NS TRUCTTONS . CONTROL IS GIVEN TO DANZIG TO OTSPATCH THE NEXT OPERATION 


PEE 239 LAST 1107 


6026 54 156 1 


MPAC ^2 


AND OEtLARE DP M(^D 


PFE 


LAST 542 


TTOTT 54 163 1 REWlMOD 





mode 



FF 


3 LAST 1107 


6030 3 016$ 0 DAN? T G C A 






TESTING NE¥JUB“^^SO THAT 


PEF 17 LAST 1107 


6031 54 006 0 


TS 


BTONK 


IT MAY BE SAVED" DIRECTLY 3Y CHANJOB 


R'FP 


^ LAST irOT 


v^nrz 


REF 


033 


10 023 I 

1 6046 1 


NOIRNKSW CCT 


EnUP 




FROM 



OPJUMP 



^^R^RFTRIEVEO. rF3'0,' ElTEnJTF 



SET rn ZERO ON ITS RF-EDITING 


NEWJOB 



SEE IF A JOB OF 
PRESENT, AND IF SOt CHA 



RTF 


9 LAST 1107 


6036 24 164 1 


I NCR LDC 


THTVANCE THE 



ITRACE (1) REFERS Jn «NEWr)PS” 


REF 10 LAST 1108 


6037 50 164 1 NFWOPS 


TNTJEX UK 


0 


FNTl^T 
TWT BTTN 



N BY' TICKING OF^ CODE PAIR 
FAIR OR A STORE CUDE 



U U -1 <+ 

004 5“ 

P FF 

272 

LAST 

1103 

6Wl 

10 000 

0 

■■ — 

CCS 



TEST SIGN AND GET DABSIA). 




0 04 6 

REF 

■■ T 



STPfT 

TKTTL 

T“ 


TCP 

D 0 S T 0 R E 


PROCESS STORE COUb. 




















0047 





T043 

001 77 

0 

Lnw7 

net 

177 






















WKU 

P FF 

“Tcr 

■ LATT 

TTGo 

6 044 

“54023 

1 


TS 

EOOP 


OP COTE PAIR. L fcAVh 1 Ht UIHEH IN b'JUP 




0049 

rTF” 

6 

LAST 

371 

TOAo 

7 6043 

1 


MASK 

LnW7 


WHERE CCS EOOP WlLL HONOR IT NEXT. 





GOTO 

“FFF 

~r3“ 

LAST' 

373 

604-6" ■ 

54 0 20 

"T 

IWJXPW 


XYK 


LUWWU tNIbHb HtKt lb A Kibm-HAINU ur 




0051 

REF 

1 4 

LAST 

1108 

6 047 

10 020“ 

1 


eCS 

CYR 


CODE IS TO RE PROCESSED. TEST PRtFICbS. 





“ ‘ R EF" 

r 



STTSTT" 

rTZlT 

iT“ 


TCF 

0 F JU W> 2 


TEST StCON^J PREFIX BIT. 




















GoFT" 

— mr 

r 



6051 

1 7.712 

1 


TCF 

EX 1 1 


+ 0 up LODE IS EXI I . 







4i' •*' ^ 1 









-A*'*' 'M 


Cts €*1 4 • 


Kt 
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L 

INTERPRETER 








USER *5 PAGE NCf> 3 EQ S3 




POOS 4 



PROCESS ADDRESSES WHICH MAY 

Q p 

U U 

DIRECT. 

INDEXED 

. OR REFERENCE 

THE PUSHDOWN LIST. 




0056 

REF 

74 

LAST 

1089 

605 2 

7 5017 

0 

ADDRESS 

MASK 

3IT1 

SEE IF ADDRESS IS INDEXED. CYR CONTAINED 


0057 

R EF 

27 3 

LAST 

1108 

6055 

10 000 

0 


CCS 

A 

400XX. SO BIT 1 IS NOW AS IT WAS IN 

CYR. 


0038 

REF 

1 



6 03 4 

1 6115 

0 


TCP 

INDEX 

FORM INDEXED ADDRESS. 

















0059 

REF 

11 

LAST 

1108 

6055 

50 loA 

1 

DIRADRES 

INDEX 

LQC 

LOOK AHEAD TO NEXT WORD TO SEE IF 



0060 





505 6 

4 0001 

1 

0CT40001 

CS 

1 

ADDRESS IS GIVEN^ 



0061 

REF 

274 

LAST 

1109 

6057 

I'O 000 

0 


CCS 

A 




0 06 ? 

R E F 

1 



6060 

1 61 o4 

0 


TCF 

PUSHUP 

IF NOT. 




0063 





60ol 

77773 

1 

NEG4 

DEC 

-4 





0064 

REF 

12 

LAST 

1109 

606 2 

.24 164 

1 


INCR 

LOC 

IF SOf TD SHOW WE PlCKEt) UP A WUKU* 



0065 

RFF 

2 

LAST 

1107 

6 C 6T“ 

54 116 

0 


TS 

ADORWO 


- 

■ ■■ ■ - . - 






1 
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L 

INTE 

RPRET 

fr 








USER'S RAGE NO. 4 EO S3 


P0066 



FINAt. 

DIGESTION OF DIRECT ADDRESSES OF 

OP COOES WITH 01 PREFIX 

IS DONE HERE. IN EACH CASE, THE 

R006 8' 

REQUIRED 

12-BiT SUB 

-ADDRESS ] 

[S LEFT IN 

ADORWO, 

WITH ANY 

REQUIRED E OR F 

bank Switching uonet addresses less 

R007 0 

THAN 

45 D 

ARE TAKEN 

TO BE RELATIVE m 

THF WORK AREA. THE 

OP CODE IS NOW 

IN BITS 1-5 OF CYR WITH BIT 14 = 1. 



0072 

REF 

1 



5064 

6 6220 

T" 


AO 

-ENDVAC 

SEE IF ADDRESS RELATIVE TD WORK AREA. 

0073 

REF 

275 

LAST 

1109 

o06 5 

10 000 

0 



A 


0074 

P EF 

1 



605 6 

“ '6 “ 7712 

1 


TUT 

-FNIIFRAS 

IF NOT* SEE IF IN GENERAL ERASABLE. 

0075 

REF 

1 



6067 

1 6074 

0 


TCT 

lEPASTST 



mur 


18 

LAST” 

wrr 


3 0120 

37^ 

NETZ ERO 

CA 

FIXLOC' 

IF SO* LtAVE THE MUUlFlEn AUUKESS IN 

0077 

REF 

3 

LAST 

1109 

6071 

26 116 

0 


AOS 

ADOP WD 

AODPWO AND DISPATCH. 

007 8 

REF 

15 

LAST 

1108 

“607? 

50 020 

0 

ITRTS^ 

INDEX 

CYR 

“THir rN3FX MAKESTHE NEXT INSTRUCTION 

0079 

REF 

1 



60 73 

7 6242 

i 


7 

INOJUMP -1 

TCF INOJUMP 4 DP* EDITING CYR. 


0080 





6074 

0 0006 

1 

lERASTST EXTEND 



0081 

REF 

1 



607 5 

6 ol05 

0 


BT3TF 

GEAODR 

GO PROCESS GENERAL — ER AS A BLE ADDRES1>« 


008 2 

REF 

13 

LA S T 

1105 

6076 

7 50 54 

1 


MASK 

LOWIO 

FIXED BANK ADDRESS. RESTORE AND ADD (315. 

0023 

REF 

14 

LAST 

1110 

~~FUTr 

6 5054 

0 


SD 

XOWTD 


0084 

PFF 

4 

LAST 

1110 

6100 

56 116 

1 


)(3h 

AODPWO 

AQDRWD FOR OPERAND RETRIEVAL, (THIS 

0085 


6 


rnrr 

6101 

6 0115 

nr 



INTBl T15 

METHOD PRECLUDES USE OF THE LAST 

0086 

R E F 

13 

LTTST 

1X03” 

6 1 OT 

54 004 

nr 


TS 

FRANK 

locatidn In each FbTiNK.J 

00 37 

REF 

16 

LAST 

1110 

6103 

50 O^O 

0 

1 TR 12 

INDEX 

CYR 


0088 

REF 

— r~ 

LAS1 

1110 

tVW 

7 6242 

T' 


7 

INDJUMP -1 “ 














0089 

RFF” 

8 

LAST 

nor 

6105 

7 4373 

0 

GEADDR 

MASK 

LOW 8 


0090 


4 

LAST 

378' 

n X ^ 

6 50 51 

nr 


AO 

0CT1400 


UUTT 

~^FF 

5 

L AST' 

1110 

STITT 

— 57. TXT 

~ir 


XCH 

ADDF WO 


0092 

iTFr" 

47 

LAST 

1101 

6110 

54 0 03 

0 


T S 

EB'AWK 


0093 

RFF“ 

IT 

L A SX" 

nro' 

STTT 

57X323 

"0 

TTFrO 

INDEX 

CYH 


ow^ 

' p:ff' 

—3 

LA3T“ 

1 T 1 Mi 

6112 

T 3T 4T 

“T 


7 

INDJUMP —1 
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!' - 

L 

INTERPRETER 



USER'S PAGE NO. 5 EO S3 









POO 6 

THE FOELOWT 

NG ROUTINE PROCESSES INTERPRETIVE INDEXED ADDRESSES. 

AN INTERPRETER INDEX REGISTER MAY 



R0097 

CONTAIN THc AnORESS 

OF AMY E 

RASA8LE REGISTER (0-42 3EING RELATIVE TO THE 

VAC AREA) OR ANY INTERPRETIVE PROGRAM 



RU099 

BANK, OR AMY INTEGER 

IN THAT 

RANGE. 





0100 

REF 1 

6113 

3 7702 0 D0DLrjAD=^ CAE OLOAD* 

STODL’^' COMES HERF TO PROCESS LOAD ADR. 



0101 

REF 18 LAST 1110 

qU4 

64 020 1 TS CYR 

(STOVL* ENTERS HERE). 



0T02 

REF 


LAST 

1110 

611*=^ 

3 0120 

1 

INDEX 

CA 

FIXLOC 

Set up index location. 


0103 

REF 

1 



73 116 " 

54 130 

1 


TS 

INDEX LOG 



0104 

REF 

13 

LAST 

1109 

6117 

24 164 

1 


INCR 

LOG 

(ADDRESS ALWAYS GIVEN). 


0106 

HFE 

14 

LAST 

111 1 

6 120 

50 164 

1 


INDEX 

LOC 



0106 





6121 

4 0000 

0 


cs 

0 



0107 

REF 

2 76 

LAST 

1110 

6122 

10 000 

0 


CCS 

A 

INDEX 2 IF ADDRESS STORED COMPLEMENTED. 

OIOS 

REF 

2 

LAST 

1111 

6123 

24 130 

0 


INCR 

INDEX LHC 



OlOQ 





6124 

“X“6 "126 

0 


NOQP 

















(JTTn 

REF 

6 

LAST 

1110 

6125 

54 116 

0 


TS 

ADORWO 

14 aiT ADDRESS TO ADDRWO. 


0111 

REF 

2 

LAST 

133 

6126 

7 7711 

0 


MASK 

HIGH 4 

IF ADDRESS GREATER THAN 2K, ADD INT? 

HT15 

0112 





6i?7 

0 O0O6 

1 


EXTEND 




0113 

REF 

1 



6130 

1 6133 

T" 


BZF 

I NDEX2 



0114 

REF 

7 

LAST 

1110 

6 131 

3 0115 

1 


~TK 

1NTBIT15 



OllS” 

P PF 

T' 

LAST 

1111 

6132 

26 115 

0 


AOS 

addbwd 




oTjF 

rEE 

3 

Tirr 

ml 

6133 

50 130 

0 

I NOEXR 

INDEX 

INDEXLGC 



0117 

R EF 

36 

LAST 


6nrT4 

4 0046 

T” 


CS 

X 1 


— ^ — * ' - ■ - . 

0TT3 

kef 

X, 

XASX 

xrrr 

7;i35' 

2 6 ITT ^T 


AOS 


On A JGMENI , I&N0 kiN(7 and C(JRKeC^ING 

0 VF • 














(jrr3 

REF 

5 

xffxr 

T33 — 

6X36” 

7 7713 

33 


MASK 

HIGH9 

SEE IF ADDRESS IS IN WiTRK AREA. 


OTzn- 





6 i JX" 

0 0 0 O ' ’* 

X 


~ X T E N !) 




0121 


— r~ 



61 TO 

1 615’3" 

X" 


3ZF 

I NOW MR K 



0X72 

'■ EF 


XTVFT^ITTX 

6141 ' 

~r~mT 

0 


TTLSK 

HTGTT4 

SEE IF IN ElXtU BANK. 







6X47 

U 0006 

X" 


{ * 1 J 1 * 




0124 

PEF' 

r~ 



6143“ 

1 616 5 

1 


BZF 

I NDERA SE 
















0125 

P EF 

rj 

LAST 

ill! 

‘ 6 144 

3 OITFX 


CA 

TPOCWD" 

IN FlXtrl^ ^ Sv^lfCH BANKS AnD CRcATc 


0126 

RTF' 

14 

LAST' 

"mo 

6X43” 

64 004 

x^ 


I s 

FBANK 

SUH“AUDKE5S . 


0127 

TXF" 

13 

"LA5T^ 

TITO 

“6136” 

7“ 30 54 

X 



L UWi D 



mzB' 

REF" 

p- 



6r4T~ 

6 5005' 

X 


413 

2K 



or 2^ 

REF 

— nr“ 

TTTSr 

im — 

616 0 

6 11 6 

0 


T S 

ADDKWD 



u i 3 o 

■R'EF' 


xTfsr 

“IITI 

6T3T 

'"SO' 020 

TT 

TTRIl 

INDEX 

CYPx 



0T3T 

— 

Zf— 

LAST 

ITTO 

6 132“ 

3 6242 

MX 


-3 

I NO Jump -1 
















0132 

REF 

2ir 

LAST 

irn — 

6T57 

3 012X 

X" 

— INDWORK 

C7V 

FTXLOC 

MAKE ADORWD RELATTVc lu WORK AREA. 


0133“ 

'RFF 

X 



6164 

6161 

XT 


! C F 

T IRIB -1 




ui.j^ R£ F 5 arsi — rTTO 3 50^1 0 0CT1400 

0 T 35 rrpF — nr ‘ last iin sT5Tr 55 TT?ri xcn au ukwd~ 

u 1 J6 htt ^tb nm tttd ^ttt u rs ehttnf 

01 3 7 "'T’ CXST TITD 616 0 T 43 73 0 "“^ASK LWB 

013 8 LAST ITTT 6161 26; 116 0 ^ ATTO^WtT~ 


- IT-. 
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L 

INTERPRETE'^ 




USER’S RAGE 

NO. 6 

tiO S3 




0139 

REF 20 LAST 1111 

f > 1 6 2 

50 020 0 ITR13 

INDEX CYR 






QIAO 

REF 5 LAST 1111 

616>3 

3 6242 0 

3 INDJUMP -1 




— 

— - - - -.-T 
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L 

INTERPRETER USER'S PAGE NO. 7 EO S3 



P0141 

PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN. THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN 


R0143 

LIST. IH MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED 


R0145 

IS THE SAME AS THE TVPE OF OPERAND DESIRED (ALL AD0/SU6TPACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED 


R014T 

BELOW (NOTE THAT IM EVERY CASE tHE NODE REGISTER IS LEFT INTACT); 



ROl^fR 

K VXSC AMO V/SC WANT THE OPPOSITE TYPE OF OPERANDt E.G., IF THE LAST OPERATION YIELDED A VECTOR 


R0150 

RESULT, VXSC WANTS A SCALAR. 



R03 51 

2. THE LOAO COOFS SHOULD LOAD THE ACCUMULATOR 

INDEPENDENT OF THE 

RESULT OF THE 

LAST OPERATION. THIS 


R0153 

INCLUDES VLQADt DLOAD, TI.1AD, POOL i AND PDVL (NO PUSHUP 

WITH SLOAO). 





R0154 

3. SOME ARITHMETIC OPERATIONS REQUIRE A STANDARD TYPE OF OPERAND 

REGAROLPSS OF 

THE PREVIOUS OPERATION. 


R0156 

THIS INCLUDES SIGN WANTING DP AND TAD REQUIRING TP. 






0137 

R EF 

1 



6164 

3 4374 0 

PUSHUP 

CAF 

OCT23 

IF THE LOW 5 BITS OF CYR ARE LESS THAN 

015R 

REF 

21 

LAST 

1112 

6 1. 6 5 

7 0020 1 


MASK 

CYR 

20 . THIS OP REQUIRES SPECIAL ATTENTION. ~ 

0159 

REF 

3 

LAST 

621 

6166 

6 6171 0 


AD 

-OCTIO 

(NO '0). 

0160 

REF 

277 

LAST 

nil 

6X6 7 

10 000 0 


CCS 

A 


016J 

REF 

1 



6170 

1 6202^5“ 



RFGUP 

FOR ALL COOES GREATER THAN OCT 7. 


0162 





6171 

77767 1 

-QCTIO 

vQCT 

'10 



0163 

RET" 

2“ 

lAST 1049 

6172 

■ 6 6061 0 


AD 

NEG4 

WE NOW HAVE 7 - OP CaUh|MUU4). SEt Ih 

0164 

RLE 

278 

LAST 

1113 

6173 

10 000 0 


CCS 

A 

THE OP CODE (MGD4) IS THREE (REVERSE). 

0165 

R ET 

■ 75 

LAST 

1113 

^ 6 174 ■ 

50 000 1 


TNrDEr~ 

A 

N(7 “ THE MUDE IS DEFINITE. PICK UP THE 

0166 ■ 

RET 

I 



ol f o 

”4^ F2 rm) " 


cs 

NO. WDS 


0167 ■ 

PEF 

— r~ 

LAST 1113 

61 76 

c 

0 

s 


TCT 

REGUP +2 



016 3 ■ 

ITEF 

b 

LAST 

1108” 

617 f 

SET T 6T TT" 


i NUt X 

MUUb 

FOR VXSC AND V/SC Wt: WAN t 1 nt KtUUlKtU 

01'6‘9'" 

REE 

2“ 

TKTT 

346 

620L) 

4 62ii~r“ 


CTS 

REVCNT 

PUSHEOC OECREMENI WIYHUUI CHANGING 1 HE 

OITTT"^ 

REF^ 

3 

TSST 

ITTl 

E70\ 

~r^ 2 T) 4 0 


TCT 

RFGUP +2 

MODE AT THIS FI Mb. 


0171 

"R EF' 

6 

last 

1 1 13 

6202 

50 163 0 

REGUP 

INDEX 

MODE 

MOST ALL OP COUtS PUSHUP HEKt. 

- - 0172 

~TFr 


LAST 

TTr3 

TZOT” 

4 62T3 0 


C S 

NU. WDS 


01 73 


1 





26 166 1 

+2 

A US 

PUSHLUC 


01 74 

— RTF 

13 

LAST“ 

im 

6”2 OF" 

54 116 0 


1 5 

A ODRWD 


Ui 75 

‘ RbE 

22 

TS3T 

TTI3 

■ 62D6 ■ 

T O TJZO 0"" 

TTRTV 

nTUFX “ 

L Y K 


01 tb 

RFF 

5--- 

“OTST 

nr2 

ETOT^ 



7 - 

INDJUMP ^ 

(THE INDEX MAKES THIS A TCP*) 


OTTT” 





6210 

0 0 007 0 


UU } 


KEVEKSE ^-'USrlU^' UECKEHENI. VtUIUf^ £. 

omr 





6211 

130006'T~ 

"■RFVCNT 

UCT 

6 

WORDS? SCALAR TAKES 6 . 

0179 ■ 





6212 

(?noo6 1 


OCT 

6 


OTBCT' 





WZTT~ 


”^TTT.WTTSr 


id 

CONVfcNl IUNAL decrement is 6 WORDS VECTOR 

aT3T~ 





67174" 

OTTorn '7“ 

ucrn^LT” 

TTC7 

3 

Z iN UP? AND 3 IN TP. 

0182“ 





6215 

— 000'05'"T 


TCT 
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¥ 


EC S3 


P0183 


TEST TMT SECOND -*RFF1X BIT TO SEE TF THIS IS A MISCELLANEOUS OR A UNARY/SHORT SHIFT OPERATION. 


0185 


REF 


LAST 1113 


6216 10 020 I 0PJUMP2 CCS 


CYR 


0186 


REF 


6217 1 623? 0 


TCF 


0PJUMP3 


TEST SECOND PREFIX BtT 
TEST THIRD BIT TO SEE IF UNARY OR SHfFT 


0187 


622 0 


77722 0 


ENDVAC DEC 



R0188 

R0190 



■ ^^l W^F0lL0\4\m ADDRESSES OF SUFFIX CLl^S3~nrO. TFlFY ARE BASHTALLY 

IN THE RANGE 0 - 52, FRASABLc ECAOR CHNSTANTS FROM 100 ~ 3777, AND FCADRS ABOVE THAT. ALL 15 BITS ARE AVAILABLE 


P 0192 


IN CONTRAST TO SUFFIX !• IN WHICH ONLY THE LOW ORDER 14 ARE AVAILABLE. 


018-3 

0194 


REF 

RFF 


REF 


LAST 1111 
LAST 1114 


6221 24 164 1 15BITADP TNCR 


6222 50 164 1 


LOC 
INDEX LOG 


ENTRY HERE FROM STCALL 
PICK UP ADDRESS WORD.” 


LAST 


3 0000 1 
54 117 1 


0 

POLISH 


WE MAY NEED A 5UBA0DRESS LATER. 


TTTFFF^ STTOCTTGTTS“A¥F 



0199 


0200 

0201 


REF 24 LAST 1114 
ref 2 30 LAST 1 11 3 


6227 7 0020 1 

6T3F 50 00“0“T 


rTRT 


M A S K 

INDEX 



R EF 


623 1 1 6303 0 


TCF 


MISCJUMP 








rta -so 


gap: assemble 

REVISION 055 

OF AGC PR 

OGRAM Cf' 

1MANCHE 

BY 

NASA 2021113-051 

10:28 APR. 1,1969 CHIEFTAN.023 PAGE 

1115 





L 

INTE 

RPR 

ETER 









USER'S PAGE NO. 9 EO S3 






POZ'O?. 



COMPLETE THE DISPATCHING OF 

UNARY 

AND 

SHORT SHIFT OPERATIONS. 






020^ 

R c F 

16 

L ^ST 

1114 

6232 

54 004 

1 riPJUMP3 

TS 

FBANK 

CALL IN BANK 0 (BITS 11-15 OF A ARE 

0. } 




R020A 



TTPACE (6) 

REFERS T'3 

••OPJUMPT**. 









02 05> 

RFF 

25 

LAST 

1114 

6233 

10 020 

1 


CCS 

CYR 

TEST THIRD PREFIX BIT. 





0206 

REF 

2R1 

LAST 

1114 

6234 

50 000 

1 


INDEX 

A 

THE DECREMENTED UNARY CODE IS IN BITS 




0207 

REF 

i 



6235 

1 

2000 

1 


TCF 

UNAJUMP 

1-4 OF A (ZERO, EXIT, HAS BEEN OETECTEOj 





















020R 

REF 

7 

LAST 

1113 

62 36 

10 163 

1 


CCS 

MODE 

ITS A SHORT SHIFT CODE. SEE IF PRESENT 




0209 

REF 

1 



6237 

1 

2017 

1 


TCF 

SHORTT 

SCALAR OR VECTOR. 





0210 

REF 

n 

LAST 

Ills 

6 2 40 

1 

2017 

1 


TCF 

SHCRTT 






0211 

PtF 

1 



624 1 

1 

2 1 21 

0 


TCF 

SHORTV 

CALLS THE APPROPRIATE ROUTINE. 






0212 

REF 1 


43 64 

FBANKMSK 

EQUALS 

BANKMASK 


OTT? 

REF 22 

ITFT — 30 4 

6242 

00122 0 LVBUF 

ADRES 

VBUF 




I 


INTERPPETFP 


USER'S PAGE NO. 10 


EOSJ 


P0214 



THE FOLLOWING IS THE 

JUMP table For op 

CODES 

WHICH MAY HAVE INDEXABLE ADDRESSES OR MAY PUSH UP. 


0216 

REF 

1 

6243 

1 6454 0 rNDJUMP 

tcf 

VLOAD 

00 - LOAD MPAC WITH A VECTOR. 

0217 

n EF 

1 

6244 

1 7040 0 

TCF 

TAD 

Oi - TRIPLE PRECISION ADO TO MPAC. 

0213 

REF 

1 

6245 

1 7624 1 

TCF 

SIGN 

02 - COMPLtMi-NT MPAC CV OR SC) IF X NEG. 

0219 

REF 

1 

6246 

1 7350 1 

TCF 

VXSC 

03 - vector times scalar. 

— — — — ■■ - ■ ■ - M' ■ ■>— r- — — ■»-«' ^ — _________ _ _ 

0220 

REF 

1 

6247 

1 6652 1 

TCF 

CGGTO 

04 - COTiPUTuO GO TO. 

0221 

REF 

2 

LAST 405 6250 

1 643T 0 

TCF 

TLOAD 

05 “ LOAD mpac With triple precision. 

0,222 

fVEF 

1 

6251 

1 6021 0 

TCF 

DLOAD 

06 - LOAD MPAC WITH A DP SCALAR. 

0223 

RFF 

1 

6252 

1 7573 0 

TCF 

773C 

07 — VECTOR DIVIDED SV SCALAR. 


0224 

RFF 

1 

6253 

1 6450 1 

TCF 

SLOAD 

10 - LOAD MPAC IN SINGLE PKECIblUN. 

0226 

REE 

1 

6254 

1 6567 1 

TCF 

SSP 

11 - SRT SINGLE PRECISION INTO X. 

0226 

RFF 

1 

6255 

1 6472 1 

^TCF 

POOL 

12 - PUSH Down MPAC AND RE-LUAD IN OP- 

0227 

REF 

1 

6256 

1 7303 1" 

TCF 

MXV 

13 - MATRIX POST-MULTIPLIED BY VECTOR. 

0228 

REF 

1 

6257 

1 6526 1 

TCF 

POVl 

14 - PUSH DOWN AND VECTOR LOAD. 

02 2 9 

R E !' 

1 

626 0 

1 6575 1 

TCF 

CCALL 

15 — COHPuTfcO CALL. 

0230 

REF 

1 

6 261 

1 7306 1 

TCF 

VXM 

16 - MATRIX PRE-MULTIPLIED BY VECTOR. 

— - — -- — — m — H — KE — .-T* — >. — ■»-* V K WK ■ ■ ■ 'W"TK" JM. X ■ ■ 'X ■pC”" E. 1 1 31 x* ’ll 

0231 

REF 

1 

626 2 

1 7565 1 

rcF~ 

TSLC 

1? - normalize mpac (SCALAR ONLY). 


0232 

REF 

1 

6253 

1 754,3 0 

TCF 

DMPR 

20 - DP MULTIPLY AND RUUNU. 

- - _ — -1 1 1 - [ -B 1 _ ■ - - - ■ . ■ — .^=== - - « . ■ 

0233 

iTET 

"T” 

6264 

1 7546 0 

— TCF " 

onv 

21 - DP DIVIDE BY. 

0234 

RTF 

1 

— ^ 6255 

1 7552 0 

"TTF 

RTFTV 

22 — DP Divide inIO. 

0233 

R E F 

1 

6266 

1 7570 0 

TTF 

gshifT 

23 — GENERAL SHIFT INSTRUCTION. 

0236 

R FF 

1 

6TFT 

1 6120 0 

TCF 

“VTrrr 

24 — VECTOR ADD. 

~~ UTiT 

REF 

1 

^ 6 270 ■ 

1 6716 0 

TCF 


25 — VECTOR SUBTRACT. 

0238 

^EF 

1 

627 1 

1 7005 1 

TCF 

bYXD 

26 - vector SUBTRACT FROM. 

U7JT 

E f 

“r~ 

6T77"" 

1 7300 1 

TCF 

DTTT 

2/ ^ V^CIUR {30T^ PRODUCT* 









0240 

TTEF 

“T“ 

62 73 ■ " 

1 7427'C 

TTF 

vxv 

30 — VECTUK CPT’SS PRUDUC 1 . 

0'J4T 



6^27^ 

1 73/4 1 

TCF 

3/PROJ 

31 — VECTOR PROJECT lUN. 

UT^*2 

■ REF 

1 

— 62/5 

1 6754 75 

TCF 

D SU 

32 - DP SUBTP AC E • 

0243 

RTF 

1 

6276 

1 7031 0 

TXT 


3 3 “ DP SUtiTRAf-ri PKUM# 

0744^ 

REF ■ 

1 

"62 77 “ 

1 6744 "1 

TCF 

□ AU 

34 — DP add. 

- - — 1 ■ ■ ■ , - — « .JIT u ■. 1 1 .. 





63 OCT' 

1 6300 0 

^ TCF 


35 - available 

0246 

RlT 

"T“ 

63'0T“ 

1 7h4T~I 

TC h 

HMPI 

36 - DP ^^'JL T 1 PL Y . 

0747 

“ RFF 

T” 

6^U2~ 

1'T552 0 

TCF 

- SETPO 

3T - ^FT PUSH DUWN POINIEK (UlKtCI UNLTJ 


RTJTTTs- 

cddeS 

“TTT 

ANO K MU5T NOT RUOT 

UP. CODE 04 MAY BE UStU 

FOR VbCTDR 

DECLARE BEEUKL PUSHUP IE UtSlKtU. 







. 

- ~ - W - ■ -; — ... - ^ , ■. '.-.1 M • 



G 


AP 


ASSeMTiLE REVISION OS5 Hr AGC POGGPAM COMANCHE BY NASA 2021113-Q51 


10:28 APR 


1,1969 CHIEFTAN.023 PAGE 1117 


INTERPRETER 


USER^S PAGE NO 


11 


EO S3 


P02B0 


THE FOLLOWING JUMP TABLE APPI. lES TO 


INDEXt BRANCH. AND MISCELLANEOUS INSTRUCTIONS. 

, , , ■ _ ■ M !■ I ■ ■ m r - T—. — 


0252 

R EF 

1 

6303 

1 

2371 

1 

Ml sc JUMP TCF 

AXT 

00 - 

ADDRESS TO INDEX TRUE. 

025? 

REF 

1 

6306 

1 

2376 

0 

TCF 

AXC 

01 - 

ADDRESS TO INDEX COMPLEMENTED. 

0256 

pep 

1 

630 5 

1 

2401 

1 

TCF 

LXA 

02 * 

LOAD INDEX FROM ERASABLE. 

0253 

REF 

1 

6306 

1 

2605 

0 

TCF 

LXe 

03 - 

LOAD INDEX FROM COMPLEMENT OF ERAS. 

0256 

REF 

1 

6307 

1 

2411 

0 

TCF 

SXA 

06 - 

STORE INDEX IN ERASABLE. 

0^57 

R EF 

1 

6310 

1 

2617 

0 

TCF 

XCHX 

05 - 

EXCHANGE INDEX WITH ERASABLE. 

0255 

KEF 

1 

6311 

1 

2433 

0 

TCF 

I NCR 

06 - 

INCREMENT INDEX REGISTER. 

0259 

REF 

1 

6312 

1 

2662 

0 

TCT 

T 1 X 

07 - 

TRANSFER ON INDEX. 


'1 


0260 


0261 


026 2 

0 26 3 


02 6^ 
0267 


REF 


REF 

WFf 


6313 

6316 1 

6^T5 

6316 

T^rn 


2625 


TCF 



XAO 

AZE/GOrD 


INDEX REGISTER ADD FROM ERASABLE 




INDEX SUBTRACT FROM ERASABLE. 
BRANCH ZEkO AND"GTTTTT; 

PLUS AND BRANCH MINUS. 



Z536 



REF 


2 5 63 
2504 


■pTFTWTT 

^LL / I TA 
SW 

BOVCBT 


BRANCH 

RETURN 

G7m:~7T 

SWITCH 

BRANCH 


TO BASIC AND BRANCH HI ZERO 



orn^E T • 

IONS ANfJ AVAILABLe. 


ON ovERFtny m BASIC rm int. 








J 



























C 7 AP: 

ASSPMBLe REVISION 05“=; OF 

A or. PROGRAM- 

1 CnMANCHE 

6Y NASA 2021113-051 

10:28 APR. 1. 

1969 

CHIEFT4N.028 

PAGE 1118 










L 

INTERPRETER 




USER'S 

PAGE 

NO. 12 

FO S3 


P0268 

THE FOLLOollNG 

JUMP TABLE 

APPTFS TO 

UNARY instructions. 














0269 

REF I 



COUNT 00/INTER 







0?70 


0271 



R ^ F 


02 84 
02 8 5 


0272 

REF 

1 


00,2001 

1 

3827 

0 

TCF 

SINE 


027 3 

REF 

1 


00,2002 

1 

3516 

1 

TCF 

CITSTTTE 


0274 

REF 

1 


00,2003 

1 

3607 

1 

TCF 

ARCS IN 


0275 

REF 

1 


00, 2004 

1 

3611 

0 

TCF 

ARCdUS 


02 76 

“"RTF 

] 


00,2005 

1 

3174 

1 

TCT 



02*7 7 

REF 

1 


00.2006 

1 

2116 

1 

TCF 

ROUNO 



0278 

REF 

1 


00,2007 

1 

76 37 

0 

TCF 

CU.viP 


0279 

REF 

1 


00.2010 

1 

3233 

0 

TCF 

VOEF 


0280 

REF 

1 


00, 20 11 

1 

302 3 

1 

TCF 

UNIT 




STTJT 






EHENT VECTOR 



00.2016 1 2247 1 


PUSH 


RETURN 
PUSH niRAc down. 


gap: 

ASSEMBLF REVISION 035 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969 CH1EFTAN.028 

PAGE 1119 


L 

I NTERPRETF 

D 

USER*S PAGE NO. 13 

FO S3 


P0P.86 

SECTION 2 

LOAO ANO 

STORE 'PACKAGE, 







R 02 oY 

A 

SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE 


R 02B9 

ACCUMULATOR ( MPAC) . 

IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD. IT IS TAKEN 

AS A 

P 02 n 

STORE CORE 

WITH A COPPFSPONDI NG ERASABLE ADDRESS. MOST OF THESE COOES APE TWO AODRESSt SPECIFYING THAT 

THE WORD 

R0293 

FOLLOWING 

THE STORE 

CODE IS TO BE USED AS AN AODRtSS FROM WHICH TO RF-LOAO MPAC. FOUR OPTIONS ARE AVAILABLE: 


R02 95 

1 

. STORE 

STORE MPAC, the E ADDRESS MAY PE INDEXED, 


R0297 

7 

. STOOL 

STORE MPAC AND RE-LOAO IT IN OP WITH THE NEXT ADDRESS (THE LOAD MAY BE 

INDEXED) . 

R0299 

3 

. STOVL 

STORE MPAC AND RE-LOAO A VECTOR (AS ABOVE r. 


R0301 

A 

. STCALL 

STOPr: ANO DO A CALL (BOTH ADDRESSES MUST BE DIRECT HERE). 



R0303 

STOOL AND 

STOVL -iILL take from the push-down LIST IF NO LOAO ADDRESS IS GIVEN. 




0^05 


6323 


BLOCK J 


0 306 

REF 

2 

LAST 1107 TO 

n I'l; 

205 205^ 

COUNT 

03 /INTER 













~ 0307 

REF 

4 

LAST 1108 

6323 

3 0165 0 STADR 



T^HE STAOR CODE (PUSHUP UP OTT 

STORE 

0308 

t s. F“ 

17 

LAST 1115 

63 24 

54 004 1 

TS 

FRANK 

ADDRESS) ENTERS HERE. 


ijTa^5 



LAST lll'Zf 

63T5r 

24 164 1 

TTCTI 

LOC 



nTFT 

RF|- 

18 

LAST lir9 

6 3 2 6“ 

50 164 1 TJKl 

INDEX 

L ' ')C 

THE STURECODE WAS 5 1 ORE D COMP 

CEMENTED TO 

cmn 




63 2 7 

4 0000 0 

“TS 

0 

MAKE IT LOOK LIKE AN OPCODE PAIR, 

UJT2 

R'FF“' 

~~Tr 

LAST 1090 

6 330 

6" 771 6 0 

AD ■■ 

N fc G U N E 

(YUL CANT REMOVE 1 BECAUSE UE 

EARLY CCS# 


0 313” 

— PTF" 


LAST TITl 

ETJT 

54 116 0 OUSTORfc 

TS 

A DDK WD 



0314 

— irpp- 

T" 

LAST' 3T9 

" 6 3 32 

“T AB 72 r ■ ■ 


L n w 1 1 

ENTRY EKU'^' DlSPAlCHbK, SAVe T 

t 1 1 1 r* urn — ■ - 

0 3 1'5 

P EE 


XASf 1119 

6333 

56 116' 1 

XCH 

A'OUH WD 

AUOkESS and JUMP ON THE STORE 

coot' N U • 

031c 

REF 

T~ 


27T37r 

7 6 7 1 1 


B 1 2 T 1 4 



0317^ 




633 5 

■ (T OTJaG T 

EXTFND 





REF 


T.A5TT0nzrZ' 

63 3^ 

' 7^ 0T3 T 

MP 

BTT5 

EACH TRANSFER VECTOR EnTkY IS 

1 WU 

0319 

RFF" 


LAST 1115 

633 7 

50 000 1 TTRO 

I NDEX 

A 



rr3?D — 

REF 

— r~ 


63 4ir 

“I 6341 D 

TCF 

SI UR JUffP 





I 


GAP: ASSFi^BLE REVISION 05S OF AGC PROGRAM COMANCHE BY NASA 20P1113-051 


10:28 APR 


1,1969 CHIEFTAN.028 PAGE 1120 


INTERPRETER 


USER'S PAGE NO 


1 ^ 


EO S3 


P0321 



STOPF code 

JUMP TABLE 

• 

CALLS 

THE 

/appropriate 

STORING ROUTINE AND EXITS TO DANZIG OR TO AODRESS WITH 

ROT 23 

A SUPPLI 

FD OPERATION 

COOc . 








RO 3?31 



STORE STORE 

. 1 AND STOPF 

,2 RETURN 

to danztg* 

THUS RESETTING THE 

EBANK TO ITS STATE AT INIPRET. - 


0324 

3EF 

1 


6341 

0 

63 71 

1 STORJUMP TC 

STORE 

STORE, 

0325 

REF 

o 

LAST 800 

6342 

1 

6030 

0 

TCP 

DANZIG 

PICK UP NEW QP COD^T^I. 

0326 

REF 

1 


6343 

0 

6363 

1 

TC^ 

STORE, I ~ 


0327 

E F 

10 

LAST 1120 

6344 

1 

6030 

0 

TCP 

DANZIG 


0323 

REF 

1 


634 5 

0 

6366 

1 

TC 

STORE .2 


0329 

RF.F 

11 

LAST 1120 

6346 

1 

60 30 

0 

TTF" 

DANZIG ~ 













0330 

REF 

2 

LAST 1120 

6 347 

0 

63 71 

1 

TC 

STORE 

STOOL. 

0331 

REF 

1 


6350 

1 

6427 

1 

TCF 

DnOLOAO 













0332 

REF 

3 

LAST 1120 

63 51 

0 

6371 

1 

TC 

STORE 

STOOL WITH INDEXED LOAD AODRESS. 

0333 

REF 

1 


6352 

1 

6113 

0 

TCF 

OnOLOAO* 



0334 

RFF 

4 

LAST" 

1120 

6353 

0 6371 1 

TC 

STORE 

STOVL. 

03'^5 

REF 

1 



6354 

1 6432 0 

■ TCF " 

DOVLOAO 



0336 


5 

LATT" 

TITO “ 

6155“ 

"0 6371 I 

TC 

5 T ORE 

STOVL WITH INDEXED LUAD ADDKbbb* 

0337 

REF 

IT 



6T56- 

1 6435 1 

TUT 

DOVLU AD’«' 


0338 

REF 

6 

LAST 

1120 

6357 

0 6371 1 

TC 

ST(3RE 

STOTC, 

0 3 39 

REF 

1 



6'3'6Cr 


C AE 

CAl LCODF 


0740 

REF “ 

~2&' 

LAST 

TTT5 

6361 

"37r302o "r " 

TS 

CYR 


0341 

REF 

1 



6362 

1 6221 1 

TCF 

15BlTAf)R 

get A 15 BIT address. 









gap: 

ASSEMBLE RFVISI3N 055 GF 4GC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APP. 1.1969 

CHIEFTAN.028 

PAGE 1121 








L 

INTERPRETER 

USER'S PAGE 

NO. 15 

EO S3 



P034? 

■ ■■ - 


STORE CODE 

ADDRESS PROCESSOR. 












0343 

REF 

21 

LAST 1111 

6363 

50 120 1 

STORE. 1 

I NO E X 

FIXLOC 









0344 

LL 

UJ 

57 

LAST 1111 

6364 

4 00 46 1 


cs 

XI 








0343 

REF 

1 


6365 

1 6370 1 


TCP 

PRESTORE 












0 347 
0348 


034 


n 


REF 22 LAST 1121 




REF 


17 


LAST 934 
LAST 1119 



RtP 

1 

•* 

0351 

RFF 

2 83 : 

0352 

REF 

23 1 

03 5 3 

REF 

1 

0354 

REF 

6 1 


REF 

18 

03o6 

RE'F 

49 

■ 0357 

REF 

10 

03SS 

REF 

19 


LAST 1119 


LAST 1121 


LAST nil 


LAST IITT 


LAST 1111 
LTTST TTTT 

CAST rr?i 


6366 SO 120 1 STORE. 2 INDEX FI XLOC 


6367 
6 3 7 0 


4 0047 0 
26 116 0 


£S 

PRF.S'TORF AOS 


X2 
A 0 OR W 0 


6373 



000 
3 0120 1 
1 6402 0 
7 



FI XLOC 
AHEA05 
0CT1400 


6401 

^W2 


'ADDR WD 

EBAM 

rrjw? 


RESULTANT ADDRESS IS IN ERASABLE. 



DOES TFTE address POINT TO THE WORK AREA? 

YFST 


no:;; — set e baric 


subaddrfss 



AHEAT35 



















^ STORING ROUTINES. STORE DP, TP. OR VECTOR AS INDICATED BY MODE. 


0360 





6403 

0 00 0*6 

1 

STAPTSTO 

EXTEND 

MPAC.+l MUST BE STORED IN ANY EVENT. 

R0361 



ITRACE (5) 

REFERS TG 

"STARTSTO 

It 

• 



0362 

P.EF 

2 90 

LAST 

1108 

6404 

3 0155 

0 


"UTS 

MPAC 

03 63 

RTF 

20 

LAST 

1121 

640 5 

50 116 

1 


INDEX 

A DDR WO 

0364 





64 06 

52 001 

1 


DXCH 

0 


0366 

REF 

8 

LAST 

1115 

6407 

10 163 

1 


CCS 

MODE 

0366 

REF 

1 



64 10 

1 6423 

0 


TCF 

TSTGkE 

0367 

REF 

233 

LAST 

1106 

6411 

0 0002' 

0 


TC 

Q 


036S 





641 2 

0 0006 

1 

VSTORE 

EXTEND 


0369 

REF 

291 

LAST 

1122 

6413 

3 0160 

0 


OCA 

MPAC +3 

0370 

REF 

21 

LAST 

11 2 2 

6414 

50 116 

1 


INDEX 

AOORWD 

0371 





6415 

52 001 

0 


OXCH 

2 


0372 





6416 

0 0006 

1 


EXTEND 


0373 

REF 

292 

LAST 

1122 

6 417 

3 0162 

1 


nCA 

MPAC 

0374 

REF 

22 

LAST 

1122 

6 4 20 

50 116 

1 


INDEOT” 

ADORWO 

0375 





6421 

52 005' 

0 


DXCH 

4 

037 s 

rn 

2 34 



6422 

0 0002 

0 


TC 

Q 

f ■ — —■ 


03?7 REF 293 LAST TU2 ^423 3 01 o6 0 TSTOftE C5 HPAC +2 

0378 RU 23 LAST 1122 TO^lT-n INDEX ADORWO 

OTTs ' S42S" S4 002 1 TS ~2 

03S0 REF 235 LAST 1122 6426 0 0002 0 TC 5 





I 









GAP : 

ASSEMBLE ^^EVISION 055 ^'F AGC PROGRAM CQr3ANCHE BY NASA 2021113- 

051 10:28 APR. 

1, 1969 

CHIEFTAN 

.028 PAGF 1123 



L 

INTERPRETER 

USER’S PAGE 

NO, 17 

EO S3 









P0331 

ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS 

ASSOCIATED WITH ALL 

STORE-TYPE CODES 

EXCEPT STORE 


R0333 

ITSELF. 







0384 

REF 

1 



64-2 7 

3 

7701 

0 

DODLOAD 

CAF 

DLOADCOD 



03 15 

REF 

27 

LAST 

1120 

64-30 

54 

020 

1 


TS 

CYR 



0336 

REF 

1 



6 4 3 1 

1 

6056 

0 


TCF 

OIKADRES 

GO GET A 

DIRECT ADDRESS. 


0 3 37 

REE 

1 



64 32 

3 

5001 

0 

DOVLOAD 

CAF 

VLOADCnn 



0388 

REF 

23 

LAST 

1123 

6433 

54 

020 

1 


TS 

CYR 



0389 

REF 

2 

LAST 

112 3 

6434 

1 

6055 

0 


TCF 

DIRAORES 




0390 

REF 

1 



6435 

3 

60 56 

1 

DOVLOAD* 

CAF 

VLOAO* 



0391 

RFF 

2 

LAST 

1120 

6436 

1 

6114 

1 


TCF 

DODLOAD* +1 

PROLOGUE 

TO INDEX ROUTINE. 









r,AP: ASSFMBLc REVISinN 055 OF AGO PROGRAM COMANCHE BY NASA 2021 113-051 


I NTERPRETER 


10:23 APR 


1.1969 CHIEFTAN,023 PAGE 1124 


USER'S PAGE MO 


18 


EO S3 


P039? 




0395 


0396 

0397 


0398 


0399 

0400 


0401 


0402 


THE following I T'^0 INSTRUrTIGNS ARE PROVIDED FOR LOADING THE MULTI-PURPOSE ACCUMULATOfT MFACT 


REF 24 LAST 1122 


REF 294 LAST 1122 


REF 25 LAST 1124 


REF 295 LAST 1124 


RFF 135 


REF 


LAST 1038 


/ 

O 


437 50 lib 1 TLOAD 


6440 3 0002 0 


6441 

6A42 


6444 

6445 


54 156 1 
0 0006 1 


6443 5 0116 1 


3 0001 0 
52 155 1 


6447 1 602^ 0 


INDEX ADDRWD 


CA 


TS 
EXTEND 


MPAC +2 


INDEX ADDRWD 


DC A 
OXCH 


6446 3 5017 1 TMOOE CAP 


TTF 


0 

MPAC 


ONE 

NEWMODE 


LOAD A TRIPLE PRECISION ARGUMENT INTO 


THE FIRST three MPAC REGISTERS. WITH THE 
CONTENTS OF THE OTHER FOUR IRRELEVAN 


DECLARE ■ T R T PIT T3TD M MODE. 


0403 


0404 


0405 


0406 


0407 


04 OS 


04 0 9 
0410 


0411 


0412 


041 


:j 


REF 26 LAST 1124 


^^0 22 007 0 SLOAD 


6451 50 116 1 


21 


INDEX ADDRWD 


LOAD A SI 



>LC 



NUMBER INTO 


MPAU. SETTTNU“M P A C + 




6452 3 0000 1 


REF 


6453 I 6024 0 


CA 

TCTF 


0 


SLnAD2 


CONTENTS OF THE REMAINING MPAC REGISTERS 
ARE IRI^ELEVANTTV 


6454 0 0006 1 VLOAD 


EXTEND 


*'EF 27 LAST 1124 


6455 
645 6 


5 0116 I 


INDEX ADDRWD 


LOAD A OnUBLF PRECISION VECTOR INTO 

+5 76. TW 



REF 296 LAST 1124 


64i>7 


3 0001 0 
52 155 I 



DXCH 



MPAC » 1 f MFAC4-3 
GONTETTTS ID F MP AX ' +2 A RF' I R R c L E V ANT. 


REF 28 LAST 1124 


0414 “RlT 2 97 L AST 1124^ 


646 0 
6461 


646 2 


D 0006"I 
5 0116 1 
3 D OTTT' 1 


6463 ^ 160 I 




INDEX 
DTA 


ADDRWD 


2 


DXCH 


MPAC + 3 


WVl HERE TO FINISH 



DP. TP 


04T^ 


WT6 


0417 


^4TS 


0 419 


LE last 1124 


” XT'(T01T6“ I 
6976^ 5 0ir6“T 


f'l 


EF 293 ITTST'TrZA 


REF 136 


’T 


LAST 1124 

t7r5nr24 


646 6 

646 7 


^47TT 


^TT 


3 0005 I 

5T 162 0 


4 5017 D 
173 



4-4 


VMOOT 


lEXTENTT 

INDEX 





TDXtnr 


A 

MPAC +5 


TCTF 


Tm 

ITE 



TPDVL FINISHES KERF 


DFCLARt VECTOR MUDt 



gap: 

ASSEMBLE REVISION 0S5 OP 

\r,C PfOGRAM COMANCHE BY NASA 20211 13-OSl 10;2B APR. 1.1969 

CHIEFTAN.023 PAGE 1125 



L 

INTERPRETER 


USER'S PAGE 

NO. 19 EO S3 



^6\?l 

THE FOLLOWING 

INSTRUCTIONS ARE PROVIDED FOR STORING OPERANDS IN THE PUSHDOWN LIST: 



R042 3 

1 . 

PUSH 

PUSHDOWN AND NO LOAD. 



R0474 

2. 

POOL 

PUSHDOWN AND DOUBLE PRECISION LOAD. 



P0425 

3. 

PDVL 

PUSHDOWN AND VECTOR LOAD. 




0426 





6472 

0 0006 

1 

POOL 

EXTEND 




0427 

REF 

30 

LAST 

1124 

6473 

5 0116 

1 


INDEX 

ADORWD 

LOAD MPAC.+l. PUSHING THE FORMER 


042 8 





64 74 

3 0001 

0 


OCA 

0 

CONTENTS DOWN. 


04 2 

REF 

299 

LAST 

1124 

6 4 7 5 

52 155 

1 


DXCH 

MPAC 



0430 

RFF 

2 

LAST 

1113 

6476 

50 166 

0 


INDEX 

PUSHLOC 



0431 





6477 

52 001 

1 


DXCH 

0 
















0432 

REF 

9 

LAST 

1122 

6500 

50 163 

0 


INDFX 

M^JOE 

ADVANCE THE PUSHDOWN POINTER APPRO- 


0433 

REF 

3 

LAST 

1113 

6501 

3 6213 

1 


CAF 

No.wns 

PRIATELY. 


0434 

REF 

3 

LAST 

1125 

6502 

26 166 

1 


ADS 

PUSHLOC 




0435 

REF 

10 

LAST 

1125 

6503 

10 163 

1 


CCS 

MUOF 



043 6 

REF 

1 



n504 

1 6521 

0 


TCF 

FNDTPUSH 



0437 

^FF 

i 



6 50 5 

1 6517 

0 


TCF 

ENODPUSH 

















R E F 

ll 

T^AST" 

1125 

6506 

54 163 

1 


TS 

N D D t 

NOW DP. 



REF 

300 

1“A5T^ 

1175 

6507" 

54 156 

nr“ 

ENDVPIJSH 

TS 

MPAC +2 



0440 

REF 

101 

LAST 

1125 

6510 

52 160 

1 


DXCH 

MPAC +3 

PUSH DOWN The rest of the vector here* 



REF 

4 

~orsT^ 

ri TTT ■ 

6511 

“5TT“r6?r 

(i“ 


TITOTEX” 

pusHtncr 



0442^ 





65T7" 

“51 * 7 7 j 

“0 


OXCR 

0 -4 
















0443 

REF ■ 

“502“ 

~OST' 

1125 

— 6513 

— 52 1 52“ 

~o 


DXCH 

i^pAC +5 





■■■4ET'" 

"5“ 


XT 2 5 

— ETSTS" 

50 146“ 

“TT 


~TmEyr~ 

PUSHLUC 



0446 





6 515 

5 1 ’ 7 7 7 1 


D XC H 

0 -2 



1 . — ■ ■ " ■ — . - ■ ~ ~ ■ a MMM ■ ■■ ■ W ■ S. ... 

0446 

REl^ 

T 2 

IAS3“ 

nzo ' 

6515 

1 6030 

0 


TCF 

DANZIG 





T-TTf 

303“ 

"LXST^ 

1125 

bFIT 

54 156 

7l 

f_ 1 \l 1 J II j| f 1 

33 

^PAC +2 

SET MPAL +2 TO 7EHU AND EXll UN DP. 


“ “(^44^ 

IJ p p 


LAST 

1125 

"6570“ 

1 6030“ 



TCF“ 

DANZ IG 




044 

REF 

~~T2~ 

T7T5T 

1125 

— 6521 

54 16T 

1 

^fTHTPUSH 

13 

M U D t 



0430 ' 

1 ’ E F 

“504“ 

L AST 1T2^ 

— 6-57^ 

56 156 

n 

j" 


“XCIT 

MPAC +2 

ON TRIPLEt SEl MPAC +2 TO ZEROt PUSHING 


0451 

; ’ F 

“5” 

LAST 1125 • 

6523 

50 1 66 

0 

+ 2 

I NDFX 

PUSHLUC 

DOWN IHt ULU LUNIENIS 


0462 





6 524 

“31^777“ 

“77“ 



0 -1 



0451 

5’ F F 

“514 

LAST" 

1125 

" ■ 6525 

1 60 30 

TT' 


TC F 

■ DANZIG ~ 
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L 


INTERPRETER 


USER’S PAGE NO. 20 


FO S3 


P0454 


POVL - PUSHDOWN AND VECTOR LOAD. 


0455 




6526 

0 0006 

1 

POVL 

EXTEND 


RELOAD MPAC AND PUSH DOWN ITS CONTENTS. 


0456 

REF 

31 

LAST 1125 

6527 

5 0116 

1 


INDEX 

ADDRWD 



045 7 




6530 

3 0001 

0 


DCA 

0 



0458 

rIT" 

T05 

LAST 1125 

6531 

52 155 

1 


OXCH 

MPAC 



045 0 

REF 

7 

LAST 1125 

6532 

50 166 

0 


INDEX 

PUSHLOC 



0460 




6533 

52 001 

1 


OXCH 

0 




0461 

Ru- 

13 

LAST 1125 

6534 

50 163 

0 


INDEX 

MODE 

AuvANCE THE PUSHDuWN rUlfMitK# 


0462 

REF 

4 

LAST 1125 

65 35 

3 6213 

1 


CAF 

NO.WDS 



0463 

REF 

8 

LAST 1126 

6536 

26166 

1 


AOS 

PUSHLOC 




0464 

D C P 

14 

LAST U26 

6 5 3 7 

10 163 

1 


CCS 

MODE 

TEST PAST MnOfc. 


0465 

rTf“ 

1 


6540 

1' 6557 

1 


TCF 

TPOVL 



0466 

REF 

i 


6 5 4 1 

1 64 60 

1 


TCP 

ENOVLOAO 

JUST LOAD LAST FOUR” REGISTERS ON DP. 














0467 




6342 

0 0006 

_ 

VPDVL 

EXTEND 


PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS 


0468 

PEF 

32 

LAST 1126 

6 54 3 

5 0116 

1 


INDEX 

ADDKWD 



0460 




6544 

3 0003 

1 


DCA 

2 



04^0 

REF 

306 

LAST 1126 

65 4 5 

52 160 

1 


OXCH 

MPAC +3 



0471 

REF 

9 

LAST ii26 

65 46 

50 166 

0 


INDEX' 

PUSHLOC 



04'^? 




6547 

51* 775 

0 


OXGH 

0 -4 




0473 





0 00 06 

TT" 


EXTENT) 




0474 

REF 

33 

LAST 1126 

6551 

5 0116 

1 


INOrX 

AODRWD 



047*^ 




6552 

3 0005 

1 


DCA 

4 



04 76 

REF 

307 

LAST 1126 

6553 

52 162 

0 



MPAC +5 



0477 

ref 

10 

LAST 1126 

STW 

50 166 

~r) 


INDEX' 

PUSHLOC 



0478 




65 55 

TnTTT" 

i 


DXCTi 

0 -2 




n4T9“ 

PET= T5 

XA3T 112 5 

6556 

“31 603IT“D“ 


TCF 

HANZIG 




0480 




655 7 

0 "0006 

T~ 

TPOVL 

EXTEND 


ON fP* Wh MUSI LUAU 1 Mt T l^U M IHN l 


0451 

REF 

34 

LAST"T126 

6 560 

5 0116 

T‘ 


” T NI5FX 

A DDR WD 

BEFORE STORING MPAC +2 INCASE THIS IS A 


0482 




6561 

3 OO'OT 

1 




PUSHUP • 


043 3 

R£P 

308 

LAST Tr2'6— 

6562" 

52 160 

1 


DXCH 

P A C +3 




04 B4 

REF 

309 

LAST 1126 

6563 

3 0156 

0 


CA 

MPAC +2 



04 85 

RxF 

11 

last 1126 

6 564 

■ 57) 166 

0 


mOTE X 

1 J S H L n c 

IN DP. 


^48 6 




6 56 5 


0 


T^S 

0 -1 



048 7 

REF 

2 

LAST 1126 

6 5 66 

1 64 64 

0 


TCT 

c N D V L 0 A IJ +4 















R 04 hh 



SSFn^STOR"^ 

SINGLE FR 

L - 1 1 1 ■ 1 1 \I J 

r~u 

r FJTECUTEDHFR F. 
















04 R 'V 

" RFF" 

■ 

L AST TTT9“ 

5T 6T ' 

“Z4~TW 



INCP? 

"xoi: 

PTCK UP THE T7URD POLE OWING IFIE GIVEN 


■ Dwr 

RTT" 

■2TT' 

LAST 1126 

'657 0 

WRTTT 


“TN1JE'X“ 

“Tor. 

AlTiJKhSS AND ‘^TOKE IT AT X. 


0491 




6571“ 

3 WOTT 



CA 

0 



0492 

! 1 C F 


L A ST I ITT ” 


" 5a ~TT6 

1 

STURtl 

— rwFX' 

adurwo 

SUMh I NDEX AND MISCELLANEOUS OP'S END 


— 0493 




65 f3 

■34 000 

0“ 


TS 

0 

HERE. 
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L 

INTERPr<eTER 





USER'S PAGE 

NH. 21 

EO S3 



0494 

REF 16 LAST 1126 

6574 1 6030 

0 

TCF DANZIG 
















GAPT assemble REVISION 055 OF AGC PROGRAM COMANCHE BY NASA P021113-051 

10:28 APR. 1.1969 

CHIEf 

=TAM.028 PAGE 1128 




. 1 a. ^"“71^:*' 



L INTERPRETER 

USER'S page 

NO. 

~J2 EO S3 



P0495 SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS. 








R0^96 


THE FOLLOWING OP-RATIONS AR AVAILABLE FOR SEQUENCING CHANGING. BRANCHING 


R04 98 

TT 

GOTO 

GO TO. 


K0499 

2 . 

CALL 

CALL SUBROUTINE SETTING QPRET. 


R0500 

3 . 

CGOTO 

COMPUTED GO TO. 



R0501 



^4T CCALL 


computed call . 






R0502 



7. B 

dL 


BRANCH 

IF MPAC 

POSITIVE 

OP ZERO. 




R0503 



6 . BZE 


BRANCH 

TF” MPAC ZERO. 





so 504 



9. 8MN 


BR ANCrimF ITPAC 

negative 

NON-ZERD. 





0505 

R r F 

21 

LAST 

1126 

6575 

2 4 164 

1 

ccall 

incr 

LDC 

MAINTAIN LOC FUK OHKb I LOMPU 1 A 1 1 UN . 


0505 

REF 

22 

LAST 

1128 

6 576 

50 164 

1 


I NOE X 

LOC 




0507 





6517~ 

3 0000 

1 


CAE 

0 

GET BASE ADDRESS OF CADR LIST. 



0503 

REF 

36 

LAST 

1126 

6600 

50 116 

1 


INDEX 

AODRWD 




0509 





66 01 

6 0000 

1 


AD 

0 

add increment . 



0510 

REF 

18 

LAST 

111 ? 

6602 

54 0 04 

] 


TS 

FBANK 

SELECi DESIRED CAOR. 



0511 

PEI- 

16 

last 

1111 

6603 

■7 5054 1 


MASK 

LOWIO 




051T" 

SFF 

2 84 

Lirn 

112 r 

6606 

“50“O07) 

1 


IT^DEX 

A 



— 

0513 





66 08 

3 2 000 

0 


C A F 

10000 




0514 

RFF" 

5~ 

LAST 

1114 

66 06 ■ 

54 IITT 


TS 

PDL I SH 





0515 


5 

LAST’ 

1119 

6b07 

3 OlFF 

TT 

call 

CA 

BANKSET 

rUH ANY ur infc CALL UrllUnJit nAlvc 

ur me 


0516 

K E F 

2 

LAST 

1115“ 

6610 

”7””4054 

0 


Mask 

BANKMASK 

ADDKbbS Ob IHb NbAI UH-uuub »^AiK/bruKc: 


■^TTTT 

ref 


LAST 

1125“ 

60 1 1 

6 4364' 

m 


AD 

”BANKMASK 

CUDb AND LbAVb 11 IN UPHb 1 . NUib 

1 nA 1 


0513 

REF 

23 

LAST 

1128 

4612 

6 0165 

1 


AD 

LOC 

0ANKMASK ” 0 U 1 ) ♦ 



fJ5W 

p: ^F” 

24 

LXST” 

1121 " 

6613 

50 120 

T” 


I NDeX~ 

“FTxrnc 




EEUT 

RFF 


L A Sr 

6614 

54 UbT 

”r 


”TS 

QPPET 





052T 

RFT- 

T~ 


T T ^ C ~ 

1 1 

6615 

3 0117 

TT 

GiJlO 

” CA 

POLISH 

bAblL BK AfNUMl i UU C fM L- C # 



ir5ZZ~ 

REF” 

zr 

TAST 

nil 

6616 

T"7TTT^ 

IT 

+ ir 

HTTSKT” 

H1CH4 




0523 





6617 

"0 O'OW 

T" 


FTTEm 


f ** ^ t— ■ t \ ^ \ r\ v w r* ri r m TT C y ri r* T V r m 

C A C 




RTF” 

r 



■ 55T0” 

1 6 5 31 

T" 


3ZF 

G 0 I 0 L K S 

Sbb TF ATJURtSS PUlNTS TO rlXbU UK 

t KA ^ m 

t 1 1 j' 



" ” RFF“ 

— 6 ■ 

LAST 112P 

6 6 21 ■ 

3 0165 

” 0 “ 

F4 

CA 

B ANK Sb 1 

Sb 1 bbANl^ PAk ! Ub bBANK. NbXft bb 1 

Ur 


0525" 

REF 

"TF" 

LA sm 

1108“ 

66 22 

54 006 

TT 


T5 

B B ANK 

IMt CUM^ilNAI lUP'i KJf' Ci 


G57T 

■■ ■“ k TF' 

~ 8 ‘ 

ZTET 

112 8 

' T 6 T 3 

”3”0I1T” 

0 


XAT 

POLISH 

PUT INO.) BANKbbl A! INIKKtl 



■'052 3“ 

RTF“ 

TT 

”X71ST' 

112>3 

6624“ 

1104” 

1 


TS 

FBANKT” 




0529 

RTT" 

IT 

last 

1128 

6625 

7 5054 

1 



L owro 




0530” 

RFF 

7 - 

LAST 

1111 

66 26 ■ 

"F'GTCPT 

nr 


- AD 

2 K 




a53T” 

P b E 

24 

LAST 

miTF~ 

- — dST'T” 

54” 164 TT 


1 s 

L GC 




05T2" 

rTTp- 

TTF- 

■ L"ATr 

1107 

6630 

i" 6 oir 

TT 


J E 

1 N I P RFl +3 















-- liiA 140 11“ 

Q g 1 O ^ 


CTTRir 





F3 . ITUCT” 




E BA NIC— 

T 400 

so YUL DOESN'T CUSj THE 

lJ t L U W • 



U5TA: 


0*333 

05 36 



TT 


TJ5J^ 



17rST~Tr2^ 


6631 3^01 TT 0 G^DTUERS CTT 


TTZF 


T637 


CAST 117T 


~5ETT 

66 3 5 


TTT 

3^ cm 


7?m" 
OTkT 


T5 




■AIT 


XTT 

TCF 


POLISH- 

-bNOVAC 


IHE G 

RFLAT 



THTFA 



porrsH 


GENERAL ERASABtT 
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L 

rNTERPRETER 






USER»S PAGE NO* 23 E3 S3 


0539 

REF 

25 

LAST 

1128 

6636 

3 01 20 1 

CA 

FIXLOC 

WORK AREA. 

0540 

REF 

11 

LAST 

1128 

6637 

6 0117 6 

AD 

POLISH 


0541 

PEF 

2 86 

LAST 

1128 

6640 

50 000 1 

INDEX 

A 

USE THE GIVEN ADDRESS AS THE ADDRESS OF 

0542 





6641 

3 0000 1 

CA 

0 

THE BRANCH ADDRESS. 

0543 

REF 

12 

LAST 

1129 

6b42 

54 117 1 

TS 

POLISH 


054^ 

REF 

1 



6643 

1 6616 1 

TCF 

GOTO +1 

ALLOWS ARBITRARY INDIRECTNESS LEVELS. 











0545 

REF 

50 

LAST 

1121 

6644 

54 003 0 

GOTOGE TS 

E6ANK 


054 6 

REF 

il 

LAST 

1121 

6645 

7 4373 0 

MASK 

L0W8 


0 54 7 

REF 

287 

LAST 

1129 

6646 

50 000 1 

INDEX 

A 

USE THE GIVEN ADDRESS AS THE ADDRESS OF 

054H 





6647 

3 1400 1 

CA 

1400 

The BRANCH ADDRESS. 

0549 


13 

LAST 

1129 

6650 

54 117 1 

TS 

POLISH 


0550 

P H p 

2 

LAST 

1129 

66 51 

1 6616 1 

TCF 

GOTO +1 



0 5 5 1 

R£F“ 

2 5 

LAST 

1128 

6652 

50 164 1 

CGOTH INDEX 

LOG 

COMPUTED GO TO. PICK UP ADDRESS OF CADR 

0552 





6653 

3 0001 0 

CA 

1 

LIST. 

0553 

RFF 

37 

L/'ST 

1128 

66 54 

50 116 1 

INDEX 

ADDRWD 

ADD MODlElFR. 

0554 





Fr55 

6 0000“ 1 

AD 

0 


0555 

REF" 

20 

LAST 

1128 

6656 

54 004 1 

TS 

fbank 

SELECT GOTO ADDRESS. 

^5^ 

REF 

r^: 

Lsirr 

1128 

5657 

7^5054^1 

MASK 

LOWIO 



055 7 


288 

LAST 

1129 

665 0 

50 000 1 

I NDEX 

A 


a5w 





6661“ 

3 2000 0 

“ CA 

lOOOO 


0559 

RTT 

r4^ 

"TATTr 

1129 

6662“ 

ITT 1 

TS 

“Fours K 


0 5 4 0 

RFF" 


l.AST 

1129 

6663 

1 6616 1 

TCT 

GOTO +I 

\(/ITH ADDRESS IN A. 











■ 05^ 

R tF 

T“ 



6664 

6 5 IT 

SWBRTrNCHT'A 

BANKS E r 

SWITCH INSTKUCMUNS WHICH ELECT TO 





“TT" 

L A rr 

in~ 

6665 

54 004 1 

TS 

FRANK 

BRANCH COME HERB 10 DU $0. 

0563 

KEF 

'276' 

“ L“A3T“ 

1IT9~ 

6666 

50 IS^'T 

INDEX 

L OC 


0564 





STTTT 

3 0001 0" 

— ^ “XTs; 



05 5T 

RFF“ 

”r5“ 

LAST 

1129 

6670 

54 3 W 1 

TS 

POL I SH 


05776“ 

— PFF 

■ 4 

■ XAST 1129 

6671 “ 

n: TTTI 6 T 

rcT 

GUT LI +1 

- ■■ ■ ~ — ~ ‘ — — —mm- 
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ASSEMBLE REVISION 055 OF AG 

C PROGRAM COMANCHE 

BY NASA 2021113-051 10:23 

APR. 1.1969 

CHIEFTAN.028 

PAGE 1130 



L 

IN1 FRPRFTER 



USER'S PAGE 

NO. 24 

E3 S3 










PCSb? 

TRIPLE PRECISintsI 

BRANCHING ROUTINE. 

IF CALLING TC IS AT L, RETURN 

IS AS FOLLOWS 

« 

• 











R0569 

L+1 IF MPAC IS 

GREATER THAN ZERO. 






R057^ 

L+2 IF mpaC IS 

EQUAL TO ■*•() OR -0. 






R0S71 

L+3 IF MPAC IS 

LESS THAN ZERO. 








05 72 

REF 

310 

LAST 

1126 

667 2“ 

10 154 

0 


CCS 

MPAC 







0573 

KEF 

?36 

LAST 

1122 

66 7 3 

0 0002 

0 


TC 

Q 







0574 





6 o 74 

1 6 67 6 

1 


TCF 

+2 


ON ZERO. 





0575 

REF 

1 



6 67 5 

1 6/10 

0 


TCT 

MEG 








0576 

REF 

311 

LAST 

1130 

6676 

10 155 

1 


CCS 

MPAC 

+ 1 






0577 

REF 

237 

LAST 

1130 

66 77 

0 000? 

0 


TC 

Q 







0578 





6700 

1 6702 

0 


TCF 

+ 2 







0579 

RcF 

2 

LAST 

1130 

6701 

1 6710 

0 


TCF 

NEG 








0530 

REF 

312 

LASt 

1130 

670? 

10 156 

1 


CCS 

MPAC 

+ 2 






0 5 81 

REF 

238 

LAST 

11 30 

6703 

0 0002 

0 


TC 

0 







05 32 





5T04 

1 ttitis 

1 


“TCT 

+2 







0583 

PEF 

3 

LAST 

1130 

6705 

1 6710 

0 


TCF 

NEG 
























0534 



“TSTT 

1130 



TT 

0+1 

INOFX 

g 







0585 





6 707 

0 0001 

"0” 


TC 

i 
























0586 

RFF 

240 

LAST 

1130 

STTO" 


0 

"NIG 

TNDEX 

9 
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~trnrr 
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P0594 SECTION T - ADO/SUBTRACT PACKAGE. 


R05 -^5 

THE 

FOLLOWING 

OPERATIONS ARE 

PROVIDED FOR ADDING 

TO AND SUBTRACTING FROM THE MULTI-PURPOSE ACCUMULATOR 
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MPAC: 








P059B 

1 . 

DAD 

OnUBL E 

PRECISION ADO. 




R059'^ 

2. 

osu 

DOUBLE 

PRECISION SUBTRACT. 




R0600 

3. 

3DSU 

DOUBLE 

PRECISION SUBTRACT 

FROM. 




R0601 

4. 

TAO 

TRIPLE PRECISION ADD. 




R06 02 

5. 

VAD 

VECTOR ADO. 



R0j03 

6. 

VSU 

VECTOR SUBTRACT. 



RO^:>}A 

7 . 

BVSU 

VECTOR SUBTRACT FROM. 








I ■ 1 1 m J jm. IM 1— ~T — r~1 M PT — EP1~H ■ ■ II . . !■! 

R0605 

THl inter PRET f VE OVERFLOW” 
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r ** ^ -4!^ ' 
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6717 
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TCF 
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' 0609 

RFF TT 

“TTAST 

WO 

67 W"' 

3 4371 0 
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CHANGES 0 1 IJ DCA. 

061 0 

TFF JT 

■ TA5T 

I12'<5 

6 ? TT~ ■ 

26 116 0 


ADS 

AODRWO 


0611 




6732 

0 0006 1 


EXTEND 



um ■ 

“REF vr 
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irxr“ 

6727 

5 0115 r 


TNT)FX“ 

AXOFWD 


0613 “ 

■REE T 

“X7A6T 

431 

■~6T2X" 

on OO 'i T 


REAT) 

FTTSCAXAR 

DCA 2 OK DC3 2 

06T"4“ 

REF TIT" 

LAST 

TT30 

6726 

20 16o 1 



MPAC +3 


0615 ■ 




6 72'6" 

0 oorTsnr" 


tXl END 


CHECK nVERTLOW. 

06X6" 




h(2T 

1 6731 0 


B 7 F 

+ ? 


0617 

— EEF r 



6 7 30 
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■6T3r 
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E X T fc N D 
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— » y- ■ > P ^ y . — ^ 
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■6T33' 
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■X6TTX" 
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" DAS 
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0622 
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0623 
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1 6740 0 


“B7F 
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0624"" 

IFF X" 



bT3T~ 

xr"^7w 0 


TC 

U VE KF L W7 



0625 




■ ■5740' 

TT 0X06 “XT" 


EX 1 c N 1 J 


Tl ^ m . - ^ . -r U^_a-I II P II III U». 

06"Z6~ 

— RTEF 4X 

L W -J I 

1131 

" 6 741 

5 0116 1 
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A DDRWD 


0627” 

— OTF PT 
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1 07‘9 

bl 7 

00 001 0 


RE AD 

L C H A N 

DCA 0 OK DCS Q 

- 1 — ~ ~ - 

0 6 23 ■■ 

FEE ~r 



“15743 

X X747 T 


TCF 

FNUVXV 












0629” 




o /44 

0 0006 T” 

XITTO 




0630"" 

— REF* 

LAS1 

1131 

6TT5" 

.5 0116 1" 


INDEX 

AHDRWD 


Q53T“ 




6 746 

"3WDTJI ”0“ 


" “DCA 

0 


06T2“ 

— REE 315 

LASI 

lOI 

6 7 ’W ■ 

20 155 1 

tNDVXV 

DAS 

TTPTC 

vxv eiNISeiES here. 

0633 




— 67X0r 

X on o cTxr" 


"XXTFFnj' 



0'.5T4 

— RFF ■ irr 

TATST 

“XX27 
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t -- ---■ : 1 ^ — * 1 ■ ’ f— -■■■ ! 
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osu 
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0538 
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ADORWO 
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0 


0640 

REF 

2 
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1131 

5757 

1 6747 1 


TCF 
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0641 

KEF 

130 
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1105 

6760 

5A 001 1 
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TS 

L 

ENTRY FDR THIRD COMPONENT. 

0642 
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24 
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1063 

6761 

3 5022 1 


CAP 

FIVE 


0643 





6762 

1 6765 1 


TCF 

+ 3 













0644 

EF 
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1133 
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o 

c 

LT 

nVEPFLWY 

TS 

L 

ENTRY FOR SECOND COMPONENT. 

0645 

REF 

42 
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1090 

6764 

3 6214 0 


CAE 

THREE 


0646 

P.EF 
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LAST 

1133 

6765 

56 001 0 


XCH 

L 



0 6 3 7 

REF 

2B9 
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6766 
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A 
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6767 
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cs 
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44 
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6770 
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TS 
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0 0006 1 
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0651 
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LAST 
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A 

FORCE OVERFLOW. 
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1 33 
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11 33 
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L 
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7 
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SET nVFIND AND EXIT. 












— 





7005“ 
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BVSU 
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— 
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1133 
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INDEX 

AODRWD 
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TOO^ 



DCA 

2 


0665 

REF 

318 

LAS'r 

Tin 

7 010 

52 160 1 


OXCH 

MPAC +3 


rrsTTB 





“Toil 

“DD006 1 


EXTEND' 



05757 






4 ooorT 


DC OM 




F f 

319 

TTST" 

Tm 

7013 

20 16 0' T” 


DAS 
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0669 





7014 

0 0006 T 


EXTEND 
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/015 
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Tm 
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A DDK WO 
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4 
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DXCH 
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DAS 
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06 34 





7 033 

3 0001 

0 

OCA 

0 
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_____ TpLE precision add ROUTINE. “ 


0690 





7040 

0 0006 

1 TAD 

EXTEND 



0691 

REF 

47 

LAST 

1134 

7041 

5 0116 

1 

INDEX 

ADORWD 


0692 





7042 

3 0002 

0 

OCA 

1 

ADD MINOR PARTS FIRST. 

06 93 

REF 

323 

LAST 

1134 

7043 

20 156 

1 

DAS 

MPAC +1 


0 69A- 

REF 

48 

LAST 

1135 

7 0 44 

50 116 

1 

INDEX 

A DDR WO 


0695 





7045 

6 0000 

1 

AD 

0 


0696 

KEF 

324 

LAST 

1135 

7046 

6 0154 

1 

AD 

MPAC 


06 97 

PEE 

325 

LAST 

113 5 

7047 

54 1 54 

0 

TS 

MPAC 


0693 

REF 

19 

LAST 

1132 

7050 

1 6030 

0 

TCF 

DANZIG 



0699 

REF 

1 



7 03 1 

1 6752 

0 

TCF 

SETOVF 

SET OVFINO IE SUCH OCCURS. 


INT^-'RPRETe.P 


USER'S PAGE NO 


30 


E3 S3 


P0700 AR ITHMEflC "SUBROUTINES PEOUIRED IN FIXED-FIXED. 


p 0701 n DMPSUB t)nUBLE PRECISION MULTIPLY. MULTIPLY THE CONTENTS DF MPACt+1 BY THE DP WORD WHOSE ADDB]^^ 

Rb703 IS IN ADDEND AND LEAVE A TRIPLE PRECISION RESULT I N MP AC . 

no705 ^ 2. RQ UNDSUB ROUND THE TR I PllT PR ECI SON CONTENTS OF"MPAC TO DOUaliri^REC I SI ON. 

P0707 Tl DOTSUB T-^KE THE DOT PRODUCT OF THE VECTOR IN MPAC AND THE VECTOR W HOSE ADDRESS 1$ IN ADDRWD 

MTOO ~~ AND LEAVE THE TRIPLE PRECISION RESULT^IN MPAC. _ 

R0710 PO LY ' USING THE CONTENTS OF MPAC AS A DP ARGUMENT t EVALUATE THE PULVtmPriAL WHOSE OhGRFE^^ND ~ 

00712 COEFFICIENTS IMMEDIATELY FOLLOW THE TC POLY INSTRUCTION (SEE ROUTINE FOR DETAILS.) 


071A 


PEF 242 


LAST 1133 


7052 50 002 0 DMP 


INDEX 


0715 


7053 3 0000 1 


CAF 


0 


BASIC SUBROUTINE FUR USE BY PINBALL 
AORES of ARGUMENT FOLLOW^ TC DMP 


TTZ 


0716 
071 7 


REF 243 
REF 49 


1 AST 1136 
LAST 1135 


7054 

7055 


24 00 2 0 
54 115 0 



^CR 
TS 


0 

ADDRWD 


0722 

0723 


REF 327 


ref 


8 


LAST 1136 

LAST"nTT 4 


^0724 

0725 


REF 328 LAST 1136 


0726 

0727 


fREF 32‘^ rAST 1136 


07 28 
07"^ 


OTT'O 


REF 330 
R~Fr 331 


LAST 1136 
LATST 



F 73 T 


0732 

crm 

F7T4 


REF 


9 LAST 1136 



K m 


W 


0735 


REP 332 


TKST TT3F 
LAST 1136 


U 736 


EF 333 UWTf 1136 


0737 

T)T3F 


RFF Tl 


07 FO' 



F740 


^4 
R F 2 44 
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LAST 1136 




56 155 0 

54 135 1 


7062 

7063 
^064 0 00 ~ 0 F~T 

7065 7 0156 1 


77166 5 F" 



6^~0 


7067 
707 0 


0 0006 1 
7 0154 0 


Torr 20 TFF T 


TUT? 



OT ttft: 

T 0000 “T 


7074 



77776 

77577 


56 "T 3 'F 75 

~0”D006 r 

~1 0135 1 


TTMFSUB? 


20 156 1 



T6^ 54" T 


TTOT 

TT7T2 



0 0006 1 
c * 

5F 



0 0002 0 


MPAC 



FXTFNir 

P FTP 


XCH 
EXTEND 


MPAC +2 




UKS 




TNT5EX 


0 


MPTFMP 



TTF 



T 5 A 6 


RTPT 
MPAC +I 


XUH 


MPAF 


c 


XT END" 


ITAS 

TC“ 


MPTEMP 

MPAL' 

~Q 


0718 

Re F 

50 

LAST 

1136 

7056 

50 116 

1 dmpSur 

INDPX 

AOORWn 


071; 





70 57 

3 0001 

0 

CA 

1 


07^0 

UJ 

326 

LAST 

1135 
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54 156 

1 

TS 

“MTpAC +2 


0721 

reE 

220 

LATT 

n 3 3 

7o6l 

3 50?1 

1 

CAF 

ZPRO 



HFT MINOR PART UF OPERANTT AT CTADDRWD) . 


“THIS WORKS FOR SOUARTNG MPAC AS WELL. 
TET^MFATT^ TO ZERO SO WE CATT ACCUMULATE 
THE partial PPOOUCTS WITH DAS 
INSTRUCTIONS. 


NOR OF MPAC X MINOR OF CCADORWUI 



I N 0 R 


mjy 


FORM MAJQp of MPAC X MINOR OF C{ ADDRWD) 


TEED NO 'OVERFLOW 


' GET MAJUR PftRT UF ARGUHfcNI AT t(AuUKwU) 


SAVE AND BRIMG UUT MlNfJK OF- MPAC. 


HAJOR C!!- CIAUUKWU) X MINOR OF MPAC. 
ACCUMULATE, Sbl'TING A lU Ntl OVtKFL'Off 


rTNU MM AC TQ O 


MAJOR OF MPAJT^ TISJOR OF C< ADDRWDl. 
GDARANTtblJ NO ' UVERFLUW; ^ 

A9 HC T ^.b/3 MS. INCLUUIN G R.fclUR.NI. 
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1 
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CHANGE 
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1126 
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1 
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TS 
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0 
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1 
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0 
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0 
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0 
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1 
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13 
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1137 
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0 


TC 
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POT'^T 

THE DOT 

PRODUCT SUBROUTINE USUALLY 

FOPMS THE DOT PRODUCT 

OF THE VECTOR IN MPAC WITH A STANDARD SIX 
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IN THIS CASE CtOOTINC) 
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o" SO THAT 00TSU8 
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■■-REF ‘347 

LAST 1138 ■ 

71 55” 

20 I5b 

u 


“FAS 

MPAC +1 




0790 

REF 348 

last 

TUB 

7T5F" 

6 0154 

u 


AO 

MPAC 




0791 

REF 52 

~La\ST 

1138 

TUT 

6 0130 

T 


AO 

BUF 




0792 

ref 349 

LAST 

I13“S 

7160 

TV T5X 

" 0 


TS 

MPAC 




0793 

RFF 6 

LAST 

1138 

7 1 6 1 

0 0127 

1 


TC 

OOTRF'T 




-- — - p— m m m i !■" ==— 

UT94- 

FHfF 2“ 

“DTST- 

TT32 

TUT" 

0‘ 

xr 


TC 

L^V^-K^L’JW 

UN UVLH^LUW HtKt. 



0795 

f E F 7 

LAST 

TTT8 

TTbT 

0 0137 

u 


TC 

0 n T R F T 


. - . — - - - - - — — 
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CHIEETAN.028 

PAGE 1139 



L 

INTERPRETER 

USER'S PAGE 

NO. 33 

E3 S3 








P0796 

oaUBLE PRECISION POLYNOMIAL FVALUATOR 






R0797 

R0793 

ROBOO 


N N-1 

THIS ROUTI NE EVALUATES A X + A X + ... + A X + A LEAVING THE DP RESULT' ITT MP AC ON EXIT. 

N N-1 1 0 


R0801 THE ROUTINE HAS TWO ENTRIES 


R0802 



1. ENTRY THRU 

POWPSERS. THT COEFFICIENTS MAY BE EITHER 

IN FIXED OR ERASABLE. THF CALL IS BY 

R0804 



TC 

PGWR5FRS 

* AND 

THE RETUP.N 

IS TO LOCITC PnwRSERS)>l 

. THE ENTERING DATA MUST BE AS FOLLOWS 


A0806 







A SP 

LOC-3 

ADDRESS FOR REFERENCING COEF TABLE 

A 0307 







L SP 

N-1 

N IS THE DEGREE OF THE POWER SERIFS 

A0808 







MPAC DP 

X 

ARGUMENT 


A08n9 







rX^?N DP 

AID) 


A081 0 







• • • 



Aoaii 







LOC DP 

A( N) 












R08I2 



2. ENT^Y THRU 

P.iLY. 

THE'FATI TC 

1 POLY AND THE ENTERING DATA MUST Bfc AS EULLUWb 


A 081,'. 







MPAC DP 

DF 

ARGUMENT 


AOolS 







roc TC 

POLY 


A081C. 







LOC+l 

N-1 


A0S17 







Trnc+2 UP 

A { 0 ) 


A0313 







« • • 



AWrr- 







LnC+2'N+2 ' UP 

A ( N ) 

KFIURN IS TO L0C+2N+4 











0820 





71S4 

0 0006 1 

PUWPSERS EXTEND 



- 0821 

- jrFF 

1 



7I6F 

22 1 4 1 0 

"OXCH 

PULYKt 1 

RETURN ADDRESS 

“ ■ mzT 

T N L, f 

rs 

1 A S "F 

TI70 

TF6X^ 

STTTIT'T 

rs"^ 

Polish 

POWER SERIES ADDRESS 

0823 

E F 

— r~ 



71 o 7 

22 140 1 

CTCTI 

PULVCNT 

N-1 TO Counter 

082 A ■ 

fTFF 

r 



TTTTr 

1 ^201 1 

TCP 

POLYCOM 

SKIP SET UP BY PULY 


082^ 

RTF 

249 

LAST 

TFF 

7171 

50 002 0 

^ OL Y I NDE X 

0 


0827. 





XTTF 

' T“0000 1 

CAT 

0 


Ub27 



T 

X2rsi^ 

TTTg 

n 7 3 

54 141FTI 

TS 

PULYCNT 

N-1 TO COUNTER" 

0828“ 





X 74 

6 OOWl 

DHUBL t 



0829 

RFF 

■'25'0 

LAST" 

TTT9 

717F 

6 0002 0 

AD 

Q 


OBIT)” 

RTF' 

— rr~ 

LAST" 

1139 

rmr 

— 54 117 1 

"TF 

POLISH' ' 

L(A(N))— 3 lU PuL I SH 

Dimr 

PTF 

— ?F” 

LAST" 

1133 

rrrr 

6 5022 1 

AD 

F 1 VE 


“GBTZ" 

K t E 

2 

XAFF 

1139 

tzutt 

"54 r4T^ 


PULYRFF 

STORE RETURN ADDRESS 











0833 

Frp- 

F" 



7201 

3 6242 0 

POLYCOM CTTF 

L V BUT 

INCOMING X WILL Bt MUVtD fU VBUPt SO 

0834 

RTF 

5^ 

FA5T 

FTTR 

7 zvrr 

54 116 0 


ADD^' WD 

SET ADDRWD SO OMPSUB WILL MPY BY VBUF. 


0B35 





“TTtrr 

0 0007> 1 

EXI END 



0"83S" 

kEF 

13 

LAST 

113 9 

— TFTX 

" F OTTT "0 

TNOTX 

POLISH 


0B37 





7205 

3r~X) 0 05““0 

T)CA“ 

3 
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GAP 


ASSEMBLE PFVISTf'iN 0S5 PF AGC PRHGPAM C')MANCHE BY NASA 20 211 13-0 SI 


10:28 APR- 1,1969 CHIEFTAN-028 PAGE 1140 


L 

INTERPRETER 


■ ' - - - ■ F 



■ - ■ ■ _ — F— — i—. ^ 


USER ' S 

PAGE NO. 34 

E3 S3 



0S3B 

REF 350 

LAST 

1138 

7206 

52 155 

1 

OXCH 

MPAC 

LOAD A(N) INTO MPAC, 



0839 

23 

LAST 

1115 

7207 

52 123 

0 

DXCH 

VBUF 

SAVING X IN 

VBUF 



“0340 

REF 1 



7210 

1 7214 

0 

TCF 

POLYP 


— . i ■ 1 *i. ■ <■ ■■ ■ 11 

II .= 



0841 

REF 

3 

LAST 

113 9 

7211 

54 140 

0 

POLYLOOP 

'TS 

POLYCNT 

SAVF decremented LOOP COUNTER 


0342 

RFF 

55 

LAST 

1133 

7212 

4 5016 

1 


CS 

TWO 



0843 

REF 

19 

LAST 

1139 

7213 

26 117 

1 


ADS 

POLISH 

REGRESS COEFFICIENT POINTER 



0 34 4 

?EF 

4 

LAST 

1138 

7214 

0 7056 

0 

POl Y2 

TC 

DMPSUB 

MULTIPLY BY X 


0845 





721 5 

0 0006 

1 


eXTFND 




0646 

REF 

20 

LAST 

1140 

7216 

5 0117 

0 


INDEX 

POLISH 



0347 





7217 

3 0002 

0 


OCA 

1 

ADD IN NEXT COEFFICIENT 


0848 

REF 

351 

LAST 

1140 

72 2 0 

20 155 

1 


OAS 

MPAC 

USERS RESPONSIBILITY TO ASSURE NO OVFLOW 



084? 

REF 


LAST 

1140 

7221 

10 140 

0 


CCS 

POLYCNT 



0850 

REF 

1 



7222 

1 7211 

0 


TCF 

POLY LOOP 



0351 

REF 

3 

LAST 

1139 

7223 

0 0141 

0 


TC 

POLYRET 

RETURN CALLER 







f 
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10:23 APR. 1,1969 CHIEFTAN.028 PAGE 1141 


INTERPRETER 


USER'S PAGE NO. 35 


E3 S3 




MISCELLANEOUS 

MtJLTI- 

-PRECISION 

ROUTINES 

REQUIRED IN FIXED- 

FIXED BUT NOT USED BY THE INTERPRETER. 
















08b 3 ^vS 

REF 222 

LAST 

1137 

7224 

3 5021 

1 

DPAGREE 

CAF 

ZERO 

DOUBLE PRECISION ENTRY - 



085399 

R5F 352 

LAST 

1140 

7225 

54 156 

1 


TS 

MPAC +2 

ZERO LOW-ORDER WORD 
















0354 

REF 251 

LAST 

1139 

72 26" 

22 00? 

"o" 

TPAGREF 

LXCH 

Q 

FORCE SIGN AGREEMENT AMONG THE TRIPLE 


0355 

REF 1 



7227 

0 6672 

1 


TC 

BRANCH 

PRECISION CONTENTS OF MPAC. RETURNING 


0356 

REF 1 



7230 

1 72 34 

1 


TCP 

AR 0*^ 

WITH STGNUM OF THE INPUT IN A. 



0957 

REF 1 



7231 

1 72 54 

1 


TCF 

ARGZERO 





0853 

Ri-F 28 

LAST 

1072 

7232 

4 4777 

0 


CS 

PGSMAX 

IF NEGATIVE. 



03 59 




7233 

1 7235 

0 


TCF 

+ 2 





0860 

‘^^.EF 29 

LAST 

1141 

7?34 

3 4777 

1 

ARG + 

CAF 

POSMAX 




0861 

REF 252 

LAST 

1141 

2235 

54 0 0? 

1 


TS 

Q 




0862 




7236 

0 0006 

1 


EXTEND 





0863 

REF 291 

LAST 

1133 

7237 

24 0 00 

1 


AUG 

A 

FORMS ■»— 1.0. 



0854 

RcF 353 

LAST 

1 1 4T 

7240 

6 0156 

0 


AO 

M'PAC +2 




0865 

REF 354 

LAST 

1141 

7241 

54 ! 56 

1 


TS 

MPAC +2 




0 8 o 6 

REF 223 

LAST 

1141 

7242 

3 5021 

1 


CAT 

ZERO 




osTt 

REF 253 

LAST 

1141 

7243 

6 0W2 

0 


AO 

0 




0 5 o 8 

'>EF 35b 

LAST 

1141 

7 244 

6 0155 

0 


~W 

MPAC +1 




0369 

~RTF" 3 56 

LA^ 

1141 

774F 

54 155 

t -- r ■ 

1 


TS 

MPAC +1 




0670 

REF 224 

LAST 

1141 

7246 

3 5021 

1 


"T^F 

"TFITn 




uwn 

REF 254 

LAST 1141 - 

— TPTT 

6 OOITZ 

0 


HD “ 

0 

Q STILL HAS POSMAY OR N EG MAX IN 

IT. 


uwnr 

^57 

LaS'T 

1171 

■ "TTSTT 

6 

~T 


TAIJ “ 

MPAC 




um 

PEF 3'5'S~ 

last 

1141 

7 251 

5 4 1 54 

0 

akgzerO? 

TS 

M PAC 

Always skipping unless akgzeku. 



uwni 

P FF 'Tb O 


72 b2 


TT 


T5 

M'PAC +T 




11875 

R EF 136 

xAvr 

IT T7 

775T 

trrjooi 

TT 


“TG 

L 

RETURN YIA L. 




09577 


LTSST^ 

1I4T 

TTSTT 

52rT57r 

T' 

ARGZERO 

TS 

+2 

SET ALL IHREE MPAG RtGlSIEK:> lu 

4tKU. 


0877 

TEtF 1 ■ 



1 /L ^ 3 

T~T2^inr 


TCF 

HRDXFRTT? 





R08/a 


SHORTMP” TOtrrprrn” 

THE TP CONTENTS OF MPAC 

1 HE SINGLE 

PRECIS I UN NUMbEK AKRIVING IN A. 
















0951T0 

"PTF — rr~ 

LAST 

TTT5 

— 7J^ 

— 54 135 

TT 

SHORTMP 

"TS “ 

mptemP 




0881 




72 5 7 

0 0(706 

I 


fxtpnu 





OB 87 

REF 361 

LAST 

1141 

726TT 

7 0156 

TT 



MPAC +2 




01531 

REF 362 

LALST' 

TTTI 

? 261 

54 1 56 

1 


TS 

MPAC +2 






REF 22b 

“rSTT 

1141 

“ TZ6T 

J 5 n"2T" 

1" 

SHUR !MP2 

"TTAT 

Z E R U 

SO SUBS LUU ENT OAs wILl WORK. 



DTTlb 

kEF 363^ 

xarsT" 

TTTT” 

726 3 

— 56 155 

TT 


XCH 

MPAC +I 




OUT 

REF 1 



— 77^ 

— 1 7075 

TT 


TC E 

DMPSUK2 





p 0 8 3 7 DMPNSUB KJLTl PLIES THE DP FRACTION ARRIVING IN MPA C BY THE SP 

ROBH8 "TnTFG^R arriving IN A, THE OP PROOlTCT DEPARTS BOTH IN MPAC AND IN 

R08B9 A AND L . M9TE THAT DMPNSUB NORMALLY INCREASES THE MAGNITUDE OF THE 

R089d CONTENTS OF MPAC- THE CUSTOMER MUST INSURE THAT BIAJ X B ( MP AC f MPAC+ 1 ) 
R0891 AND B(A) X B(MPAC) APE LESS THAN 1 IN MAGN I TUDE# ~ WHERE AS IS OBVIOUS* 

R0R92 INDICATES THE ARRIVING CONTENTS. 


0893 

REF 

1 



7265 

54 135 

1 DMPNSUB 

TS 

dmpntfmp 




08 94 





7266 

0 0006 

1 

EXTEND 





0 :? ' ^ 5 


3 64 

LAST 

1141 

7267 

7 0155 

1 


MPAC +1 




0896 

RKF 

365 

LAST 

1142 

7 270 

52 155 

1 

OXCH 

MPAC 

LOW PRODUCT TO MPAC* HIGH" 

FACTOR TO A 


0897 





7271 

0 0006 

1 

EXTEND 





0898 

REF 

2 

LAST 

1142 

7272 

7 0135 

1 

MP 

DMPNTEMP 




0399 


137 

LAST 

1 1 4 1 

7273 

3 0001 

0 

CA 

L 




0900 

REF 

366 

LAST 

114? 

7 274 

26 154 

0 

ADS 

MPAC 

COMPLETING THE PRODUCT IN 

MPAC 


0901 





7275 

0 0006 

1 

EXTEND 




— ■ T ~ T • — 

0902 

REF 

367 

LAST 

1142 

7276 

3 0155 

0 

DCA 

MPAC 

BRINGING THE PRODUCT INTO 

A AND L 


0903 

REF 

255 

LAST 

1141 

7277 

0 0002 

0 

TC 

Q 





1 


gap: 

ASSt-MBLF REVISION 055 
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IE BY NASA 2021113-051 
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L 

INTfEPPRETbP 




USER'S PAGE NO. 37 E3 S3 


■ 

P0904 

MISCELLANEOUS VECTOR 

OPFRATl ONS. INCLUDED 

HERE ARE THE FOLLOWING: 




R0905 

1 • DOT 


OP VECTOR 

DOT PRODUCT. 



R0906 

2. VXV 


OP VECTOR 

CROSS PRODUCT. 



R0907 

3. VXSC 


DP VECTOR 

« 

TIMES SCALAR. 



R0906 

4. V/SC 


DP VECTOR 

OIVtOEO BY SCALAR. 



R0909 

5. VPROJ 


OP VECTOR 

PROJECTION. ( (MPAC.X)MPAC 

). 


R0910 

6* VXM 


DP VECTOR 

POST-MULTIPLIED BY MATRIX. 



R091 L 

?• MXV 


OP VECTOR 

PRE-MULTIPLIED BY MATRIX. 











0 1 2 

REF 1 

7300 

0 7123 0 DOT TC PREDOT 

DO THE DOT PRODUCT AND EXIT, CHANGING 


0913 

REF 226 LAST 1141. 

7301 

3 5021 1 DMODE CAF ZERO 

THE MODE TO OP SCALAR. 


0'^14 

RFF 3 LAST 1124 

7302 

1 6027 0 

TCF NEWMODE 




0 915 

REF 

56 

LAST 

1140 

7 30 3 

3 5016 


MXV 

CAF 

TWn 

SET UP^HATINC AND DOT INC FOR ROW 


0916 

REF 

5 

LAST 

70 

7 304 

54 140 

0 


TS 

MATING 

VECTORS. 


091"^ 

REF 

1 



7 30 5 

1 7311 

i 


TCF 

VXM/MXV 

GO TO Common portion. 



0918 

RFF 

9 

LAST 

1069 

7306 

4 43 77 

1 

VXM 

cs 

TEN 

SET mating and DOTINC TO REFER TO MATRIX 


091 n 

FeT 

6 

LAST 

1143 

7307 

54 140 

0 


T3 

MATING 

AS THREE COLUMN VECTORS. 


0920 

REF 

34 

TTATT 

vasi 

mo 

~Th2ir 

~T) 


car 

ST5? 




{. 



G A ' 


ASSEMBLE REVISION 0*^5 OE A';C PROGRAM COMANCHE BY NASA 2021113-051 


APR 


1.1969 CHIEFTAN,023 


INTERPRETER 


USER’S PAGE NO 


38 


E3 S3 


P0921 


0922 


‘^0923 


0924 


D CC 


COMMON PORTION OF MXV AND VXM 


7 LAST 1138 


7311 84 136 1 VXM/MXV 


I TRACE (21 REFERS TO ••VXM/MXV”. 


RPF 


7312 0 7501 1 




TC 


DOT INC 


MPTCWUT 


S^AVE VECTOR IN MPT^C FOR FURTHER 



092 5 


0926 
0 927 


0 923 


0929 

0^30 


0931 


0932 
09 33 


0^34 


0935 

0936 


093 7 


0938 

0939 

0940 

0941 


0 


REF 


LAST 1140 


REF 363 LAST 1142 


REF 11 LAST 1104 


REF 25 LAST 1144 


REF 369 LAST 1144 


r 


26 LAST 1144 


R F F 

rTf 


370 
7 


LAST 1144 
LAST 1143 


REF 55 LAST 1139 


REF 


LAST 1144 

LAST ll44 

lgatt 


094 


LAST 1144 
REF 372 LAST 1144 
REE 29 last 1144 


313 n 7125 0 


TC 


dotsub 


7314 

7315 


0 0006 1 
3 0123 1 


7316 52 155 1 


EXTE ND 
OCA 
OXCH 


VBUF 


7317 
7 32 0 


52 134 

0 0006 


OXCH 
EXTEND 


MPAC 
B U F 2 


7321 3 0125 1 


DCA 


VBUF 


7322 
7 323 


52 160 1 
0 0006 1 


OXCH 
EXTEND 


MPAC 


+ 2 
+3 


7324 3 0127 0 


OCA 


VBUF +4 


7325 
73 26 


52 162 0 
^ 0140 1 


OXCH 
CA 


MPAC + 5 
MATING 


7327 


26 116 0 


ADT 


AODRWO 


7330 


0 7125 0 

TZ 


OXCH “ VBUF 
DXCH ■ 


GO DOT To GET X 



OF A'N'SWFR. 


MOVE MPAC VECTOR BACK INTO MPA 


SAVING 


NEW X “COMPONENT IN BUFZ. 


INITIALIZE ADDRWD FOR NEXT DOT PRODUCT. 
FORMS BASE ADDRESS OF N^XT CGLUMN(RQW)* 


MOVE GIVEN l^ECTOR' back: TU 
COMPONENT UF ANSWER TN VBUF i?. 



T3T5 

7336 


125 

T60 

127 
1 62 


DXCH 

OXCH 


VBU 


nxcH waF~~^ 

DXCH MPAC +5 


0 945 “ 

REF 3 

LAST 11 '♦4 

7337 

3' ■or'40“T: 

CA 

MATING 

FORM A00RFS5'”0F LAST COLUMN OR ROWT 

0946 

pep- -5-^ - 

LAST IR"? 

73 30 

26 116 0 

■ A OF 

ADDRWD 



094T 

REF 3“ 

LAST 1144 

73'4T" 

0 7125 0 

nr 

DOTSUB 


0943 

REF 12“ 

"CAST 1144 

"7342 

772 " 13 4 0 

DXCH “■ 

BUF7 

ANSWER NUW CCJMHLtJE. PUT CU’^PUMENlS INTO 

0949 

RFp 374 

LAST 1144 

C34T' 

■ 52" I'EF 1 

CnOTR 

MPAC 

PROPER MPAC KEGIbItRS. 

(F>57y 

— rtf 375" 

“LASl^ri'44^“^ 

7344 

"57"r52"0 

OXCH 

“HP AX + 5 


rmiT' 


LAST 1144 

— 7345 

52 125 0 

DXCH 

VBUF +2 


0952 

REF 376 

last 1144 

7346 

52 160 1 


MPAC +3 



ref 20“ 

L AST T1T5 

934 7 ■ 

1 6030 0 

TCF 

DANZIG 

EX IT. 






-fr- 
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P09Si 


0955 


0956 


0957 


0958 


0961 


0 963 


0966 


09S7 

0968 
09 <"1 

0970 


I NTFRPRETFP 


USER’S PAGE NO 


39 


E3 S3 


VXSC - VECTOR TIMES SCALAR 


REF 16 LAST 1137 


7350 10 163 1 VXSC 


CCS 


MODE 


TEST PRESENT MODE 


REF 


7351 1 7377 1 


TCF 


nvxsc 


SEPARATE ROUTINE WHEN SCALAR IS IN MPAC 


REF 


LAST 1145 


7352 I 7377 1 


TCF 


DVXSC 



LAST 1140 


7353 0 7056 0 VVXSC 


DMPSUR 


COMPUTF X COMPONENT 



REF 


LAST 1145 


7356 


155 


DXCH MPAC 


MPAC +3. 




LAST 1145 


7360 0 7056 0 


OMPSUB 


00 SAME FOR Y AND 


COMPONENTS 



REF 381 LAST 1145 


09 73 

0974 


REF 


3 84 


382 nST 1145 


T:A“ST“T145 
LAST 1145 
LAST 1145 
LAST 1145 


LAST TT45 
LAST 1145 


7363 


7370 


155 


73o4 52 162 0 

7T^3 0 7056 “(J 

^7107 0 
52 155 1 
162 0 
32 160 T 

52 155 I 


rm 1' 60 TO O' 


OXCH 


DXCH 


VROTATEX DXCH 

IJXCH 

DXCH 
DXCH 


MPAC 
^AC +5 


V RO UND 
MPA 


MPAC +5 
MPAC~ T3 
MPAC 


EXIT USED Tf 
TWF 



restore MPAC AETFR TRIS 

-UKUUEU RT VECTOR SHIFT 


RIGHT. V/SCT 






r\'TERPRETFR 


USER'S PAGE NO 


40 


E3 S3 


P0973 


DP VECTOR PROJECTION ROUTINE 


0976 


LAST 1143 


7 T 7 4 


7123 0 VPROJ 


PREDOT 


MPAC.XINPAC IS COMPUTED AND LEFT IN 


0977 


REF 15 LAST 1059 


7375 4 5015 1 


CS 


FOUR 


MPAC. DO DOT AND FALL INTO OVXSC. 


0978 


RFF 


LAST 1144 


7376 


ADS 


AODRWO 



R0979 


VXSC WHEN SCALAR ARR IVES IN MPAC AND VECTOR IS AT X, 


0980 


7377 0 0006 1 DVXSC 


EXTEND 


0981 


REF 387 LAST 1145 


7400 3 0155 


DCA 


MPAC 


SAVE SCALAR IN MPAC +3 AND GET X 

COMPONENT OF ANSWER. 



0984 


REF 


LAST 1145 


7403 


7107 0 


VROUNO 


0985 


RFF 57 LAST 1143 


7404 3 5016 0 


CAF 


TWO 


ADVANCE AODRWD TO Y COMPONENT OF X 


0986 


REF 58 L^ST 1146 


7405 26 116 0 


ADS 


A DDR WO 


0937 

0938 


REF 389 LAST 1146 


74 06 
7407 


0 0006 1 
3 0160 0 


EXT END 
DCA 


0939 


REF 390 LAST 1146 


0990 

0991 

0992 




REF 


LAST 1146 
LAST 1146 

Cast iT46 


7410 

74TT 

7412 

T4n 


52 155 


i 


OXCH 


MPAC 

MPAC 


+ 3 


PUT SCALAR BACK INTO 
X RESULT W WPT(r^ 


MPAC AND save 


52 162 0 
0 7056 0 

rrc 




TC 




“TU 


+ 5 

DMPSU3 

V ROUND 


0993 

REF 

58 

LAST 

1146 

7414 

3 

5016 

0 

caf — 

TWO 



0994 

REF 

59 

LAST 

1146 

7416 

26 

116 

0 


adorwd 



0995 

REF 


LAST 

1146 

7416 


160 

1 

DXCTT 

MPAF +3 

BRING SCALAR BACKt PU I 1 INb Y RESULT IN 


0996 

REF“ 

39 3 

LAST 

11 46 

7417 

52 

15 5 

1 

DXCH 

MPAC 

THE PROPER PLACE. 


OWT” 

REF 

394 

"LAST 

1146 

7420 

TT 

1 60 

T 

■ OKCTT" 

WPA'C +3 



0993 

REF 

10 

LAST 

1145 

rm 


70 56 

0 

TC 

OTP5UR 



0999 

REF 

F" 

LAST 

1146 

7 42 2 

“0“ 

7107 

0 


VR'lUND 
















1000 

—REF" 395 

LAET 

rT4 6 

7'473' 

~~32 

155 

T 

T3XCTr“ 

MTOC 

PUT Z CuMPUNENT TN PROPER PTACEf ALSU 


1001 

REF 

396 

LAST 

1146 

7424 

"32 

162 

0 

DXCH 

MPAC +5 

PUS I t 1 L)N 1 nC X • 


YUUT~ 


397 

“DTFT 

T146 

/425^ 


I 5'R 

”1 

uxcw~ 

“MPAC ~ 




1003 

RTF 

1” 



7426 

"T" 

BTfTTr 

T5 

TCT 

VMGDE 

^luuc HAb LnANbtU lU VtUlUK* 


i 































g. 


- ^ 
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f 1 

9 69 

CHIEFTAN.028 PAGE 1147 



L 

1 NTERPRETER 


1,1 se R ' 


PAGE 

NO. 41 E3 S3 










P1004 

THE VECTOR CROSS oROiJoCt 

ROUTINE CALCULATES 

(X M -X M .X M -X M *X M -X M 

) 

WHERE M IS THE VECTOR IN 


R1006 



3 7 2 3 1 3 3 1 2 1 1 

2^ 




R 1008 

MP-VC ^NO X THE VECTOR AT THE GIVEN 

ADDRESS* 







lOO-"^ 

■ — ' - ■ 

“ 

-- -- - 


7427 

0 0006 

1 vxv 

EXTEND 





1010 

REF 

398 

LAST 

1146 

7430 

3 6162 

1 

DCA 

MPAC +5 

FORM UP M3Xlf LEAVING Ml IN VBUF. 



1011 

REF 

399 

LAST 

1147 

7431 

52 155 

1 

DXCH 

MP AC 




1012 

RFF 

31 

LAST 

1144 

7A32 

52 123 

0 

DXCH 

VBUF 




1013 

REF 

11 

LAST 

1146 

7433 

0 7056 

0 

TC 

DMPSUB 

BY XI. 




1014 





7434 

0 0006 

1 

EXTEND 





1015 

REF 

400 

LAST 

1147 

743 5 

4 0160 

1 

DCS 

MPAC +3 

CALCULATE -XlM2t SAVING X1M3 IN VBUF +2. 



1016 

REF 

401 

LAST 

1147 

7436 

52 155 

1 

DXCH 

MPAC 




1017 

KrF 

32 

LAST 

1147 

7437 

52 125 

d 

DXCH 

VBUF +2 




1013 

REF 

12 

LAST 

1147 

7440 

0 70 56 

0 

TC 

DMPSUB 





1019 

RFF 

59 

LAST 

1146 

7441 

“3“50l6 

0 

CAP 

TWO 

ADVANCE ADDRWD TO X2. 



1020 

REF 

60 

LAST 

1146 

7442 

26 116 

0 

AOS 

ADDRWD 




T021 





7443 

0 0006 

1 

EXTEND 





1022 

o pp 

402 

LAST 

11 47 

7 444 

4 0162 

0 

DCS 

MPAC +5 

PREPARE TO GET -X2M3* SAVING -X1M2 IN 



1023 

npp 


LAST' 

11 47 

7 445 

52 155 

1 

oxen 

MPAC 

MPAC +5. 



1 0 2 4' ‘ 


404 

LAST 1147" 

74"46~ 

52 162 

0 

DXCH 

MPAC +5 




r023 

RFF 

13 

LAST 

1147 

7 447 

0 7056 

0 

TC 

dmPSUb 

















171275; 







“1“ 

F3(TFND 




1027 

REF 

33 

LAST 

1147 

7461 

3 0123 

1 

OC A 

VBUF 

GET X2M1^ SAVING -X2MT IN VBUF +4. 



TGZB 

RtF “ 

405 

TATST" 

n”47 


F2 155 

1 

TyxFTr~ 

MPAC 




ruz9 

KEF 

34 ‘ 

L AST- 

T1 4 / 

— r+TX" 

52 12 ' 

1 

TTCCF! 

VBUF +4 




1030 

rlFF 

■ I - 

LAST 

~n7r 

74 54' 

0 7056 

0 

TC 

DMPSUB 





1031 

RFF 

^60^ 

msT 

Fri47 

7 43 tD 

TTTOIF 

Tr~ 


Twn 

AUVANCb AUUKWU lU A3. 




1032 

KEF 

61“" 

LAST 

“TT47 

7456 

26 116 

0 

ADS 

addkwd 




ra33 — 





— 7 4 5 T 

”0 o o a?T 


FXIEND" 


— - ^ — - = .■ . j . a T > 1 fc j ^ a J 1 ii — A If** K TZ Tn 



1034 — 

REF 


LAST 

ir47 

“ 7460 ■ 

A 0123^ 

0 

DTS 

VBUF 

GET -X3Mif ADDING X2M1 TO MPAC +5 1U 



1035 ■ 

•REF 

406 

LAST' 

1147 ■ ■ 

7461““ 

52 155 

1 

OXCH 

MPAC 

CQMPLbTfc THE L CUMPHNbNT UF IHt ANSWbH. 



nT3'5 

R E'F' 

'4^(rr 

TTST 

IT4T 

746 2 

20 162 0 

CUTS” 

MPAC +5 





103/ ■ 





7463 ■ 

0 0006 

“T 

EXTEND 





TTTTR 





- 7 A 6zr- 

1 7467r 

~D~ 

“5rF 

+ 2 




Tinrq 

PEF 

— ^ 

LAST 

1133- 

7465' 

0 6760 

~JX ’ 

TC 

iJVbHFLWI 





rn4D 


15 

TTLST 

1147 

7466” 

0 7056 

0 

“ re 

DMPSUB 




1041 

— rFF~ 

36 

TTTST IT47 

7 467 

5 2 123" 

no 

DTCH" 

VBUF +2 

MUVt XiMB !U MPAC +3 SETTTNb UP bUK XJMzf 



1047“ 

REF 

403“ 

L A'ST 

114/ 

74TO“ 

52 160 

1 

TXUR 

MPAC +3 

AND ADD -XiMi lU MPAC +3 lU CUMPLbib IHt 



— 1043 “ 

KEF 

4rr9~ 

rirsT 

1147 

TFTT" 

52 155 


nXCH 

MPAC 

Y COMPONENT UF THE RESULT. 



— rrT44 — 

REF 

^~0— 

T1A5T 

1147 


“20 160 

FI 

DAS — 

MPAC T3 

















1 045^ 





7473 

~a 30Tnr 

n. 

EXTEND 





T7T4Ti — 





7474 

""l" 7476 

I — 

B7F ^ ■ 







gap: 


assemble revision 055 OF AGC PROGRAM COMANCHE BY NASA ?Q2l 113-051 


10:28 APR. Itl969 CHIEFTAN.028 PAGE 1143 


T NTERPRETER 


USER* S PAGE NO. 4? 


E 3 ST 


1047 


REF 


LAST 1133 


7475 0 6763 0 


TC 


GVERFLWY 


1048 


KEF 16 LAST 1147 


7476 0 7056 0 


TC 


DMPSUB 


1049 


R 


FF 37 LAST 1147 


7477 52 127 1 


OXCH 


V3UF +4 
ENOVXV 



GO ADD -X2M3 TO X3M2 TO COMPLETE THE X 
COMPONENT (TAIL END OF DAdJ . 


R1051 


THE MPACVBUF SUBROUTINE SAVES THE VECTOR IN MPAC IN VBUF WITHOUT CLOBBERING MPAC 


1053 


7501 0 0006 1 MPACVBUF EXTEND 


CALLED BY MXVt VX 


UNIT 


1054 


REF 411 LAST 1147 


7302 3 0155 0 


OCA 


1055 

1056 


REF 33 LAST 1148 


7503 

7504 


52 123 0 
0 0006 1 


1057 


REF 412 LAST 1143 


7505 3 0160 0 


dx7:h 

EXTEND 

oo; 


MPAC 

VBUf 


1058 

1050 


REF 39 LAST 1148 


7506 

7507 


52 123 0 
0 0006 1 


OXCH 
EXTEND 


MPAC +3 
VBUF 


1060 


RFF 413 


1061 

1062 


REF 40 
REF 256 


LAST 1143 
LAST 1148 


7510 

T5TT 


3 0162 1 
52 127 1 


DCA 

DXCH 


MPAC +5 
VBUF +4 



LAST 1142 


751? 0 0002 0 


URN TO CALLER 


R1063 


OOLIBLE PRECISI^^t S I GN AGREE ROUTINE. ARRIVE WITH INPUT IN A + L. OUTPUT IS IN A + L. 


TOST 

1066 

ro6^ 



LAST 1141 


REF 257 LAST 1148 


75rr5 


106B 


O 


EF 


106 0 


REF 258 LAST 114S 


75 16 
751 7 


10 O OTTU 
1 7520 0 
0 OO02 0 
T 7530 I 
0 0002 0 



FESl UPPER PART. 

1$ PnSltlVF— 


UPNEG 


N5GATTVE“ 



1071 

Ton 

r073 

10T4 

1575 


“REF nn? 

R E F 




5 




UPPER 



LAST 1092 

Tr4 

CAST n'45 


6 5002 
5552 



TW 


JT “LAS! 1148 



TOTT 


RTF 
REF Z59 


7526 0 
24 001 5 

56 “OOl^ U 


Ttrr" 

TNCTl 



2015 


SWAP A -F L BATR 


LAST 1148 


0002 




r07B 

REF^57nr“ 

1 A^ST 1 1 4 K 

7550 

56 5Trr“0 TJF^TEG^ 

XCK 

”L 


1079 

REF 11 

LAST 106? 

7531 

6 5001 0 

aD 



N fcCjMAX 


T555 

ICFF" 

C7TST 11175 

■ ”T552 

6 7716 0 

AD 

NEGONE 

_ — — ■ 


roM' 

(TFF 2 

LAST 114B ■* 

753 3 

34 OOO 0 

TS 

A 


1 087 



7 5 3 4 

1 7336 1 

TCF 

+2 



nOMl INCRFMENl IF N(J (JVbRFLUW. 


1525 

r525 




CTfST^Tl^ 


75T5 ?4^ a51““5 


TNCR 


1085 


7536 56 

75T7 — V WOUH 



E F 2 6 5 L A5T^ 11 4 3 


7545 5“0502 0 


XCH 

~cm 

TC“ 


E NEGATIVE AGAIN. 


O 
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P10B7 INTERPRETIVE I NST^ I If TT oNS WHOSE EXECUTION CONSISTS OF PRINCIPALLY CALLING SUBROUTINES. 


1080 

9EF 

17 

LAST 

1148 

7541 

0 7056 

0 

DNPl 

TC 

OMPSUB 

DMP INSTRUCTION. 





1090 

KEF 

22 

LAST 

1145 

7542 

1 6030 

0 


TCF 

DANZIG 






















10^1 

»EF 

18 

LAST 

1149 

7543 

0 70 56 

0 

DMPR 

TC 

ONPSUB 






1092 

KEF 

1 



7544 

0 7106 

1 


TC 

ROUNDSUB +l 

(CIA) = +0). 





109T 

REF 

2 3 

LAST 

1149 

7 54 5 

1 6030 

0 


TCF 

OANZiG 












7546 

0 0006 

1 

oov 

EXTEND 







1005 

REF 

62 

L ASt 

1147 

7547 

5 0116 

1 


INDEX 

AODRWD 

MOVE DIVIDEND INTO 0UF. 





1096 





7550 

3 0001 

0 


OCA 

0 






1007 

REF 

2 

LAST 

1116 

7 5 51 

1 7556 

1 


TCF 

BDPV +4 







1093 





7552 

0 0006 

1 

BODV 

EXTEND 


MOVE DIVISOR INTO MPAC SAVING MPAC* 

THE 



109 

REF 

63 

LAST 

1149 

7553 

5 0116 

1 


INDEX 

ADDRWD 

DIVIDEND* IN BUF. 





1100 





75 54 

3 OOOl 

0 


OCA 

0 






noi 

REF 

414 

LAST 

1148 

7555 

52 155 

1 


DXCH 

MPAC 






1102 

REF 

6 3 

last 

1136 

T5F6' 

52 131 

0 

+4 

OXCH 

"BUF 






ITOT" 

RTF 

7TT 

■XA:?rr 

HXT' 

7557 

3 5021 

r' 


— CTT" 

“ZFRT5 

DWIOE ROUTINES IN BANK U 

• 




1 104 

REF 

22 

1 AST 

li"29 

7560 

54 004 

1 


TS 

FBANK 






1103 


Y~ 



7561 

1 2353 1 


TTF 

ddv/bodv 







1 ITT ~ 

PFF 

64 

LAST 

1149 

756? 

3 0116 

1 

SFTPD 

^:a 

ADOPWD 

MUST SET TO W^RK AREA, OR 

EBANK TROUBLE, 



1107 

ITFF 

r2“ 

LASr 

1126 

r5771“ 

“54 TX6" 

I 


TS 

PIJSHL(TC" 






IlOH 

RFF" 

1“ 



7564 

“T 6032 1 


TCF 

NO I6NKSW 

“ND FBANK SWITCH KtUUlkED* 





















1109 

REF 

“2F8^" 

“’LAST" 

1149 

— 7565 

3“ 5021 n 

T SL C 

C AF 

■ Z FRO 

SHIFTING RGUflNES LOCATED 

ITT K 00 

• 



iiro' 

fTEF“ 

7T" 

"LAST 

1149“ 

7 5 77 6 ” 

54 004 

"T. 


T5 

F BANK 






nil" 

— 

— r“ 



/36T” 

1 2172 

0 


TCF 

TSLC2 






















— rrr2~ 




XTTTS 

" ' " T5T0" 

" 3 ■ XTT4T 

0 

G 5H TFT 

CXF 

"Tuwm 

USED AS MASK AT GENSHIFT* 

THT S PkOCE 

f 1 v P 1 1 



rTTT“ 

— RTF 

24 

LAST 

1149" 

7 5 rr" 

54 0 04 

1 


TS 

FBANK 

ANY SHIFT INSTKUCTION IhXCtPI J SLC 1 

W I f H 



rm” 

— RIEF 




T^TTr 

1 7?I4 



ICF 

GENSHIH 

AN ADDRESS IRUUllNES IN B 

ANK UJ. 

■ » - 1 ■ 1 1 
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L 

I NTt'?PRFTFP. 

USER'S PAGE NO. 

44 

E3 S3 


Pill"; 

THE FOLLOWING 

IS THE PROLOGUE TO V/SC. IF THE PRESENT MODE IS VECTOR, IT SAVES THE 

SCALAR AT 

X IN BUF 

R 1 1 17 

AND CALLS THE V/SC kOIJTIHP IN BANK 0. IP THE PRESENT MODE IS SCALAR. IT MOVES THE VECTOR AT 

X INTO MPAC. SAVING 

p 111'^= 

THl SCALAR IN MPAC IN i 

5UF BEFORE CALLING THE V/SC ROUTINE IN BANK 0. 




IIZO 

PFF 

17 

LAST 1145 

7573 

10 163 

1 

V/SC 

CCS 

MODE 




1121 

RFF 

1 


7574 

1 7605 

1 


"TCF 

DV/SC 

move VECTOR INTO MPAC. 



1 1P2 

REF 

2 

LAST 1150 

7375 

1 7605 

1 


"TCF 

OV/SC 





1123 




— rT7& 

0 0006 

1 

W7SC 

EXTEND 





112'+ 

REF 

65 

LAST 1149 

T5Tr 

5 0116 

1 


iNoex 

AODPWD 




1123 




7600 

3 0001 

0 


OCA 

0 




1126 

REF 

54 

LAST 1149 

7601 

52 131 

0 

V/SCl 

OXCH 

BUP 

IN BOTH CASES. VECTOR IS 

NOW IN MPAC AND 


1127 

REF 

229 

LAST 1149 

7602 

3 5021 

1 


CAP 

Z'-RO 

SCALAR IN BUF. 



1123 

REF 

25 

LAST 1149 

760 3 

54 004 

1 


TS 

FBANK 




1129 

REF 

1 


7604 

1 2 6 54 

0 


TCF 

v/sr ,2 





1130 




7605 

0 00 06 

1 

OV/SC 

EXTEND 





im 

REF 

66 

LAST 1150 

7606 

5 0116 

1 


INDEX 

AODRWD 




1132 




?6^ 

3 0003 

1 


DCA 

2 




1133 

RcF 

41 

LAST 1149 

7610 

52 1 60 

] 


DXCH 

MPAC +3 




1134 




7611 

0 0006 

1 


EXTEND 





1135 

"rFF 

67 

LAST 115'(r 

5 0116 



INDEX 

A ODR WD 




1136 




7613 

3 0006 

1 


“OCTS 

4 




1137 

REF 

416 

LAST 1150 

7614 

52 162 

3“ 


"DXCH 

MPAC + 5 





113B 

RFF 

137 

LAST 1124 

7713^ 

4 5017 

IT 



ONE 

CHANGE MODE TO VECTOR. 



llT^ 

REF 


L AST^nTD 

7616 

64 163 



TS 

MODE 





EXT.^ND 

1 MDEX — AODRWD 
DC S 0“ 

uxcn — Frrac — ~ 

TUF' V / SCI — FINISH PTOL^JCUh AT COMMOM^ SECTI ON, 


1140 



r^TT^ 

0 0006 I 


1141 REF 63 

“LATT 

xr5o ■ 

7620“ 

5 0116 1 


1142 



76 ZT" 

3" IT(TD!"~D 


rr4l REF 617 

L AST 

ll5o 

9622 

7 > “A 

52 155 1 

— TTrm n 
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L 

INTERPRETER 







USER'S PAGE NO. 45 £3 

S3 















P1145 



SIGN 

ANO CGMPL 

c^ENT 

INSTRUCTIONS. 



















114^ 

REF 

69 

LAST 

1150 

76 24 

50 116 1 

SIGN 

INDEX 

ADDRWO 

CALL COMP INSTRUCTION IF WORD AT 

X IS 


1147 





7625 

10 000 0 


CCS 

0 

NEGATIVE NON-ZERO. 



1143 

REF 

24 

LAST 

1149 

7626 

1 6030 0 


TCF 

DANZIG 




114Q 






1 7631 0 


TCF 

+ 2 




1150 

REF 

2 

LAST 

1118 

7630 

1 7637 0 


TCF 

COMP 

DO THF COMPLEMENT. 
















1151 

REF 

70 

LAST 

1151 

7631 

I 

0 

1 


INDEX 

ADORWD 




1152 





76 3 2 

10 001 1 

CCSL 

CCS 

1 




11S3 

REF 

25 

LAST 

1151 

7633 

1 60^0 0 


TCF 

DANZIG 




1154 

REF 

26 

LAST 

1151 

76 34 

1 6030 0 


TCF 

DANZIG 




IISS 

REF 

3 

LAST 

1151 

7635 

1 7637 0 


TCF 

COMP 




1156 

REF 

27 

LAST 

1151 

7636 

1 6030 0 


TCF 

DANZIG 




115^ 





7637 

0 0006 1 

COMP 

EXTEND 


COMPLEMENT DP MPAC IN EVERY CASE. 



11S8 

REF 

4l8 

LAST 

1150 

76 40 

4 0155 1 


CCS 

M P AC 




11S9 

R c F 

Al9 

LAST 

1151 

7641 

52 155 1 


OXCH 

MPAC 





1160 

REF 

19 

LAST 

1150 

7642 

10 163 1 


CCS 

MODE 

either COMPLEMENT MPAC +3 HR THt 

REST OP 


1161 

REE 

1 



7643 

1 7654 0 


rcc 

OCOMP 

THE VECTOR ACCUMULATOR. 



1162 

REF 

2 

LAST 

1151 

7644 

1 7654 0 


TCF 

OCOMP 





1163 






IT 0006 I 


I— r\ ? V , 1 X L ^ 


VECTOR COMPLEMENT. 



1 164 

REF 

420 

L AST 

1151 

7646 

4 0160 1 


ccc 

MPAC +3 




1165 

ref 

R-21 

LAST 

Tm 

"TSTfT” 

52 160 1 


CXCfl ^ 

MPAC +3 




rrs6~ 





7650 

“irDOO'6^’ I 


EXT t ND 





1167 

"RTF' 

422 

LAST 

~TY5l 

7651 

4 0162 0 


DCS 

MPAC "+5 




TTFB" 

REF 


LAST" 

1151 


52 162 7J 


tTxcn 

wiPAC -*-5 





RFF 

“T3“ 

LAST 

TT51 

7653 ■ 

X“6D 3 'a TT 


TCF 

0 A N Z I G 





rmi 

"RTF” 

"474“ 

~L7LST 

Ti5^r 

T6^ ” 

4 nr56 T 


CS 

MPAC +2 




rm 

R EF ■ 

■^2 5 


1151 

765775” 

t4 t: 56 r 


TS 

MPAC +2 




1172 

p f'F 

29 

LAST 

ll5l 

?6 5 6 

1 6030 0 


TCF 

oanZiG 
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INTERPRETER 






USER'S PAGE NO. 

i 

^6 

E3 S3 






















P1173 


THE 

FOLLOWING SHORT 

SHIFT CODES REQUIRE NO ADDRESS WORD: 




























R1174 


1. 

SRI 

TO SRA 

SCALAR 

SHIFT PIGHT. 











R1175 


2, 

SRIR 

TO SR4R 

SCALAR 

SHIFT RIGHT AND ROUND. 











R1176 


3. 

SLl 

TO SLA 

SCALAR 

SHIFT LEFT. 











Rll 77 


4 • 

SLIR 

TO SL4R 

SCALAR 

SHIFT LEFT AND ROUND. 












Rl 178 


5, 

V5R1 

TO VSR8 

vector 

SHIFT RIGHT (ALWAYS ROUNDS*. 











R1179 


6 # 

VSLl 

TO VSL8 

VECTOR 

SHIFT LEFT (NEVER ROUNDS). 




























RllBO 


THE 

FOLLOWING COOES 

REQUIRE AN AOORESS WHICH MAY Bt INUbXhO:=^ 




























R1131 


1. 

SR 


SCALAR 

SHIFT RIGHT. 











R1132 


2. 

SRR 


SCALAR 

SHIFT RIGHT AND ROUND. 











R 118 8 


3. 

SL 


SCALAR 

SHIFT LEFT. 











'>1184 


4 • 

SLR 


SCALAR 

SHIFT LEFT AND ROUND. 




























P1185 


8. 

VSR 


VECTOR 

SHIFT RIGHT. 











R 1136 


6 » 

VSL 


VECTOR 

SHIFT LEFT, 












R11S7 


IF THE AOORESS 

IS INOEXFn 

. AND THE 

INDEX MODIFICATION RESULTS IN A NE 


[VE SHIFT COUNT, 

A 

11 A 1* 1 

□ F 

1 Ht 





P 1 1 

ABSOLUTE VALliE OF 

THE COUNT 

IS DONE IN 

THE OPPOSITE DIRECTION. 












11 '^0 




WTTOrTT 



“BTOK" 

ol 

1 o 

1 














1191 

REF 

2 

LAST 1118 TO 

iil9: 

1 

in 


COUNT 

OO/INTER 













r*l I T' C! T' 

ruTT 



LAST 1143 ■ 

00,?Ol7 

■3“67Tr““0" 

3H0RTi 

CAF 

SIX 

SCALAR SHURT SHIFTS COME HERE. TrTF 

5H I h T 

1 19 3 

REF 

2»o 

LAST 1123 

00,2020 

7 0020 1 


MASK 

Tyr 

COUNT-1 IS NOV-^ IN BITS 2-3 OF CYR. 

THE 

1 1 *-’4 

REF" 

20 

LAST lOFI 

00,2021“" 

54 021 0 


T5 

SR 

RUUNUING BIT IS IN Bill AI IHIS KUINI. 

— , -r»r - ■ ■! ■ 1 . .. ■ J Ji ^ w r i— i ■ ■ ■- ■ '' ‘ * 












1175 

PEF 

30 

LAST 1152 

00,2022 

lo 020 1 


crs 

TTk 

SEE IF RIGHT UR LEFT SHIFT DE51KEU. 


1196 

REF 



00,2023 

1 210 rT~ 


“TCF 

TSSC 

SHI FT LEFT. 

- 












1197 




00,2024 

00024 1 

SftDTiV 

un: 

20 

MPTEMP SETTING FUK SK BbFUKE UUV. 













IT7:3 


”2T” 

TTAISTTI^ 

00. 2075“ 

50 "OTL 1 

TSSR 

TNUFX 

SK 

GET SHIFTING bITT 


1199 

REF 

61 

LAST 103P 

00,2026 

3 5002 0 


CAF 

biti't; 



T2JW 



fT 

L<>ST 1141 

00,2027 

54 13S 1 


"TS ~ 

WFTtMP 














TTTTT 

R EE 


LAST 1152 

00,2030 “ 

10 020 1 ■ 


errs 

CY R 

SbE IF A KUUNL) IS UbSIKbU. 


12^?“ 


1 


00,2031 

0 7750“ T) 

V I GHTR ■ 

TC 

M P A CSTRT^D 

YES — SHIFT RIGHT AND KUUNU. 


rrjT 

R'TF"" 

— zr 

• 

■ L A7r“n43- 

“0777 0T7“^ 

T“7T02 f 0 


TCF 

NEWMD75 

SET MODE TO DP (CiAl = U». 


r27W 

R rE 

■nnr 

LAST 1132 

DO,?T5'3T" 

3 0138 0 " 

MPACSHF 

C A 

MPTEMP 

DO A triple PRECISIUN SHIFT KIGHI. 


unr 




“OO , 7034 

0 0006“ T 


■EXTTNIT 



.. 

rzmr 

” -OTirF 


L fiTST TT5T: 

"nrr, zo 3 b 



— IOTP — 

MPAC +2 



noT 

^FT" 

TTT 

LAST 1132 

00. 2036"“ 

54 156 1 

+ 3 ■■ 

TS 

M P AC + 2 

(EXil FROM SQKl AND ABVAL). 


nnw 

— irFF” 


LT7T 1162 

7Trr,70Tr“ 

3 aT75 a 


r A ■ 

MPTLMP 



~ \2.m 




■07;704Tr“ 

ir^D'OST 


' EXTEND' 


























































m-m rnmm *■ ^ ^ ' *• - 'W 

^ ^ - . . . . , , - - - - — •. - -- - 

^ — — 
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L 

INTE«PRFTEP 








USER'S PAGE NO. 47 E3 S3 



1210 

PEF 

423 

LAST 

1152 

00,2041 

7 0154 

0 


MP 

MPAC 

SHIFT MAJOR PART INTO A*L AND PLACE IN 


1211 

REF 

429 

LAST 

1153 

00,2042 

52 155 

1 


DXCH 

MP AC 

MPAC.+l. 


1212 

REF 

16 

LAST 

1152 

00,2043 

3 0135 

0 


CA 

MPTFMP 



1213 





00,2044 

0 0006 

1 


EXTEND 




T 2 1 A 

R. E E 

144 

LAST 

1148 

00*2045 

7 0001 

1 


MP 

L 

ORIGINAL C(MPAC +1). 


1215 

REF 

430 

LAST 

1153 

00,2046 

20 1 56 

1 


DAS 

MPAC +1 

GUARANTEED NO OVERFLOW. 


1216 

REF 

30 

LAST 

1151 

00,20<f7 

1 6030 

0 


TCF 

DANZIG 




R 1217 



MPAC 

SHIFT 

RIGHT AMO 

ROUND SUBROUTINES. 






1213 

REF 

431 

LAST 

1153 

00,2050 

3 0156 

0 

MPACSKND 

CA 

MPAC +2 

WE HAVE TO DO ALL THPFE MULTIPLIES SINCE 


1219 





00,2051 

0 0006 

1 


EXTEND 


MPAC +1 AND MPAC +2 MIGHT HAVE SIGN 


1220 

REF 

17 

LAST 

1153 

00,2052 

7 0135 

1 


MP 

mptemp 

DISAGREEMENT WITH A SHIFT RIGHT OF 1. 


I22l 

:•! E F 

432 

LAST 

1153 

00,2053 

56 155 

0 


XCH 

MPAC +1 



1222 





0 0 , 2 05T“ 

0 0006 

1 


EXTEND 




12^3 

pTeF 

18“ 

LAST 

1153 

00,2055 

7 013^“ 

1 


~W 

MPTEMP 



1224 

rirf 

433 

LAST 

1153 

00,2056 

56 155 

0 


"TULi 

MPAC +1 

TXIAL .Ml“NOR PART. 


1 22 5 

PEF 

145 

LAST 

1153 

00*2057 

6 0001 

0 


AD 

L 
















“TlTZTr 





o ' 

o 

6 OOiJO 

1 


DOUBFE 


(FINISH VECTOR COMPONENT SHIFT RIGHT 


1227 

one 

Tr 1 

434 

LAST 

1153 

00.2041 

54 156 

1 


TS 

MPAC +2 

AND ROUND. 


1223 





00*2062 

1 2 064 

0 


TCT 

+2 



1220 

■RET' 


1 SFT 

1153 

00,2063 

26” 1 55 

T“ 


ADS 

MP AC + 1 

GUARANTEFD NO OVERFLOW-. 



rz37r 

K EF 

230 

LXsn^ 

1 1'5 0 

00 * 2 0'T4 

3 5021 

■T“ 


T7LF 

L. 



rZTT 

REF 4? 6 

LIFT 

1T5F’ 

00,2063“ 

34 1 56" 

1 


T S 

MPAC +2 





437 

"TAFT" 

1153 

00,20^6“ 

56 1 54 

1 



MP^AX 

setting to zero so following das works. 


12 33 





00*206 / 

0 0006 

T 


EXTEND" 




1234 

RTF 

LAST 1153 

“OUTXTTP’ 

”T"iyT3r5 

j— 


M P 

MPTEMP 



T7J5" 

'?EF 

438 

TTTTT 


00,2071“ 

20 155 

1 


TiJS 

MPAC 

AGAIN Ni^l UVEKFLOW. 


1 2 3h~ 

RE'f 


rssT iiw 

— 00 , 2UTZ" 

0 00132 

”Tr“ 


T€ ' 

y 
















rrrr 

— PFr 

— RTT" 

LAST 

115T' 

— 00,2'07T' 

3 0135 

TT" 

VSHf’RND 

TA 

MPTE’^R 

ENTRY to SHIFI KiGHf AND KUUNU MPAC WHEN 


T71T~ 





— CrOTZTTTX 

0 015W 

1 


EXTEND 


MPAC con I a IMS A VECTOR COHPTJNENI. 


— rzTo- 

r? » p 


LASJ 

1153 

0 0 . 20 75 ^ 

T 0135 T 


“HP 

M P AC 1 



TT^- 

RTF 

440 

LAST 

1153 

00,2076 

54 155 

3^ 


TS 

MPAC +1 



1241 

■ "RFF 

“T45 

TXST 

1X53“ 

00,2077 

“54 ttOT 

0 


TTCTH 

L 



1242 

■ kFF 




— 00.2100 

1 20 60' 

1 ” 


TCF 

VSHR2 

GO ADO ONE If NECESSARY AND FINISH. 

- 



GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR. Itl969 CHIEFTAN.028 PAGE 1154 


I NTERPRETER 


USER’S PAGE NO. 48 


E3 S3 


P 1243 


1244 


1245 


1246 


1247 



1250 


1253 


1256 


1257 


1253 


1 259 


1260 


ROUTINE FOP SHORT SCALAR SHIFT LEFT (AND MAYBE ROUND) 



REF 


LAST 1152 


OOtRlOl 3 0021 I TSSL 


GET SHIFT COUNT FOR SR 


REF 21 LAST 1153 


00.? 102 54 135 1 


+ 1 


TS 


MPTEMP 



00,2103 0 0006 1 



EXTEND 


RFF 441 LAST 1153 

LAST 1154 
LAST 1154 


00,2104 3 0156 


DC A 




00.2105 

00,2106 


20 156 1 
6 0154 1 





4^4 LAST 11 


00.2107 6 0154 1 


MP4C +1 
MPAC 
MPAC 


MPAC 


SHIFTING LFFT 


ONE PLACE AT A TIME IS 

riTT 


MULTIPLIES ASSUMING 
SHIFT COUNTS GOES 


HAT FrEOuEnCY of 
DOWN RAPIDLY AS A 



RFF 


LAST 113R 


00.2112 


121 



DVFIND 


OVERFLOW. (LEAVES OVERFLOW-CORRECT ED 



.RFF 


LAST 1152 


00.2114 1 2102 1 


TCF 


TSSL +1 


REF 



LAST 1152 


00.2115 


020 


CCS 


REF 


REF 31 


LAST 1149 
LATT' 1 


00 , 211 '' 0 


00.2117 1 


71 05 1 


ROUND 



TC 

TCT" 


CYR 
ROUNOSUB 

O/fNTIG 


SEE IF POUND WANTED. 

YES - ROUND AND EXIT 
SL LEAVES A ZERO IN CYR 


REF 32 LAST 1154 


00,2120 1 6030 0 


TCF 


DANZIG 


NO - EXIT IMMEDIATL 


gap: assemble REVISION OSS 0? AGE PROGRAM COMANCHE BY NASA 202111B-051 10:28 APR. 1.1P69 CHIEFTAN.02B PAGE 1155 


L INTERPRETER USER'S PAGE NO. 49 E3 S3 


PI 261 

VECTOR 

SHIFTING ROUTINES. 



















12o2 

REF 

3 

LAST 

772 

00.2121 

3 5023 

0 

SHORTV 

CAF 

LnW3 

SAVE 3 BIT SHIRT COUNT - 1 WITHOUT 

1259 

^FF 

33 

LAST 

1154 

00.2122 

7 0020 

1 


MASK 

CYR 

EDITING CYR. 

1254 

r<eF 

23 

LAST 

1154 

00,2123 

5 4 135 

1 


TS 

MPTEMP 


1265 

RFF 

34 

LAST 

1155 

00.2124 

10 020 

1 


CCS 

CYR 

SEE IF LEFT OR RIGHT SHIFT. 

1266 

REF 

I 



00.2125 

I 2145 

1 


TCF 

VSSL 

VECTOR SHIFT LEFT. 

1267 





00.2126 

00176 

1 

aCT176 

OCT 

176 

USED IN PROCESSED SHIFTS WITH - COUNT. 


1268 

KEF 

24 

LAST 

1155 

00,2127 

50 135 

0 

VSSR 

INDEX 

MPTFMP 

(ENTRY FROM SR). PICK UP SHIFTING BIT. 

1269 

REF 

62 

LAST 

1152 

00,2130 

3 5002 

0 


CAF 

3 I T 1 4 

MPTEMP CONTAINS THE SHIFT COUNT - 1. 

12 70 

REF 

25 

LAST 

1155 

00.2131 

54 135 

1 


TS 

MPTFMP 


1271 

9 FF 

1 



00.? 13 2 

0 2073 

1 


TC 

VSHRPND 

SHIFT X COMPONENT. 


1272 

REF 

446 

LAST 

1154 

00,2133 

52 155 

1 


DXCH 

MPAC 

SWAP X AND Y COMPONENTS. 

1273 

RFF 

447 

LAST 

1155 

00.2134 

52 160 

1 


DXCH 

MPAC +3 


1274 

REF 

448 

LAST 

1155 

00, 2135 

52 155 

1 


DXCH 

MPAC ■ 


1275 

RFF 

2 

L ^ST 

1155 

00,2136 

0 2073 

1 


TC 

VSHRRND 

SHIFT Y COMPONENT. 


rZ76 

RFF 

449 

LAST 

1155 

0 0 , 2 1. 3 7 

52" 1 5 5 

1 


DXCH 

TTPAC 

SWAP^Y AND Z COMPONENTS. 

1277 

PFF 

450 

LAST 

1155 

00,21 40 

5? 162 

0 


OXCH 

MPAC +5 


rzTs 

RilF" 



1155 

00.2141 

52 155 

1 


OXCH 

MPAC 


1279 

REF 

T 


1155 

00.2142 

W~Z61T 

"I ■ 


TC 

VSHRRND 

SHIFT 1 component. 


1250 

rv 1 

1 



00,2143 

1 73 67 

T) 


TCF 

VROT AT EX 

RESTORE COMPONENTS TU PRUPEK PLACES. 





GAP: 

ASS £!^F 

0_'- 1 

PEVISrOM 055 

HP- AGC PROGRAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. 1 

.1969 

CHIEFTAN.023 PAGF 1156 





L 

I MTERPR 

c T E R 









USER • 

S PAGE 

NO. 50 E3 $3 





P 1 ?R 1 

VECTOR 

SHIFT 

LEFT - 

DONE ONE 

PLACE AT 

A 

TIME. 



























128 2 

RRF 

26 

LAST 

1155 

00.2144 

54 

135 

1 

-1 

TS 

MPTEMP 

SHIFTING L 

OOP. 























12^3 





00,2145 

0 

0006 

1 

VSSL 

EXTEND 








i2aA 

RrF 

452 

LAST 

1155 

no, ?146 

3 

0155 

0 


DCA 

MPAC 







12 85 

REF 

453 

LAST 

1156 

00,2147 

20 

155 

1 


OAS 

MPAC 







12«5 





00,2150 

0 

0006 

1 


EXTEND 








1287 





00.2151 

1 

21 53 

0 


BZF 

+ 2 







1 288 

RFF 

3 

LAST 

1138 

00*2152 

0 

6766 

0 


TC 

OVERFLOW 








1289 





00,2153 

0 

0006 

1 


EXTEND 








1290 

REF 

454 

LAST 

1156 

00.21 54 

3 

0160 

0 


DCA 

MPAC +3 







12'31 

RFF 

455 

LAST 

1156 

00,2155 

20 

> 160 

1 


DAS 

MPAC +3 







1292 





00,2156 

0 

0006 

1 


EXTEND 








1203 





00.2157 

JT 

2161 

1 


btf 

+ 2 







129it 

R F F 

4 

LAST 

1143 

00,2160 

0 

6763 

0 


TC 

OVERFLWY 







'1295 00*2161 0 0006 1 “EXTFMT) 

1296 REF 456 T&Tr 1136 00*2162 3~0I6? 1 DC A MP'AC 

I29f r^.EF 457 LAST 1156 00,2163 20 162 0 DAS MPAC +5 

Y2^Tb 00.2164 0 0006 1 cXTEND 

1299 00.216^ I 2167 I BZF -t-? 

1300 WEF 4 LAST 1147 00,2166 0 6760 0 IT OVErFCwI 


OOI REF 27 — CAST 1156 — 0n,2r6T TO lO^rn^ ZZS MPTFMP “ "LGOFTW OfcCKRMENTED ~SHlh I CUUNTER^ 


13 02 

REF 2 

LAST 

1155 

00,2170 

1 

2 1 44 

0 

TCf VSSL -1 

TTOT 

REF TS~ 

LAST 

1154 

00, TIT 1 


■6030 

~0 

TCP DANZIG EX7l. 


gap: 

ASSEMBLE RE 

VISION 055 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1,1069 CHIEFTAN.02P PAGE 1157 


L 

INTERPPETFR 







USER'S PAGE NO. 51 E3 S3 


P1304 



TSLC 

- TPIPLF SHI FT 

LEFT AND 

COUNT. SHIFTS MPAC 

LEFT UNTIL 

GREATER THAN .5 IN MAGNITUDE, LEAVING 

P1306 

THE 

CHMPL 

r,MENT 

OF Tl- 

IE NUMBER 

OF SHIFTS 

REQUIRED IN X, 














1 3 0? 

REF 

28 

LAST 

1156 

0Q» 2 172 

54 135 

1 

TSLC2 TS 

MPTEMP 

START BY ZEROING Shift COUNT (IN A NOW T. 

1308 

REF 

2 

LAST 

1141 

00,2173 

0 6672 

1 

TC 

BRANCH 

EXIT WITH NO SHIFTING IF ARGUMENT ZERO. 

130^ 





00.2174 

1 2176 

1 

TCF 

+ 2 


1310 

REF 

1 



00,2175 

1 2212 

0 

TCF 

ENOTSLC 

STORES Zero shift count in this case. 












1311 

REP 

S 

LAST 

727 

00i2176 

0 7226 

0 

TC 

TPAGRFE 

MAY CAUSE UPSHIFT OF ONE EXTRA PLACE. 


1312 

REF 

46 8 

LAST 

1156 

oo.:n7 7 

3 0154 

1 

CA 

MPAC 

BEGIN NORMALIZATION LOOP, 

1313 

REF 

1 



00,2200 

1 2207 

1 

TCF 

TSLCTEST 













1 3 14 

REF 

29 

LAST 

ll57 

00,2201 

24 135 

0 

TSLCLOOP INCR 

MPTFMP 

INCREMENT SHITT COUNTER, 

1315 





00,2202 

0 0006 

1 

EXTEND 



1316 

REF 


LATT 

1157 

00,2203 

3 0156 

0 


MPAC 


1317 

REF 

460 

LAST 1157 

0 0 ,22 0 4 

20 156 

T 

□As 

MPAC +1 “ 


1 3 1 3 

pW~ 

461 

LAST 

1157 

00,2205 

6 0154 

1 

AO 

MPAC 


1319 

PFF 

462 

LAST 

1157 

00,2206 

26 154 

0 

ST3S ~ 



~TJ2jr 






6 0000 

T 

TSLCreST ODUSLE 


SEE IF (ANOTHERI SHIFT IS REQUIRED. 

1321 




1 

00,2210 

54 000 

0 

OVSK 



TJ7T 

E F 

1 



(TO , 2211 

T“2 2 01 

T 

TCT^ 

TSLCLODP 

Y ” INCREMENT COUNT AND SHIFT AGAIN, 












TJ7T 

REF 

J5 

LAST 

1 ITT" 

00,2212 

4 0135 

1 

FNDTSLC 

MPTF MP 


13?4 


1 



00 ,T7l 3 

“ r 65T2~ 

U 

TCT 

S TOR E 1 

store SHIFT COUNT AND RETURN TO DANZIG, 










GAP: 

ASSEMBLE REVISION OSS 

OF AGC PROGRA'^ COMANCHE BY NASA 2021 113- 

031 10; 

28 APR. 

1,1969 CHIEFTAN.028 

PAGE 1158 



L 

INTERPRETER 



USER 

•S PAGE NO. 52 

E3 S3 



P 1325 

THE I^OLLOWT 

NG ROUTINES PROCESSES THE GENERAL SHIFT 

INSTRUCTIONS 

SR » SRR* 

SL. AND SLR. 



R 1 32 r 

THE GIVEN AODRESS IS 

DECnOED AS FOLLOWS; 







p 1323 

BITS 1-7 

SHIFT COUNT (SUBADORESS) LESS THAN 125 

DECIMAL. 





R13?9 

BIT 8 

’’SeUDO SIGN 3 IT (DETECTS CHANGE IN SIGN 

IN INDEXED 

3HTFT31 . 




pa33i 

BIT 9 

0 FOR LEFT SHIFT, AND 1 FOR RIGHT SHIFT 






R 1332 

BIT 10 

1 FOR TERMINAL ROUND ON SCALAR SHIFTS, 

0 OTHERWISE. 





R1 333 

BITS U-13 

0. 






R 1334 

BIT 14 

1. 






R1335 

RIT 15 

0. 







R1336 

THE 

ABOV 

e ENCODING 

IS DONE BY 

THE YUL 

SYSTEM. 
































1337 

C E F 

71 

LAST 

1151 

00,?PI4 

7 0116 

0 GENSHIFT 

MASK 

AODRWO 

GET SHIFT COUNT, TESTING FOR ZERO. 


1333 

REF 

29 5 

LAST 

1 148 

00.2215 

10 000 

0 

CCS 

A 

(ARRIVES WITH C(A) = 

L0W7) . 


133^ 

REF 

1 



00.2216 

1 2224 

0 

“TTF 

GENSHFT2 

IF NqN-ZFRu, proceed 

WITH UFCREMENTEO CT 















1340 

kef 

33 

LAST 

746 

00,2217 

3 5006 

1 

CAP 

BITIO 

ZERO SHI FT COUNTVaKT 

SHfFTS NEEDED BUT 


1341 

REF 

72 

LAST 

1158 

00.2220 

7 01.16 

0 

MASK 

ADDR.Wi) 

WE MIGHT HAVE TO ROUND MPAC UN bLK AND 


1342 

REF 

296 

LAST 

1158 

00,2221 

TO 000 " 

0 

CCS 

A 

SRR (SCALAR ONLY). 



1343 

REF 

3 

L AST 

1154 

00,222? 

0 7105 

1 

nTT 

ROUNOSUB 




13^f4 

R F F“ 

34 

LAST 

115^ 

00.2223 

■ir~6ir37r' 

0 

^TTF 

DANZ I G 





RWF 31 LAST 1157 

— 04S "'"R6F '^4 LAST llOS 
1347 

1343 R F F 73 LAST rrS^ 

“T3^“ FFF“' 1 ^ 

1350 REF 2^1 LAST 1153 

1351 

’TIFT ^ ~ 'F- FF I ~ 

1353 TEF 1 

~TTT4- FEF T 


00, 2224 S^fTTF 1 GETTSHFT? TS 


00, ?225 3 ”5"010 0 ~ C“AF 

00,2226 0 9006" 1 FTTF^ 

00,22 2 7 7 0116 0 MP 

m'f zzw 7 6214 I — “i^Trsir " 

00,2231 50 000 1 I NOEX 

00 , 22 32 T:~ "2TT3 "0^ ^ ^~TCF “ ^ 

0D,T2T3 r 2332 O' ^ TCF 

00 , 2234 I 2342 I TCF 

00,2235 1 2336“T TCP 


RFTFHP 

BITS 


wmwry 


IT 

+T 


LEFT 

LEFT- 



SHIFT COUNT TO MPTEMP. 


TFST“HFANTNG OF THF SEVEN 

M PT E M P Now • 



COUNT TH 


TUFTPViON SHIFT DTlTECTinN (BURJ AND 


ORrGTNAL SHIFT DTPECMUN (HIT 
NEGATIVF'STrrFT^CDUrFT FOR St OR 5LP. 

SL OR SLP. 

NEGATTTE SHIFT COUNT" WITH SR HR SRR. 


gap: 

ASScMBL^ R';V[S10N 055 OF AGC PROGRAM CO'^ANICHE BY NASA 2021113-051 

10:28 APR. 1.1969 

CHIEFTAN.023 
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L 

INTERPRETER 

USER'S PAGE 

NO. 53 

E3 S3 


P1355 



GENERAL SHIFT RIGHT. 

















13S6 

REF 

20 

LAST 

1151 

00.2236 

10 163 

1 

RIGHT CCS 

MODE 

SEE IF VECTOR OR SCALAR. 

1357 

REF 

1 



00,2237 

1 2277 

0 

TCP 

GENSCR 


1353 

REF 

2 

LAST 

1159 

00,2240 

1 2277 

0 

TCF 

GENSCR 




R EP 

32 

LAST 

1158 

00.2241 

3 0135 

C\ 

CA 

MPTEMP 

SEE IF SHIFT COUNT LESS THAN 14D. 

136 0 

f’EF 

1 



00 ,2242 

6 3730 

0 

VRIGHT2 AO 

NFG12 


1361 





00,2243 

0 0006 

1 

EXTEND 



1362 

REF 

1 



00.2244 

6 2127 

1 

3ZMF 

VSSR 

IF SO. BRANCH AND SHIFT IMMEDIATELY. 












1363 

REF 

23 

LAST 

1143 

00,2245 

6 7716 

"0“ 

AO 

NEGONE 

IF NOT, REDUCE MPTEMP BY A TOTAL OF 14, 

136A- 

REF 

33 

LAST 

1159 

00,2246 

54 135 

1 

TS 

MPTEMP 

AND on A SHIFT RIGHT AND ROUND BY 14. 

136S 

RFF 

231 

LAST 

) i 93 

00. 2247 

3 5021 

1 

CAF 

ZERO 

The round at This stage may introduce a 

1366 

REF 

147 

LAST 

1153 

00,2250 

54 001 

1 

TS 

L 

ONE BIT ERROR IN A SHIFT RIGHT 150. 

ITT? 

REF 

463 

last 

1157 

00.2251 

56 15 4 

1 

XCH 

MPAC 


1368 

REF 

464 

LAST 

1159 

00,2252 

56 155 

0 

XCH 

MPAC +1 


1369 

REF 

T 



00,2253 

0 2272 

1 

TO 

SETROUND 

X COMPONENT NOW SHIf^TED. SO MAKE UP THE 

1370 

REF 

465 

LAST 

1159 

00.2254 

WT5 5 


0 A S 

MPAC 

ROUNDING quantity (0 IN A AND 0 OR +-1 

A 1371 










IN L ) • 

1372 

RSF 

466 

LAST 

1159 

00.2255 

56 157 

1“ 

XCH 

MPAC +3 

REPEAT THE ABOVE PROCESS FOR Y AND Z. 

im 

R EF 

467 

last "113^ 

00.2256 

56 160 

0 

IZCH 

MPAC +4 


YTnr~ 

RE'F 

T 

L^rr 

1 159— 

00,2257 

0 2272 

r 

TC 

SETROUNO 


1 Tr~ 


468 

last 

115*^ 

00.2260 

20 160 

1 

ij^S 

Mr»AC +3 

NO OVERFLOW ON THES^- ADDS. 












— - — i-rrh 

TTEF 


"TTYST' 

^159 

“an',"276Tr' 

“57^61“ T 

XCH 

MPAC +5 


1377" 

REF 

“47^ 

LASr 

1159 

0G,22S2 

56 162 


XCH 

MPAC +6 


13 78” 

REF 

■ 3 

TAST“ 

1159 

00,2263 

0 22 /2 

3 

TC 

SET ROUND 


1 3 VT ' 

RFI- 

^ 47 T 

“OGT 

11 ^ o 

Xm ^ 3 7 

00, 2264 

20 T67 

0 

OAS 

MPAC +5 



1330 

n r 

A r. r 

~^4“ 

i:7rsx 

1159 

00,??65'' 

“ro“TTr 

~T~ 

~TXS 

MP 1 FMP 

SEE IF Ul’NE. UUlNb EINAL UtCKtntrN». 

1331 

REF 

“T5 

LAST 

1159 

C)0 . Z2‘66 " 

54 135 

~T~ 

TS 

MPTE.MP 


1382 

— TFT 

— r 



00,2267 

1 22^2 

0 

TCF 

VRIGHT2 


13S3" 





00. 2. '70 

04604 

nr 

BTASLa DEC 

• 29 74 P-1 

SOkI CfiNSlANf 


1384 

— RTF" 


LASI 

1158 

00,22/1 

I'FUITT 


It f Vw 






■ ■ — — ■ ■■MM.- 









1335 





— 00,22 /2 

6 OUTTTT 

'T~ 

SEI round UUUBLt 


MAXES UV' KUUNDiNG tjUANfllY FKUM AKKlVlNIi 

13B6~ 

RTF“ 

^472” 

—LAST 

115'9^~ 

00,2272“ 

54 156 

I 

\ s 

MpAC +2 

c(a). l is zero I n it I all t. 

13 37 

TEF 

“232“ 

LAST 

il'59~ 

— 00,2274 

“3"5021 

“T 

CAE 

/ E R U 



r3'B'8~ 

— RFF" 

TW 

LAST 

1 1 5 9“ 

— 00 . 2 2 / 5 ■ 

56 001 




f- T* f 1 r> M A Kir\ rm — ri Jt C ntTCILT rTRff**' 1 TTT O 

13F9 ■ 

— RTF" 

-272“ 

orsT 

“TT52“ 

00*22T6 

0 0007 

0” 

TC 

y 

RtIUKN ANU UU IMt UAbt ‘<L^tl 11 L i U sJ • 














_ .T—..,— ,1 - . ■ ■ - — 


1 



GAP: ASSEMBLE REVTSION 055 OP AGC PBOGRA^'^ COMANCHE BY NASA 20211 1 3-Q51 


10:28 APR, 1,1960 CHIEFTAN.023 PAGE 1160 


II 


P13'^0 


1392 


1395 


1396 


1397 


1 3 9 3 


13 99 


1400 


1401 


140? 


1403 



1406 


1407 


1403 


140 9 


1410 


141 1 


INTERPRETER 


USER»S PAGE NO 


54 


E3 S3 


PROCESS SR ANO SRR FOR SCALARS. 




LAST 1159 


00*2300 6 3730 



NEG12 


THAN 140. 



REE 


24 LAST 1159 


00*?303 6^71 6 


REF 


37 LAST 1160 


00*2394 54 





^FF 233 LAST 1159 00*2305 3 5021 I 


ilEF 473 last 1159 


00,2306 56 154 1 


CAP 

XTR 


ZERO 
M P AC 


REF 474 LAST 1160 


00,2307 56 155 0 


XCH 


REF 475 LAST 1160 


00,2310 54 156 1 


TS 


MPAC +1 

MPAC +2 


REF 33 LAST 1160 


00,2311 10 135 1 


CCS 


MPTEMP 


SEE IF PINT S H F(T, Dd FINAL 



R FF 


39 LAST 1160 00,2312 54 135 1 


TS 


MPTEMP 


REF 


3 LAST 1159 


♦2313 0 


2300 


0 


TC 


GEN5CR +1 


R FF 


LAST 1158 


,7314 
00,23)5 


22650 1 
3 5006 I 


SLOPEHI 



REF 74 LAST 1158 


00,2316 7 0116 0 


REF 298 LAST 1158 


00*2317 10 000 0 


CAF 

MASK 


5884 
BITIO 


AOORWO 


SORT CdNSTANT 7 

FINISHED WITH 
WANTED. 


HIFT. SEE IF ROUND 


A 


REF 

ref 


3 6 


LAST 1158 

LAST 1159 


00*2320 

00 •23 21" 


0 7105 1 

1 6030 0 


ITT 

TTF 


RUUNOSUR 

OANZ I G 


IDO SO ART) /OR EXIT 


REF 431 LAST 1160 


00,2322 50 135 0 



FT 


1412 


REF 63 LAST 1155 
REF 41 LASTTIoCT 


00 


23 


,23 


3 

54 : 


CD? 0 


INDEX 



PICK UP SHIFTING 81 I 



1TTTTT“ 

MPTEMF 


1413 


% C 


1414 

1413 


EF 

•RET" 


3 5 


T5 


LAST 1160 
LAST 1160 


00,2325 

00,7326 


3 5006 1 

7 oirT;”!) 


CAF 

mFK 


BlTlO 





R OUFTO 



RE F 2 9C) LAST" TTFO 00,2 3Z7 10 000” 0" 



Mjr 
IT 


1416 


14 1 7 


P E F 
R F F 


1 


00 ,2330 

00,2331 


1 2031 0 

I 


TTF 

TCP 


rightr 

MPACSHR 



OUST "SHIFT RIGTTT 








GAP 


ASSFMBLP RFV[SION 0513 OF AGC PROGRAM COMANCHE BY NASA ?021113-031 


10:28 APR 


l\l969 CHIEFTAN.028 PAGE 1161 


INTERPRETER USER’S PAGE NO* 55 E3 S3 


PI 41 8 ^ PROCESS THE R I GHT- ( St ( R ) W I TH A NEGATIVE COUNT } ♦ LEFT-< AND LEFT OPTIONS. 


1420 

R' E F 

4? 

LAST 

1160 

00.2332 

4 0136 

1 RIGHT- 

cs 

MPTEMP 


GET ABSOLUTE VALUE - 1 OF SHIFT COUNT 


1421 

REF 

1 



00 t2333 

6 2126 

0 

AO 

0CT176 


UNDERSTANDING THAT 6IT8 (PSEUDO-SIGN) 


14?2 

P 

43 

LAST 

1161 

00.2334 

54 135 

1 

TS 

MPTEMP 


WAS 1 INITIALLY. 


1423 

REF 

1 



00,2336 

1 2236 

0 

TCP 

RIGHT 


DO NORMAL SHIFT RIGHT. 



1424 

REF 

2 

LAST 

1161 

00.2336 

4 2126 

1 

LEFT- 

CS 

0CT176 

SAME PROLOGUE TO LEFT FOR INOESTED R njTTT 


1425 

RcF 

44 

LAST 

1151 

00.2337 

6 0135 

0 


AD 

MPTEMP 

SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE 


1426 





o 

o 

\JJ 

o 

4 0000 

0 


COM 




142 7 

RFF 

45 

LAST 

1161 

00.2341 

54 135 

1 


TS 

MPTRf^P 




1428 

RFF 

21 

LAST 

1159 

00.2342 

10 163 

1 

LEFT 

CCS 

MODE 

SINCE LEFT SHIFTING IS SONE ONE PLACE AT 


1429 

REF 

1 



00,2343 

1 2346 

0 


TCF 

GENS CL 

A TIME, NO COMPARISON WITH 14 NEED BE 


1430 

P ’=F 

2 

LAST 

1161 

00.2 344^ 

1 2346 

0 


“TCF 

GcNSCL 

DONE. FOR SCALARS. SEE IF TERMINAL ROUND 


1431 

REF 

3 

LAST 

1 i 5 6 

00. 2345 

1 2145 

1 


TCF 

VSSL 

OEStRED. FOR VECTORS, SHIFT IMMEDlATELV. 



1432 

REF 

76 

LAST 

1160 

00.2346 

4 0116 

0 

GrNSCL 

CS 

ADDRWD 

PUT ROUNDING BIT (BIT 10 UF ADUKWUllNiU 


1433 





00.2347 

0 0006 

1 


EXTEND 


BIT 15 OF CYR WHERE THE ROUND IMG BIT OF 


r4W 

REF 

41 

■LATT" 

1063 

OO, 2350 

7 5012 

0 


MP 

BI T6 

A SHORT SHIFT LEFT WOULD BE 


1435 

R"F 

3 5 

LAST 

1 155 

00,2351 

54 020 

1 


TS 

CYR 



1436 

RTF" 


L7rST“T154 

00.2352 




TCT~' 

TSSL +2 

DO THE SHIFT • 




















GAP: ASSEMBLE REVISION 05^ OF AGC ^^ROGRAM COMANCHE BY NASA 2021113-051 


10:28 APP. Itl969 CHIEFTAN.028 PAGE 1 


INTEaPRETER 


USER’S PAGE NO 


56 


E3 S3 


P 1437 


R 143 0 


SCALAR D 1 V I S ION I NSTRUCT I OMS * ODV AND BOflVt ARE EXECUTED HERE* AT THI S POl NT f THE DlVTOEND IS IN MPAC 


AND THE DIVISOR IN BUF 


1440 


1441 

1442 
144 3 


^.EF 138 LAST 1150 00^2353 4 501 7 0 ODV/? 


REF 

PFF 


REF 


I 

1 


00 t 2 354 
O0t2?55 


21 

54 


136 

137 


1 

0 


1 


00, 23 5 6 5 4 140 0 




TS 

TS 


TS 


0^ 


DVSIGN 
nVNORMCT 


MAXDVSW 


INITIALIZATION. 

+-1 For positive quotient 


0 FOR NEG 


DIVIDEND NORMALIZATION COUNT. 
NEAR-ONE DIVIDE FLAG. 


H THE Major part 




SEE IF MPAC NON-Z 



(TOO BIG) 

TW 



1456 

1457 

T 


P P 

V * 


L A^ TT6T 


72T7. 
00,2372 


TJl 


ICGH 


SHIFT DIVlDFTirr ANTT DIVISOR LEFT 




REF 


LAST 

orsT 


116 2 


00*2373 
,7T74 


BU 

MPAC +l 


00*2376 
0 0 ,"T3 'TT 


W 130 
1 2422 
1 2401 


PART 


TZ¥ 


BUF + 

+ 2 


UVERFLOW CM Z E R 0 ' DTVT5UR 


RHF- 




1T62 rfF“‘ 480 LAST ll62 C0V2"4m "4~(jr54 

1463 " ttoTZ^^ TTWO^ 


0 ZZ MPAC “SIGN OF MPAC DETERMINES SIGN OF “RESULT. 

T st;ntjvdvf extend 


I 

t 


1464 





00.2403 

6 2405 1 

FTMT 

+2 


r465' 

■ 3EF 

n ‘ 

c 

LAST 

TTSZ ' 

"TKTT^ ■' CT^r 

T4“' 1 36 0 

rNci5“ 

DVSION 

NEGMAX iN MVal PtRliAPS. 


R E F“ 

30 

LAST 

rr-zTT” 

0072413^ 

3 4777 1 OVOVF' 

C AF 

PIISMAX 

UN UlVlSlUN OVERFLUW OF ANY SORl ♦ SET 

1 't 6 7 



48l 

Last 

ri6^ 

00*2406 

54 1 5T"S 

TS 

M P AC 

SET op MPAC T C! +-PDSMAX. 

r?63 

REF 




0 0 f 2 4-07 

Tr“2530 0 

nx 

FINAinv +3 


1469 

REF" 

139 

“LAST 

116? 

0 0 , 2710 

3 5017 1 

XAT 

ON E 

StT OVERFLOW INDICATOR AND EXIT. 

1470 

REF 

5" 

LAST 

1154 

00,2411 

54 12l 1 

TS 

OVFtND 


1471 

REF 

~~Tr 

LAST 

1160 

00,2412 

0 60 30""T 

TC 

0 ANZ I G 

„ . _ 


1472 

“RTF 3 

LAST T162 

00*2413 

24 136 0 ■ -1 

INC'^ 

OVSTTJT) 


“T4T3' 

“HTEF "59 

L A ST~TTFZ~ 

OX * 2 ^14 

■^0131 W nVF+ 

■ TTS 

BHF +1 

LUAD LOwER DROEH PART UF DIVISOR. 

r474 

^EF 1 


00 ,2415 

1 2402 1 

TTF 

5GNDVCJVF 

GET SIGN UF KtSULT. 








= — ! — ■ f ■ — f 1 * ■ ^ f — fc f r K * — li "1" — T 1 1 1 t"* iL 1 TT T A K 1 1 ^ 

14/5 " 



^ 00*Z4TTr" 

0 0006 T ' FUF- 

EX 1 END 


IF 6UF IS NEGATIVE* LU^PLt*^tNi li anij 

1476 

“IFFF 6^ 

LAST U6? 

00,2417 

4 0131 0 

tirs 

“¥UF 

MAINTAIN DVSIGN PUK PINAL OUUTItNT SIGN* 

— — — — 1 

1 4 7T“ 

R E'F ET^ 

"OXT“H67~ 

00,24‘2TT 

52 TTrT) ■ 

“DTOTTH 

BUF 


14 7 3 


LAST 1162“ 

00*2 42T~ 

Z4 “T3"6" 0 

TNCR 

WSTTJD 

NOW —0. 



GAP*: 

ASSFMBL9 i 

PE VI SI ON 055 

OF AGC PROGRAM COMANCHE BY 

NASA 20 

21113-051 

10:23 APR. 1.1969 CHIEFTAN.028 

PAGE 1163 
















L 

TNieRPRETER 








USER'S PAGE NO. 57 

E3 S3 



1479 

per- 

482 

LAST 

1162 

00 ,?422 

10 

154 

0 BUF+ 

CCS 

MPAC 

FORCE MPAC POSITIVE. CHECKING 

FOR ZERO 


i4ao 

REF 

1 



00*2423 

1 

2437 

1 

TCP 

MPAC + 

D I V I_D E IN THE PROCESS. 



1481 





00,2424 

1 

2426 

1 

TCF 

+ 2 




143 2 

RFF 

1 



00*2425 

1 

2433 

c 

TCF 

MPAC- 




1433 

R EF 

483 

LAST 

1163 

00*2426 

10 

155 

1 

CCS 

MPAC +1 




14 34 

REF 

2 

LAST 

1163 

00 , ?4?7 

1 

2437 

1 

TCF 

MP AC+ 




1435 

REF 

38 

LAST 

1162 

00.2430 

1 

6030 

0 

TCF 

0AM7. IG 

EXIT IMMEDIATELY ON ZERO DIVIDEND. 


1436 

REF 

2 

LAST 

1163 

00.2431 

1 

2433 

0 

TCF 

MPAC- 




1487 

R EF 

39 

LAST 

1163 

00,243? 

1 

60 30 

0 

TCF 

DANZIG 





1488 





00,2 43 3" 

0 0006 

1 MPAC- 

EXTEND 


FORCE MPAC POSITIVE AS BUF IN BUF-. 

1489 

REF 

484 

LAST 

1163 

00,2434 

4 0155 

1 

DCS 

MPAC 


1490 

REF 

485 

LAST 

1163 

00,2435 

52 155 

1 

DXCH 

MPAC 


1491 

REF 

5 

LAST 

1162 

00*2436 

24 136 

0 

INCR 

DVS IGN 

NOW ->-1 OR -0. 













gap: ASSE'^3LE REVISION 055 np AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 

1 , 1969 CHIEFTAN.028 PAGE 1164 


L 

I NTFRPPETER 








USER'S PAGE NO. 58 E3 S3 












1492 

RFF 436 

LAST 

1163 

00.2437 

4 0154 

0 

MPAC + 

cs 

MPAC 

CHECK FOR DIVISION OVERFLOW, IF THE 

14-3 

REF 25 

LAST 

1160 

00,2440 

6 7716 

0 


ad 

NEGONE 

MAJOR PART OF THE DIVIDEND IS LESS THAN — 

1 4 94 

REF 62 

LAST 

1162 

00.2441 

6 0130 

0 


AD 

BUF 

THE MAJOR PART OF THE DIVISOR BY AT 

14R5 

REF 300 

LAST 

1160 

00,2442 

10 000 

0 


CCS 

A 

LEAST TWO, WE CAN PROCEED IMMEDIATELY 

1496 

REF 1 



00,2443 

1 2505 

1 


TCF 

DVNORM 

without NORMALIZATION PRODUCING A DVMAX. 

1497 




00 ♦ 2444 

60001 

0 

-1/2+2 

OCT 

60001 

USED IN SORTSUB. 


1 4 R 




06,2445 

1 2446 

1 


^F 

+ 1 

IF THfc ABOVE DOEb NUT HULUt EUKLt 5 1 ON 

1499 

REE 11 

LAST 

1148 

00,2446 

3 5002 

0 


CAF 

HALF 

AGREEMENT IN NUMERATOR AND DENOMINATOR 

1500 




00.2447 

6 0000 

1 


DOUBLE 


To FACILITATE OVERFLOW AND NEAR-ONE 

1501 

REF ^87 

LAST 

1164 

00,2450 

6 0155 

0 


AD 

MPAC tl 

CHECKING. 

1502 

r?EF 488 

LAST 

1164 

00.2^1 51 

54 155 

1 


TS 

MPAC <-1 


1503 

REF 234 

LAST 

1160 

00,2452 

3 50 21 

1 


CAF 

ZERO 


1504 

REF 31 

LAST 

1162 

00,2453 

6 4777 

1 


AD 

PDSMAX 


1 505 

RFP 439 

LAST 

1164 

00,2454 

26 1 54 

0 


ADS 

MPAC 

% 












1506 

REF 12 

LAST 

1164 

00,2455 

3 5002 

0 


CAF 

HALF 

SAME FOR BUF. 

1 507 




00 ,2456 

6 0000 

1 


DOUBLE 



1508 

REF 63 

LAST 

1164 

00,2457 

6 0131 

1 


AD 

BUP +1 


1 

( 

i 

1 

1 

o 

REF 64 

LAST 

1164 

00,2460 

54 m 

0 



BUF^n 


1510 

REF 235 

LAST 

1164 

00.2461 

3 5021 

1 


CAF 

ZERO 


TFiri 

REF 32 

1 AST 

TT64 

00.2462" 

6 4777' 

1 


AD 

POSMAX 


1512 

RFF 65^ 

LAST" 

1 1 6'4 

00,2463 

26 130 

1 


“STS 

TTTTF 



1513 

REF 490 

LAST 

1164 

00 .24 64 

4^5 4 

"0^ 


CS 


CHECK MAC^NllUUE UE ON^ COKKtC 1 tU 

Isi^t 

REF 66 

LAST 

1164 

00,2465 

6 0130 

0 


AD 

BUF 

OPERANDS . 

1515 

REF 301 

LAST 

1164 

00,2466 

10 000 

0 


CCS" 

A 


1516 

RFF ^ 

LAST 

116^ ■ 

00,2467 

1 2 5Cr5 

~ir^ 


"TCT 

DVNORM 

DIVIDE oK — Will not become maxuv CASE. 

I5n 

RFF 13 

LAST 

1144”' 

“~TO72r4Tcr 

00133 

0 

L BUF2 

ADRES BUF2 


1518 

REF 1 



00,2471 

1 2405' 

0 


rc F 

DVnVF 

DIVISOR NOT LESS THAN DIVIDEND — UVP. 












1519 

R FF 2”““ 


~TTEn 

00,247? 

■54 r40 



\ s 

MAX OVS W 

IF THE MAT01T“PARTS OF THE DIVIDE NO AND 

1520 

REF 491 

TTTTT 

1164 

00,2473 

4 0155 



T3 

MPAC +1 

DIVISOR ARE EQUAL, A SPECIAL APPKUXIMA- 

I52r" 

7 F 67 

~TKET 

1T64 

00,2474 

6 ' 0131 

~ir ~ 


ATT" 

3UF +1 

T 1 UN 1 $ US E 0 ( P RO V lUhD (HE DlVlSl uN I S 

■ ■ rF72 




“W,2475 

0 OOOTT 

ir~~ 


"TXTEFnr 


PQSSIBUF, OP COURSE). 

1375 

r FF 7~ 

LAST 

IIS'4 

00,2476 

6 2405 

1 


B Z HP 

D V 0 V F 



R c F 3 

TaST 

11&4 

00.2477 

1 2 5(T'5‘ 

“T 


“TCF “ 

OVNORM 

IF NO DVEKFLUW. 


GAP : 

ASSEMBLE REVISION 055 OF AGE PROGRAM C 

O'MMCHE BY NASA 2021113-051 

10:28 APR. T 

• 1 9 69 

CHIEFTAN.028 

PAGE 1165 



L 

INTERPRETER 


USER* 

S PAGE 

NO. 59 

E3 S3 



15 ? 5 
1526 


152 


1528 


1 5 ^' 




1530 


1533 


1534 


1535 


1536 


00»2500 0 0006 1 BUFNORM FXTENO 


ADD -1 TO AUGMENT SHIFT COUNT AND SHIFT 


REF 


LAST 1162 


00 f 2 501 24 13? 1 


AUG 


DVMORMCT 


LEFT ONE PLACE 


00,2502 0 0006 1 


EXTEND 


REF 68 LAST 1164 
REF 69 LAST 1165 


00,2503 3 0131 1 


OCA 


BUF 


00.2504 20 131 0 


DAS 


BUF 


LAST 1165 


00,2505 3 0130 0 DVNORM 


BUF 


SEE IF DIVISOR NORMALIZED YET 



REF 


REF 492 LAST 1164 


^ FF 


REF 


LAST 1165 


00,2510 


1 2500 


00.251 1 52 1 55 1 


00.2512 50 137 1 


00,2513 0 


2565 0 



DXCH 


TC 


BUF NORM 


MPAC 


INDEX OVNORMCT 


MAXTEST 


SHIFT LEFT ONE AND TRY AGAIN. 


CALL DIVIDEND NORMALIZATI 
PRIOR TO DOING THE DIVIDE. 


T 



3 53 o 


REF 493 LAST ir 6 " 5 ' 


o 


40 LAST 1163 


00 .2514 54 155 T 


00,2515 1 6030 0 


TS 


TCP 


MPAC "+2 


DANZIG 



riTH DIVISION DONE AND CIA) IT 


1539 


TW[ 


1543 


REF 302 LAST 1164 


REf 




REF 


LAST 1162 


EF 71 l ast Tn>~5 


LAST 1165 


00,25 16 10 000 0 BUFPOS 


00,2520 
0 0.25 21 

00.2522 


00.2517 J 2422 0 


4 0131^ 


0 0006 1 

6 2422 1 


rXS 

TCF 


C 3 

EXTE ND 

8ZMF 


BUF + 


BUF +1 


BUF+ 


TO "BUF'XTF BU F IS GREATEtriHAN ^ 

I F BUF rs +1 f 

my CAUST TOF TO BEC'O'ME 


BRAN 




1544 

P.EF 

~13 

LAST 

1164 

i7TT72571“ 

TT 5U0? 0 

TFV) 





00 .2524 

6 OOOO 1 lx 


“RFF 

72 

LAS f 

1165 

Q(^.Z52'5 

26 131 0 

1547 



LAST 

1 164 

{)0 ,25 26 

3 5021 1 

r^^rs 

rara 

73 

LAST 

116 5 

00.252 l~ 

54 130 1 

154'9“- 





00 , 2 5 IIT 

T 25 63 1 


CA HALF SIGNS DISAGREE. FUKCb AGREEMENI. 

OnUBUt 

Airs' ~BTF + 1 — — — - 


CA' ram 




r550 RFF“3'n3 • LASI 116 5 ”00,2631 KT O'OO 0 BUhNbG Ci:S”“ A 

1561 "REF 2 LAST 1162 00.2532 1 2416 1 TCF BUF- TD BUF- IF BUh IS LES'S' THAN 

1552 R FF 74 LAST 1 1 65 ' 00 ,2533 3 01311 ~1:A BUF +I FF BUF IS -1, FORCING SluN AbKttHbNl 

Y5yj ~ 00,253 4 E X TE ND MAY CAUSE TU BtCUME ZFR'J. 

1 FTF 3 L AST 1165 00.2 5 35 6 2416 0 BZMF BUI — BRANCH iF SIGNS AGREE, 


X555 rap 1^ LAS T 116 5 OTJ, 253B 4“ 5 OTTZ" I ' C5 HALF SIGNS DISAGREE. 

T5F5 RFF ^ — LAST 117:2 00.25T7 1 2 52A”L TTF bufhus +6 


FORCE AGREEMENT. 




gap: assemble Ri- VI si dm 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 
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[.ITERPRETER 


USER'S PAGE NO. 60 


E3 S3 


PI 537 


1560 


1561 


1562 


1563 


1564 

1565 


1 :?66 


1568 


1569 

1570 


1571 


1572 
15 73 


1574 


1575 
15 76 


1577 


1579 


THE FOLLOWING ARE PROLOGUES TO SHIFT THE OrVlDENn ARRIVING IN A AND 


L BEFORE THE DIVIDE. 



00,2541 0 0006 1 


REF 15 LAST 1165 


00.2542 7 5002 i 


REF 149 LAST 1159 00,2543 56 001 0 


RFF 24 LAST 1166 00,2544 6 0021 1 




1580 


rfe 


1581 





T 


LAST 1166 


REF 4P4 LAST 1165 


00.2545 

00,2546 


56 001 
1 2 571 


00.2547 

00.2550 



001 

001 


1 

1 


00,2551 20 001 1 


00.2552 

00.2553 


20 

20 


001 

001 


1 

1 


00,2554 20 001 1 


00.2 555 
556 


00.2 



001 

001 


00,2557 20 001 1 


00.2560 

00.2561 

00,2562 


2^ 

20 

YU 


001 

001 


00.2563 



001 

HOT 


T 

T 


00.2564 


155 


EXTEND 


MP 


HALF 


XCH 


AD 


SR 


XCH 

TCF 


GEMODV 


PD0U3L 

DOnUBL 


oonuBL 


0D0U8L 

DDOUBL 


DDOUBL 

noOUBL 

DDOUBL 


DDOUBL 


IlUUD'RL 

DDOUBL 


FJmrBT 


DDOUBL 


LENGTH OF THE ARGUMENT WAS NOT LESS THAN 
.5. IN THIS CASE. EACH COMPONENT MUST 


SHIFTED RIGHT ONE TO PRODUCE A HALF-UNIT 


VECTOR 


WITH DP DIVIDEND IN 


PROLOGUE WHICH N0RMALT7ES THE 0 1 V I DEND 
WHEN IT IS KNOWN THAT NO DTvrsTON 


OVERFLOW WILL OCCUR. 



OXCH 


T~LA3T 1164 005,2565 10^40 0 KAXTEST ZZS 


MAXWW 


00. 2 o 6 


06552 0 3IASHI 


DEC 


4192 8-1 


ID TF^^TATriRS ^IGHT BE =4 -T UTHtPHrSE 
SQPT constants 


00,2 667^ T‘T6~4ZI 





CHECK TU SEE TF 



NOW EOU^n: 
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L 

INTf=PPRETER 

USER’S PAGE NO. 61 


E3 S3 


Pi5H3 

THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY 

BUF 

AND LEAVES 

R 1 *>85 

THE RESULT IN MPAC. 

THE ETLinwiNG CONDITIONS MUST BE SATISFIED: 




1. THt DIVISOR (3UF1 MUST BE POSITIVE AND NOT LESS THAN .5. 



R1587 

2. THE 01 VI DEMO (MPAC) 

MUST BE POSITIVE 

WITH THE MAJOR PART 

OF 

MPAC 

STRICTLY 

LESS THAN 

THA 

T OF BUF 



R1 589 

(A SPECIAL APPROXIMATION* MAXDV. 

IS USED WHEN THE 

MAJOR PARTS ARE EQUAL). 









R15P1 

UNDERSTANDING THAT A/3 

= 0 + S(R/8) WHERE 

S = 2(-14) AND Q AND R 

ARE 

QUOTIENT 

AND REMAINDER 

, RESPEC- 



R 15^13 

TIVFLY, THE FOLLOWING APPROX I MAT I ON IS OBTAINED PY 

MULTIPLYING ABOVE 

AND 

BELOW 

BY C - 

SO AND NEGLECTING TERMS OF 



R 15R5 

ORDER S-SOUARED (PnsSIBLY INTRODUCING ERROR INTO THE LOW TWO BITS OF 

THE 

RESULT). SIGN 

A G K t E M E N T 

IS 

UNNECESSARY. 




R 150 7 

A + SB . (R - QD) 




A 

+ SB 






R 1599 

= Q + S( ) 

WHERE Q AND R ARE 

QUOTIENT AND REMAINDER 

OF — 

RESPECTIVELY. 





R1601 

C + SD ( C I 





C 






1603 

•: E F 

495 

LAST 

1166 

00,2570 

52 155 

1 

GENDDV 

OXCH 

MPAC 

WE NEED A AND B ONLY FOR FIRST DV. 

160-f 





00,2571 

0 0006 

1 

+ 1 

EXTEND 


(SPECIAL UNIT PROLOGUE ENTERS HERE!. 

rsm 

SEE 

75 

LAST 

1165 

00,2572 

10 130 

1 


DV 

BUF 

A NOW CONTAINS 0 AND L, R. 

1606 

REF 

496 

LAST 

1167 

00,2573 

5'2 155 

1 


DXCH 

MPAC 



1 

REF wr 

TTST 116 7 ' 

00 ,2 574 

4 TJTW 

“0 ■ 

cs ■ 

MPAC “ 

FOR>^ DTO/IDEND FOR MIWR PART OF RESULT. 

1603 



00,2575 

0 0006 

1 

EXTEND 





OFF ^76 

last 1167 

00,2576" 

7 01 3T 

0 

MP 

BUF 


1610 

TrE7^97r“ 

“T Tr6T 

00'; 2 577” 

“6“ 0755 CT 

AD 

MPAC +1 

OVERFLOW AI THIS PJINI IS PUSlIlVE SINCE 

YFTl 



00,260"0' 

54 000 

"0 

nvsK 


R IS POSITIVE IN EVERY CASE. 

i^rz 



00,2601“ 

1 2607’' 

TT 

“TTF 

+ 



TFTT 



00.2602 

0 0006 

T 

extend 


□ VEKELUW CAN BE PEf^UVtU BY SUBIKACIINC 


' ' E F 77“ 

last 116‘7~ 

00,2603 

~6T5 T30 

T) ‘ " 

S0“ 

TTHF ' 

( B)JF ) ONCE SINCE R IS ALWAYS LESS )HAN C 

1615 

T!. ET^ ^9^^ 

“OVST^1167 

“CTO ,'77r?]7r 

24 1 54 

'I 

INCR 

“MTAG 

IN THIS CASE. INCH CUMpENSATES SUBTRACT. 

r6T5 

R F F I 


00,2605 

1 ?.6l0 

0 

"TCT 

+nOwN 

(SINCE C(A) IS STILL PU6l ! 1 VE 1 . 










16 17 



— OIT , 7 606“ 

0 0006“ 

+5 

EXTENTT 


CTAT CAN BE MADE CESS THATT C IN MAcNI- 

PTEB 

irrE T” 


00,2607 

6 2620 

n 

B ZMF 

— u p 

TUDE by diminishing it by C (SINCE C IS 

A 1 6 19 








NUl less than .5) UNLESS C(A) = 0. 
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L INTERPRETEP 



USER'S PAGE 

NO. 62 

E3 S3 


1620 


00.2610 

0 

0006 

1 +OOWN 

EXTEND 



V" I JIM — JK — W M 



1671 REF 

78 

LAST 1167 00,2611 

60 

1 30 

0 

SU 

BUF 

IF PQSITIVEt REDUCE ONLY IF 

NECESSARY 



1622 


00.2612 

0 

0006 

1 

EXTFND 


SINCE THE COMPENSATING INCR 

M I GHT C AU S E 



1623 


00.2613 

1 

2615 

0 

B2F 

+ 3 

OVERFLOW. 




162'^ 


00 ,261^ 

0 

0006 

1 

EXTEND 


OONT SUBTRACT UNLESS RESULT 

IS Positive 



1625 REF 

T" 

00.2615 

6 

26 26 

0 

BZMF 

ENDMAXOV 

OR ZERO. 





1626 

REF 

600 

LAST 

1167 

00t26l6 

2'+ 154 

T 

+ 3 

itjcr 

MPAC' ‘ ' 

KEEP SUBTRACT HERE ANC 

C0MPENS7ITF. 

16 27 

RFF 

2 

LAST 

1162 

00,2617 

1 2625 

0 


TCF 

FINALDV 


— - - - - - - ■ I.— 


1628 





00,2520 

0 0006 

r 

-UP 

EXTEND 


II" £EKD» btl MINUK PAK 

T Ul* KbSULI lU 

1629 

REF 

3 

LAST 

1168 

00,2621 

1 2630 

1 


BZF 

FINALDV +3 

ZERO. 


- ... — 1 1 n ■ ■ 1-^ ■: — — Ml" ■■ X w . ■ w MAT ft "1 Ml Mt M IMft V B 1 

1630 





00.2522 

0 0006 

1 


EXTEND 


IF NEGATIVE. ADD C TU 

At bUtSlKAUI lINU UNt 

1631 

REF 

501 

LAST 

1168 

00.2623 

26 156 

0 


DIM 

MPAC 

TO COMPENSATE. DIM IS 

OK HERE SINCE THE 

1632 

REF 

79 

LASt 

1168 

00,2626 

6 0130 

0 

ENOMAXDV 

AO 

BUF 

MAJOR PART NEVER GOES 

N EG AT 1 VE • 

. - — . 1 —II ■ - — 


# 
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i 

INTERPRETER USER'S PAGE NO# 63 E3 S3 

f 

1633 00 , 2625 22 007 0 F INALDV ZL DO PV TO OBTAIN MI NO~R PART OF RESULT. 

163A 00 1 262 6 ~ J 0006 1 ~ EXTEND ' ' 

1635 WEf 80 LAST 1168 00,2627 10 130 1 6V BUF ' 

1616 REF 502 LAST 1168 00,2630 5A 155 1 +3 TS MPAC +1 


1637 REf 6 LAST 1163 00,2631 10 136 1 CCS DVS IGN LEAVE RESULT PO SITIVE UNLESS C(DV$IGN 

1633 '163 LAST 1159 00,2632 0 0002 "O TC 'I __ -0* 

1 639 REF 264 LAST Tl69 00,2633 0 0002 0 ' ' TC 0 

1640 REF 265 LAST 1169 00.2634 0 0002 0 TC 0 


1641 00,263 5 0 0006 1 EXTEND 

1 64? REF 503 LAST 1169 00 , 2636 4 0155 1 DCS N PAC 

16 43 REF 504 LAST 1169 00,263 7 52 155 1 OXCH MPAC _ 

1644 REF 237 LAST 1165 00,2640 3 5021 1 CAP ZERO SO WE ALWAYS RETURN WITH C ( A1 = 0^ 

1645 REF 266 LAST 1169 00,26«^1 0 0002 0 fC 0 


f 




I 

( ( 








gap: 

ASSEMBLE REVISION 
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COMANCHE 
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023 PAGE 1170 



L 

INTERPRETER 




USER’S PAGE NO. 64 

E3 S3 



PI 6'+6 

IF THE 

WAJOP PARTS 

OF THE 

DIVISOR 

AND DIVIDEND ARE EQUAL. BUT THE MINOR PARTS ARE SUCH THAT THE 


&A8 

OIVinENO IS STRICTLY LESS THAN THE 

DIVISOR 

IN MAGNITUDE^ THE FOLLOWING APPROXIMATION IS USED. THE 

ASSUMPTIONS 


R 1650 

ARE THE SAME AS 

THE GENERAL 

ROUTINE 

WITH THE ADDITION THAT SIGN AGREEMENT IS NECESSARY (3. C. S D 

POSITIVE) . 



R1652 




C + 

SB . 

(C 

+ 

B - D) 





R1653 





— = 37777 + S( — 


) 





R165A 




c + 

sn 



C ) 






Rlb55 



THE 

01 VI SI 

IN MAY BE 

PERFORMED 

IMMEDIATELY SINCE 

B IS STRICTLY 

LESS THAN 0 AND C IS NOT LESS THAN .5. 
















1657 

R E F 

505 

LAST 

1169 

00,2642 

4 0154 

0 

MAXDV 

CS 

MPAC 

SEE IF MAXDV CASE STILL HOLDS AFTER 


lo5T 

REF 

81 

LAST 

1169 

00,2643 

6 0130 

0 


AO 

BUF 

NORMAL IZAT ION. 


1659 





00, 2644 

0 0006 

1 


EXTEND 




1660 





00,2645 

1 2647 

1 


8ZF 

+ 2 



1661 

REF 

2 

LAST 

1166 

00,2646 

1 2570 

0 


TCF 

Genodv 

MPAC NOW LESS than BUF - DIVIDE AS USUAL 



1662 

REF 

33 

LAST 

1164 

00, 2647 

3 4777 

1 

+ 2 

CAP 

POSMAX 

SET MAJOR PART OF RESULT. 


1663 

REF 

506 

LAST 

1170 

00,2650 

54 154 

0 


TS 

MPAC 
















1664 

R.EF 

82 

LAST 

1170 

00,265 1 

4 01 31 

ir 


~Cl 

BUF +1 

FORM DIVIDEND OF MINOR PART OF RESULT. 


1665 

R EF 

507 

LAST 

1170 

00,2652 

~~ 6 ~ o r 5 5 

0 


AO 

MPAC +1 



1 6 ♦ > 6 

Ri-r 

2 

lAST 

1168 

OOr26'5T 

1 2624 

IT 


TCF 

ENDMAXDV 

GO ADO C AND DfJ DlVluF, Al lALMlNG SIGN 


A 1667 











BEFORE exiting. 
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L INTERPRETER USER'S PAGE NO. 65 E3 S3 


P16A8 



VECTOR OIVIOEO BY SCAI.AR, V/SC 

. IS EXECUTED HERE. THE VECTOR 

IS NOW IN MPAC WITH SCALAR IN BUF. 














1670 

kEF 

140 

LAST 1162 

00,2654 

4 5017 

0 

V/SC2 

CS 

ONE 

INITIALIZE DIVIDEND NORMALIZATION 

COUNT 

1671 

RcF 

4 

EASE 1165 

00,2655 

54 137 

0 


TS 

DVNOR-’-^CT 

AND DIVISION SIGN REGISTER. 


1673 

REF 

41 

LAST 1148 

00,2656 

54 127 

1 


TS 

VBUF +5 




1673 

REF 

1 


00,2657 

0 3010 

0 


TC 

Vr:C AGREE 

FORCE SIGN AGREEMENT IN VECTOR 



1674 

RFF 

83 

LAST 1170 

00,2660 

52 131 

0 


OXCH 

BUF 



1 675 

REF 

1 


00,2661 

0 7513 

1 


TC 

ALSIGNAG 

SIGN AGREE BUF 


16 76 

REF 

84 

LAST 1171 

00,2662 

52 131 

0 


OXCH 

BUF 



1677 

REF 

85 

LAST 1171 

00 , 2663 

10 130 

1 


CCS 

BUF 

FORCE DIVISOR POSITIVE WITH MAJOR 

PAftT 

1673 

RFF 

1 


00,2664 

1 2721 

0 


TCP 

/BUE + 

NQN-ZERd HP POSSIBLE), 


157R' 




00,2665 

1 26 67 

0 


tCF 

+ 2 



16 80 

PEF 

1 


00, 2666 

1 2715 

1 


TCF 

/BUF- 















1681“ 

Q P 

86 

LAST ITT! 

00,2667 

56 131 

1 


XCH 

BUF +I 

SHIFT VECTOR AND SCALAR LLET 14» 


1682 

REF 

87 

LAST 1171 

00.3b70 

56 130 

0 


XCH 

BUF 



1533 

REF 

508 

LAST 1170 

00,2671 

56 135 

0 


XCR 

MOAC +1 



1684 

REF 

509 

1 AST 1171 

0 0"T'! 6TZ 

56 154 

1 


XCH 

MPAC 



1685 




00,2673 

0 0006 

1 


EXTEND 


CHECK fCiR OVEPFLOW IN EACH CASE. 


lo B6 




00,2674 

1 2676 

0 


B7F 

+ 2 



1 CTT ■ 

“RFF" 


LAST 1164 

00,2675 

1 2405 

TT 


TCF 

nOVDYF 




168'8 ■ 

■ — 

510 

LAST 1171 

00,2676 

56 1 60 

0 


XCH 

W^Al: +4 



YEm 

“^EF 6111 

LAST 1171 

00,2677 

56 157 



XCtT 

MPAC n 



1690 




00.2700 

0 OO06 

i 


extend 




1691 




00,2/01 

1 2703 0 


“B7F " 

^ 2 



1692“ 

\ fr F 

■ ^ 

LAST 1171 

00,2702 

1 2 4 06 

TF 


1C F 

OVO V F 




■ 

RtF 

512 

LAST IXTT 

00,2703 

56 16F 



XCH 

MPA^C +6 



16 94 

!TEF“ 

“5X3 

LAST 1171 

■0“0T2T0^ 

56 161“ 

“T 


“XETH 

MPAC +5 



1695 




00,2705 

0 O006 

1 


E X T F NI3 




1«395"” 




TO ,2700“ 

1 2710 

T“ 


BZF 

+ 2 



16-^7 

— RFF 

5- 

LAST I ITT 

00,2707 

1 2 ^ ^ 

“0“ 


— rcT 

DVUVF 






PFF 


last 1171 

00,2710“ 

1 0 T30 

T“ 



BUF 



16 99 

REF 


“TTAST ITTT 

“au,'2TTr“ 

1 2721 

0“ 


TCF 

/BUF+ 



1700’ 

-Tl-T~ 

6“ 

LAST iin — 

■00,2712" 

1 3406'' 

0 


TCP 

DVOVF 

ZEKU UIVISUK - UVtKELUW. 


1701 " 

R ' T F 

TT- 

“CAST 1171^ 

“TirrrzTTB 

1 2715 

~T~ 


1 C F 

/ BUF— 



1702“ 

^TEF" 

T~ 

“LAST 1171 — 

OT) , 2TT4 ■ 

1 2405 

“ 0 “ 


TCF 

DVOVF 




1 7 OT “ 




00,2715 

”0 0006 

T" 

“7BUF- 

LX ! tm 


UN NtbAllVh* LUr^PLt'^tNI bUf- ANU 

UNI A i N 

rT04' 

FFF 

' "BO 

“I.71S1 — rm 

00, 27 IF' 

4 0131 



DCB 

BTJF“ 

UVblbN IN VbUF +5, 


1 rj~ 

REF" 

90 

LAS! 1171 

“W777T7“ 

5 2 T 3T 

"TT" 


OXCH 

BUF 



miE 

— TTF" 

— 42“ 

osr il7i 

00,2720 

24 127 

Tr 


TNCR 

VBUF +5 
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L 

INTFrRPPE 

t'E R 








USER* S PAGE NU. 66 E3 S3 


1707 




00t2721 

0 0006 

1 

/RUF+ 

EXTEND 



170S 

RTF 9) 

LAST 

1171 

00.2722 

3 0131 

1" 


DC A 

XUF 

LEAVE ABS(ORIG DIVISOR! IN B’JF2 

1709 

PEF 14 

LAST 

1164 

00,2723 

52 134 

0 


DXCH 

BUF2 

FOR OVERFLOW TESTING 

1710 

1 



00,77P4 

1 27 32 

1 


TCF 

/NORM 

NORMALIZE DIVISOR IN BUF. 


1^11 




00.2725 

0 0006 

1 

/N0RM2 

EXTEND 


IF LESS THAN .5. AUGMENT DVNOKMCT AND 

- - - - — ■■ ■ ■ -■ — ■ m • m K ■■ ■ ' ■■ “ ■ ■' 1 11 iwp I 1 H ■ II 

1712 

REF 3 

LAST 

1171 

00,2726 

24 137 

1 


AUG 

nVNORMCT 

DOUBLE DIVISOR. 

1713 




00.2727 

0 0006 

1 


FXTFND 



1714 

R-F 92 

LAST 

1172 

00*2730 

3 0131 

1 


OCA 

BUF 


1713 

REF 9 3 

LAST 

1 172 

00,2721 

20 131 

0 


DAS 

BUF 



171.S 

REF 94 

LAST 

1172 

00*273^ 

3 0130 

0 

/MORM 

CA 

BUF 

SEE IF DIVISOR NORMALIZED. 

1717 




00,2733 

6 0000 

i 


DOUBLE 



1718 




00,2734 

54 000 

0 


ovSk 



1719 

f 



00.2735 

1 2725 

1 


TCF 

/N0RM2 

DOUBLE AND TRY AGAIN IF NOT. 












1720 

REF i 



00,2784 

0 2 7 50 

T“ 


“ TC 

V/SCOV 

DO X COMPOTTENT DIVIDE. 

1721 

REF 514 

LAST 

11^1 

00*2737 

52 160 

1 


DXCH 

MPAC 43 

Supply arguments in usual sequence. 

1722 

REF 515 

LAST 

11/2 

00,2 740 


1 


DxrH 

f^PAC 


1 728 

REF *nrs“ 

LAST 

1172 

■ 00,2741 

^2 I6ir 

1 


DXCP 

M P A C +3 



172^ 

— T~ 



00 % 

0 275^ 



TZ 

V7SCDV 

Y LOMPUNF NT. 

TTTT 

— ref 51 r“ 

“xarr 

ITT? 

00,2 743" 

52 167“ 

0 


— m?CTi 

MPAC +5 


1726 

REF 513 

LAST 

1172 

00,2744 

52 155 

1 



f4P AC ~ 


1727 

REF 51 9 

LAST 

1X7 2 

00*2745 

52 162 

"Tr~ 


DXCT 

■fTPAC +5 ■ ■ 



1729 

REF 3 

LAST 

1172 

00,2746 

0 2750 

1 


TC 

V/SCDV 

T COMPONENT. 

172'^ 

REF 2 

LAST" 

1155 

00*2747 

1 73 67' IT" 


TCP 

VROTAT EX “ 

GU K'c-AKKANGfc LlIMKuNtNIS BtFORE EXIT. 
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PI 730 


1732 


1733 


17 3A 


1735 


1736 


1737 


1738 

1739 


1 7^ 0 


1741 

1742 


1 T4T 
1T40T 


TTvg 



TT5T 

TT5Z 

TT5T 


T75? 


INTERPRETER 


USER'S PAGE NO 


67 


E3 S3 


SUBROUTINE USE^ BY V/SC TCI DIVIOF VECTOR COMPONENT IN MPAC*+1 BY THE SCALAR GIVEN IN BUF 


R 


REF 


43 
7 


LAST 1171 


00»2 750 3 0127 0 V/SCOV 


CA 


VBUF +5 


REFLECTS SIGN OF SCALAR 


LAST 1169 


00f2751 54 136 1 


TS 


DVSIGN 


REF 520 LAST 1172 


00.2752 10 154 0 


CCS 


MPAC 


FORCE MPAC POSITIVE. EXITING ON ZERO 


REF 


00.2753 1 2767 1 


TCF 


/MPAC+ 


00,2754 1 2756 0 


TCF 


+ 2 


REF 


00.2755 1 2763 0 


TCF 


/MPAC- 


R EF 521 
FF 


D 


LAST 1173 
LAST 


1173 


00,2^56 

00,7737 


10 155 1 
1 2767 1 


CCS 

TCF 


MPAC -H 
/MPAC+ 


R.FF 267 LAST 1169 


00.2760 


4- 


f-’ E F 

268 


LAST 

LAST 


1173 

1173 


00,2761 

00,2762 


0 0002 0 

1 2763 0 

0 0002 0 


TC 


TCF 


0 

/MpAC- 

Q 



r> 


EF 141 LAST 1171 


00,2 7 37 4 5017 0 7WTC + 


RE 



last ir56 


00.2770 54 140 0 


ZZ 

IZ 


ONE 

MAXOVSW 


INIT1WT7E NEAR - ONE SWT TC R 


REF 524 LASrUTT 



I 5 

ReE TO 4' 



TTb5 


00, 2/ 71 
00,277-2 
00.2773 


ZET r 


00 , 2 7 A4 


ITFF 



^ LAST 1171 

LAST 1173 


TTTTT^^^T^ 

00.2776 


TTST 


T1T3 

LAST 1173 


W72T7T 

00.3000 

00, 3001 


4 ITI 

6 U13 3 TT 
10 000 0 

r 3"0(R“ir 
1 2 7 7 ?' 0" 
1 2405"0" 

^2rT4Tr~o 

4 0155"T 


AT) 


TTPTIir 


CHECK POSSIBLE nVbkFLUW, 
UNNORMALITmiNPUl DIVISOR. 





TT 


TCF 

TTF 


OOVCALL 


TT- 


NUT NFAR-UN'E 
TRJ-TS JUS I POSSIBLE 


TCF 


TS 


ovnvF 

MAXOVSVr 


6 0134 I 


cs 

TO 


FPXC^+TC 

BUE2 +1 


NO HOPE 

SIGNAL POSSIBLE NEAR-ONE CASH 
SEE IF OIVTSIGN CAN BE DONF 


1 ^5 8 


00, 3002 

0 

00 06 1 

t A T L Ni 




1759 R t'F'" ■ 

“5 GSrST n T3 “ 

— onjrTOCTO 


2405"! 

B Z MF 

DVOV^F 





riTz 
LASl 1165 


■aO-,30(J4 52 155 1 UDVCXLT DTOH 


00.3005“ TO 

■no .TOTO — 1 2565 1 


INDEX 

TCF 




DVNUPMCT 


MAX IE ST 


CALL PRL-LVIVIDE NORMAL I ZA T I ON. 


GAP: 

assemble R 

FVISION 055 

OF AGC PR 

GGRAv) COMANCHE BY NASA 2021113-051 

10:23 APR. 1 

,1969 CH1EFTAN.023 PAGE 1174 
















L 

INTERPRETER 








USER* 

S PAGE NO. 68 E3 S3 



1 763 





00.3007 

32506 

0 

SLOPELO 

DEC 

.3324 





1764 

REF 

269 

LAST 

1173 

00. 3i)10 

56 002 

0 

VECAGREE 

XCH 

0 

SAVE Q IN 

A 


1765 

PEE 

527 

LAST 

1173 

o 

o 

o 

52 155 

1 


OXCH 

MP AC 




1766 

REF 

2 

LAST 

1171 

00.3012 

0 7513 

1 


TC 

AL SIGN AG 

SIGNAGREF 

MPAC 


1767 

REF 

528 

LAST 

1174 

00,30 13 

52 155 

1 


OXCH 

MPAC 




1763 

REF 

529 

LAST 

1174 

00,3014 

52 160 

1 


OXCH 

MPAC +3 




1769 

REF 

3 

LAST 

117 4 

00.3015 

0 7513 

1 


TC 

ALSIGNAG 

SIGN AGREE 

MpAC +3 


1770 

REF 

530 

LAST 

1174 

00,3016 

5 2 160 

3 


OXCH 

MPAC +3 




1771 

REF 

5 31 

LAST 

1174 

00,3017 

5? 162 

0 


OXCH 

MPAC +5 




1772 

RFF 

4 

LAST 

1174 

00.3020 

0 7513 

1 


TC 

ALSIGNAG 

SIGNAGREE 

MPAC +5 


1773 

REF 

532 

LAST 

1174 

00,3021 

52 162 

0 


OXCH 

MPAC +5 




1774 

REF 

305 

LAST 

1173 

00.3022 

0 0000 

1 


TC 

A 

















gap: 

ASSEMBLE REVISION 055 i 

)f ^GC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1^1969 

CHIEFTAN.023 

PAGE 1175 









L 

INTERPRETER 


USER'S PAGE 

NO. 69 

E3 S3 




P1775 



THE FOLLOWING ROUTINE EXECUT 

ES 

THE UNIT 

INSTRUCTION* WHICH 

TAKES THE UNIT OF THE VECTOR IN MPAC. 



1777 

REF 

9 

i . 

LAST 

1171 

00,3023 

0 3010 

0 

UNIT 

TC 

VEC AGREE 

FORCE SIGN AGREEMENT IN VECTOR 


1778 

REF 

2 

LAST 

1144 

00,3024 

0 7501 

1 


TC 

MPACVeiJF 

SAVE ARGUMENT IN VBUF 


1779 

REF 

238 

LAST 

1169 

00*3025 

3 5021 

1 


CAE 

ZERO 

MUST SENSE OVERFLOW IN FOLLOWING DOT. 


1730 

REF 

6 

LAST 

1162 

00, 3026 

56 121 

0 


XCH 

OVFIND 



1781 

REF 

3 

LAST 

7 0 

00.3027 

54 141 

1 


TS 

TFMl 



1792 

REF 

1 



00*3030 

0 3317 

1 


TC 

VS0SU6 

dot mpac with itself. 


1783 

REF 

4 

LAST 

TT75 

00,3031 

3 0141 

0 


CA 

T = M1 



TTba 

REr 

7 

LAST 

1175 

00*3032 

56 121 

0 


XCH 

OVFIND 



1785 





00*3033 

0 0006 

1 


EXTEND 




1786 





00,3034 

1 3036 

0 


BZF 

+ 2 



1787 

RER 

10 

LAST 

1173 

00 * 303 5 

1 2405 

"0“ 


TUP 

OVOVF 



TTM' 





00,3036 

0 0006 



EXTEND 




1789 

REF ‘ 

“533 

LAST 

1174 

00,3087 

3 0155 

0 


DC A 

MP^C 

LEAVE THE SQUARE OF THE LFNGTH OF THE 


1 

1 

O 

Ref 

2 c) 

TATT” 

1129 

00.3040 

50 1?(J' 



INDEX 

F IXLOC 

ARGUMENT IN LVSOUARE. 


TTTI 

R e F" 

r“ 



^ oo, jo*zrr“ 

52 043 

1 


OXCH 

L VSQUARE 





R r F 

1 



00*3042 

0 33 43 



ITT 

5 Q R r S U B 

GO TAKE THE NUKMALiZbU bUUAKt KUU 1 . 



17^3 

p EF 

534 

LAST 

1175 

00*3043 

10 154 

0 


CCS 

MPAC 

CHECK FO^ UNIT OVERFLOW. 


rr^2r“ 





00,3044 

i 5 u ^ 1 



nrr ~ 

+ 5 

MPAC IS NOT LESS THAN .5 UNLESS 


1 79^^ 

TTFF“ 

T5r~ 

LAST 

rise. 

00*3 04'5" 

64 -QDl 1 


TS 

L " 



17^3 - 

REF 

”77“ 

LAST 

1175 

00, 3046 

50 120 

ir^ 


INDEX 

F I XLOC 



TT^T 


1 



00 , 3047“ 

52 045 

T~ 


“DXCH 

XT 



1/3 

R'-F 

TTr“ 

LATT 

1175 

00.3050 

1 2405 



tcf 

DVOVF 

INPUT Tl’ SOKISUB WAS 0. 



rrrr 

— REE 

1 



00,3051 

4 43 33 

T 


Cb 

FUUKTELN 

Stt 11- 1 Mt INKUI WAS 5U inc 1 nc 


rBTTO 

REE 

46 

Lsn~ 

TT^I 

0C*306“2“ 

6 013 5 

CT" 


TAD 

TTPTFMP 

FIRS! ! WU RtGlSTERS UF THE SQUARE WERE 0 


1901 

REF 

306- 

LAST 

1174 

00,3053 

10 000 O' 


CCS 




TTOT 





00, 30 54 

~zr OIKD 

0 


COM 


IF SO, SAVE I Ht NEGATIVE (JF THE SHIFT 


13713 

REE 

1“ 



“015.30 55“ 

1 3131 

T~ 


TXT ‘ 

SFTATL 

count -15D. 



r9i3 


— r- 



00, 6066” 

“r“3 0 6T" 

”0“ 


"TCT 


1 I H 1 lb ^ J b U A LLY int LpAit#! 



1805 ■" 


ZT” 

LA3 1 

1091 

0 0 , 3 0 5 / 

4 5025 



C5 

THIRTEEN 

Ir Int bHlrl LUUih! WAb tAAUTLT IHm be i 


TRvTS — 

TTPF^ 

- 47- - 

LAST 

IT ?5 

^ 0 .TTSTT 

S'T T35 

Tr“ 


T8 

M P 1 h MP 

I Hb PRE-OrVloE NOK!^ CuUNI 1 LJ —130. 



i SO/ 

■EE 

535 

LAST' 

11 /5 

00,3061 

3 0154 




nrPTVC 

SHIFI IHL LLNGln riGHI tstruf^c 


nrryr^^ — 


152 

LAST 

11T5' 

— 00*306 2'' 

54 GDI" 


SMALL2 

t s 

L 

(SMALL EXITS TO THIS POINT). 


1809 ^ 

'^TT^ 

239 

LAST 

rXTF 

00, 3063 

3 50 21 

“T" 


~CSF 

ZERO 



18 LO ■ 

-LI- 

T" 



00 ,'3064 

1 m2 

T” 


“TTF 

L A R G fc 2 

GU lO SlUKt LLNolH ANU »^KULttU. 



rm 

REF 

43 ' ■■ 

LAST“ 

1175 

00*3 065" 

10 T3F~ 


L ATTGF 

w 

MPI LMP 

nUb 1 ALL LAbeb Llinc riLKC# 


1912 

^■EF“ 

T” 



00,3066 

1 3074“ 

ir~ 


ICE 

L AKGL3 

Sfcb IF NO NUK^ AL 1 Z A 1 1 ON WAS RbUUlKtU BY 















1813 

R FF 

— r“ 



— 00,30 6T 

4 2024 

T“ 


C S 

SR DOV 

SORT* AND Ir b('* St 1 UP A bMitl 


1814 

u u 

\ r 

49 

LASI 

1 W5 

00*30/0 

54 135 

1 


~~TS 

M P 1 L M R 

KiGHl i tJbTOR’b UIVIUING lU KKOUUCb 


1813“ 





00, 3071 

oornr 

FT" 


XTTENn 


THE DESTRFD HALF UNIT Vt-CIUF. 


1816 

~RFF 


LAST 

1175 ^ 

“ 01,7072 

3 Q1"59 

Tr“ 


OCA 

WP AC 





I 


i 




GAP: 

ASSEMBLE REVISION 055 

OF AGC PROGRAM COMANCHE 

BY NASA 2021113-051 

10:28 APR. 1.1969 CHIEFTAN.028 

PAGE 1176 



L 

INTERPRETER 



USER’S PAGE NO. 70 

£3 S3 



1817 

REF 2 LAST 1175 

00,3073 1 3112 1 

TCF LARGE2 











— — ir— 












gap: 

ASSEMBLE REVISION 0S5 OF AGC PROGRAM COMANCHE BY NASA 20?1113“051 

10:28 APR. 1.1969 

CH1EFTAN.02B 

PAGE 1177 








L 

TMTERPRETER 

USER'S PAGE 

NO. 71 

E3 S3 


1818 





00,3074 

4 0000 

0 

L ARGE3 

COM 


LEAVE NEGATIVE OF SHIFT COUNT-I FOR 


1319 

D Cp 

. \ U- » 

50 

LAST 

1175 

00.3075 

54 135 

1 


TS 

MPTEMP 

PREDIVIDE LEFT SHIFT. 



1820 





00,3076 

4 0000 

0 


COM 


PICK UP REQUIRED SHIFTING BIT TO UNNORM- 


162.1 

REF 

307 

LAST 

1175 

00,3077 

50 000 

1 


INDEX 

A 

ALIZE THE SORT RESULT. 


1822 

REF 

64 

LAST 

1160 

00.3100 

3 5002 

0 


CAF 

BITi4 



18?3 

REF 

95 

LAST 

1172 

00,310 1 

54 130 

1 


TS 

BUF 



132A 





00.31 02 

0 0006 

1 


EXTEND 




1325 

REF 

537 

LAST 

1175 

00,3 103 

7 0155 

1 


MP 

MPAC +1 

f 


1826 

REF 

96 

LAST 

1177 

00,3104 

56 130 

0 


XCH 

3UF 



1827 





00,3! 05 

0 0006 

1 


EXTEND 


(UNNORMALIZE THE SORT FOR LV). 


1^28 

REF 

538 

LAST 

1177 

00,3106 

7 6154 

0 


MP 

MPAC 



1829 

ngF 

153 

LAST 

1 175 

00,3107 

56 001 

0 


XCH 

L 



1330 

REF 

97 

LAST 

1177 

00 . 3 110 

6 0130 

0 


~AT5 

BUF 



1831 

pEF 

154 

LAST 

1177 

00,3111 

56 001 

0 


XCH 

L 





REF 

23 

LAST 

TTT5 

00.3112 

50 120 

1 

LARGF2 

INDEX 

E 1 XLOC 



1333 

RFF 

2 

L AST 

1175 

00.3113 

52 045 

1 


OXCH 

LV 

LENGTH NOW STORED IN WORK AREA. 



1834 

PEF 

142 

LAST 

1173 

00,3114 

4 5017 

0 


CS 

DN'^ 



1836 

P, -F 


LAST 

1 173 

00,3115 

54 140 

0 


TS 

MAXDVSW 

NO MAXDV CASES IN UNIT. 





w 

“T7OT 

TTT^ ^ 

00,3116 

52 1 ?T 

0 


TDCCTT 1/P 1 IF 

PKhPAKh X hUK UiVlUtf 5tl 1 1 IMl? 


Tsn 

RFF 

539 

LAST 

1177 

00,3117 

52 155 

1 


OXCH 

MPAC 

LENGTH OF VECTOR AS DIVISOR IN BUF. 


DDT? 

REF 

93 

~r A^ST 

riTT 

0nV3T20 

52 131 

TT 


DTCH 

80 F 








OF , n2i- 

" 0 TI 5I 

T 


TC 

UN I T OV 



- - - ^ ^ mm m m ^ ^ n ^ m 9 .1^^ ■ m * ' ' ■— ■■■«.■■-■ ■ i ■ ■ 

1 wn~ ' 

REF 

4^ 

TUSF 

1177 

00,31:72 




DXCH 

vsin- +2 

DO Y AND ' IN USUAL hASHlUN bU Wt CAN 


TTzn 

■RFF” 

FW 

LAST 

1177 

”W7TT:23r 

52 155' 

1 


OXCH 


EXIT THROUGH VKUlAlbX. 




“TTEF" 


LAST 

TTTT 

00,3124 

52 1 6lT 

1 


OXCH 

MPAC +3 



rw5 

FFF 

2 

LTTST 

1177 

O'. i .3125 

“TTTrSl 

I 


TC 

UM I !' DV 


















TTFF" 


L A ST 

11 77 

00,3126 

52 iZ f 

1 


DXCR 

V3UF +A 



i8A5 

REF 



117 7 

00 , 3127 

■52^355” 

~T 


nxcn 

MPAC 



DTTTo ■ 

REE 

■F43” 

“UTTST 

1177 

00.3130 

52 162 

0" 


DXCH“ 

MPAC 



rwT — 

“FEF" 

T 

L A FT 

11 n — 

00, 3131 

0 3151 

1 


TC 

UNI 1 DV 



1H48 

REF 

3” 

“TTASr 

TTT2 

~Cn) . 3TT2 ■ 

T — TThT 

T) 


TCT 

VROTATEX 

AND EXIT. 



I 


1 




GAf^: 

ASSEMBLE RE 

VISION 055 I 

AGC PROGRAM COMANCHE BY 

NASA ; 

2021113- 

051 

10:28 APR. 1*1969 CHIEFTAN.028 PAGE 1178 



L 

IMTEPPRETER 









USER'S PAGE NO. 72 E3 S3 



PI 8^+9 



IF THE LENGTH OF THE 

ARGUMSI 

NT 

VECTOR 

WAS LESS IHAN 

2(-28) , 

EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST 


P.18 SI 

14 

PLACES 

BEF 

ORE THE 

01 VIDE. 

NOTE THAT 

IN THIS 

CASE. 

THE MAJOR PART 

OF EACH COMPONENT IS lERO. 
















18S3 

PEF 

51 

LAST 

1177 

00,513? 

~54 135 

1 

SMALL 

" T S” 

WTFMP 

NEGATIVE OF PRE-Ol'/ID^ SHIFT COUNT. 



1854 

PEF 

240 

LAST 

1175 

00 t 3134 

3 5021 

1 


CAF 

7ppn 


SHIFT EACH COMPONENT LEFT 14. 


1855 

REF 

47 

LAST 

1177 

00* 3135 

56 123 

1 


XCH 

VBIIF 

+ 1 



1 856 

PEF 

46 

LAST 

1178 

00,3135 

56 12? 

0 


XCH 

V0«JF 




1 85 7 

R F F 

49 

LAST 

1178 

00,3137 

56 12:3 

1 


XCH 

V3UF 

+ 3 



1858 

'^EF 

50 

LAST 

1173 

00* U40 

56 124 

0 


XCH 

“ V8UF 

+2 



1859 

REF 

51 

LAST 

1178 

00,3141 

56 127 

0 


XCTT 

VBUF 

+ 5 



1 360 

RFF 

52 

LAST 

117S 

00.314? 

56 1 26 

1 


XCH 

V B U F 

4“ 




1 36 1 

REF 

52 

LAST 

1178 

00,3143 

4 0135 

T" 

cs 

MPTFMP 


1362 

REF 

308 

LAST 

1177 

00,3144 

50 000 

1 

INDEX 

A 


1863 

REF 

65 

LAST 

1 177 

00*3145 

3 5002 

0 

CAF 

3IT14 


1864 





00,3146 

0 0006 

1 

EXteNO' 



1 865 

RFF' 

544 

LAST 

1177 

00,3147 

7 0154 

0 

MP 

MPAC 

.i ■ ■ ■ 1 ■ - — ■ — 1 m f — ^ ^ ^ Ifc 1 - - p - 

1R66 

PEF 

1 



00.3150 

1 3062 

1 

TCP 

SMALL2 



1367 

REF 

4 

LAST 

76 9 

5025 



THIRTEEN = 

0CT15 


1868 

REF 

2 

XATT 

782 

43 3 3 



F lORTEEN = 

0CT16 ■ 


1864 

REF 

14 

t AST 

375 

433:5 



0CT16 

R 101 

_ _ - III! ~ ■■■■■■ 


! 





GAP: ASSE**<BLE PEVISI^’N 053 OF AGC PRiJGRAM CQi^ANCHE BY NASA 2021113-031 10;28 APR* If 1969 CHIEFTAN.028 PAGE 1179 

L 1 NTFRPRETER tJSEk^S PAGE N0« 73 E3 S3 


P1870 ' THE FQLLnWING RHUTINE SETS UP THE CALL TO THE DIVIDE ROUTINES. 


1871 

REF 

548 LAST 1173 

00,3151 

10 154 

0 UNITOV 

CCS 

M P A C 

FORCE MPAC POSITIVE IF POSSIBLE. SETTING 


1372 

REF 

1 

00,3152 

1 3170 

0 

TCF 

U«PAC+ 

OVSIGN ACCORDING TO THE SIGN OF MPAC 


If;: 73 



00,3153 

1 3155 

1 

TCF 

+ 2 

SINCE THE DIVISOR IS ALWAYS POSITIVE 


1874 

RFF 

1 

00,3154 

1 3162 

0 

TCF 

UMPAC- 

HERE. 



1875 

REF 

546 

LAST 

1179 

00,3155 

10 

155 

1 


CCS 

MPAC +1 


1376 

REF 

2 

LAST 

1179 

00,3156 

1 

3170 

0 


TCF 

UMP AC+ 


1377 

REF 

270 

LAST 

1174 

00,3157 

0 

0002 

0 


TC 

Q 

EXIT IMMcqiaTELY ON ZERO. 

1878 

:<EF 

2 

LAST 

1179 

00,3160 

1 

31 62 

0 


TCF 

UHPAC- 


1879 

RFF 

271 

LAST 

1179 

00,3161 

0 

0002 

0 


TC 

0 

— — 


]S0 


1 ? ^ 1 


1P84 


1885 


1 16 


0^7 
O 5 f 


T 




REF 241 LAST 1178 


3162 4 5021 0 UMP AC- 


CS 


Z-RO 


TFTJFGTTTTVtT 




0 W DVSIGN FflR T=mAi: 



REF 


9 LAST 1173 


00t3163 54 136 1 



S T" n 7 9 


00 t3l64 
OTTTTrST 


0 0006 1 
"OT 


TS 
EXTEND 


OVSIGN 


COMPLEMENT. 



LAST 1173 


00,3166 


REE 


LAST 1173 


00,3167 


4 

50 135 0 
1 2 5 64 0 



INDEX 



MP7LC 

MPTEMP 

MAXTEST -1 


PICK TTF'AB SOLUTE VALUE OF AFG AND JUMP. 


REF 


10 LAST 1179 

548 lAST 1179 


00,3170 

00,3171 


HTF 54 : 


IT! 



REF 


LAST 


9” 

117^ 


00,3172 


00, 3173 


54 136 
52 I TS- 

Y ZT54 


1 

T 

■O' 

71 


UMPAC+ 


T5 



OVSIGW 

TTF 


SET DVSTGN FOR POSITIVE QUOTIENT 




TnTFTP 


TCF 



XTESr-T 





1 


GAP : ASSe^lBLE REVISION 053 HF 4GC PRHGPAM COMANCHE BY NASA 2021113-051 


I NThP-PRETER 


10:28 APR. 1,1969 


USER'S PAGE NO 


74 


E3 S3 


Pl8 9n 


1891 


18-2 


lo'O 


1894 


1895 


9FF 


REf 


I 


MISCELLANEOUS HNARY OPERATIONS. 


REF 41 LAST 1165 


LAST 1161 


LAST 1130 


00,3174 0 3300 1 DSO 


00^3175 1 6030 0 


00,31Y7 1 3226 0 


00.3200 1 3226 0 


TCP 


00,3176 10 163 1 ABVALABS CCS 

TCP 


TCP 



OANZIG 


MODE 


ABS 


ABS 


SQUARE THE DP CONTENTS OF MPA 


A8VAL OR ABS INSTRUCTION 


DO ABS ON SCALAR 


1896 


1397 


REF 




LAST 1175 


REF 23 LAST 1180 


00,3201 0 3317 1 ABVAL 


00,3202 22 163 0 





VSQSUB 


MODE 


DOT MPAirwITH 



MODE rS" NOW DT' (L ZrrO AFTER' DAST 


1 8 9 3 


1899 

1900 


1901 


K 


EF 


REF 549 LAST 1179 
REF 29 LAST 1177 


LAST 1175 


00,3203 0 0006 I 


00,3204 

00.3205 


3 0155 0 

50 120 1 


00,3206 52 043 1 


EXTEND 

tkta mpaI; 

INDEX FIXLnC 


oxCh 


LVSQUARF 



"I 


E OF LENGTH IN WORK AREA 










i 



- V " i|» 




gap: assemble revision 055 OF AGC PROGRAM COMANCHE RY NASA 2021115-051 


10:28 APR. 1.1969 CHIEFTAN.023 


P1902 


Rl<^03 
R 1904 


P. 1906 


R190B 

R1910 


R19i2 


R1914 
R 1916 


R1917 


R1919 


R1920 


R1921 


R 1922 
1923 


1924 


1926 




1928 


T930 


1931 


rm 




rT3^ 

rrjo 


vm 


INTERPRFTEP 


USER'S PAGE NO. 75 


E3 S3 


PROGRAM DESCRIPT ION- SUBROUTINE SORT 


FUNCTIONAL DESCR I PT inN-DOUBLE PRECISION SQUARE ROOT ROUTINE 

THIS PROGRAM TAKES THE SQUARE ROOT OF THE 27 OR 28 MOST SIGNIFICANT BITS IN THE TRIPLE PRECISION SET OF 


NUMBERS-MP ACt MPAC + 1 , AND 


MPAC4'2 


THE ROOT IS RETURNED DOUBLE 


PRECISION IN MPAC AND MPAC+l. 


WARN ING- THIS SUBROUTINE USES A TRIPLE PRECISION INPUT 
ESPECIALLY IF THE CONTENTS OF MPAC IS SMALL OR ZERO 


TH E PROGRAMMER MUST ASSURE THE CONTENTS OF MPAC-*-2 
FOR DETAILS SEE STG MEMO NO. 949. 


CALLING SFOUENCE- IN INTERPRETIVE MODE I.E.. FOLLOWING TC INTPRET.SQPT 


NO 


INPUT SCALING THE BINARY POINT IS ASSUMED TO THE RIGHT OF 
SUBROUTINES- GENSCR , Mt^’ACSHR » SQRTSUB, ABORT 


ADDRESS IS ALLOWED 

BIT 15. THE ANSWER IS RETURNED WITH THE SAME SCALING 


ABORT EXIT MODE- ABORTS ON NFGATIV!:: INPUT 


1.2X10E-4 (77775 OCTAL) 


OR LESS. 


DISPLAYS ERROR CODE 1302 


TC 


ABORT 


:T 1302 


DEBRIS - 
REF 2 


REF 55 LAST 1179 


LOCATIONS BUFt ^PTEMP, ADDRWD ARE US ED 
LAST 1175 00,3207 0 3343 0 SORT 


00.3210 

on •3211 


10 135 1 

1 3213 0 


TC 

zcs 


SQRTSUB 


MPTEMP 


TAKE THE SQUARE ROOT OF MPA 
returned NORMALIZED SQUARE ROOT. 




REF 


LAST 1180 


00.3212 1 6030 0 



DANZIG 


ANY UN-NORMALIZATION REOUIRED AND EXIT 


L A S T“ 1 16 0 



00.3213 

00,3214 

00.3215 


TrTTBO 0 



0 0006 1 

I 3'22n5 


W 

EXTEND 

irmr 


NECTZ 



00,321 6 22 00? 0 


REF 77 


TTFF 


4 


LAST 1161 

L A ST ' n’STJ 


no,3217 

0 0 , 3 2“2 0 


22 116 1 

1“2T0 3‘ T 


71 

LXCH 

TTF^ 


) I 

GOES HERE ' IN' 7RTST 
A LONG 


MflRE THAN 13 COULD BE 
INPUT WAS' ZERO IN MPAC. + l. 




AODRWD 


GENSCR +4^ 


GENERAL RIG 
ADDRWD ¥AS 




PR EVEN I RUUND 


RTF 


TTEF 


56 

4^ 



T 

LAST 11 3T 


00,3221 

00.32^72' 


T75 



TT 


RTF 

TEF 


“57 

747 


LAST TTTrr 


00.3223 


LAST 1179 


57 
54" 1 3 5 1 

3 5021 1 


SORTSHFT 


I NDET 

UAF 


MPTEMP 

BT 


SELECl SHIFTING Blf 
SHIFT ROUTINES^ 


AND tXH — [HRUUGH 


rs 


75F 2 LAST 1160 


00,3224 
70,3225 1 “ 2736 1 



TUF 


MPIbMF 

TFRD 

+3 


TO ZERO MPAC ^-2"7N IHE PkUCbSS 


r3Tg“ 

RPF 

3“ 

LAST 

115 f 

00, 3226 


66 7^ 

1 ABS 

TC 

BRANCH 


1979 

REb 



rrsTT" 

00,322T 

1 

6030 

0 

rcF 

DANZ I G 


1940 

RTF” 


TTTTST 

1181 

7K7 .323 0 

i 

60 30 

0 

TCP 

U A N Z 1 G 


1 9 V I“" 

r. bF 

4 

LAST' 

1151 

‘.50, 5 2^1 

1 

"7577” 

0 

TCF 

L 1 1 M P 



TEST SIGN Ub MPA'C AND LUMPLFMbNI JTF 



I 


gap: assemble REVISION 06 r; np aGC 


PROGRAM COMANCHF BY NASA 2021113-OSl 10:23 APR 


1,1969 CHIEFTAN.028 PAGE 1182 


L ■ INTERPRETER 


USER'S PAGE NO. 76 E3 S3 


19 '+2 

REF 

15 

LAST 

1146 

OOt 3232 

4 5015 

1 

V0£F 

cs 

FOUR 

VECTOR DEFINE - ESSENTIALLY TREATS — 

1943 

REF 

13 

L^ST 

1149 

00,3233 

26 166 

1 


AOS 

PUSHLOC 

scalar in MPAC AS X COMPONENT, PUSHES UP 

1 94 4 





00,3234 

0 0006 

1 


EXTEND 


FOR Y AND THEN AGAIN FOR Z* 

1945 

REF 

309 

LAST 

1178 

00,3235 

5 0000 

1 


INDEX 

A 


1 946 





on, 3236 

3 0003 

1 


OCA 

2 


1947 

REF 

550 

LAST 

1130 

00,3237 

52 160 

1 


DXCH 

MPAC +3 


1948 





00,3240 

0 0006 

1 


EXTEND 



1949 

REF 

14 

LAST 

1182 

00,3241 

5 0166 

0 


INDEX 

PUSHLOC 


1950 





00.3242 

3 0001 

0 


D/TA 

0 


1951 

REF 

551 

LAST 

1182 

09,3243 

52 162 

0 


ITXCH 

MPAC +5 


1952 

REE 

2 

LAST 

1146 

00,3244 

1 6470 

0 


TCP 

VMQDE 

MODE 1$ NGN VECTOR. 


1955 

REF 

3 

LAST 

1130 

00,3245 

0 3317 

T~ 

vso 

TC 

VS0SU3 

DOT MPAC WITH ITSELF. 

1954 

REF 

1 



00,3246 

1 73 01 

0 


TCP 

DMODE 

MODE IS NOW OP. 


1955 





00,3247 

0 0006 

1 

PUSH 

EXTEND 


PUSH DOWN MPAC LEAVING IT LOADED. 

193t> 

REF 

552 

LAST 

1182 

00,3250 

3 0155 

0 


OCA 

MPAC 


1957 

REF 

15 

LAST 

1182 

00.3251 

50 166 

0 


INOtX 

PUSHLOC 

PUSH DOWN FIRST TWO REGtSTFIlS IN EACH 

1953 





00.3252 

52 001 

1 


DXCH 

0 



1959 

REF 

24 

LAST 

1180 

00,3253 

50 153 

0 


INOEX 

MGDF 

INCREMENT PUSHDOWN POINTER. 

1960 

R FF 

T" 

LAST 

1124 

00,3254' 

3 6213' 

“T~ 


" CAE " 

N 0 • W D S 


196 1 

REF 

16 

LAST 

TTT2 

00,3255 

"26 166' 

1 


AOS 

PUSHLOC 



1962 

RbT 

25' 

LAST 

1X52 

00,3256 

10 I nT 

1 


CCS 

MUDE 


1953 

REF 

1 



00.3257 

TT272 

"1 


TCP 

TPUSH 

PUSH DOWN MPAC +2. 

1964 

REF 

45 

LAST 

1181 

00,3260 

1 6030 

0 


tcf 

DANZIG 

DONE FOR DP. 













1965“ 





00,3261 

0 000'6' 

TT" 


EXTEND 


UN Vector, push down v and z components* 

1966 

P EF 

553 

LAST 

TTel 

00,3262 

3 0160 

0 


DO 

MPAC -•-3 


1957 

fTEF” 

IT 

TTSTr 

TIFT” 

00 1 3 ? ^ 3 

50 166 

TT" 


INITEX^ 

PUSHLfTC 


rwii 





00,32TF' ■ 

51*775 

0 


DXCH 

0 —4 


1969 





00,3265 

0 0006 

"T“ 


EXTEND 



l^ TD' ■ 

!TFF 

"554"" 

LAST 

n 8 2 

00,326'6“" 

T m~s2r 

"T" 


OCA 

MPAC +5 


rm 


— TB 

"TATr 

TTT2 

■W.3T67 

FT TFT 



INDEX” 

PUSHLOC 


1972 





00 , 32 to 

TTT7T 

1 


oircn 

0 -2 


TTTJ 



LAST 

1182 

00,327T 

TT6D30 

0 


”rcp 

D/lNZTTr' ' 














1974 

'^eF 

55 5“ 

LAST 

TT52 — 

00,32TT" 

"3 01 56' 

0 

TPUSH 

CA 

MPAC +2 


TT7^ 

- "TTir f 


LAST 

Tr25— 

00,3273 

T T5TT 

nr 


— RTF 

TNDTPUSH "TT 














UTTE- 

— fTEF 

— TT~ 

LAST 

1180 

0 0 ; 3r 74“ 

50 120 

T" 

KVQ 

IN DbX 

F I X LUF 

KVO - KEIUKN IVA UPKEI. 

1977* 

■RTF 

LAST' 

1 . 1 yr L j 

00,32/5 

TTJiDTZ 



Cft 

OPRET 


T9TB^ 

RTF 

T2Tr" 

L A ST 

TTFO 

00, 3Z7'6 

54 ITT 

"T 


rs 

■pUL I SH 


1979 

— RTF 

5“ 

LAST 

■TTZ9 

00.327/ 

1 6621 

TT" 


TC F 

G U 1 U +4 

(ASSUME OPKET Pf.llNlb ! tJ FIXED ONLY. I 


GAP: ASSbMBLP REVISION 055 OF AGC PROGRAM C0^1A^4CHe BY NASA 2021113-051 10:28 APR* 1*1969 CHIEFTAN*028 PAGE 1183 


L INTERPRETFR USER'S PAGE NO* 77 E3 S3 

P 1980 THE FOLLOWING SUBROUTINES ARE USED IN SQUARING MPAC. IN BOTH THE SCXLAR AND VECTOR S6N$E* THEY ARE 

P 19 82 SPECIAL CASES OF OWPSUB AND OnTSUB. PUT IN TO SAVE SOME TIME. ~ ~ ~ 


1983 

REF 

556 

LAST 

1182 

00,3300 

3 0155 

0 

0SQSU8 

CA 

MPAC +1 

SQUARES THE SCALAR CONTENTS OF MPAC. 

1984 





00*3301 

0 0006 

1 


EXTEND 



1985 





00. ’.302 

7 0000 

0 


SQUARE 



19^36 

REF 

557 

LAST 

1183 

00,3303 

54 156 

1 


TS 

MPAC +2 


1987 

R E F 

243 

LAST 

llBl 

00,3304 

3 5021 

1 


CAF 

ZERO 

FORM 2(CR0SS TERM). 

1988 

REF 

55? 

LAST 

1133 

00.3305 

56 155 

0 


XCH 

MPAC +1 


1989 





00,3306 

0 00 06 

1 


EXTEND 



1990 

REF 

55 9 

LAST 

1183 

00*3307 

7 01‘=^4 

0 


MP 

MPAC 


1991 





00,3310 

20 001 

1 


DOnUBL 


AND MAYBE OVEPpLOW. 

199? 

REF 

560 

LAST 

1183 

00,3311 

20 156 

1 


DAS 

MPAC +1 

And set a to net overflow. 

1993 

REF 

561 

LAST 

1183 

00,3312 

56 154 

1 


XCH 

M«^AC 


1 994 





“0^3 3 1 3 

0 0006 

1 


EXTEND 



1995 





o 

c 

7 0000 

0 


SOU AR E 



1936 

R F r 

56? 

CAST 

1183 

00* 3 3“ IF 

20 155 

1 


daT^ 

MPAC 


1997 


272 

LAST 

1179 

"0073316 

0 000? 

0 


TC 

0 














1998 





00* 3317 

0 0006 

1 

VS 0 SU 8 

EXTEfllT 


DOTS THE VECIUH IN MPAC WIIH ITSELF* 

1999 

REF 

a 

LAST 

1138 

00.3320 

22 137 

1 


QXCH 

DOTRET 


^xjniT' 

REF 

T 

L A ST" rnro 

fTOTTO 2T‘ 

TTTTOT" 

1 


"TC ■“ 

DSOSUB 

SQUARE THE X CUMPUNtNl* 

2001 ■ 

iTFF 

563 

LAST 

113 3 

00. 3322 

52 1 60 

"T 


DXGTT’ 

MPAC +3 


IUU2 

■REF 

564 

LAST 

1183 

“OOTT 32 T" 

52 155 

t 


TiXTri 

MPAC 


2003 

"kFF 

99 

(AST 

1T77“ 

00,33^ 

~5T^ n r 

0 


D'XCH 

WF 

50 WE CAN END IN OUT SUB* 

^ 27T04 


“ToS TAST^n^O 

00* 3T?‘5"^ 

3 0156“ 0 


C A 

MPACrT2 


Tum 

1TFF 

"TW 

LAST lies 

00 , 3326 

54 13 2 “0" 


T S 

BLIP +2 



rnm 

KEF 

“ 3“ 

niTTST" 

1183 

no, 332T 

0 3300 

TT 


TC 

s y b U 1 ' 

SUUAKF T LUMPUNPNI* 

2007 “ 


"5^ 

LAST 

Tm — 

00.3 3 7(1 

52 156 

1 


oxen 

MPAC +1 


2jym 

f\ 1 1 

~T01 

“LAST“ 

1 183 

■ TO , 

20 IT? 

0 


— DAS 

BUF +l 


ZDTTO 

RFF 

567 

“"LTVST 


“TT:)V33TT" 

~S OTTA 

T 


ACT” 

MPAC 


2Tnm — 

IRFF 

TOT* 

TATT 

118T“ 

00.3332 

6 0130 

0 


AO 

BUF 


2 rrri 

R EF 

"TOT 

TTTSTTTHT- 

00,T3 34“ 

54 130 

T 


rs 

BUE 


2UX2 





“iKT, 3"3TF“ 


TT 


TUF 

+ 2 


2OT3 

“TFT 

T 

LAST 

TTTS — 

00.33'37r- 

54 121 

1 


TS 

nVFIND 

IE U V E K F L U W * 


ZOTTT 

REF 5^" 

— LTTST 

rrB3 

00 , 3337 

^2 T &2~ T 


T)XCH 



Z7JT9 

"^TFF 

“3^ 

■ LA ST“ 

TTSl 

■WTTTTTT 

52 15 5 

TT 


DXTR 

MPAC 

* ■ M P ~ " ■ u . . . 

zrms — 



T AST 

1 1 3 

00,3341 

0 iT oir 



IC 

DSQSUB 

SQUARED COMPuNtNI. 

2TJr7 — 

REF 

r 



'DD^TlTTr 

1 7154 

“T 


TCP 

-N ODOT 

END AS IN OOTSUB- 


I 











gap: 

ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY 

NASA 2021113-051 

10:2S 

APR. I.196P CHIEFTAN.028 PAGE 1184^ 








- L' X. ^ ■ ■ 


L 

INTERPRETER 



USER'S PAGE NO. 

78 

E3 ST 



P201« 

DOUBLE PRECISION SQUARE ROOT ROUTINE. 

TAKE THE SQUARE ROOT 

OF THE 

TRIPLE PRECISION 

(MPAC +2 

USED ONLY 

— m j • . a 1 HE "" "* » ■ 1 - ■ 


R2020 

IN NORMALIZATION) CONTENTS OF MPAC AND LEAVE THF NORMALIZED RESULT 

IN MPAC 

rC(MPAC) GREATEiT" 

THAN Oft 

EQUAL TO 


R2022 

.5). THE RIGHT SHIFT COUNT (TO UNNGRMALIZE) IS 

LEFT IN MPTFMP. 







2023 

REF 

2 44 

LAST 

1183 

00.3343 

3 5021 

1 

5QRTSUB 

C AF 

ZERO 

START BY ZEROING RIGHT SHIFT COUNT. 

2024 

REF 

58 

LAST 

1131 

00.3344 

54 135 

1 


TS 

MPTEMP 



2025 

R EF 

570 

LAST 

1 183 

00 ,3345 

10 154 

0 


CCS 

MPAC 

CHECK FOR POSITIVt ARGUMENT, SHIFTING 

2026 

REF 

1 



00.3346 

1 3404 

0 


TCF 

SMPAC-^ 

FIRST SIGNIFICANT MPAC REGISTER INTO 

202:7 





00, 33^*7 

1 3351 

1 


TCT 

+ 2 

mPaC I T SELF • 

2028 

r"^ 

_ 



00,3350 

"T“'3373' 

1 


TCF 

SORTNFG 

SEE IF MAG OF ARGUMENT LESS THAN 10(-4). 


2029 

REF 

571 

LAST 

1184 

00,3351 

56 1 56 

0 


XCH 

MPAC +2 

MPAC IS ZERO - SHIFT LEFT 14. 

2030 

reF" 

572 

LAST 


00,3352 

56 155 

0 


XCH 

MPAC +1 


2031 

RPF 

573 

LAST 

U34 

00,3353 

54 1 54 

0 


TS 

MPAC 


2032 

REF 

15 

LAST 

B96 

00,3354 

3 5023 

0 


ttaf 

SEVFM 

AUGMENT K I GHI SHIFT CUUNTER . 

2033 

H FF 

59 

LAST 

1184 

00,3355 

54 135 

1 


TS 

MPTtMp 



2034 


37X” 

LAST“ 

ro?^ 

00".T35'6“ 

10 1 W 

0 


vy vy 0 

MP^AC^ 

SEF IF MPAC NOW PNZ. 

2038 

RFF 

•> 

LAST 

1134 

00, 3357 

1 34 04 

0 


TCF 

SMPAC+ 


2036 





00,3360 

1 3362 

1 


TCT 

+ 2 


2037 

TtF” 

r 



00,3361 

1 33 76 

1 


Tcr 

zeroans 

NEGATIVE BUT LbSS THAN 101—4) IN MAG. 


2038 

^EF 

^5TS" 

LAST 

ri F4 ■ ■ 

00 f 3 ? 

5^55 

0 ■ 


xrcH 

MPAC +1 

ZERO - SHIFT LEFT 14 AGAIN. 

2039 

REF 

576 

LAST 

1184 

00,3363 

54 154 

0 


”TS 

MP A C 


2040 

REF 

16 

LAST 

1184 

00,3364 

3 5023 

0 


TTSF 

SFVEN 

AUGMENT RIGHT SHIFT CTOUNTER. 

2W[ 

REF 

60 

LAST 

11,84 

(TU7TT65~ 

2'6 i 


AOS 

MPTEMP” 



2042 

P F- f* 

577 

~TT^ 

1134 

00 1 3 3 6 n 

10 154 



XX8 

MPAC 


2 04 3 

REF 

3 

“LAST” 

Tr84 

00,3 3,5 7“ 


0 


TCF 

SMPAC+ 


2044 

XTFF 

2.1T 

" L AST' 

1183 

0 0 , 3T7X 

TS 0002 

Tr~ 



g 

XORT(g) = 0. 

2045 

REF 

2 

LAST 

1184 

00,33ll 

1 33 76 

i 


TCF 

ZCROANS 


2 046 

' REF' 

1 



00,3372 


X '■ 


"TCT 

FTXFTTDT 

DO MOT LEAVE SO^TSUB WITH —0 IN MpAC. 


ZU4T 


k^ F" '310 


LAST" ITS? 



00*3374 


■I 0 
I”^ 


SOPTI^TEF 


XUS” 

TCF 


TT 



ARGUMT=^T T r NbGATIVt* BUI bth: IF STGN^ 
UrmREUTFir ARGU^tNT IS LESS THAR XUrp^^4T” 


za-40 




r a 5T“Tix^^; olt, txtf ro“T55”T: 


uxs 


PTP au XT 


IN '^AGN'TTU nF.~TF SO. CAXr ANSWER ZERO 


i-r 



XDTJWT 1~T45 2“X 


TCF 



■21) 50 ■ 

REF ; 



1184 

(TO 1 

T TT6 ~ 

3“ 

5 0 21 

T TETTOANS 

XTAT^ 

TERU ” 

FORCE ANSWER lU ZbKU HERE. 

2051 

“TeT~ 

2 

LAST 

1184 

0X7 


T" 

3452 

n 

TCF 

FIXROOl 


7^57 

'XF 

~2” 

LAST 


"no. 

3400 

TT 

3402 

j 

"TCF 

S OK T A Bk T 



7U5T 



F L A SI ^ F' 0 0 1 3 4X7 


0 0 * I’FOTT 


irXT21'X 

013 o2 -”T 



T~rc 


CUT 


VOODOO 


I 







GAP: ASSE-1BLE l^EVISION 035 OF AGC P'^OGRAM COMANCHE BY NASA 2021113-031 

10:28 APR. 1, 

1969 

CH1EFTAN.028 

PAGE 1185 


L INTFSPRETFR 

USER'S 

PAGE 

NO, 79 

E3 S3 


2056 

R FF 

1“ 



00,3404 

6 2444 

1 

SMPAC+ 

AD 

-1/2+2 

SEE IF ARGUMENT GREATER THAN 

OR EQUAL to 



2037 





00,3405 

0 0006 

1 


EXTEND 


• 5 • 




2053 

RFF 

1 



00.3406 

6 3455 

0 


8ZMF 

SRTEST 

IF SO. SEE IF LESS THAN .25. 



















2059 

RFF 

579 

LAST 

1 184 

00,3407 

52 155 

1 


OXCH ““ 

MPAC 

WE WILL TAKE THE SQUARE ROOT 

OF MpAC/7, 



2060 

REF 

25 

LAST 

1166 

00.3410 

22 021 

1 


LXCH 

SP 

SHIFT RIGHT 1 ANO GO TO THE 

SQRT ROUTINE 



2061 





O 

o 

0 0006 

1 


EXTEND 






2062 

P EF 

16 

LAST 

1166 

00,3412 

7 5002 

1 


MP 

HALF 





2063 

REF 

580 

LAST 

1135 

00.3413 

52 155 

1 


OXCH 

MPAC 





2064 

REF 

26 

LAST 

1185 

00,3414 

56 021 

1 


XCH 

SR 





2065 

REF 

581 

LAST 

1135 

00,3415 

26 155 

1 


AOS 

MPAC +1 

GUARANTEED NO OVERFLOW. 





2066 

REF 

1 



00.3416 

3 2314 

0 

ARGHI 

CAF 

SLOPEHI 

ARGUMENT BETWEEN ,25 AND .5. 

GET A 



2067 





00,3417 

0 0006 

1 


TXTEND 


LINEAR APPROXIMATION FOR THI 

s range. 



206R 

REF 

582 

LAST 

1185 

00.3420 

7 0154 

0 


MP 

MPAC 


'W ” ■■ T 7 H .IK ■■ 



2069 

REF 

L 



00.3421 

6 2 5 66 

“0 


AO 

BIASHI 

XO/? = (MPAC/2J (SLOPEHI J BIASHI/2, 




2070 

r- EF 

104 

LAST 

1183 

00,342? 

54 130 

1 

+ 4 

TS 

BUF 

XO/2 (ARGLO ENTERS HERE), 




2071 

R FF 

563 

LAST 

1185 

00.3423 

3 0154 

1 


CA 

MPAC 

S INGLE -PR EC IS ION THROUGHOUT, 




20t;> 





00,3424 

22 oor 

or 


~TL 






2073 





00,3425 

0 0006 

1 


EXTEND 







~RFF" 

105 

L A ST“ 

Tnr5 

00.3426 

10 130 

1 


“OV 

euF 

( MPAC/2) /(XO/2} =— = - 




iim 





00, 3427 

0~W06 



“EXTEND 







pFF 

1? 

LAST 

1185 

00, 3430 

7 5002 

1 


“Cfp 

HALF 





2077 

REF 

TWT 

LAST' 

mrs 

O0.343T~ 

26 TTO' 



ADS 

BUF 

XI = XO/2 + ,5(MPAL/2)/lX0/ZJ. 




ZOTB — 





00,3432 

0 0006 



tXTFND 






Z079 

REF 

^3 


TT73 

00 t 3 4 33 

7 5002 

^ir~ 


"w ^ ■ 

HALF 

FORM UP Xl /2 , 




~zum— 

~T?TEF~ 


LAST 

1185 

“00,3474— 

52 15b 

i 


OXCH " 

M P AC 

SAVE And bring out argument. 




2T58T 





on, 3 435 ■ 

0 0005 ' 



EXT END 


TAKE DP QUOTIENT WITH XI, 




zm2~ " 

REF TTJT 

“ TTTsrr 

118'5" 

“W, 3 47 6 

IfTTBlT 1 


TTV ^ 

BLIP 





2033 

“TTF'IW 


TTBF 

XKF,747T 

3^ 13T“Tr 


“TS 

BUF +1 

SAVE MAJO*^ PART UF QUO! lENT , 






ref 


i^T~ 

1134 

00,3446 

3 5021 



CAF 

ZERO 

FORM minor part ' UE QUO I 1 EN 1 

USING 



? 0 5 

REF 

155 

LAST 1177 

00.3441 





L 

( REMAINDER. O) • 




2 0^ 





00,3 442' 

0 000b 1 


EXTEND” 






20B7 

“TTFF" 

TW 

LAST 

TT^5 

“0IT7T44T“ 

10 130 



“OV 

"WF 





2T5R3" 

rEF ' 

TFET 

LA"ST“ 

TTBF 

00 . 3 4<>4 

54 0 Ol 



TS 

L 

IN PInEPAkAi luN FOR uAS« 




2DB'9“ 

' pef 

TTU 

“TAST 

Tra3““ 

”O0,74'45' 

3' DI3T 

T 


XTT 

0UF +1 





20‘90 

■REF' 

“575“ 

L7^ST“ 

TTF5 — 

00,3446 

20 156 



“OTTS 

MPAC 

X2 = Xl/Z + ( 1PAU/2)X1 
















- 



2tm — 





U 0 . 3 447 

““IT 0006' 

“TT^ 


“EXTEND 


OVERFLOWS IF ARG. NEAR POSMA 

A • 



7U^ — 

“TEF" 

T 



00,3450 

1 3454 

0 


3 Z F 

TCUBNKUU 





7013' 

REF ■ 



1170 

0 0 1 3 ^ ^ ] 

“7 4777’ 



C AF 

PfJSMAX “ 





2U14 

FIEF" 

“57r6- 

USST 

113 5 

' 00. 345? 

54”T54' 

"0“ 

FTXFOOT"^ 

TS 

MPAC 





?TJ^5 — 

FFF 

“57T 

L'ATT 

TTBT 

00,3453 

54 155 

1 


IS 

MPAC +1 





= zmB 

— 9-F' 


LAST 

1184 

TyTT7T454“ 

~0 TJTW 

“TT" 

TCQBFIKOTJ 

TC 

TT 

Re I URN lu CALLER 10 UNNuRMaT 

IZEt“ETC . 




I' 



gap: ASSEiMRI.P REVISION OR5 OF GC PROGRAM GOMANCHc BY NASA 2021113-051 


10:28 APR. 


1,1969 CHIEFTAN.028 PAGE 1186 


I NT EPPRETER 


USER'S PAGE NO 






2097 

REF 

6 

LAST 

102 1 

00,3455 

6 5003 

1 

SRTEST 

AD 

QUARTER 

ARGUMENT WAS LESS THAN .5, SEE 

IF LESS 


2098 





00*3456 

0 0006 

1 “ 


EXTEND 


TRAN .25. 



2 099 

REF 

1 



00,3457 

6 3501 

0 


BZMF 

SQRTNDRM 

IF SO, BEGIN NORMALIZATION. 




2100 

REF 

588 

LAST 

1185 

OOt 3460 

5 2 155 

1 


DXCH 

MPAC 

IF BETWEEN .5 AND .25, SHIFT RIGHT 1 AND 


2101 

REF 

27 

LAST 

1185 

00.3461 

22 021 

1 


LXCH 

SR 

START AT ARGLO. 



2102 





00,3462 

0 0006 

1 


EXTE^40 





2103 

REF 

19 

LAST 

1185 

00,3A63 

7 500? 

1 


MP 

HALF 




210^ 

REF 

589 

LAST 

1186 

00,3464 

52 155 

1 


OXCH 

MPAC 




2105 

R EF 

28 

LAST 

1186 

00,3465 

56 021 

1 


XCH 

SR 




2106 

REF 

590 

LAST 

1186 

00 * 346 6 

26 155 

L 


ToS 

MPAC +1 

NO OVERFLOW. 



— ■■ — 1 ■■ ■ ■ ■■ MM 1 ■ MM ~m — ■ m M mm — — 

2107 

REF 

1 



00,3467 

3 300 7 

0 

ARGLO 

CAF 

SLOPELO 

(NORMALIZED) ARGUMENT BETWEEN . 

125 AND 


2108. 





00,3470 

0 0006 

1 


EXTEND 


.25 



2109 

REF 

591 

LAST 

1186 

03.3471 

7 0154 

0 


MP 

MPAC 




2110 

REF 

1 



00,3472 

6 2270 

0 


AD 

BI ASLO 




2iii 

REF 

1 



00,3473 

1 3422 

1 


TCF 

ARGHI +4 

BEGIN SOfJ^P/E ROOT. 

















2112 





00.34 74 

0 0006 

1 

SQRTNM2 

EXTEND 


SHIFT LEFT 2 AND INCREMENT KlbHI 6HIEI 


2113 

REF 

592 

LAST 

1186 

00,3475 

3 0156 

0 


OCA 

MPAC +1 

COUNT (FOR Terminal unnormal i zai iont. 


2114 

REF 

593 

LAST 

1186 

00,3476 

20 156 

1 


DAS 

MPAC +1 




2115 

RFF 

594 

LAST 

1136 

00,3^77 

6 0154 

1 


AD 

MPAC 




2116 

REF 

595 

LAST 

1186 

00,3500 

26 1 54 

0 


ADS 

MPAC 

( NO OVERFLOW) . 




2117 

REF 

61 

L A ST 

1184 

00,3501 

24 

0 

SORTNORM 

TNCR 

MPTEMp 

FIRST TI^E IHKfJUGH, JUb ! 6H1M 

LEF ! 1 


2113 





00,3502 

0 0006 

X" 


TXT END 


(puts IN Ef-hECI IVE RIGHT SHIFT 

5 INC F 


2119 

REF 

596 

LAST 

1186 

00, 3503 

3 0156 

0 


DCA 

MPAC +1 

WE WANT MPAC/2J. 



2120 

REF 

597 

last 

1 1 36 

00,3504 

20 156 

1 


DAS 

MPAC +1 




■ 2T2T 

REF 

5^8 

TTyST 

1186 

0 0,35 0 5 

6 015^ 

1 


AD 

M P 4 C 




2122 

REF 

599 

LAST 

1136 

00,3506 

26 1 54 

0 


pros 

MPAC 

(AGAIN NO OVERFLOW). 



2123 





00.35 O'T 

6 000~0 X 


rouuerE 



- ...T M-J 


' 2124 

REF 


L AST 

379" 

00 , 35 ID 

F4 UZ2 

TX 


xs 

“CYI 





7175^' 

■ RFF~ 

2Tr" 

LAS! 

1186'" 

00,3511 

TXT 

XT" 

X^DRMTFST 

CT7S 

CYL 

SEE IF AKbUntNI NUW NUK’^ALli.tU 

A 1 


2126 

■ ■■“ ref 

'2T' ■ 

TA5TT1S6 

00,3512 

Id 022" 

0 


xxrs" 

CYL 

greater than .125. 

A ^ jt r HI 


2127 

REF" 

T" 



00,3513 

1 34'7T 

1 


TCT 

S0RTNM2 

NO “ SHIFT left 2 MORE AND iKY 

A G A I f^I • 


2123 

"REF" 


LXST 

1186 

DTI','3 5 PT 

1 34:16 

0 


TCF 

ARGHT 

YES - NOW Between r5 and .25." 

c - - - 


2T?9 

"" R EF" 

1 



W,3 5T5 

' r TA'ST 

'0 


TCF 

TnrcLX 

ARGUMENT NUW BETWEEN .25 AND .T 

.25. 



gap: 

ASSE‘-1BLE REVISION 055 OF 
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L 

INTERPRETER 



U$ER*S PAGE 

NO. 81 

E3 S3 



P2130 

TRIGONOMETRIC FUNCTION 

PACKAGE. 







■-^2131 

THF FOLLOWI NG 

T'^IGONGMFTRIC t=llNCTinNS 

ARE AVAII.ABLE AS 

INTERPRETIVE OPERATIONS: 





R2133 

1 . 

SIN 

COMPUTES 

<1/2)SINE(2 PI MPAC). 








R2134 

2. 

COS 

COMPUTES 

( 1/2)C0SINE(2 PI MPAC). 




















R 213- 

3. 

ASTN 

COMPUTES 

{ 1/2PI j ARCS INE( 2 MPAC). 








R2136 

4 • 

4C0S 

COMPUTES 

( 1/2PI ) ARCCOSINE! 2 MPAC). 









R2137 

SIN-ASIN AND 

COS-ACfiS 

MUTUALLY INVERSEy IE SINCASINIXM = X> 

, - — 

* 


-- -1 ■' 





2133 

“ rff~ 

4 

J 

LAST 

1181 

00. 3517j 

0 66 7,2 

1 

CiISINT 

TC BRANCH 

FINDS COSINE USING THE IDENTITY 

2139 





00,3517 

1 3522 

0 


TCF +3 

COSIX) = SIN(PI/2 - ABS(X)). 

2140 

REF 

1 



00,3520 

1 3525 

1 


“TF^ PPESINE 


2)41 

RE^ 

2 

LAST 

1 1 87" 

00. 35257” 

1 3525 

T’ 


” TTF PRESIME 



2142 





00 t 35 22 

0 0006 

1 

+ 3 

EXTEND 


2143 

RTF” 

600 

LAST 

1186 

00,3523 

4 0155 

1 


DC S MPAC 


2144 

REF 

601 

LAST 

1187 

00,3524 

52 1 55 

l 


DXCH MPAC 













ro 

1 


7 

LAST 

1136 

0o,35T5“ 

3 5003 

1 

PRFSTNF 

“TOT OUARTTK 

P I / 2 SL AlFD • 

2 1 46 

REF 

60? 

LAST 

118 7 

00,3526 

26 154 

0 


ADS MPAC 


__ ■ -- - — J ■ — 












7rrr 

WTT' 

ZUT' 

LAST" 

1137 

00,3527 

52 155 

1 

SINE 

DXCH FTPOT 

DOUBLE ARGUMENT* 

2148 





GO , 3530 

“TCT " 001 1 


OOUIJBL 


?TW 





0 (; , 3 5 3 i 

54 000 0 


nvsK 

SEE IE LiVbKELUW PRESbNf* 

2150' 





— 00,2532 

1 3535 



TCF +3 

lb Nui , ap.guMEN! Ok as is* 


21^1“ 





00,35 3T- 

■ 0 0006 



EX I ENU 

Ir bU* Wc LLIb 1 1 UK UAIrNfUf rlt oU 

2T52“ 





0 0 , " S 3 4 

4 OOOi 

1 


OCOM 

COMPLEMENT MPAC USING THE lUENI IIY 

A215'3 










SIN(X-(b)Pir = SIN(-X)* 

2 1 54 

FTEF” 

604 

LAST 

IIST' 

■00,3533“ 

52'T5V 


+ 3 

UXCH MPAC 


2155 




L AS r 

118 / 

00,3536 

3 0154 

T“ 


“XA MPAC 

SEE lb ARGUMENI GKEAIEK 1 MAP^ *5 IN 

2156 





OD,3537~ 

6 0000 

1 


DOUBLE" 

MAGNITUDE* lb SO, REOUCF IT TO LESS THAN 

2T5-r 

■ TTEF” 

r5T 

LAST 

nFr5“ 

0 0 , 3 5 4 r)“ ‘ 

“54 aOT 

T 


TS C 

*5 (+“PI/2 SCALED) AS FOLLOWS: 

2158 

RTF” 

— r 



— 00, 3541“ 

1 355T 

T” 


"HTF SNI 



REF 311 LAST 118A C 0 , 3 5 4‘2 t>U UOO 1 TMTTFX 5“ 

TTFd RTF ? — LAS T 1082 PD . 36'^ 3 SOOl 0 COT MFGl/i! +1 

2161 CTO , — FT-anop n: xcouHrE' ^ 

2 1 62 00.35A5 n 0005 T bX I tMTT 

Tnrj RFF 6U6 — LAST 1187 00.3'S'^ STrT5Tn ST] '^TTfU 

TTTTZf RhF 6Q 7 ~ LAST 1187 00,3547 54 154"0 TS RTPAC 

2X55 iTEF- ^3 — LAST 1187 00,3550 zr"0155 T CS flRAC +1 

ZTFS IIEF 600 LASl 11E7 00. 35 51 54 155 1 TS ITFTtTm 


IF POSITIVE, FOITW “FT - or. I F NbGATlVF 


USE -R1 - X. 
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L 

1 NTE^lPRETER 







USER'S PAGE NO. ET~ 

E3 S3 




2167 





00*3652 

0 0006 

X SNl 

EXTEND 


SET UP TO EVALUATE HASTINGS 

POLYNOMIAL 



216:^ 

REF 

610 

LAST 

1187 

00,3553 

3 0155 

0 

OCA 

MPAC 





2169 

REF 

17 

LAST 

1173 

00,3554 

52 134 

0 

OXCH 

BUF2 





2170 

RFF 

5 

LAST 

1183 

00.3555 

0 3300 

1 

TC 

DSOSU0 

SQUARE MPAC. 


















2171 

REF 

5 

LAST 

896 

00,3556 

0 7171 

1 

TC 

POLY 

EVALUATE FOURTH ORDER POLYNOMIAL. 



2172 





00.3557 

00003 

1 

DEC 

3 





2173 





00*3560 

14441 

0 

2DEC 

+.3926990796 





?173 





00,3561 

37325 

1 







2174 





00.3562 

53250 

0 

ZUEZ 

-.6459637111 





21^4 





00.3563 

607 64 

1 







217^ 





00,3 5 64 

121 46 

1 

2DEC 

+.318758717 





2i'^r> 





00,3665 

212 76 

1 







2176 





00,3566 

75466 

1 

2DEC 

-.074700249 





2176 





00 ,3567 

71471 

0 







2177 





00.3570 

00236 

0 

2DEC 

+.009694988 





2177 





00,3571 

32757 

0 





















2178 

REF 

1 



00,3572 

3 2 4 70 

0 

TTSF 

LBIJF2 

MULTIPLY BT AP'GUMENT ANIT SHI 

1+1 L L F I 2 • 



2\7-^ 

REF 

19 

LAST 

1149 

0 0,3 573 

0 70 55 

0 

TC 

dmpsub -1 






2160 





00,3574 

o 

o 

o 

1 

w*. % m Ik ^ * 




2181 

REF 

611 

LAST 

118P. 

00.35 75 

3 0156 

IT ^ 

DCA 

MPAC 

+ 1 


2132 

REF 

612 

LAST 

1188 

no.357'5 

20 156 

1 

DAS 

MpAC 

+ 1 


2183 

REF 

613 

last 

1188 

00,3577 

6 0154 

1 

AO 

MPAC 



2184 

REF 

614 

LASl^ 

1188 

00.3600 

26 154 

0 

AITS' 

“MI5A(C 


NEITHER SHIFT UVtR+LHWb. 

LT 

CO 





00.3601 

0 0006 

1 

EXTE^ 




2136 

REF 

615 

LAS! 

1188 

00,3602 

3 0156 

75 ‘ 

TICA“ 

MPAC 

+ 1 


2187 


616 ■ 

LAST 

1 138 

“TRTTTSTyT' 

■20 156 

"I ■ 

UST 

MPAC 

+ 1 


2138 

REF 

617 

LAST 

11 se 

00,3604 

6 01 54^ 

“T 

AD 

MPAC 



21B9 

RE'F 

618 

TTCST" 

TTW 

00 ,3605 

26 154“ 

0 

■ ^ “A OS 

MPA ( 



2 r'> 0 

REE 

~^7 

XAST“ 

j 1 ^ 

00.3606 

1 


TCP 

oawttt; 

— 
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L 

T NT ER PR FT EP 




USER'S PAGE 

NO. 83 E3 S3 



P2191 

ARCS IN/ARCCOS 

ROUT I NE. 







2 1 9 ? 

REF 1 00 

,3607 3 

3630 1 ARC SIN 

CAF LASINFX 

COMPUTE APCSIN BY 

USING THE IDENTITY 


?1Q3 

00 

,3610 1 

3612 0 

TCP +2 

ARCSTN(X) = PI/2 

- ARCCOSIXl. 



21^4 

RtfF 1 



00*3611 

3 3712 

0 

ARCCnS CAF 

LDANZ IG 

(EXITS IMMEDIATELY). 

2199 

REF 1 



00,3612 

54 136 

1 

TS 

ESCAPE 


2196 

REF 5 

1. ^ST 

1187 

00, 3613 

0 6672 

1 

TC 

BRANCH 

TEST SIGN OF INPUT. 

2197 

REF 1 



00,361^ 

1 3 624 

0 

TCF 

ACnSST 

START immediately IF POSITIVE. 

21^3 

REF 1 



00,3615 

1 3726 

0 

TCF 

ACdSZERO 

ARCCnS(O) = PI/2 = .25. 

21^9 




00*3616 

0 0006 

1 

E X T"E D 


IF NEGATIVE. USE THE IDENTITY 

2200 

REF 619 

LAST 

1188 

00.3617 

4 0155 

1 

DCS 

MPAC 

ARCCOS(X) = pi - ARCCOS(-X), FORCING 

2201 

REF 620 

L A ST 

1189 

00,3620 

52 155 

1 

DXCH 

M P 

argument POSITIVE. 

2202 

RFE 1 



00.362 1 

3 3731 

1 

CAE 

tcsubtr 

SET EX^TT TO DO ABOVE BEFORE 

22 03 

REF 2 

LAST 

1139 

00, 3622 

56 136 

0 

XCH 

ESCAPE 

ARCSIN/ARCCOS CONS t OERATI ONS . 

77 ^ 

“R^F ir 




54 137 

0 

TS 

ESCAPE2 



2205 

R cF 

20 

L AS T 

1136 

00*3624 

4 5002 

1 

ACOSST 

C5 

HALF 

TEST magnitude OF INPUT. 

2 2 06 

RFF 

621 

LAST 

1169 

00,3625 

6 0154 

1 


AD 

NIPAC 


220'' 

REF 

312 

L AST 

1137 

00.3626 

10 ooc 

0 


CCS 

A 


2208 

REF 

1 



on. 3627 

1 '<729 

0 


TCF 

ACOSOVF 

THIS IS PROBABLY AN OVERFLOW CASE. 













2209 

rrr 

1 



00,3630 

1 37 06 

TT 

LASINFX TCP 

ASINEX 



2 2 10 

R (- F 

T~ 



■ o'o . 3 sn 

1 3641 

0 


TCF 

A CDS ST 2 

NO OVERFLOW - PROCEED. 













2 2 11“ 

REF" 

622 

LAST 

TTW 

00,3632 

10 15 5 

1 


CCS 

MPAC +l 

IF MAJOR Tart is .5, call answer d 

2212 

RtF" 

"247~ 


00*3633 

^“51171" 

T. ■ 


TTAF 

ZEPn 

UNLESS Minor part nEGAIIVe. 

2'2T 3 

REF 

T 



00.3634 

1 363 6 

0 


TCF 

ALUS=0 



ZZTzr 

RTF' 

T' 

L AFT" 

■TTS9 

0TJ,T1S35 

1 3641 

0 


TCF 

ACU5S J 2 














22 15" 

RFF“ 

623 ■ 

LAST" 

TTW 

00, 363o 

54 155 

T" 

ACOT^O” 

1 

M P AC + 1 


22T6~ 

RFF 

■624' 

LAST” 

1 1 B ■9' ■ 

00, 363T"' 

54 154 

TT" 


TS 

MPAC 


2217 


3 

L7LST“ 

1189 

00,3640 

TTUTTe 

T” 


TC 

ESCAPE 



72T8“ 





00,3641 

"T“0006 

1 

ACOSSTZ 

FXTFND 


NOW 1 HA I AKbUntNi IN rKUrrK KAiMviC:# 

zrrr- 

1 . _j 

^ u 1 

“625 

T AFT^ 

TT 3 

■ "00*3642 

4 0155 

T* 


DCS 


BEGIN CGTTPU 1 AT 1 On . USE HASTINGS 

2220 

R FF 

21 

L A5rr 

nw 

— 00,3643 

6 5002 

0 


AD 

HALF 

APPRUXIMAI lUN AKLCUbIXJ = SUR I ( 1-X ) P 1 X ) 

2221 

RTF" 


LAST” 

1189 

“""TT0,i644 

52 "1 5T 



— imni 

M P AX 

In a SCALED version WHERE PiXT TS 4 

2722“ 

FFT^ 

^ 18 

“TTAVr 

1183 ■ 

00 , 3F45 

52~r3“4 

~Tr 


■■“DXCH' 

BUF2 

SEVENTH uRuER POLYNOMIAL. 


2223 

REF 

3~ 

L A ST ■ 

IT S ir 

00. ^646" 

0 3T43 

T) 


~TT 

SUKISUB 

REIUKNb Wlln NIJRMALIZ-CU bWUAKt KU'J 1 . 













2274“ 

RTF" 


LAST 

1186 

on *3 647“ 

1 0 13 5 

1 


CCS 

MP I EKP 

SEE IF UN—NUKM AL I 6 A f 1 UN KEUUIHEU* 

2225 

R VT 




00,3650 

1 3713 

“0“ 


'TCT 

ACuSS HR 

I F SO. 
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INTERPRETER 


USER’S PAGE NO. 


E3 S3 



222b 


REF 627 LAST 1189 


00.3651 52 155 1 AC0S3 


DXCH 


MPAC 


SET UP FOP POLYNOMIAL EVALUATION. 


2227 

2228 


REF 19 LAST 1189 
KEF 628 LAST 1190 


00,3652 
00 .3653 


52 134 0 
52 155 1 


DXCH 

OXCH 


BUF2 

MPAC 


2229 

2230 


REF 


LAST 1138 


00,3654 0 7171 1 


TC 


POLY 


00,3655 


00006 1 


2231 


2231 


2232 


2232 


2233 

2233 


2234 


9 7^^*. 

2235 


2235 


2236 
22 36 


2237 


2237 

2238 


2239 


2 2 40 


^42 


2244 


2245 




00.3656 


13240 0 


2DEC 


+.353553385 


COEFFICIENTS ARE C 2 ( + U / P I SQRT ( 2 ) WHERE 


00,3657 


00.3660 


23630 0 
74721 0 


20EC* 


.0483017006 3+1^ 


I 


00. 366 1 


47775 1 


00.3662 

00.3663 


02440 0 
20237 0 


2T)Fcr^^ ^3 200 273 035 3+2* 


OTERE C SrANlTS 



GINAL 



00 , 3664 


75067 1 


20EC>^ -.0112931863 B+3* 


00.3655 

00, =^666 


70742 1 
03436 0 



20EC* 


00,3667 


26756 1 


00,3670 

00.3671 


7 4037 0 
7540 1 


2oec* 


.0038461 /'957 B+5* 


00,3672 

00,3673 

00.3674 

00, 3 675 


03046 0 

0 7l 43 ^ 
766 54 
42254 ^ 


20EC^ +4W1301297736 B+6=«‘ 




•000284160 


6+ 




REF 

REF 


20 


LAST 1138 

LAST 1188 


00.3676 

00.367/ 


3 24 70 0 


c af 


4 LAST^ 1189 00,3700 


0 705T 0 
D ■D l3 6“ 75 


TO 

TU 


OTJFI“ 

0 M P Sim 


00 FINAL MULTIPLY AND GO TO ANY 


T 




2243 kef 629 LAST 1190 


110737711' 
00, 37 0"2 



T 




Tmrrs 


/ 


REF 

RFF 

PEF 


22 

~EJO 



LAST 1189 

LAST 1197 

L 



00,3 / 0 3 

77TTT74 

w; 377-5 


7175"T 
6 5002 0 
7'2’ T5T1 

7 or 


T5U7 


wpm 



705 — 

7XCTI 


HALT" 


APm 



ITCniT 


BL7 ARCS IN 


7773777 


770?n A'STi'iJFX 


RPF 631 OrST 



2 249 

2257 
2 251 


REF 8 

REF 632 
REF 48 


last 1167 


t 

00,3710 


4 0173 “I 


LAST rr97 

LAST ITB7 



73711 

73TTZ 


6 5003 T 

77 ITT"! 


7ir 


EXTEND 

DCS ■ 

705 

DXCH 


HTTAC 



QUARTER 


PT7T 


JGUF“- GET AO^TTS 

ARccnsixr . 



DANZIG 
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2252 

REF 

313 

L A S T 

1199 

00.3715 

50 000 

1 

ACOSSHR 

I NO EX 

A 

THE SHIFT RIGHT IS LESS THAN 14 SINCE 


2255 

REF 

66 

LAST 

1173 

00,5714 

3 5002 

0 


CAE 

RIT14 

THE INPUT WAS NON-ZERO DP, 


2 2 5 

REF 

6T" 

LAST 

1139 

00,5715 

54 155 

1 


TS 

MPTEMP 



2255 

REF 

4 

LAST 

1155 

00,3716 

0 2073 

1 


TC 

VSHRRND 

DP SHIFT RIGHT AND ROUND. 


2256 

REF 

1 



00,5717 

] 3651 

1 


TCF 

AC0S5 

P R OCEED. 















2257 





00,5720 

0 0006 

1 

ACOSOVF 

EXTEND 


IF MAJOR PART WAS ONLY 1 MORE THAN ,5* 


2259 

REF 

2 

LAST 

1189 

00,3721 

1 3656 

0 


BZF 

ACr)S=0 

CALL ANSWER ZERO. 



2259 

REF 

34 

LAST 

328 

00,3722 

0 5650 

1 

AC0SA3RT 

TC 

ALARM 

IF OVERFLOW, CALL ANSWER ZERO BUT 


22591 





00.5723 

01 301 

1 


OCT 

1301 

SOUND AN ALARM. 



2260 

REF 

248 

LAST 

1189 

00,^724 

3 50 21 

1 


CAF 

ZERO 



2 2601 

RFF 

3 

LAST 

1191 

00,5725 

1 3636 

0 


TCF 

AC0S=0 




2261 

PEE 

9 

LAST 

1190 

00,97R6 

3 5003 

1 

ACOSZERO 

CAF 

QUARTER 

ACaS(O) = PI/2. 


2262 

REF 

4 

LAST 

1191 

00,5727 

1 36 37 

1 


TCF 

ACOS=0 +1 

: SET MPAC and EXIT VIA ESCAPE. 



2263 





00,37 iO 

77763 

0 

NFG12 

DEC 

-12 



2 266 

REF 

1 



00,3791 

1 3701 

0 

TCSUBTR 

TCF 

SUBTR 














I 
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AGC PROGRAM C IMAMCHE BY NASA 2021113-051 10:28 APR. 1,1969 CHIEFTAN 

.028 PAGE 1192 




L 

TNTIERPRETER 


USER'S PAGE NO. 86 

E3 S3 




P226S 

THE 

FOLLOW! NG 

INSTRUCTIONS ARE AVAILABLE FOR SETTING, MODIFYING, AND BRANCHING ON INDEX 

REGISTERS: 




R22e7 

1. 

AXT 

ADDRESS TO INDEX TRUE. 




R2263 

1. 

AXC 

ADORESS TO INDEX COMPLEMENTED. 




R2269 

3. 

LXA 

LOAD INDEX FROM ERASABLE. 




P2270 

4. 

LXC 

LOAi> [NDEX CGN*PL£MENTED FROM ERASABLE. 




R2271 

S. 

SXA 

STORE INDEX IN ERASABLE. 




R22 72 

6. 

XCHX 

EXCHANGE INDEX REIGSTER WlTH ERASABLE. 





R22T3 

T7~ 

INCR 

IMCITEMFNT INOFXT^EGISTTR. 




R2274 

8. 

XAD 

ERASABLE ADD TO INOEX REGISTER. 




R2275 

9 • 

XSU 

ERASABLE SUBTRACT FROM INDEX REGISTER. 











P22 76 

10* 

TlX 

BRANCH ON INDEX REGISTER AND DECREMENT. 





2 277 




01,2371 



BANK 

01 




2273 

R hr 

1 





COUNT 

0 1 /INTF R 




2279 

RHF 

i 


01.2371 

0 2466 1 

AXT 

IX 


SELECT APPRUPKIATh INDtX KtGlSItK. 

2280 

REF 

~J2^ 

LAST 1182 

01,2372 

3 01 17 0 


XA” 

f * w 1 



2231 



LAST nrr 

nr . 2 3 7 3 

“3IT‘TT0 

XSTORE" 

TNTOtX' 

INDEXLOC 


kINS C(EIXLnc) OK C ( F 1 XL Lil ) + 1 . 

2282 

R EF 

58 

LAST 1121 

01.2374 

S4 046 1 


T S 

“"XT 



2283 

REF 

49 

LAST 1190 

or;? 37 5 

I ”6030 0 


TTJ 

OANZ I G 














2284 

REF 

2 

LAST 1192 

01.2376 

0 2466 1 

TYC 

TO 

TAGSUB 



22 3^ 

REF 

23 


ITlt 2 3 / '' 

4 0117 T~ 


C5 

POLISH 



77^ 

“TrEF“ 



o 

1 

o 

t 

Q 


TT 

XSTORE 




2287 

REF 



■ 01.2401“ 


“LXir 

IX 

1 5AD!<tRS 

LOAD 

INDtX KtGISItK tKU»^ tKA^AbLt. 

2zm 

"RF'F“ 

2 4 

LAST 1192 

— 01 r2ATZ 

~5Tni7 0 ■ 


TNUEX“ 

TGLI $H 



2239 




01.2403 

3 0000 1 


— CA 

0 



?29Tf 


s ^ 

LAST 1197 

01.2404 

~T 73r73~cr“ 


TUF 

XS I OKt 




2291 

— rrFF~ 

y 

LAST 1192 

01 .2405 

0 2454 0 

TXC 

TC 

15ADRER5 

LIJAD 

NUX KtG FKUN tKA8AtJLt UUnKL N 1 tU. 

2292 

KEF 


LAST 1192 

01 .2406 

50 117 0 


jmET 

POLISH 



2293 




5T7 247T7 4 Taao Tr“ 


CS 

0 



2294 

REF 

3 

LAST 1192 

01,2^10 

1 2373 0 


TTTF 

XSTORE 




- 22^55 

1 X CT » 


LA"ST“11^ 

■ T)T774nr 

0 2454 0 ■ 

“SXA 

TC 


0 f LJ C 

: INOtX KhblSItK IN tKA^AbLt. 

2296 

REF 

— S“ 

LAST 

— 01,2412 

50 


INDEX 

INOFXLOC 



2297“ 

REF 


"TXS T ri57~ 

aTT24T3“ 

■3 0046 ') 


““CA 

XT 



2293 

7FF~ 

'2S 

■ L A3T 1 rrz 

oir.T5n;4 

“ 50 TmT“ 

■^STUREI 

AWtJEX 

POL I SH “ 



2299 




— 01, ’TT?" 

54 000 0 


IS 

0 



2300' 

— 7rr~ 

50 

T'ASTTT^Z' 

?TT.24T^ 

■ 1 6030 “0~ 


TTF 

■ DANZIG 


_ ... — 


GAP: ASSEtMPLE REVISION 055 OF fiGC PROGRAM COMANCHE BY NASA 20211 13-051 


10:28 APR 


I.IPB'P CHIPFTAN.02a PAGE 1193 


L 

INTFR 

PKFTER 








USER»S PAGE NO, 87 

E3 S3 



2301 

REF 

4 

LAST 

1192 

01,2417 

0 2454 

0 

XCHX 

TC 

ISAORERS 

EXCHANGE INDEX REGISTER WITH 

erasable. 


2 30 2 


27 

LAST 

1192 

01,2420 

50 117 

0 


INDEX 

POLISH 




2303 





01,?421 

3 0000 

1 


CA 

0 




2 304 

REF 

6 

LAST 

1192 

01,2422 

50 130 

0 


INDEX 

I NDFXLOC 




2305 

RcF 

60 

LAST 

1192 

01,2423 

56 046 

0 


XCH 

XI 




2306 

REF 

1 



01,2424 

1 2414 

0 


TCP 

MSTOPEl 





2307 

REF 

5 

LAST 

1193 

01,2^25 

0 2454 

0 

XAO 

TC 

1 5ADRERS 

ADD ERASABLE TD INUtX RbGlbl! 

Um 4 


2308 

REF 

28 

LASt 

1193 

01 , 2426 

50 117 

0 


INDEX 

POLISH 




2309 





01,2427 

3 0000 

1 


CA 

0 




2310 

R.FE 

7 

LAST 

1193 

01 , 2430 

50 130 

0 

XA02 

INDEX 

INDEXLOC 




2311 

REF 

61 

LAST 

1193 

01,2431 

26 046 

1 


ADS 

XI 

IGNORING OVERFLOWS. 



2312 

REF 

51 

LAST 

1192 

01 ,2432 

1 6030 

0 


TCF 

DANZIG 





2 313 

REF 

3 

LAST 

1192 

01,2433 

0 24 66 

1 

I NCR 

TC 

TAGSUB 

INCREMENT INDEX REGISTER. 



2JT^ 

REF 

29 

LAST 

1193 

01.2434 

3 0117 

15“ 


HA 

P 0 L 1 5 H 





rEf 

~ir~ 



01 , 2435 

1 2430 

11“ 


HCT 

XAD2 




_ _ _ — — Ml — ■ M m — ^ — ■■ '■ ■ • 

2316 

RFF“” 

6 

LAST 1193 

01,2436 

0 2454 

IT" 

xsu 

^TC 

ISADPl-RS 

SUBTRACT ERASABLE EKUM INDEX 

K t U 1 5 1 tK m 


231*^ ' 

R Ef ' " 

30 

TXST- 

1193 ■ 

~Qi\'7;Tr7 

soil 7 ■ 

0 


INDEX 

POLISH 




2318 





01,2440 

4 0000 

0 


CS 

0 




2319 “ 

R EF 


LJZr 

1193" 

01,2441 

1 2^30" 

0 


TCF 

XAD2 



















737U 

REF 

"4 

n_AST“ 

1193" 

01,2442 ‘ 


1 

TTY 

TC 

T AG SU B 

tJKAiNLM AN!) UtC^tribfVI UN INUl'A^ 


2321 

R E F 

ir“ 

“LAirr 

119 3 

01,2443 

50 130 

0 


INOIX 

TRnrxrnc 




2322 

REF 

^•6 

LAST 

919 

01, 2444 

4 oo6o 

0 


CS 

SI 




Z3T^ 

RFF 



i i 4.^ - ^ 

01", 2445 ■ 

“TTO IJD 

0 


TNDEX 

INUcXLUC 




2324 

REF ■■ 

~7>7 " 

LAST^ 

1193“ 

01.2446'“ 

6 004"6 

0 


TAD "■ 

XI 




2325 





01,2447 

0 0006 

1“ 


1 L_ ' » J 


Nd OPERATION IF UELRE (^EN 1 EU 

I NDE X 1 S 


2326 ■ 

— itte 

32 

last 

119 3 

01 ,T450 

“6" 6TJ 30- 

~r~ 


R 

TTaNITIT 

Negative ok ^eku. 

















232T— 

REF 

TIT" 

LAST 

11 93“ 

01,2451 

50 r3Tr 

0 

O'mXSft 

I M DF X" 

T NDFXL OC 




2328” 

R E F 

o3 

LAST 

TT93“ 

01,245 2”' 

56 046“ 

0 


“XTTH 

XI 

rGNUKlNCi UVtRHL UW S m 




232 > ’■ 

PEr 

6 

LAST" 

1182 

— 01,246 3 

1 6616 

T“ 


rcF 

GUin 

□ LI IHb bKANLM USlNb 1 Mtr mUK 

I'M T U L 1 ^ ^ • 





GAP: ASSCHRLE REVISTON 055 OF AGO PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR 


1.1969 CHIEFTAN,02B 


L 


INTERPRETER 


USER'S PAGE NO. 88 


E3 S3 


P2330 


SUBROUTINE TO CONVERT AN ERASABLE ADDRESS (11 BITSl TO AN EBANK SETTING AND SUBADORESS. 


2332 


REF 31 LAST 1193 01.2A5A 4 0117 1 15A0RERS C5 


POLISH 


LAST 1121 


01,2455 6 5034 0 






LAST 1191 
LAST 1132 


01.2457 


10 OOP 0 
3 0120 1 



FI XLOC 


YES 


ADD 


NT TO' THE 

FIXLOC. EBANK OK AS I 


2336 


01,2460 1 2465 0 


TCP 


+ 5 



2337 


LAST 1121 


01.2461 3 5051 



nCT1400 


ADDRESS 


2333 


REF 


32 


LAST 1194 


01,2462 56 117 0 


2339 

23^0 


REF 

REF 


12 


LAST 1129 
LAST 1129 


01.2463 

01.2464 


54 003 
7 43 73 


XCH 

TS~ 

MASK 


POLISH 


EBAN K 
LOWS 


2341 


REF 33 LAST 1194 01,2465 26 117 I 


+ 5 


ADS 


POLISH 


FALL INTO TAGSUB, AND RETURN VIA Q. 


R2342 


SUBROUTINE WHICH SETS THE ADDRESS OF THE SPECIFIED INDEX IN INDEXLOC. (ACTUALLY* THE AQDRE SS" -3 SPrT 


2344 


RTF 32~LAST 1194 01.2466 3 0120 1 TAGSUB TA 


FIXLOC 


2345 


REF 11 LAST 1193 


01,2467 54 130 1 


TS 


INDEXLOC 










j — 

















gap: 

A c Q f- r < 1 

3LE P 

EVISION 055 

OF AGC PRfXPRAR CO?^.ANCHE BY NASA 2021113-051 10:28 APR. 1^1969 

CH1EFTAN.028 

PAGE 1195 




L 

INTERPRF 

TER 





USER' S PAGE 

NO. 89 

E3 S3 




P2350 



MISCeLLANEOUS OPERATION CnOES 

WITH DIRECT AO 

DRESSES. INCLUDED HERE ARE: 






R2352 



1. ITA 


STHKE ( 

3PRET (RETURN AODRESSJ IN ERASABLE. 





22354 



2. CALL 


CALL A 

SUBROUTINE, LEAVING RETURN IN OPRET. 





R2356 



3. F.TB 


PETURN 

TO BASIC 

LANGUAGE AT THE GIVEN ADDRESS. 





22358 



A. 3H12 


BRANCH 

IF THE HIGH ORDER OF MPAC IS ZERO (SINGLE PRECISION). 




R23 66 



5, BOV 


BRANCH 

OM OVERFLOW. 






R2361 



6. GOTO 


SIMPLE 

SEQUENCE 

CHANGE, 


















2362 

2 E F 

37 

LAST 1194 

01 ,247A- 

10 020 1 

RTB/BHIZ 

CCS 

CYR 





2353 

REF 

34 

LAST 1194 

01,2475 

3 0117 0 

RTB 

CA 

POLISH 





2364 

REF 

5 

LAST 777 

01 ,2476 

0 47,65 0 


TC 

SWCALL -1 SO A "TC 0" FROM 

ROUTINE LEADS 

TO DANZIG 




2365 

REF 

633 

LAST 1160 

01,2477 

10 154 0 

BHIZ 

CCS 

MP AC 





2366 

REF 

53 

LAST 1193 

Ol . 2‘500" 

1 6030 0 


TCF 

DANZIG 





2167" 

REF 

7 

LAST 1193 

01,2501 

1 6615 1 


TCP 

GOTO 





2363 

REF 

54~ 

LAST 1193 

01 .2 502 

1 6030 0 


TCF 

DANZIG 





2369 

REF 

3 

LAST 1195 

01,2503 

1 6615 1 


TCF 

GOTO 


















TTTO" 

REF 

9 

LAST 1183 

01,2504 

lO 121 1 

Bnv( B) 

CCS 

OVFlNnr BRANCH ON UVERPLOW TO BASIC UK 

I NTERP . 



2371 




0r.2505 

1 250/ 0 


TCF 

+ 2 





2372 

REF 

T5“ 

LAST 1195 

01,2506 

1 6030 0 


TCF 

DANZIT5 





ZT7T 

' 7EF 

ITT 

L ATT'TIW 

01,2507 

5'4 m T 


TS 

nvF [No 





TSVT 

REF 

38 

LAST 1195 

01.2510 

10 020 1 


CCS 

CYR 






7EF 



01,25'IT^ 

1 2475 1 


n'CT 

TTTB IF SASIC. 





2 3 T S 




0 1 ,'2 5T2~ 

TIU3 60 1 

B5TGR 3 

'DC T 

360 






GAP: assemble REVISION 05S Oh AGC f^POGRAM COMA'jCHE BY NASA 2021113-031 


10:28 APR. 1,1969 CHIEFTAN.028 PAGE 1196 



L 

INTERPRETER 









USER'S PAGE NO. 90 E3 S3 
















- - - - 1, ■■■ ^ r 1^ ^ 11 ■ , — — M — m j. ■ l. j 




2378 

RcF 

3 9 

LAST 

1195 

01.251'+ 

10 

020 

1 

8ZE/GdT0 

CCS 

CYR 

SEE WHICH nP-CUDE T^ DESIRED. 




23 79 

REF 

6 

LAST 

1 189 

01,2515 

0 

6672 

1 


TC 

branch 

DO BZE • 




2330 

REF 

56 

LAST 

1195 

0 1 » ? 5 1 6 

1 

6030 

0 


TCF 

DAN7 IG 





2381 

REF 

10 

LAST 

1195 

01.2517 

1 

6615 

1 


TCF 

GOTO 

DO GOTO. 




2382 

REF 

57 

LAST 

1196 

01,2520 

1 

6030 

0 


TCF 

DANZIG 






2363 

REF 

40 

LAST 

1196 

01.2521 

10 

020 

1 

8PL /BMN 

CCS 

CYR 





23S4 

REF 

1 



01,2522 

1 

2530 

1 


TCF 

3PL 





2385 





01,2523 

12000 

1 

5B10 

DEC 

5 8+10 

SHIFTS OP code In switch instruction ADR 




















?38r> 

REF 

7 

LAST 

1196 

01,2524 

0 

6672 

1 


TC 

BRANCH 

DO BMN. 




2387 

PFF 

58 

LAST 

1 196 

01,2525 

1 

^30 

0 


TCF 

DANZIG 





2388 

REF 

59 

LAST 

1196 

01,2526 

1 

6030 

0 


TCF 

DANZ IG 





2389 

REF 

11 

LAST 

1196 

01.2527 

1 

6615 

1 


TCF 

GOTO 

ONLY IFTINZ. 





2390 

REF 

8 

LAST 

1196 

01,2530 

0 

667? 

1 

8PL 

TC 

BRANCH 





2391 

R E F' 

12 

LAST 

1196 

01,2531 

1 

6615 

1 


TCT 

GOTO 

■ IF POSITIVE OR ^RO. 




2392 

REF 

13 

LAST 

1196 

01,2532 

1 

6615 ■ 

1 


TCF 

GOTO 





2393 

REF 

60 

LAST 

1 1 96 

01,2533 

1 

6030 

0 


TCF 

DANZIG 






2i9it 

REF 

41 

LAST 

1196 

01.2534 

10 

I 020 

1 

CALL/ITA 

CCS 

CYR 





23 95 

REF 

1 



01,2535 

1 

6607 

1 


TCT 

CALL 






2396 

REF 

7 

LAST 

363 

01.2536 

0 

5747 

0 


TC 

CCSHOLE 





2397 

RFF 

7 

LAST 

1193 

01,2537 

0 

2^54 

0“ 


TC 

'T5TOPTR'5' 

*>TOPnE QPFTt 1 m (TAGStJff ^ER 15ADRERS IS 




2 308 

REF 

33 

LAST 

1 194 

01,2540 

50 

r i ? cr 

1 


IfTOTX 

FTXIOC 

SLOW IN THIS CASE, BUT SAVES SfUKAGE.I 




2399 

RFF 

18 

LAST 

118 2 

01.2541 

3 

0052 

"o' 



TV f * \ 1 





2400 

REF 


last 119T' 

Ol.254'2~ 

“T' 

24 14 

{) 


TCF 

M STOP, El 







% 





GAP: 

ASS £ M B L E 

REVISION 

055 OF 

AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969 CHIEFTAN.023 

PAGE 1197 



L 

INTERPRETER 


USER'S PAGE NO. 91 

E3 S3 



P2401 


THE FPL 

LOWI NG 

OPERATIONS ARE AVAILABLE FOR ALTERING AND TESTING INTERPRETIVE SWITCHES: 




R2403 

00 

BONSEt 


SET A SWITCH AND DO A GOTO IF IT WAS ON. 



R2404 

01 

SFTGG 


SET A SWITCH AND DO A GOTO. 



R2405 

02 

BOFSET 


SET A SWITCH AND DO A GOTO IF IT WAS OFF 



R2406 

03 

SET 


SET A SWITCH. 










R2407 

04 

B ON 1 NV 


INVERT A SWITCH AND BRANCH IF IT WAS ON. 



R2408 

05 

INVGO 


INVERT A SWITCH AND DO A GOTO. 



R2409 

06 

BOFINV 


INVERT A SWITCH AND BRANCH IF IT WAS OFF 



R2410 

07 

INVERT 


INVERT A SWITCH. 




R24i 1 

10 

B ONC L R 


CLEAR A SWITCH AND BRANCH IP IT WAS ON. 



R2412 

11 

CLRGO 


CLEAR A SWITCH AND DO A G!-TO. 



R2413 

12 

aOFCLR 


CLEAR A SWITCH AND BRANCH IF IT WAS OFF. 



R2414 

13 

clear 


CLEAR A SWITCH. 




R 2415 

14 

BON 


BRANCH IF A SWITCH WAS ON. 



R2416 

1 6 

BUFF 


BRANCH IF A SWITCH WAS OFF. 






ft2417 



<;UPPLIPD WITH 



ft 241-5 
ft24?u 



BIT<; 1-4 SWITCH 61T (1-15). 

HITS B-'g SUIT cflTOPFBTnnroN totfeit; 

Bl'^rs F- SWITCH W5RTriTOWrR~ r up to 64 SWITCH 'WDKUSl 


RPA2Z 

R74V4 


IHE ADDRESS HSbL!- IS MADH WBY 

AUUfthSSESt THE SHCUND l AKf-N AS THI- I- 1 ftt C T TUR' 1 NO 1 KH( 


IHb VUL SYSrtH ASSEMBLER. 

m 


IHt BRANCH INS7 



rwtj 


UL IHF BRANCH^ 


Z4ZF TTFT 3 LAS I IFTTE 01. 25'4T' 

?477 CFF T5 LAST 119;> 01,2544 

TWZB ftFF 315““TAST 1194 01,2545' 

747F F1FT= 4C nL5T~TT31 01.2544 

74T0 TFF T 01,2547 


3"5D7T'Tr SWITCHES CTST CnW4 LEAVE THE S vnTCH bIT IN SWbl T ; 

7 0117 "i MS3K POLISH " 

50 DOO I ” "TTTITEX S ~ ~ ^ 

3~~5 D01 0 CTSiF B I Tr5 {NUMBER"TWUM LEFi 10 RIGHT,) 

b4 131 0 n swn 


? 43X 43 XiTST^ TTr9T 01*2550 3 5011 “I 15TT7 LEAVE THE SWITCH NUMBER IN SWWORD; 

77;:JZ rTTTTSXI 0 0006 1 EXTEND 

24 3 3 RHF — 3B CAST 1197 01,2557 7 01 17 1" MP HtJLiSH 

2 4 34 3FF I Uli2t>5:5 54 130 1 T5 SWnTTD 



7435“ 




Z4To” 

REF 

336 


2 4 j f 

R •“ E 

51 

L A 5 f 

— 243R 

E F 

~2TT^ 

L ASX 


0X77554 0 " OD04 X) TNHT NT DURING SWITCH CHANGE SO ROPl CAN USE TOO 

rrOT^ 01,2555 50" "0 00 r FNCTEX^ A LEAVE THF~SW1TCH MOkU ITSELF INTlX 

“744 Oi*2b5h 3 00/4 i TA SI At t 

11 9 4 — 01 j2 5 Fl 54 002 — I T5 Q 0 WILL BE USED AS A CHANNEL. 









gap: ASSE'^BLE BE 

VISION 055 

riF A9C PR 

□GRAM COMANCHE 

BY NASA 2021113-051 
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PAGE 1 198 












L TNTERPRETEP 






USER'S PAGE NO. 92 

E3 S3 












2/^39 PFF 30 

LAST 

1066 

01»2560 

3 5005 

1 

CAF BITll 




2440 



01,2561 

0 0006 

1 

EXTEND 

DISPATCH SWITCH BIT OPERATION 

AS IN BITS 


2441 RFF 37 

LAST 

1197 

01,2S62 

7 0117 

1 

MP P[)LISH 

7-8 OF POLISH. 



3EF 1 



01*2563 

7 2623 

0 

MASK 83T0B4 

GETS 4X2-BIT CODE. 



24't3 FFF 317 

LAST 

1197 

0 1 » 2 5 6 4 

50 000 

1 

INDEX A 




2444 



01 *2565 

1 2566 

1 

TCF +1 





2445 

REF 

2 

LAST 

1167 

01, 2^66 

“3 0131 

T 


CA 

SWBIT 

“UD - 

5Fr'3WTTCH T TT UUESTITW. 

2446 





01,2567 

0 0006 

1 


EXTEND 




2347 

RFF 

1 



01.25 TO 

04 002 



ROR 

OCHAN 



2448 

REF 

1 



01,2'57Tr 

1 2 6. ATT 




^ 1 4 I* 1 ^ I • 

o W o 1 lI K t 




2440 

REF 

3 

LAST 

1198 

01,2572 

3 0131 

1 

+ 5 

CA 

sweiT 

01 - 

INVEPT SWITCH. 

2450 





01,2573 

0 0006 

1 


“EXTEND 




2451 

R F F 

~ 

LAST 

ii'^e 

01,2574 

06 002 

0 


RXOR 

0 C H AN 



245? 

RFF 

2 

LAST 

1 19S 

01.2575 

1 2500 

1 



SW S T Or e 
















2453 

REF 

4 

L AST 

1198 

01,2576 

4 0131 

0 

+ 90 

cs 

SWBIT 

10 - 

CLEAR. 

2454 

REF 

2 78 

LAST 

1197 

01,2577 

7 0002 

1 


mask: 

Q 



2455 

REF 

2 

TXST 

1197 

01*2600 

50 130 

0 

SWSTORE" 

INDEX 

S WWORD 



2456 

REF 

52 

LAST 

1197 

01,260 1 

54 014 

0 


TS 

STATE 


SWITCH WORD. 





GAP: 
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IN 055 
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QGRAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. 1,1969 CHIEFTAN.028 PAGE 1199 


L 

INT[=RPRETFR 








USER'S PAGE NO. 93 E3 S3 


2457 




01 , 2602 

0 0003 

1 

+ 130 

RELINT 


11 - NOOP. 

2458 

REF 45 

LAST 

1033 

01 1 2603 

3 5003 

1 


CAF 

R I T 1 3 


2^59 




01 .2604 

0 0006 

1 


EXTEND 


DISPATCH SEQUCE CHANGING OR BRANCHING 

2460 

P^F 38 

LAST 

1198 

01,2605 

7 0117 

1 


MP 

POL I SH 

CODE. 

2461 

REF 2 

LAST 

1198 

01 ,2606 

7 2623 

0 


MASK 

B3T0B4 


2462 

REF 31 R 

LAST 

1198 

01.2607 

50 000 

1 


INDEX 

A 


246? 




01, 2610 

1 2611 

1 


TCF 

+ 1 

ORIGINALLY STORED IN BITS 5-6. 












2464 

REF 279 

[.AST 

1198 

01,2611 

4 0002 

1 

+ 1 

CS 

Q 

00 - BRANCH IF ON. 

2465 

REF 5 

LAST 

1198 

01.2612 

7 0131 

0 

TEST 

MASK 

SWBIT 


2466 

PEF 319 

LAST 

1199 

01,2613 

10 000 

0 


CCS 

A 


2467 

RFF 1 



Oi. 2614 

1 2624 

1 


TCF 

SWSKIP 



2468 

REF 1 



01,2615 

1 66 64 

1 

+ 5 

TCF 

SWBRANCH 

01 “ GO TO. 


2469 

^ 2 


1199 

01,2616 

1 2624 

1 


TCF 

SWSKIP 

HERE ONLY ON BIT 15. 


2470 

REF 8 

LAST 

1196 

01 .2617 

0 574 7 

0 


TC 

CCSHOLE 


24 71 

RFF 9 

LAST 

1199 

01,2620 

0 574? 

0 


TC 

CCSKULT 













24 72 

RFF 280 

LAST 

119 9 

Ol,2o21 

3 0002 

0 

+ 9 0 

CA 

Q 

10 - BRANCH IF OFF. 

■ 24T5" 

— PFF r 



01.2622 

1 2612 

“T” 


“TC F 

i ^ 1 



?474“ 




01,2623 

00014 


631084 

nUT 

0014 


?4T5“ 

■ RTF 2T 

r/rsT" 

1130 


?4“T64 

1 

^ WS K I P 

rwcF 

LOC ■ 













2477r 

R EF 1 



01,T5^ 



sw/ 

EQUAL S 

SWl ichES 













2477 

6T 

LAST" 

1196 

^T72T2'5‘ 

1 60^ ~Tjr 

+T3D 

TCF 

! J A N Z I G " 

11 - NUOP- 






GAP: 

ASSEMPie R^VISIOinJ 055 

OF AGC PROGRAM COMANCHE 3Y NASA 2021113-051 

10:28 APR* 1»1969 CHIEFTAN.023 PAGE 1200 












L 

FTXEO-FIXFD CONSTANT 

POOL 


USER'S PAGE NO. 1 EO S3 





0001 


4 776 

BLOCK 02 













0001 '5 

P FF 1 


COUNT 02/FCONS 













R00016 

The following table 

OF 18 VALUES IS INDEXED* DO NOT INSERT OR Rc 

MOVE ANY QUANTITIES, 












0002 


477 5 

37777 1 OPO'SMDf 'OCT 37777 

MUST PRECEDE PuSMAX 




0003 


4777 

-jTfm: rasffs'x oct 37777 













00 04 

REF 8 last 1137 


LITTITS = NFdl/J- 






0007 


5000 

57777 1 NEGl/a OCT -20000 

USED BY SIN ROUTINE (MUST BE TWO 




A0003 




LOCATIONS IN FRONT OF BIT14) 




R 0009 

BIT TABLE 








0010 0001 40000 0 BIT15 OCT 40000 

OOTl 000? 20000 0 B1T14 '~OCT 20000 

0012 0003 10000 0 BTT13 OCT 10000 

0013 0004 04000 0 BTT12 OCT '04000 

0014 • OoOS 0 2'0T)0"1?' BTni ilCT D2000 

(vns oMo 01000 0 bitio OTTT oiooo 

nO'l A 0007 00400 0 ITIT^ CTCT 00400 

0017 0610 00200 0 B1T8 OCT 00200 

MlB AOTl 00100 0 BTTT OTT 00100 

0019 ! 50T2 00040 0 B I TS OCT 00040 

F07 0 ~ ' 5013 DOOZmi BiTB OCT OOTTTg 

0021 3014 00010 0 B IT4 OCT 00010 

oo ?2 5 Tnr 5 ooooA 0 Erm ^rrcr 00004 

0023 00002 0 8 IT2 QCT 00002 

M24 5oT7 OOOOl 0 BTTT OCT 00001 


RO025 

DO NOT DESTROY 

THIS 

COMBI tATION, SINCE 

IT IS USED IN" 

lIUUBLb PBECmOTl” 

INSIRUCI JUMS. 

uurr “ 



“ 57T70 

— m~r7 -(7~ 

"TTFcmr 

OUT 

-0 

must PPECEDE ZEKU 

0023 ■ 



W2Tl 

— ooooH nt ■ 

'TTRTT ■ 

DCT” 

0 

MUST FUtXOW NEGO 

A0029 





“BTTI 


00001 

— ^ ^ — - — — — ■ — ‘ 






TIU7WDS 

mrr^ 

2 

INTERPRETER 

A0031 





OCTAL T 

Dirr 

3 


A003? 





RROl 

ncT 

4 

pinBAll 

nyoiT 



^ 0 z z 

00005 1 

“FIVE 

OCT 

5 

■» * — Mifc— *1* - . — — “* ■ ■■ 






TTEVTTTT^ 

OCT 

6 

INFEKPKET Ek 

01753 




0000 7 0 

SEVEN 

ncT 

7 


2r(TOT6 





“HTT4^ 

^ ncT 

OOUIO 


S0O3T ' 





Kzm 

TJCT 

IT 

P I NB ALL 

00375 

IT^T 6 — LAST 

375' ■ 

4334 


OC 1 1 1 


K2ni 

p20S 

A0033 





13 TN G OTT 

"DFC 

TO 

PINBALL (OCTAL 12 1 

0 0 3 9 




'OnoTT-TT- 

ELEVEN 

OFC 

1 1 


A 00417 





□CT 1 4 

OC T 

1 4 

ALAKM ANi) ABfJKI IrlLLbK) 

00 401 



5025 

00015 0 

T)CTTE 

OCT 

1 5 







RTUT 

OCT 

1 6 

P 1 NB ALL 





gap: assemble revision OSS OF AGC PKOGFAM COMANCHE BY NASA 2021113-OSl 10:23 APR. 1,1969 CHIEFTAN.028 PAGE 1201 


1. 

FIXEO-FIXEO CONSTANT 

POOL 






USER'S PAGE 1 

NO. 2 EO S3 











0043 


50 26 

00017 

1 

L0W4 

OCT 

17 



a6044 





BIT5 

OCT 

00020 



A0045 





NDl 

ncT 

21 

PINBALL 


A0046 





VDl 

OCT 

23 

PINBAI.L 


A0047 





nCT24 

OCT 

24 

SERVICE ROUTINES 


AOO+8 





MDl 

OCT 

25 

PINBALL 


004 S3 


5027 

00030 

1 

8lTS4fi5 

OCT 

30 



A 0049 





aCT3) 

OCT 

31 

SERVICE ROUTINES 


0030 


503 0 

00032 

0 

CALLCnOE 

OCT 

00032 



A0031 





L0W5 

OCT 

37 

PINBALL 


AOOS2 





33DEC 

DEC 

33 

PINBALL 

(OCTAL 41) 

A00S3 





34bEC 

DEC 

34 

PINBALL 

(OCTAL 42) 

0054 


5031 

00045 

0 

T8UIL0FX 

DEC 

37 

BUILDUP FOR CONVIENCE IN DAPTFSTING 

OOSS 


5032 

00046 

0 

TDECAYFX 

DEC 

38 

CONVENIENCE FOR DAPTESTING 

AO056 





BIT6 

oct 

00040 



0057 


5 033 

00050 

1 

ncTso 

TTCT 

50 



005B 


5034 

00055 

1 

DEC45 

DEC 

45 



0059 


5035 

00060 

1 

SUPhPOll 

OCT 

60 

BITS FOR SUPERBNK 

SETTIK|(5 Dll. 

0060 


3036 

00062 

0 

.5SEC 

DEC 

50 



A0061 





Brr7 

“OC^T 

WTOO 




UU^. 

REF LAST 1197 

5P11 



SUPERlOO 


^TTTT^ 

BITS FOR SUPERBNK 

SETTING 100 

A0063 










0064 


5037 

00120 

1 

SUPER 101 

ncT 

T70 

BITS FOR SUPFRBNK 

SETTING 101 

A0065 





ncri 2 i 

TTTT 

121 

SERVICE ROUTINES 


A0066 








(FIRST 8K OF ACM) 


uu^rr 


5040 

O0l40 

1 

SUPERllO 

TXT 

TTD 

BITS FOR SUPERBNK 

SETTING 110* 

A0063 








(Last 8k lif* acmJ 


0069 


5 041 

OO 1 44 

0 

nrsxc 

“Fxi: 

lOO 



A 0070 





L0W7 

TXT 

ITT 

INTERPRETER 


A'OOTI 





■“FTTB 

TXT 

00200 



A007 2^ 





nT2T6 

OCT 

215 

ALARM AND ABUK! 


A0073 





8 f 5 

TXT 

00220 

P20— P25 SUNDANCE 


00 /’4 


5Jwr~ 

au3 1 a cr 

?StC3 

DEC 

200 



A007S 





LGWP 

nC T 

3 /7 

PINBALL 


A0076 





BIT9 

TXT 

00400 



0077 


5 0 43 

“ UU4UI 

T 

ON/CCnot 

UCT 

0040 1 

SET S/C CfJNTKUL SWITCH TO G/N 

~ 00/'^ 


- 5 04^ 

004 54 

T 

3 SEC S 

DEC 

" TTK) 



ormo — 


5045 

006 20 

0 

4S tCS 

D bC 

4770 



OOHOl 


5TT4- 5 

'7)0 1 1 7 

0 

TT1W9 

OCT 

t i i 



A 0081 






“OCT 

oiaou 



AUUWP. 





5.5UtOS 

u tC 

*03056 

P20— p 25 SUNUANCt 

( UC T AL OTTTTTST 

“A0033 





nCT1103 

"OCT 

110 3 

ALARM AND ABORT 


T)T7RV 


5u4 7 

011 24“ 

1 

C5/2 

DEC 

« 036 3551 


(OCTAL 01124) 

um5 


5 05 0 

012 11 

1 

V 0 5 NO y 

~VTsl 

0509 

(SAME AS UCIAL 1211) 

^ 0086 


5U5 1 

01400 

1 

ucri4ou 

UCT ■ 

01400 



00865 


51)5 Z 

01426“ 

0 

““Tr06N22 “ 

VN 

0622 " 



A'TJUF? 





M 1 1)5 

UC 1 

i f 40 

P I Nfi A L L 


00875 


505 3 

0TTT6 

XT 

BITSZ^TO 

OCT 

177 6 



00733 " 


DTrr4 



Tuwirr 

ncT 

1777 




GAP: ASSEM3LP PEVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 

1,1969 CHrEFTAN.028 PAGE 1202 




L 

fixeo-ftxfd constant pool 





USER'S PAGE NO. 3 EO S3 




AOORO 



BTTll 

OCT 

02000 





A00‘90 



2K + 3 

OCT 

2003 

PINBALL 




0091 

50 5 5 

02177 1 

L0W7+2K 

ncT 

2177 

OP CODE 

MASK * BANK 1 FBANK SETTING. 



0092 

5 0 3 6 

02400 1 

EBANK5 

OCT 

02A00 





0093 

5057 

03000 1 

PRI03 

OCT 

03000 





00? A 

5060 

03400 0 

EBANi<7 

OCT 

03400 





a6095 



town 

OCT 

3777 

pinball 




A0096 



8 IT12 

OCT 

04000 





A0097 



REL TAB 

OCT 

04025 

T4RUPT 




0098 

5061 

05000 1 

PRin5 

OCT 

05000 





0099 

5062 

06000 1 

PP 106 

oCt 

06000 





0 1 00 

5063 

07000 0 

PRTOT 

OCT 

07000 






A0102 



B IT13 

OCT 

10000 





A0103 




OCT 

10003 

T4RUPT 

RELTAB +10 



AO 104 



13,7,2 

OCT 

10102 

P20-P25 

SUNDANCE 



0105 

5064 

11000 1 

PRini 1 


iiooO 





A0106 



PRI012 

OCT 

12000 

BANKCALL 




0107 

5065 

13000 0 

PRI013 

OCT 

13OO0 





0108 

5066 

14000 1 

ror4 

OCT 

“^4000 





A0109 




OCT 

14031 

T4RUpT 

RELTAB +20 



0110 

5067 

15000 0 

“TSTII or5^ 

XKT 

15000 





0111 

507-0 

16000 0 

PRIOI 6 


16000 





A0112 



85nEGS 

DEC 

• 45556 

P20-P25 

SUNOANCE (OCTAL 164501 



0113 

50TT 

“T7000 1 

PR mi 7 

“OTT 

17000 





oil A 

507 

17770 i 

0CT17770 

OCT 

17770 





A0115 



3IT14 

OCT 

20000 





A0116 




~nzT 

20033 

T4RUPT 

RELTAB +30 



0117 

5^7^ 

21000 1 

PRT021 

OCT 

21000 





01175 




BLOCK 

03 





01 176 

P EF 1 



COUNT 

03/FC0NS~~ 






011 1 

765 7 

22000 1 

P R 1 02 2 


22000 

SERVICE 

ROUTINES 



0Tr9' 

______ 7JS6-0 

~z7uovr~Ti~ 

“ P3:iU2 3 

DCT 

23000 





01^0 ■ 

_____ — 7'66'r ■ 

T 

PR 102 4 

"T)€T 

24O00 





A0121 



5/8+1 

OCT 

2400 1 

SINGLE PRECIbltlN bUBRUUIlNtb 



)rai22 




~ncT 

Z4017 

T4RUPT 

RELTAB +4D 



0123 

76<67"' 

25000 0 

^PRI025 

T3CT ^ 






0124 

To63 

26000 0 

PRI026 

□CT 

26000 





"'orz!r 



27000 1 

^ P1TI02T 

Tier 

27000 





A0T?5r~ 



XTHTPRIO' 

“OCI 

30000 

PTNBALL 




A0127 




"Tfrr 

30036 

T4RUPT 

REL1A8 +50 







"irroiio 0 

p RTm i “ 

OCT 

31000 






" — — — 

3rrDT 1 

TTirZ 

DEC 

."T853T34^ 


(OCTAL 31X031 



0130 

77;^7 — 

+ 

32000 0 

p R'nn2 

OCT 

3 2D073 





UTjr~ 

^ ti 7 0 

37 ow nr 

PR 1033 

OCT 

33000 





0132 

7STI 

340n3“ 0 

FRIIT3^ - 

UC ( 

3 4 0 0 0 





A 0 1 3'3— 




OCT 

34034 

] 4KUR I 

R bL 1 AB +60 



aTT4 

■ ■ n^'67 2 


' P^ rri3'5 

UCT 

35000 





0135 

T^3 ' 


" FRTn3 6“ 

~arT 

360 00^ 













— — ■ ■ — === — 





GAP: ASSEMBLE PEVISION OSS 

OF AGC 

iJGKAM COMANCHE BY NASA 2021113-051 

10:28 APP-. 

1,1969 CH1EFTAN.028 PAGE 1203 





L FIXEO-FIXcD COMSTANT 

poaL 






USER 

•S PAGE NO. 4 EO S3 





0136 

76 74 

3 7000 

0 

PRI037 

OCT 

37000 






0137 

7675 

37401 

0 

63/64^1 

OCT 

37401 






A 01 38 




MI07 

OCT 

37600 

PINBALL 





0139 

7676 

37766 

1 

□CT37766 

OCT 

37766 






0140 

7677 

37774 

1 

0CT37774 

OCT 

37774 






Ol'+l 

7700 

37 776 

0 

0CT37776 

OCT 

37776 






A0141 1 




DPOSMAX 

OCT 

37777 






A01A2 




6IT15 

OCT 

40000 






A0143 




GCT40001 

OCT 

40001 

INTERPRETER ( CS 1 INSTRUCTION) 




0144 

7701 

40014 

0 

DLOADCOO 

OCT 

40014 






0145 

7702 

^00 15 

1 

OLOAD* 

OCT 

40015 






A0146 





OCT 

40023 

T4RUPT 

RELTAB +70 




01465 

7703 

40040 

1 

BIT15+6 

OCT 

40040 






01466 

7704 

40200 

i 

0CT40200 

OCT 

402 00 






A0l47 





QCT 

4403 5 

T4RUPT 

RELTAB +80 




A0143 





OCT 

5003? 

T4RUPT 

RELTAB +90 




A0149 





OCT 

54000 

"T4RUPT 

DELTAS +10D 




01495 

7705' 

5 77 fT 

T“ 

-BIT14 

OCT 

57777 






A0150 




RcLTABll 

”OCT 

60000 

T4RUPT 





0151 

7706 

65552 

0 

C3/2 

OEC 

- • 3216147 


(OCTAL 65552) 




0152 

7707 

70000 

0 

13,14,15 

OCT 

70000 






0153 

TTvr 

73777 

nr' 

-ITS 

OCT 

73777 






0154 

7 711 

T4^0W 

nr 

KTGFR" 

OCT ■" 

74000 






0155 

7712 

74056 

1 

-ENOERAS 

“Uec 

-2001 


( OCTAL 74056 1 




A 0 157) 




HI5 

Tnrr 

7 6000 

PINBALL 





015 f 

/ 1 3 

7'^700 

•t • 

HTGH^ 

TTCT' ~ 

77700 






A0158 




-ENDV AC 

“mix 

-45 

INTERPKtl 

'iR ( UC 1 AL ! rJZZ) 




ACTS 9 




^ Uo 1 i u 

♦ J 1 

-10 


(OCT 777671 




A01‘6l 




NEG4 DEC 

-4 


( UC I AL ft / 73 ) 




mrs7 

7 7 1 4 

77774^ 

0 

NEG3 

ofccr 

— 3 






0 1 o3 

7 715 

7777S T ■ 

■ NFC? 

oct 

77775 






01^^ 


77776 


MWINF 



-1 









gap: assemble REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:23 APR. 1 t 1969 


IXED-FIXED CONSTANT POOl. 


USER»S PAGE NO. 


EO S3 


P0165 


DEFINED BY EQUALS 



R016o 


WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS 


R0168 


ACCIDENTAL DEFINITION CHAN'GES 



0170 


RcF 



LAST 116A 


7716 



NEGON? 


0171 


REE 75 


0172 


0173 
01 7A 


REF 46 
RPF I 


L I i V 


rr 1 "▼ 

T 'J L O 



LAST 1133 


6214 

6214 


ONE 
TWO 
THREE 


BITl 

BIT2 


0CTAL3 


L0W2 


THREE 







- - ■■ . .. ■ - ■■■■,■—. . .. .... _ 
























GAP: 

ASSEMBLE REVISION 055 OF AGC 00 

OGRAM CTNANCHE BY NASA 2021113-051 10:28 APR. 1,1969 

CHIEFTAN,02a PAGE 1205 










L 

INTERPRETIVE CONSTANTS 




USER’S PAGE 

NO. 1 eo S3 










0001 

RFF 1 26,2000 



SET LOG 

INTPRETl 



0002 

26, 3324 



BANK 












0003 

REF 1 



COUNT 

23/ICnNS 




OOO'i 

26,3324 

lOOOO 

6 DP1/4TH 

2DEC 

• 25 



0004 

26,3325 

00000 

1 





0005 

26,3326 

00000 

1 UNITZ 

2DFC 

0 



0005 

26,3327 

00000 

1 





0006 

26,3330 

00000 

1 UNITY 

20FC 

0 



0006 

26,3331 

00000 

1 





0007 

26,3332 

20000 

0 UNITX 

2DEC 

• 5 



0007 

26,3333 

00000 

1 





0008 

26,3334 

00000 

1 ZEROVFCS 

2DEC 

0 



0008 

26,3335 

00000 

1 





0009 

26,3336 

00000 

1 

2 DEC 

0 



0009 

26,3337 

00000 

1 





0010 

26,3340 

00000 

1 

2DEC 

0 

— — — — ■ ■■ 


0010 

26,3341 

00000 

1 



3j _ - M -| ■- . ^ j ■ .- - - ■ ■ — "1 — ■ - — ■■ ■ Ma •■■■ ^ - 


0011 

REF 7 LAST 716 26,3332 


OPHALF 


UNITX 



0012 

26,3342 

37777 

1 OPPOSMAX 

OCT 

37777 



0013 

26,3343 

TfTTT 

1 

TtCT 

3777? 

■ • Id ii ■ .1 ■- I — 1 -M . ■ . 1 E i 












^__ r 1 m ■_ ^ — - !■■.- — -»«- — ■ -» r. — — ..t - i ■ ■ . . - — j. 




















■ ■ 1 















. 











M3 1 1~ 1 - — 








■■— , fcM 









■■ — - * ** . - . - ..s^ 


— — 


— — ■ 1 — ■ ■ — — - 








■ ■ ““ 











— — 









— — — — — - 
































- 






. . = — 

■ ■ — ■ T ■ ■ ■— • ■ ^ 



GAP: / 

ASSEMBLE REVISION 055 OF AOC PROGRAM 

COMANCHE BY NASA 2021113-051 

10:28 APR. 1.1969 

CHIEFTAN.028 

PAGE 1206 



L 

I NT ERPRFt YvE 

CONSTANTS 


USER'S PAGE 

NO. 2 

EO S3 



pool 4 

INTERPRETIVE 

CONSTANTS IN THE OTHER 

HALF-MEMORY 













0015 

REF I 

04, 2000 

SETLOC INTPRET2 





0016 


04,3557 

BANK 






0017 RfF 1 COUNT 14/ICONS 


OOIB 

04,3557 

00000 

1 

ZIJNIT 

2DFC 

0 








0013 

04,3560 

ooboo ■ 

1 











0019 

04,3561 

oooon 

1 

YUN I T 

20EC 

0 








0019 

04,3562 

000 00 

1 











0020 

04,3563 

20000 

0 

XUNIT 

2DEC 

.5 








002.0 

04t3564 

ooobo 

1 











0021 

04,3565 

00000 

1 

ZEROVEC 

2DEC 

0 








0021 

04, 3566 

00000 

1 










— - -• 


0022 04,3367 00000 1 20FC 0 


002.2 
0023 

0023 

0024 

0025 

0026 
10027 

0027 

0023 
(5023 

0029 REF n 1. AS 7 768 04, 3565 ZEPODP = ZEROVEC 

(503T) RTF 5 DTST 74 04,756T“ FrMrFTTP =" XUNIT ' 


04.3570 00000 1 

04.3571 00000 1 2 DEC 0 

04.3572 00000 1 

04.3573 mir^Q CyCT TTTTT ~^.-6.-TZ SUSI^REHTEIN in THIS ORDER 

04.3574 77771 0 OEC-6 DEC IZZ 

“■'Tr4', 3'5 75 77763 0 i5CC-^Tr2 I5FC " 

04. ' 3j 7' 6 ~ TrnT~Y ~ “ L (T(5PfirS X ZOCT 7777737777 THFSF' TWET CONSTANTS MUST REMAIN 

04,3577 37777 I 

^n34,T50Ci ^37777 I LDOPH AXl ‘ZnCT 3777TT777T /TOJTICENT AND TH^ SAME FDR INTfcGRATTON 

04.3 50 1 7 7777 - I ~ 


GAP: 

ASSfMBie 

PiZVISION 055 OF AOC PROGRAM 

COMANCHE BY NASA 2021113-051 

10:28 APR. 1«1969 

CHIEFTAN.028 

PAGE 1207 


L 

S INGLE 

PRECISION SUBROUTINES 


USER’S PAGE 

NO. 1 

EO S3 


0001 


5074 

BLOCK 0? 




P0002 

SINGLE 

PRECISION SINE AND CCS INF 







00025 

REF 

1 






COUNT 

02/INTER 








000 3 

RFF 

24 

LAST 

1204 

5074 6 500*? 

0 

SPCOS 

AD 

HALF 

ARGUMENTS SCALED 

AT PI 






0004 

REF 

1 



5075 55*075 

0 

SPSIN 

TS 

TFMK 








0005 

REF 

1 



5076 1 5100 

1 


TCF 

SPT 








00^6 

REF 

2 

LAST 

1207 

5077 4 1075 

0 


CS 

TEMK 








0007 





5100 6 0000 

1 

SPT 

DOUBLE 









0008 

REF 

3 

LAST 

1207 

5101 55*075 

0 



TEMK 








0009 

RFF 

1 



5102 1 5113 

0 


TCF 

PGLLFY 








0010 

REF 

4 

LAST 

1207 

5103 57*075 

1 


XCH 

TFMK 








0011 

REF 

5 

LAST 

1207 

5104 51*075 

1 


INDEX 

TEMK 








0012 

RFF 

6 

LaTT^ 

1133 

5Tcr5 6 5000 

1 


TD 

LIMITS 








0013 





5106 4 0000 

0 


COM 









UUT^ 

4^ 

m 

Tl 

6 

LArr 

i2or" 

Srr? 6 17775“ 



AO 

TEMK 

i 







0015 

REF 

7 

LAST 

1207 

STTO 55*075 0 


TS 

TEMK 








0016 

REF 

2 

LAST 

1207 

5111 1 5rr3 

0 


TCF 

POLLEY 








0017 

REF 

1 



5112 1 5l31 

0 


TCF 

ARGQO “ 




* 




oqW 





5113 0 0006 

1 

POLLEY 

extend 









0019 

“REF” 


LAST 

1207 

5114 7 1075 

0 


MP 

TFMK 








0020 

REF 

1 



5TT5 55*076 

0 


TS 

SO 








CTOTT 





3116 0 0006 

X 


extend 









0022 

REF 

1 



5TT7 7 5047 

0 


MP 

C5/2 








iToin 

p f F 

1 



ST215 6 7706 

1 


AD 

C3/2 













5121 0 0006 

X“ 


EXTEND 









— 

'^EF 

T 

LA'ST" 

1207 

5171 7 1076 

0 


MP 









0026 

FT 

T 



5T23 B~76T6 

TT~ 


AD ■ 

TT72 








^ 002 I 





5 T 2^ D“aW6 

X 


EXTEND 










R FF ■ 

9 

LA^ 

120T“ 

5T75 — 7 1076' 

0 


MP 

TEMK 








— 





^126 20 001 1 


“DDOUBl 









0030 

REF 

~T0 

■ X71ST 

1207 

51X7 55*073 

X" 


“TS ‘ ^ 

TFMK 








0031 

EEF 

281 

LAST 

1199 

5T3T) 0 0002 

0 


TC 

0 








0032 

REF 

TZO' 

XATT llSr9 

~5T31' 50 OOtT 

1 

ARXX 

■ INDEX 

A 








01733 

REF 

T 

TTtST 


5T32 ZTTO O^ 7) 


CS 

LIMITS 








— arm 

REF 2TST 

L A ST" 

1 2 OT" 

5133 0 0002 

IX 


TC 

Q 

KESULI SCALFD A! 

1 






' R0040 



— SPKOTTTRST 

DEL’-TFO ITvl REV 

.TTF TTOSTET. 

ASS. CriNT. HAS CARDS. 


- 


.. IWI I- 
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Jg^ - A ' 


L 

EXFC'JTI VE 

|JSER‘ 

S PAGE 

NH. 1 

EO S3 

- - r — — 


0001 


5134 


BLOCK 02 


R0002 


TO ENTER A JOB REQUEST REQUIRING NO VAC AREA 


00025 REF 


dXlJNT 02/FXEC 



000 3 


PEF 


1 


S 1 35 


6 5226 1 
54 063 0 



FAKE'>R FT 
NEW“R]3“1 0 


LOCCMPAC +6) - LOC(QPRFTT 
F> R 1 0 R I T Y n F TTEW JOB + NOVATT 




0004 


0005 

0006 


000 




0008 

0000 


0010 


0011 


REF 283 


LAST 1207 


REF 


REF 

RFF 


REF 


REF 


LAST 205 


1 
26 
1 


1 


LAST 1150 


5 i: 



5140 

51 ^ 


0 0006 1 
5 0002 0 
3 0001 0 


5142 


52 066 0 


5143 

5144 


3 5225 1 
56 004 0 


5145 54 061 1 


5146 I 2650 1 


EXTEND 

IND EX 

DC A 


DXCH 


NEWLOC 


CAF 

XCH 


EXEC8ANK 
FBANK 


TS 


TCF 


EXECTEMl 
NO VAC 2 



Q WILL 8E 
2CADR np JOB ENTERED. 


THEOUGHaUT 


E N TE R" F X E C U T T V E""B“A NK 


P0012 


0014 


00145 


0015 

0016 
0017 
WlF 

0019 

0020 
OOTT 


R0021 1 


TO ENTER' A JOB PF^EST RgoOT P TNG A VAC AREA - E.G.t ALL CPAFl* I ALEV } ITJTEEPFETI VE JOEE: 



5147 


LXST 1208 



PEF 284 LAST 1203 


5152 


0 0004 0 
4 063 0 

0 0006 I 

5 0002 0 

3 0001 0 


F INOVAC 




EXTEND 

INDEX 
OEA 


71 


LAST 1208 
LAST 1208 
LAST 1203 


5 155 
5156 


5 2 0136 0 
3 5225 1 
56 004 0 


SPVACTTJ 


NEWEOE 
EXEC3ANK 

FEATTK 


OFF TO EXECUTIVE SWITCHED 



TOnENTFE^A F f NfOVAC TTF TR - Pm (TRTTY 



TUTFIE ECADR ARRIVING IN A ANU L 


EOfmTE 


USERS OP SRVAC MUSr INHi> 



STORING IN NEWPRTn": 


OG > 13 “ “REF 



0021 4 

W 2 TE 
GO 2 PE 


R EF 

R E F 
prf 


5 

?“86 

T 


LAST 1049 


ETEG 

5161 




Z~ 0 SEV 7 IU 


LEA ST r2GG 


5 TE 


7 


6 7 TIE 

^Ty—OOZ 


5 1 F 3 ~”r GTE 4 


G 

G 

G 


XCH 

"ATT” 

XCH 

TEE" 


G 

T 



SPVACTN 






JOFTSTT A } ?T GHEE PE IGRTTr 



o 

o 

iPEF" 

rS7 — LAST" 

1208 

— 22 002 0 — CHANG! ' 

LXCH 


0025 

PPF 

T LAST 

T2 0 8““ 

5165 3 5225 1 

CAF 

fcX bC B ANIC 

0026 ■ 


~2G" “LAET^ 

1130 

5166 5 6 G 0 6 T 

XCH 

bbttnk 

0027 

REF 

1 


6167 1 7127 0 

TCF 

CH AnJuB 


v: 0 0 3G“ 


TU SUSPEND 

AN IN I bK!>KETTVF JOB: 




0031 

R 003 1 5 


EEF“^EG LAST 


5 X 70 - CH 2 T E 



NEGATIVE LUC 



= INTERPRETIVE 


— FTEXCE^ rA ) RT F PE n"Fr •• CHAFIG? **T 
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L 

EXECUTIVE 

USER’S PAGE 

o 

• 

ro 

EO S3 


0032 

R EF 

158 

LAST 

1187 

317 1 

54 001 1 


TS 

L 

0033 

REF 

4 

LAST 

1208 

5172 

3 5225 1 

+ 2 

CAF 

EXECBANK 

00335 

REF 

21 

LAST 

1208 

5173 

54 006 0 


TS 

BBANK 

0034 

REF 

2 

LAST 

1208 

5174 

1 2726 1 


TCF 

CHANJOB -1 
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10:28 APR. 1.1969 CHIEFTAN.028 PAGE 1210 













L 

EXECUTIVE 





USER'S PA6E ND. 3 EO S3 




P0035 


TO VOLUNTARILY 

SUSPEND A JOB UNTIL 

THE COMPLETION OF SOME 

ANTICIPATED EVENT (I/O EVENT ETC.): 




0037 

REF 

30 LAST 1208 

5175 

54 164 0 JQBSLEEP TS 

LOC 




0038 

PFF 

5 L^VST 1209 

5176 

3 5225 1 

CAP 

EXECSANK 




0039 

RFF 

23 LAST 120fi 

5177 

54 004 1 

TS 

FBANK 




0 04 0 

REF 

1 

5200 

1 3017 0 

TCF 

JOBSLPl 




R0041 



TO AWAKEN A 

JOi< PUT 

flFSL'-'FP 


IN THE ABOVE FASHION: 




0042 





5201 

Q 0004 

0 

JOBWAKE INHINT 




00421 

Q FF 

4 

LAST 

1203 

5202 

54 065 

0 

TS 

NEWLOC 



0043 

P FF 

61 

LAST 

114‘7 

5203 

4 5016 

1 

CS 

TWO 

EXIT IS VIA F INOVAC/NOVAC PROCEDURES. 


0044 

PFF 

283 

LAST 

1208 

5204 

26 002 

1 

ADS 

Q 



0045 

Fc EF 

6 

LAST 

1210 

5205 

3 5225 

1 

CAF 

EXECBANK 



0046 

P. i- P 

2 9 

LAST 

1210 

5206 

56 004 

0 

XCH 

FBANK 



0047 

REF 

1 



5 207 

1 30 44 

0 

TCF 

J08WAKE2 


— ^ 


R0048 


TQ CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION: 


0049 


0050 


0051 


0053 


0054 


5717? a'lJ0T)4^ir” PRTOU 


NH I NT 



REF 


LAST 


77F 


■7 PTST 


IROR 

TITO 


5211 

57T7 


54 063 0 


57Z5 




17115 



LAST 1130 


R E F“739 LAST 1210 


54 165 

57T5~3“W07 


T 

T 


TS 

CTF 


NEWPRIO 

FXFCBATTK 


5214 


1 

U 



B8ANK 


CALLER AS SOON 
HIGHEST. PREPARE 
STYLE CHANGE-JOB. 


TLZ RETURNS 
R priority 


TIT 

T5 








TO REMOVE A JOB FR'OM' EX 017X1375“ CTDIT5T DERATIONS: 


0059 


0060 

0061 


TFT 

REF 

REF 


I V 


30 
T 


REF 


TTOTJ 

O054' 

tit; 



^ — — 

'to 


7FF 
R EF 


^2 

31 

"T 



T 1210 

LAST 17X0 


LAST IZCTT 
TTLST 



7 LAST “1705 


5771 T“7T7zrT 


5777 


3 0061 O 

54^004 I 



1 67100 


NDGFjnB 





FMDFTTTTT C7L 


TS 


TOF 


F B A ‘"TK 
ENOJOBl 


EXFCT FMl 
FBT^TlFr 


U+7 



EyFCFTATTK CTHTR FTNDYSLT 


RETURN TO CALX ER AFTER”J07 ENTRY 
COMPLETE. ■ 


00665 REF 634 LAST 1195 


52^6 


OOIIO I FAKFPRET ADRES MPAC -360 


LOC ( HFAC +67 


LOC(QPRbT) 


GAP: 
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L 

5XPCUTI V 

C 

4 







USER'S PAGE NO. 4 EO S3 


P0067 



LOCATE AN 

AVAILABLE 

VAC AREA 






0063 





01, 2626 



8ANK 

01 


0063 5 

REF 

1 






COUNT 

01 /EXEC 



006^ 

REF 


LAST 

1210 

01 , 26^6 

54 061 

1 

FIMDVAC2 TS 

EXECTEMl 

(SAVE CALLER'S BANK FIRST.) 

007 0 

REF 

4 

LAST 

22 3 

01.2627 

10 400 

1 

CCS 

VACIUSE 


oo'a 

? EF 

1 



01,2630 

1 2643 

0 

TCF 

VACFOIJNO 


0072 

REF 

3 

LAST 

223 

01 ,263 1 

10 454 

0 

CCS 

VAC2USE 


0073 

REF 

2 

LAST 

1211 

01.2632 

1 2643 

0 

TCF 

VACFOUND 


0074 

PEF 

3 

LAST 

223 

01,2633 

10 530 

0 

CCS 

VAC3USE 


0075 

REF 

3 

LAST 

1211 

01,2634 

1 2643 

0 

TCF 

VACFOIJNO 


0076 

REF 

3 

LAST 

22 3 

01,2635 

10 604 

1 

CCS 

VAC4USE 


0077 

r» PF 

4 

LAST 

1211 

0l,263f> 

1 2643 

0 

TCF 

VACFOUND 


0073^ 

REF 

3 

LAST 

22 3 

01 , 2637 

10 660 

0 

CCS 

VAC5USE 


0079 

RTF" 

5 

■ LAST 

1211 

01,2o40 

1 2643 

0 

TCF 

VACFOUND 


000 0 

RTF 

4 


'571' 

01,2641 

0 7755 

T“ 

TC 

bailout 


0031 





01,2642 

01201 

0 

OCT 

1201 

NO VAC AREAS. 












0032“ 

i?FF” 

62 

“TTST 

1210 

01,254T 

6 5016 0 

V ACT Him 0 AO 

TWO 

RESERVE THIS VAC AREA BY STORING A ZERO 

0033 





01,2644 

22 007 

0 

ZL 


IN ITS VAC use register ANO STORE THE 

0084 

P X-p 

■^21' 

LAST 

TT^ 

01.2645 

50 om~ 

TT 

INOEX" 

A 

ADDRESS OF THE FIRST WURD OF IT IN THE 

0035 





— 01,2646 

“21*777 

0 

n?CTi 

"TF-l 

LOW NINE BITS OF THE PRIORITY WORD. 

0 0 86 

RTF 

7 

LAST 

1210 

01,2647 

26 063 

0 

AOS 

NEWPRIO 














ITF“'24T" 

LAST 

1191 

0 1 . 26’5Tr 

3 5021 


MDVTTCZ CAF 

Z FP 0 

NOVA^C ENI ERS HERE. FIND A CORE bb 1 • 

00X8 

REF 


LAST 

42 2 

01,2651 

54 “064 

1 

TS 

LOCCTR 


D75“3^ 

REF 




01, 2652 

— 3 2657 

T“ 

T AT- 

NO* CORES 

SEVEN SEIS Ob ELEVFN KbClbJERS EACH. 

0090 

— d;fF 




01, 2653 

54 062 


NO VAC 3 TS 

EXECTE'iZ 


0091 

:iEF 

ST 

LAST 

1211 

01 , 2(SS4 

50 064 

0 

INDEX 

LDCCTR 


0 0 ^ 2 

P. H P 


'LATT“ 

~2W 

01,2665 

n. TTTFr 

0 

^ ^ crs ■ 

PRIORITY 

EACH PRIORITY REGlSFEK CUNIAINS -n IF 

OO-'i 

RFF 

— jr 



01, y6hb 

1 2TTT 

'TT' 

TCT 

N E X T C 0 P E 

THE X ORR E S PON 01 NG CORE SET IS AVAILABLE. 

0094 





01,2657 

00006 

1 

NO* CORES DEC 

6 


00 )5 

RTF“ 

7 ~ 

LAST 

1 RTF 

01 f O 0 

I 2717 

TT' 

" TTF 

NEXTCORE 

AN ACflVE JOB HAS A POSIlIVt PKluRlIY 

SDTT^ 










BUT A OOR^ANl JUB*S PRIORITY IS NEGATIVE 


GAP: 

^ssEml 

E REVISION 055 
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L 

EXECUTIVE 









USER’S PAGE NO. 5 EO S3 


00^7 

REF 

B 

LAST 

1211 

01,2661 

3 0063 

1 

CORFOUNO 

CA 

NEWPRI 0 

SET THE PRIORITY OF THIS JOB IN THE CURE 

0098 

RTF 

7 

LAST 

1211 

01,2662 

50 064 

0 


INDEX 

LOCCTR 

SET’S PRIORITY REGISTER AnD SET THE 

0099 

RFF 

10 

LAST 

1211 

0 1 . 2fr6‘3 

54 167 

0 


TS 

PRIORITY 

JOB’S PUSH-DOWN POINTER AT THE BEGINNING 

0100 

PEF 

7 

LAST 

3A8 

01,2664 

7 5046 

1 


MASK 

L0W9 

OF THE WORK AREA AND OVERFLOW INDICATOR 

010] 

REF 

B 

L^ST 

1212 

01,2665 

50 064 

0 


INDEX 

LOCCTR 


0102 

PEF 

19 

LAST 

1182 

01,2666 

54 16 c * 

1 


TS 

PUSHLOC 

OFF TO PREPARE FOR INTERPRETIVE PROGRAMS 


0103 

REF 

9 

LAST 

121 2 

01,2667 

10 064 



CCS 

LOCCTR 

IF CORE SET iERO IS BEING LUADED, SET UP 

0104 

PEF 

1 



01 ,2570 

1 2704 

1 


TCF 

SFTLnc 

nVFINO AND FIXLOC IMMEDIATELY • 

0105 

REF 

11 

LAST 

1 1 } 5 

01,2671 

54 121 

1 


TS 

OVFI NO 


0106 

REF 

20 

LAST 

1212 

01,2672 

3 0166 

0 


CA 

PUSHLOC 


0107 

REF 

34 

LAST 

1196 

01, ^673 

54 120 

0 


TS 

F IXLQC 



0108 

PEF 

7 

LAST 

1103 

01,2674 

10 067 

1 

spectest 

CCS 

NEWJOB 

SEE IF ANY ACTIVE JOBS WAITING IRARF). 

0109 

REF 

2 

LAST 

1 212 

01 ,2675 

1 2704 

1 


TCF 

SETLOC 

MUST BE AWAKENED RUT UNCHANGED JOB. 

— ■—1^ ■ ■■ - ■ 1- - i - --*■>. ' 1 1 ^ h t ^ ■ — - 1 ■! ^ ■ — 

0110 

PEF 

10 

LAST 

1199 

01,2676 

0 57^7 

0 


TC 

CC SHOL E 


0111 

PEE 

1 1 

LAST 

1212 

01,2677 

0 5747 

0 


TC 

CCSHQLE 


0112 

PEF 

8 

LAST 

1212 

01,2700 

54 067 

1 


TS 

NEWJOB 

+0 SHOWS ACTIVE JOB ALREADY SET. 

0113 

P.EF 

S 

LAST 

1210 

01,2701 

52 056 

0 


OXCH 

NEWLOC 


OllA 

REF 

31 

LAST 

1210 

01,2702 

5? 155" 

1 


“ITXtH 

LOC 


0116 

REF 

1 



01 , 2703 

1 5222 

1 


“TTf 

ENDFIND 














0115 

PEF 

6 

LATT 

“iriT” 

01,2704 

52 06^ 

~0 STETinC 

RXCfl 

NEWLOC 

SET UP The lucation regisiers for this 

0117 

R !^F 

10 

LAST 

1212 

01,2705 

50 064 

0 


I ND E X 

LOCCTR 


oiia 

REF 

32 

LAST 

1212 

■^1,2To6“' 

52 16'5" 

1 


OXCH 

Trie 


0119 

REF 

9 

LAST 

1212 

01,2707 

50 067 

0 


INDEX 

NEWJOB 

THIS INDEX INSTRUCTION INSURES THAT THE 

0120 

REF 

11 

LAST 

1212 

01,2710 

4 016 *7 

0 


cs 

PRIORITY 

highest ACTIVE PRIORITY WILL BE COMPARED 

0121 

RFF 

Q 

LAST 12i2 

mr,z7n 

6 0063 

1 


inj ” 

NEWRft I D 

WITH THE NEW PRIORITY TO SEF IF NEWJOB 

0122 





01,27l2 

0 0006 

T“ 


’T’XTFNO 


SHOULD BE SET ffJ SIGNAL A SWITCH. 

0123 

R\zP 

2 

LAST 

1212 

01,3tl3 

6 5222 

0 



ENOF I nID 


Oi24 

REF 

11 

LAST 

“m2 

01,2714 


O’ 


ncTT 

LOCCTR 

LOCCTR IS LEFT SET AT THIS CURE SET IF 


■ RtF 

TO 

LAST 

nnnT“ 

01,2716 

54 067“ 

I 


TS 

NEWJOB 

THE CALLER WANTS TO LOAD ANY MPAC 

0126 

^ r* 

J-f f 

3 

LAST 

1212 

01,2716 

1 52'2T" 

T” 


TCF 

ENDF I ND 

registers* etc. 



r:ef 

1 



01,27 TT^ 

3 3054 

TT 

NEXTCOTTF 


COWXTNC 


0123 

PFF 

12 

LAST 

1212 

01,2720 

26 064 

1 


ADS 

LOCCTR 


0129 

' ref 


LAST 

1211 

01.2721 

10 062 

1 


"XX^ 

EXECTEM2 


ono 

p E F 

1 

1 1 ■ MB 


01 V2J1T 

“T"2653 

1 


TXF 

'NOVSTT ‘ 


0131 

REF 

5 

last 

1211 

01,2723 

0 7755 

T” 


"TT 

bailout 

NO CORE Sets. 

WUT 





““aT7?7T4“ 

ai“20P 



~TTCT 

‘T2ri2 

_ . . . - - - ' = 
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10:28 APR. 1,1969 CHIEFTAN.028 

PAGE 1213 
















L 

EXECUTIVE 








USFR*$ PAGE NO. 6 

EO S3 



P0I33 



THE following ROUTINE SWAPS 

COR 

S SET 0 

WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB. 

















01345 

lEF 

33 

LAST 

1212 

01,2725 

22 164 

I 

-2 

LXCH 

LOC 




0135 

R u F 

10 

LAST 

1210 

01, 2726 

30 165 

0 

-1 

CAP 

BANKSET 

BA^^KSET, not B3ANK, HAS RIGHT 

CONTENT S . 


0136 





01.2727 

0 0004 

0 

CHANJOB 

INHINT 





01362 





01,2730 

0 0006 

1 


EXTENO 





01364 

pep 

14 

LAST 

1106 

01.2731 

04 007 

1 


ROR 

SUPERBNK 

PICK UP CURRENT S3ANK FOR BBCON 


0 n 66 

K EF 

159 

LAST 

1209 

01,2732 

56 001 

0 


XCH 

L 

LOC IN A AND BBCON IN L. 



0136 8 

REF 

11 

LAST 

1212 

01,2733 

50 067 

0 

+ 4 

INDEX 

NEWJOB 

SWAP LOC AND BANKSET. 



0137 

9 PF 

34 

LAST 

121 3 

01,2734 

52 165 

1 


DXCH 

LOC 




0138 

REF 

35 

LAST 

1213 

01,2735 

52 165 

1 


DXCH 

LOC 







01382 

REF 

1 1 

LAST 

1213 

01 ,. 27 36 

30 

1 65 

0 

EM 

B.ANKScT 




01384 





01.2737 

0 i 

0006 

1 

EXTEND 





01383 

REF 

“TT 

LAST” 

T 2 T 3 

01,2740 

01 

007 

1 

WRITE 

SUPERBNK 

SET SBANK FOR NEW JOB. 



0139 

REF 

635 

LAST 

121 0 

01.2741 

52 

155 

1 

DXCH 

hpac 

SWAP MULT I -PURPOSE ACCU.MUL A TOR AREAS. 




REF 



1213 

01,2742 

50 

067 


INDEX 

NEWJDB 




0141 

REF 

636 

LAST 

1213 

01,2743 

5? 

155 

1 

OXCH 

MP AC 




0142 

RF9 

637 

LAST 

1213 

01,'?744 

52 

155 

1 

DXCH 

mpac 




0143 

< E F 

638 

LAST 

1 2 .1 3 

0 1 ,"7745 

52 

157 

0 

T)XCH 

MpAC +2" 




0144 

REF 

13 

LAST 

1213 

01 , 2746 

50 

067 

0 

INDEX 

NEW.JOB 




0l4? 

REF 

63 9 

LAST^ 

1 21 3 

01, .2747 

~5T 

157 

0 

DXCH 

MPAC +2 




0146 

■-•EF 

640 

LAST" 


01,2750 


~T5T 

0 

oycn 

MPAC +2 




0147 

REF 

641 

LAST 

1213 

01, ?051 


161 

0 

DXCH 

MPAC +4 




0143 “ 

— REF' 

“"14' 

' urrr TZYT- 

~"0T,?.7 52" 

' 5T)"0'67 

0 

INDEX 

NEWJOB 




014<5 

RFF" 


”XAST 

12T3” 

0 1 f ? ^ 5 3 

"52^ I /FT 

U '■ " 

DXCH'' 

MPAC +4 




OTTCr- 

9 Fr 

"6^ 


1213 

01,2 1^54 

T7 

161 

15 

DXCH 

MPAC +4 




" Olbi 

REE 

"64^ 

LAST 

1'2 1 T “ 

0 1 , ? / 5'5 

5 / 

163 

"IT' 

■ DXCH' 

MPAC "*"6 

Si ^ ; rr . 



“ 0 152' ■■ 

R FF 


LASI 

1213 

01 , 275-6 

50 

(JET 

0 

TNDDr 

NEWJlIH 




0153 

p:ff" 

645 

LAST 

1213 

01,2 '/57 


163 

1 

nxcH 

MPAC +6 




0154" 


Tr46 

TTiST^ 

T2T3“ 

■"TTl,2T5Tr 


TET 1 

DXCH 

MPAC +6 




... - 

0155” 


T5TT 

LATr 

i2Tr 

01,2/61 

■"7“ 

EKJTT 

1 

CSF 

ZPRi) 




crr56 

R^F 

12 

— UST 1212 

~UTV7Tf^ 


izr 

15 

"XCH 

Q VF I ND 

MAKE PUSHLGC NtGAllVb IF UVFIND NZ. 



orsT" 





0 i t ? 1 0 3 

“XT" 0 0 06^ 

1 

EXTEND 





0158 





01,2764 



“X 

irzT 

+ 3 




015^>“ 

T 

'21 

LAST 

T2T32“ 

01,2/65' 

~zr 

0X66 

X 

"CS 

PUSHLIIL 




0160 

^ F 

' Z2' 

— LAST^ZI3“ 

01,2 /66" 


X66 

1 

T S 

PUSHLOC 

- , - 


- 


0161 FTFF 23 LAST i 21 3 nTiYTTJl 6 2 167 0 DXCH PUSHLOC ^ 

-UVFTP TFF rF~LAST 12X3 HT , ZTTT) 60 06 7 0 TI'^OFX NhWjOB 

0 1 - 61 ^TFF 2^ — LAST ITTl 01,:>7 71 6? 167 0 CfXIT? PUbHLUt _ 

— 0164 PTEF Z5~ LAST I’ZTl rTT7Z7T2 52 Y6T~3 DXCH PUbHLf^C ” bWAP6 PUSHLOC 

— 0 165 ^rFF 3 LAST T^TZ ai,277T' 3 504'6“D ' CAP “LUWO SET FIXL OC TO^ASE OF "VAC AREA. 

0166 r2 LAST 1212 0 1 VTn^ 7 0167 0 TO5K FTTmTTTY 

016 7 LTLST 1212 ITl •6 775 ' 54 120 “D TS TTXTTfC ~ 


TJTF 

ims 


xrrru 



LASI 121^ 
LAST 17 



Trrr 

TXT 


rrrs 

7 7 7 T 


1 0 166 
3“5TJ2T 


T 

r 


7X77700 TTITTTTTT) 



PUSHLOCT" 

ZERO 

■FNDPRCH7 


SEI UVFKELLIW TNOICATOR AttOKOING TO 


T 


II 
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L 

EXECUTIVE 

USER'S PAGE 

NO. 7 

fcO 53 


orn REF 27 LAST 1213 01 1 3001 4 0166 1 CS PUSHLOC 

0172 PEF 23 LAST 1214 01,3002 166 1 ^ j;£ PUSHLOC 

0173 REF 143 LAST 1177 01.3003 3 S017 1 CAF ONE 

0174 REF 13 LAST 121'3' ' 01.3004 56 121 0 ' XCH OVFINO 

0T75 ref TT last 1213 01.3005 54 067 1 TS ~ NEWJOB 


017 


C) 


01 It 


01 7d 


0179 


REF 36 LAST 1213 


01.3006 0 0003 1 ENDPRCHG RELINT 


3007 


0 1 t 

^^3010 


52 163 
0 0006 


DXCH 
EXTEND 




BASrCT JOBS 

DISPATClH WITH A OTCB. 


ADDRESSED, Tn 


01.3011 6 3013 


B2MF 














* 
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L 

&XECUTI VI- 






USER'S PAGE NO. 

8 EO S3 



0181 


0 1,301 3 

4 0000 

0 

COM 


EPILOGUE TO JOB CHANGE 

FOR INTERPRETIVE 


0182 

OFF 144 LAST 1214 

01,3014 

6 5017 

1 

AD 

ONE 




018 3 

OFF 37 LAST 1214 

01 *3015 

54 164 

0 

TS 

LOC 

RESUME. 



1 ■ 

o 

PEF 1 

01,3016 

1 601’' 

0 

TCF 

INTPSM 





POlS? COMPLeif^ JQBSLCEP PREPARATIONS. 


0188 





01,3017 

0 0004 

0 

JOBSLPl 

INHINT 



0189 

REF 

13 

LAST 

1713 

01,3020 

4 0167 

0 


CS 

PRIORITY 

NNZ PRIORITY SHOWS JOB ASLEEP. 

0190 

REF 

14 

LAST 

1215 

01*3021 

54 167 

0 


TS 

PRIORITY 


01^1 

P ef 

8 

Last 

1149 

01 ,3022 

3 6043 

0 


CAF 

LOW? 


0192 

REF 

23 

LAST 

1210 

01,3023 

7 0006 

0 


MASK 

BBANK 


01921 





01,3024 

0 0006 

1 


EXTEND 



0192? 

REF 

16 

LAST 

1213 

01 , 3025 

04 007 

1 


ROR 

SUPERBNK 

SAVE OLD SilPER'SANK VALUE. 

0193 

REF 

12 

LAST 

1213 

01 , 3026 

54 165 

1 


f S 

0ANKSET 


0194 

ref 

2 52 

LAST 

1213 

01*3027 

4 5021 

0 


CS 

ZERO 


0195 

ref 

111 

LAST 

1135 

01,3030 

54 131 

0 

jn3FFP2 

TS 

8UF +l 

HOLDS - HIGHEST PRIORITY. 

01P6 

REF 

] 



01,3031 

1 3141 

1 


TCF 

EJSCAN 

SCAN FOP HIGHEST PRIORITY ALA ENDOFJOB. 













01961 





01*3032 

0 0004 

0 

NUCHAMG2 

iNHINT 


OUT CR . . . DDTTT L ET NEWJOB CHANGE To +o . 

019611 

REF 

18 

LAST” 

1214 

01,3033 

10 067 

1 


CCS 

NEWJOB 


01^612 





01*3034 

1 T037 

1 


TCr 

+ 3 

NEWJOB STILL PNZ 

Ol9oIT 





01,3 FTT 

“ 0 DWT 

TT^ 


PELINT 


NFWJG6 HAS CHANGED TU +D. WAKE UP JOB ~ 

0 196 1 4^ 

REF 

r~ 



01,3036 

1 3233 

1 


TCF 

ADVAM +2 

VIA NUDIRECT. IVFRY RARE CASt-J 













01962 “ 

“TEF 

FT’ 

TjAST 

Tzn 

01*3Tr3T -3^T016 

U" 


CAF" 

WO” 


urwr~ 





01 , 3040 

0 0006 

1 


EXtCNn 



01964 

REF 

■ W 

“OFT“ 

948 

oi*3rr4i 

TTF'DTl 

TT 



OS ALMUUr 

T UR N ON Activity LIGHT 

01T6-5 "■ 

~WFr 

TIT" 

LAST 1215 ■ 

0 1' .-’jr5?2 

52 r6"5 ' 

"T™ 


ttxch 

LOC 

AND SAVE ADDRESS INFU FUR 6ENEFIT OF 

01 96 


T~ 

LAST" 

1209 

01,3043 

1 2733 

0 


TCF 

CHANJOR + 4 

POSSIBLE SLEEPING JOB. 



ASSEi^BLF REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR* 1*1960 CHTEFTAN,028 PAGE 


216 


L 

f'XECUT I ve 








USER'S PAGE NO. 

9 EO S3 


P0197 



TO WAKE UP 

A JOB, EACH CORF 

SET 

IS FOUND TO LOCATE ALL JOBS 

WHICH ARE ASLEEP. IF THE 

FCADP IN THl 

n I j ' ML T™ — — —x — nsc — — ■ — “ ' — ■■■ ■ ■ ■ 

R0199 

LOC 

REOISTFR OF ANY 

SUCH JOB 

MATCHES 

THAT SUPPLIED BY THE CALLER. THAT JOB IS AWAKENED. IF NO 

JOB IS FOUND. 

R0201 

tnCCTR IS 

SET 

TO -1 

ANO NO FURTHER ACTION TAKES PLACE. 





0202 

RtF 

4 

LAST 

1211 

01.3044 

54 061 

1 

J0BWAKE2 TS 

EXECTFMl 



0203 

REF 

2 53 

LAST 

1215 

01.3045 

3 5021 

1 

CAP 

ZERO 

BEGIN CORE SET SCAN. 


020^ 

REF 

13 

LAST 

1212 

01,3046 

54 064 

1 

TS 

LOCCTR 



0205 

REF 

2 

LAST 

1211 

01.3047 

3 2657 

1 

CAP 

NO. CORES 



0206 

REF 

3 

LAST 

1212 

01 , 3050 

54 062 

1 

J0BWAKE4 TS 

EXECfEM2 



0207 

REF 

14 

LAST 

1216 

01,3051 

50 064 

0 

INDEX 

LOCCTR 



0208 

REF 

15 

LAST 

1215 

01.3052 

10 167 

0 

CC3 

PRIORITY " 



0209 

RFF 

1 



01 , 305 3 

1 3056 

0 

TCP 

JUBWAKE3 

ACTIVE JOB - CHECK NEXT CORE SET. 

0210 





01 ,3054 

00014 

1 

COREINC DEC 

12 

12 registers per CORE SET. 

0211 

REF 

1 



01.3095 

1 3065 

0 

TCP 

WAKETEST 

SLEEPING JOB - SEE IE 

CAUK MAI cuts. 













0212 

REF 

2 

LAST 

1212 

01,3056 

3 3054 

0 

JGBWAKE3 CAF 

COREINC 



0213 

RFF 

15 

LAST 

1216 

01,3057 

26 064 

1 

ADS 

LOCCTR 



0214 

REF 

4 

LAST 

1216 

01.3090 

To (762 

1 

CCS 

EXECTeM2 



0218 

PFF 

1 



01,3061 

1 3050 

0 

TCP 

J08WAKt4 

■ HM ■ r — ^ W M B j - 11 ^ ■ "1 


0216 

REF 

145 

LAST 

121 5 

01. 1062 

4 5017 

0 

cs 

ONE 

EXIT IF SLEEPING JOB 

NOT FOUND. 

0217 

REF 

16 

LAST 

121 6 

01. 306 3 

54 064 

1 

TS 

LOCCTi^ 



0218 

REF 

4 

LAST 

1212 

01,3064 

T“5772“ 

1 

TCF 

tNOFiND 




0219 

R E F 

*7 

1 

{ 

LAST 

1212 

01 .3065 

4 0065 

0 

WAKETEST CS 

NEWLOC 



0220 

REF 

17 

LAST 

1216 

01,3056 

50 064 

0 

“ INDEX 

LXCT3 



0221 

REF 

39 

LAST 

1215 

01,3067^ 

6 0164^ 

1 

AD 

LOG 



0222 





01. 3070 

0 0006 

1 

EXTEND 




0223 





01,30TT- 

1 307 3 

XT" 

BTT^ 

+ 2 

IF MATCH. 


0224 

ref 

2 

LAST 

1216 

01.3072 

r 105F 

0 

TTF 

JQBWAK F3 

EXAMINE NEXT COkE SET 

I F NO MATCH . 


0735 

i’EF 

T8 

LAST 

TTIT, ■ 

0 1 , 3 OTT 

50 064 

Tr“ 

I NDEX 

lucctp: 

RE-CUMPL EMtNJ PKIUKIIY lU 5HUW JtJD AWAMr 

0226 

p rr 


T AST 

T 21 6 

01 f 3 0 T 4 

4 01^ 


C s 

PRIORI T Y 



02^7 

REF 

10 

last 

1212 

01.3075 

54 063 

TT" 

TS 

N E W P R I Q 



■D22 ;X ‘ " 

REF 

19 

OST 

1716“ 

01.3076 

“50 064 

ir“ 

IXJDFJT" 

L Ut 1 1 



UZ29~ 

■REX 

17 

LAST 

1216 

01 ,30 77 

"5^ 1X7 

0 

T S 

PH i UK I I Y 















(S2JU' 





“TXT. 

ZT 43 W 

T 

CS 

1“ B ANKM SK 

MAKE UP The 2CADK OF 

1 HE WAKE ALlUKhSS 

02 31 ■ 

r EF 

F” 

'LAST 121fc' 

OllllDT 

7 00 6 5 

O' 

“WSSK ' 

TIEWrOC 

USING THE CAUK IN NEWLUL ANU 1 MC tflANf. 

0232 

REF 

3 

1. A S t 

1128 

01,3102 

6 5085 

i 

AD 

"7K 

half OF BBANK SAVED IN BANKSE I . 

0233 

ITEF 

9 

LAST 

T216 

“71 ,3103 

— STT 065 1 “ 

' XCT ■ 

MFWLOC 



02 34 

- opp 

2 

T AS T 

"17X6 

“1117X104 

7 4364'"D 

MASK' 

FBAATKMSK 




q23«3 reF 20 — LAST 1216 r)TTTTo5 50 LGCCTr” 

0^36 P“ET^"TT' LA:Sl^T?r5 TTl * n06 6 0165 0 ' AX) BANKSFT 


0237 wEf — rrr l a sn 2T6"‘ "xrr, s ittt 54 066 0 rs ovwLor +1 


0233 

RFF '71 

LAST 1216 

01.31 ITT 

■ Tir DT4“ 

n: 

023 9" 

REF 3-' 

nfST 121? 

01,3111 

r~2704 

i 

0240 

1 

Lu. 

LT 

r>: 


oTTTTTT" 

1 2674 

1 








errs L UCC T R^ special ireatment if this job was 

“TCF SETlQCr already IM THE KUN" ( 0) XXlSITinNV 

“TCT SPECTFST 
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L 

hXFCUT IVE 









USER*S PAGE 

NO. 10 EO S3 




P0241 



PRIORITY CHANGE. CHANGE THF 

CONTENTS OF 

PRIORITY AND SCAN 

FOR 

THE JOB OF HIGHEST 

PRIORITY. 


















02^3 

REF 

40 

LAST 

1216 

01,3113 

54 164" 

0 PRIOCH2 

TS 

LOG 






0244 

REF 

2 54 

LAST 

1216 

01,3114 

3 5021 

1 

CAF 

ZERO 


SET FLAG TO TELL 

ENDJOB SCANNER IF 

THIS 


IT, 

O 

REF 

112 

LAST 

1215 

01, 31 15 

54 130 

1 

TS 

BUF 


JOB IS STILL HIGHEST PRIORITY. 



0246 

RFF 

9 

LAST 

1213 

01,3116 

3 5046 

0 

CAF 

LOW? 






02^7 

RFF 

1 8 

LAST 

1216 

01.3117 

7 0167 

0 

MASK 

PRIORITY 






0248 

REF 

ll 

LAST 

1216 

01,3120 

6 0063 

1 

AD 

NEWPRIO 






024^ 

REF 

19 

LAST 

1217 

01 , 3121 

54 167 

0 

TS 

PRIORITY 






0250 





0 1 , 3 ], 5 2 

4 0000 

0 

COM 







0251 

PEF 

1 



01, 3123 

1 3030 

0 

TCF 

J03SLP2 


ANO TO EJSCAN. 
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L 

EXECUTIVE 








USER’S PAGE 

NO. 11 

EO S3 



















P0252 ■ 



(RELEASE THIS CHRtf SET AND VAC 

AREA 

AND 

SCAM FOR THE JOB OF 

HIGHEST ACTIVc PRIORITY. 





0254 




01, 3124 

0 GO Oh 

0 

ENDJOBl 

IMHINT 






0255 

REF 

255 

LAST 1217 

01,3125 

4 5021 

0 



CS 

ZERO 






0256 

REF 

113 

LAST 1217 

01,31 26 

54 131 

0 



TS 

BLIP +1 






0257 

EF 

20 

LAST 1217 

01,3127 

56 167 

1 



XCH 

PRIORITY 






0253 

REF 

10 

LAST 1217 

01,3130 

7 5046 

1 



MASK 

LOW 9 






02531 

REF 

160 

LAST 1215 

01,3131 

54 0 01 

1 



TS 

L 







025 8 2 

REF 

2 

LAST 1208 

01,3132 

4 5226 

IT 



CS 

FAKEPR ET 






025821 

REF 

161 

LAST 1213 

01,3133 

6 0001 

0 



AD 

L 

■ - 

_ . — . 

- ----- 




0?583 


01,3134 0 0006 1 


EXTEND 


025B4 REF 


LAST 1215 


01,3135 6 3141 0 


R7MF 


EJSCAN 


NOVAC fNDOFJOB 


0259 


REF 162 LAST 1218 


01,3136 10 001 1 


CCS 


L 


0260 

0261 


322 LAST 1211 


01,3137 

01,3140 



OOP 

000 


INDEX 
TS 


0263 





last r2T^ 


1 . 


0264 


REF 12 LAST 1217 


01, 3141 
01,314? 
01,31 


0 3206 0 
0 574T^ 



0 26 3 


0 1 ,"3r44" 1314 5 T) 


TC 
TC“ 

TTF 



V 
EJl 

Z 



IT 



027 0 


tef 


0271 


:rEF 

REF 


7T 

2^4 


LAST 121& 
LAST TZTF 
L TTST TZTT 


01, 315 1 
01,3152^ 

UTTOITT 


10 233 I 

0 3206 0 


THTS 


um: 


01,3154 


STSTCTT 
1 3155 1 


- C C ST>F 


TC~ 

UTS 


PRIORITY 

or 



FPTOlRTTY 


TTF 


TJ7T4 

unr 

0276 


n‘ ^ rr 

T' _ r 

R FF 


LAST 12183 




“T 

T4 


LAST 1218 
I AST"^ 


17X7-3 13 3 

Ol , 'U 56 


10 247 T 


zxrs 


PRIORITY 


0 3206' T7 



ir27T 


771663X577 X) 5747 " 0 
TTITirSTr^T' 31 61 0 




+ r 


77278 
02"? 7 
0280 
■Q" 


TFF~ T6^ 


.■< 


RTF 


*3 

IF 


LTST’ I 

F 

mr 


771 , 



2 63 



L 

rm 


7n,TT52 

01,3163 




I 

U 

77 




PPIOPITY +60D"' 


Tzr 

TCF 


+1 


0282 

RET" 

"FT — rAST" 

121 8" 

01,3165 

TTTTTr 

"T 

7XS 

PRltJKilY +^2D 

02T3 

REF 

■ 5 — LAST 

1218 

rm 3 1 SF^ 

'U 3 206 

0 

T C 

fc J 1 

0234” 

REF 

“T6 LAST" 

1218 

014X1 ^ 

0~ 5 747 

XT 

TC 

cc shol e 

0285 




0 1 V5"l T(r~ 

1 5171 

1 

TCF 

+1 
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EXECUTIVE 

USER'S PAGE 
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P0286 



FVAIJ 

DATE THE RESULTS 

OF THE 

SCAN. 






02 87 

REF 

114 

LAST 

1218 

01, 3171 

10 131 

0 


CCS 

8UF +1 

SEE IF THERE ARE ANY ACTIVE JOBS WAITING 


0 2 s 

REF 

17 

LAST 

1213 

01,3172 

0 5747 

0 


TC 

ccshole 



02 89 

REF 

13 

LAST 

1219 

01,3173 

0 5747 

0 


TC 

CCSHOLE 
















02 90 





01,31 74 

1 3176 

n 


TCF 

+ 2 



0291 

REF 

2 

LAST 

185 

01,9 17'=' 

1 3223 

0 


TCF 

DUMMY JOB 



0292 

REF 

115 

LAST 

1219 

01,3176 

10 130 

1 


CCS 

BUF 

BUF IS ZERO IF THIS IS A PRIOCHNG AND 


0293 





01,3177 

1 3201 

0 


TCF 

+ ? 

CHANGED PRIORITY IS STILL HIGHEST. 


02^4 

REF 

2 

LAST 

1213 

01,3200 

1 3005 

0 


TCF 

ENOPRCHG -1 
















0295 

REF 

323 

LAST 

1213 

01,3201 

50 000 

1 


INDEX 

A 

OTHERWfS'E, "SeT NEWJOB TO THE RELATIVE 


02‘''6 





01,3202 

2*7777 

0 


CAF 

0 -1 

ADDRESS OF THE NEW JOB'S CORE SET. 


0297 

REF 

1 



01 , 3 20 3 

6 3153 

0 


AD 

-CCSPP 



0298 

REF 

19 

LAST 

1215 

01,3204 

54 067 

1 


TS 

NFWJOB 




:> zc 

4 

LAST 

1215“ 

01,3205 

1 2725 

1 


TCF 

CHANJDB -2 




0300 

r EF 

116 

LAST 

1 21 9 

01,3206 54 132 


EJl 


BUF + 2 



0301 

RlF 

TTT^ 

LAST 

1219 

01,3207 

6 0131 

1 


AD 

BUF +1 

- OLD ITT TOFTTT, 


0302 

REF 

3^4 

LAST 

1219 

01,3210 

10 000 

0 


CCS 

A 



uvn 

REF 

118 

L AST 

1219 

01,3211 

4 0132 



CS 

BUF +2 ^ 



■ ryjuz 

RTF 

1 



01.3212 

1 3217j 

0 



r J2 

NEW HIGH PRIORITY. 


0305 





91,3213 

13 214 

1 


NOOP 




0306 

REF 

290 

LAST 

1210" 

01 ,3214 

“TO ^71152" 

0 


index 

0 








01,3215 

(T nno 2 T 


TC 

2 

PROCEED WITH SEARCH. 



030 'T 


11 9' 

~t7!rST 

1219 

Ui, 3215 

54 131 

0 



BUF +l 



03UT^^ 





OirTTIT 

D (TOOT 

1 


EXTEND 




orra — 

REF 

~T2jr 

L“AST 

1?T9 

01. 32'20 

27/ Tm 

0 



"BUF 

FOR LOCATING CCS PRIUHITV + X INSIU. 


cmn 


~Tzr 

“IJTST 1219 

01,3221 

*• 1 1 -rt • 1 

JL ^ w 



INDEX” 

BUF 



0312^ 





nr, 32 2 2 

cr OTjo? 



TC 

2 
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P^‘i4 IDLING AND COM'^UTER ACTI V IT Y ' ( GR EEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF, 

^3r6 ' '3UT RATHER A SUBROUTINE OF THE EXECUTIVE^ 2. 

031 q ITeF a last 263 1361 EBANK= SELFRET SELF-CHECK STORAGE TN EBANK. 


II 


0319 

REF 

256 

LAST 

1218 

01* 3223 

A 5021 

0 

DUMMYJOB 

cs 

ZERO 

SET NEWJQB TO -0 FOR IDLING. 

03 ?. 0 

REF 

20 

LAST 

1219 

01,3224 

54 067 

1 


TS 

NEWJOB 


0321 





01,3225 

0 0003 

1 


RELTNT 



032? 

REF 

64 

LAST 

1215 

01*3226 

4 5015 

1 


CS 

TWO 

TURN OFF THE ACTIVITY LIGHT. 

0323 





01 , 3227 

0 0006 

1 


EXTEND 



032A 

o cc 

• N 1- I 

31 

LAST 

1215 

01*3230 

03 on 

1 


wand 

DSALMOUT 


032B 

RFF 

21 

LAST 

1220 

01.3231 

10 067 

1 

ADVAN 

CCS 

NEWJOB 

IS A NEWJOB ACTIVE ? 

032.9 

REF 

1 



01,3232 

1 3032 

1 


TCF 

NUCHANG2 

YES... ONE REQUIRING A CHANGE JOB. 

0330 

REF 

65 

LAST 

1220 

01.3233 

3 5016 

0 


CAF 

TWO 

NEW JOB ALREADY IN POSITION FOR: 

03 31 

REF 

1 



01, 32 34 

1 324?“ 

T” 


TCF 

NUDIRECT 

EXECUTION. 













0331 7 

o zf 

5 

LAST 

1220 

01,3235 

3 13 61 

1 


CA 

SFLFRET 


033 18 

REF 

163 

LAST 

1213 

01,3236 

54 001 

1 


TS 

L 

PUT RETURN ADDRESS IN L. 

0332 

REF 

1 



01,3337 

3 3241 

0 


XAF 

SELFBANK 


0333 

p e F 

4 

LAST 

63 2 

01.3240 

1 sTTir 

1 


TCF 

SUPDXCHZ *»- 1 

AND DISPAICH job. 




■ 0JTTi5“ 

‘ P 

C t 

62 

TA^r 


1361 



SELFRET 



0334 

E F 

3 

“ITST 

263 

01 , 3241 

5"6T7)2 1 

SELFBANK BHCTJN“' 

TtLFCHK 














0335 





01,3242" 

0 0006 1 

“"RUDIRECT extend 


TURN THE GRhtN LIGHT BACK ON. 


0336 

REF 

32 

LAST 

1220 

01, 3243 

on 1 

W0‘^ 

OSALMnUT 



0337 

REF 

41 

LAST 

l?l 7 

01,3244 

52 165 1 

OXCH 

"uit; 

JOBS STARTED IN THIS FASHION 

^lUS T BE 

01372“ 

K T F 

5 

LAST“ 

1220 

01 ;i7X5“ 

1 52*27“ 1 

Tcc - 

SUPDXCHZ 




033 7 8 





5 227 " 


BLOCK 


IN FIXED-FIXED SU UIHEKb I^AY 

Ubt . 


0337 9 


2^:01 ST 1208 TO 1211 


5sr 


w 


COUNl 02/EXEC 


R037T9T“'SiJPT)3<a37"'^i^TirrrTITr in IRANSFER in SUPEKBANK. 

IT07T792 CALLING SEOUENCE 

A n ^ 1 T - i TXT SUPOXCH ' Z WITH 2LA'UR OF OfcSIRED LOCATinN IN A + L. 


03 3 1 REF *16‘A LAST 1220 5727 5F 00113 SUTDXCHZ XCK ~ X 


03381 



5230 

“0 00 06 

1 

+ l ' 

E X T t ND 







0338?" ITEF *T7“ 

LAST 

121 5 


01 OO'T 

1 


WRITE 

SUPFP"BNK 






03W3 RTF 74 

TATsrr 

1215" 

5232 

54 006 

TT 


TE 

BBANK 






03384 REF 165 

LAST" 

1220 " 

52 33'" 

O'" 0 OCT" 

0 


TC 

L 




















0339 



5234“ 

^7 3 7 f 


S'] t VJF i VJ * 

X CICT 

77677 ““ 
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WAITLIST 


USER* S PAGE NO. 


EO S3 


ROOOl 


PROGRAM DESCRIPTION 


DATE 


10 OCTOBER 1966 


R00Q3 

R0005 


MQO NCI - 2 
MOO BY - MILLER 


LOG SECTION 


WAITLIST 


(DTMAX INCREASED TO 162.5 SEC) 


ASSEMBLY SUNBURST REV 5 


R0n072^ MOD i TY KERNAN (INHTNT INSERTED AT WAITLIST) 2728/68 SKIPPtR REV A- 


R00073 MOD 4BY KERNAN (TWIDDLE IN 54) 3/28/68 SKIPPER REV 13. 


R000799 


Roooa 


R0009 


ROOll 

R0013 


R0014 
ROOl 6 


R0017 

pool 3 


P 001-1 


R0020 

R0021 


R0022 

rOo2i 


FUNCTIONAL DESCRIPTION 


PART OF A SECTION OF PROGR AMS , -WA ITL I ST , TASKOVER, T3RUPT, USED TO CALL A PROGRAM, (CALLED A TASK), 

WAITLIST UPDATES TIME3. LSTl AND LST2. THE MEANING op THESE LISTS 


WHICH I S TO 8PGIN IN C ( A ). CENT I SECONDS . 
FOLLOW. 


C ( T IME3 ) = 16384 -(Tl-T) C ENT I SECONDS . (T = PRESENT TIME, Tl-TIME FOR TASKl) 


CTrs T n 


= -(T2-T1)f1 


CfLSTl +1) = 




(LSTl +2) = 


(T3“T2)+1 

(T4-T3)+l 


C(LST1 +6} = -(T8-T?)+1 


C(LST 1 +77 = -(T9-T8)+1 


R0024 

Fl n 07^ 


R0027 

R aoz7 


R002"^ 


R 0 0 3 1 


3 


R00T4 


R00 7? 





C(LST2) 


Ts:sKr 


C(L:^2~727 = Of TASl^ 



TTniTTZ ^ 41=~2CA0R OF 1ASK11 
C(LST2 +16J= 2CA0R 




f T 


1) 1 <= C(A) <= 16 
) 9 TASKS"MA7 JWim 
3) TASKS CALLED UNDtR IMTFRRUPT 
A) TASKS -‘7^ 3T- TTT'rA SKT) VF7 




ROOT& 


CALLIN'7 S'cOU^ 



R 0 03 T 




€7^ 


T)^"T7rr 


TTTK^TT^'tbNl ISbCOiNJO'S" lU TASK 5TARTT 


R0039 


R004rj 


ROO^ 


I 

r+1 

1 

r+T 


WATTUIS^ 

n E S I P, E D “T53K: 




2CA7R’" 

IHINflP l)~F 2CAnR7 
RFLTT’-T 


(RETURNS 



R-00-47T TWTDDrE 



TTT 
R 0777 2 3 



I S b i‘ s USP WRT N T H E TA SK BETNTTSbl UP IS IN THb bAnt: tbANK 


AS THE USER 


rtttttz 


Id 


SUrTTXTVS H S ' 17 


5~~ a p D Kl WAITLI5T 8Y EL“T2TNA1ING THt NEED PGR THE BBCON HALF OF THb^ZCAORt 
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WAI TLIST 


USER'S PAGE NO, 


EO S3 


R 0042 7 


SAVING A WORD, 


TWIDDLE IS LIKE WAITLIST IN EVERY RESPECT EXCEPT CALLING SEQUENCEt TO WIT 


R0043 


L-1 


CA 


OELT AT 


R00431 


TC 


TWIDDLE 


ROO'i-3 2. 

R00433 


111 

L + 2 


ADRES DESIRED TASK 

RFL Ii\iT 


(RETURNS HERE* 


P 00439 NORMAL EXIT MODES- 


P0044 


AT L+3 OF CALLING SEQUENCE 


K 004:5 


ALARM OR ABORT EXIT MODES- 


R0QA6 

P0047 


TC 
OCT 


ABOR T 
1203 


(WAITLIST OVERFLOW 


^00 MANY TASKS! 


R0048 


ERASABLE INITIALIZATION REQUtREO 


R0049 


ACCOMPLISHED BY FRFSH START, — LST2,. 


R0050 


I S T 1 1 


• f 


• f 


LST2 +16 =ENOTASK 


LSTl +7 =NEGl/2 


ROO'51 


OUTPUT — 


R0052 


LSTl AND LST2 UPDATED WITH NEW TASK AND ASSOCIATED TIME 


R0053 


DEBRIS 


R0054 


CENTRALS- A.D^L 


R0055 


R0056 


DFTAILE 


OTHER 
ANALYSIS OF TIMING- 


WAlTEXlT, WAI f ADR , W A ! TTFMP , WAITBANK 


ROD 5 7 


R0059 


CONT'^.OE WILL NO i BE 

T^Y 


TTfE APPRO XT' 



RFTU vNEO ITT “THE 
rXA L CUrATEU ITS^ 




( 2C A DRT 


I N EX AC TL Y i)E L I A I CE 



R 0 0 6 D 



R0061 


Mc OF THE TC WA I I L I ST 
LET TS = TO +1471) + 



rSET 


R0062 

R0063 

TOO 64 


LET X — = TS -{ iOOTS) /lOO (VARUNCF FROM CuUNTEkT) 

LET Y — LENGTH OF TTME^OF I NHl BTr'lNTETlRUPT AFTER T3RUPT 


rCR ARE’^DUF'THTS TBTOJFT^^JT UISPA 


P 0066 

'R0067 


(Z4=o, USUALLY! 





R0069 


X 

TTTEN 



OELTD 


ACTU^ATXTMF^TAKFFn^ CUNTRTII TU "ZCTTDTT 

A'T“-X +X +X + I.05MS* 




— u 

ATTLIST ITSELF AND THE countlR ticking DURING this WaiilisO r imE. 


R0071 


ROOT? 

kOO/'A 


I N SHORT, T HE ACTUU T IME T O RE T URN CUN I kO L TO A' 2CA!^R IS AUGMENTED BY mb TIME (U SH up \Ht iAb K:S 

TTrn^PRTJPTt A"rL' CnUN'rErR'S~TTCKTTrGV T1TE^3 RTTPX PROCESSING T^MF^TErF1^|fAI ILIST FPOCESSING TIME AND THE FUSTS TBT 


TTOcrns 


THE“ TTT 





BLOCK or 
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L 

WAITLIST 







USER'S PAGE NO. 3 EO S3 


0073 

REF 14 

LAST 193 

E3, 1400 



EBANK= 

LSTl 

TASK LISTS IN SWITCHED E BANK. 


0079 

REF 1 





COUNT 

02/WA IT 











0079B 



52 3 5 

0 0004 

rs 

V> 

TWIDDLE INHINT 



0080 

PFF 166 

LAST 1220 

5 ?. 3 6 

54 0 01 

1 

fs 

L 

SAVE DELAY TIME IN L 

GOBI 

REP 35 

LAST 1135 

5237 

3 4777 

1 

CA 

PnSMAX 


0032 

REF 291 

LAST 1219 

5240 

26 002 

1 

AOS 

Q 

CREATING OVERFLOW AND 0-1 IN Q 

0083 

REF 25 

LAST 1220 

52A1 

" T 0006 

1 

CA 

BBANK 


0033 2 



5242 

0 0006 

1 

EXTEND 



0083 4 

REF 18 

LAST 1220 

5243 

04 007 

1 

RGR 

SUPERBNK 


0084 

REF 167 

LAST 1223 

5244 ■ 

56 001 

0 

XCH 

L 



00^49 



5245 

0 00 04 

0 

WAITLIST INHINT 



00 84 95 



5246 

0 0006" 

1 

EXTEND 



003496 

REF 1 


5247 

6 5261 

1 

BZMF 

WATLSTO- 


0085 

t ‘ £ F 292 

LAST 1223 

5250 

56 002 

0 

XCH 

Q 

SAVE DELTA T IN 0 AND RETURN IN 

0086 

RFF 1 


5 251 

54 061 

1 

TS 

WAITEX IT 

WAITEXIT. 

0087 



5252 

0 0006 

1 

EXTEND 



0083 

REF 2 

LAST 1223 

5 253 

5 0061 

0 

INDEX 

WAITEXIT 

IF TWlDDLTTiG^r THE T$ SKIPS TO HERE 

00B9 



5 2 54 

"TlDOOl 

0 

DCA 

0 

PICK UP 2CADR OF TASK. 

0090 

RFP 1 


5255 

54 063 

0 

TS 

WA ITADR 

bbCon will remain in L 

07m 

"TTeF I 


5256 

3 5265 

“TT 

ULY2 CAF 

WAI TBB 

PNTRY FROM FIXDELAY ANH VARDELAY. 

0092 

REF 26 

LAST 1223 

52 57 

56 006 

i 

XCH 

83ANK 


0093 

RFF 1 


5260 

1 32 46 

0 

TUF 

WAIT? 













~T^ ~ 

LAST 1184 

STST 

0 5721 

0 

WATLSTO- 1C 

p n □ 0 u ■ j 


00936" 



52 6 2 

01 2 04 

~0“ 

_ — 

1 2 04 

WA^ITLIST call WITH ZERU OR N^G DT 










R0094 


RFTURN TU 

CALLER AF‘ 

FEP TASIT 


o t K 1 J. U N • 











1 

0095 


LAST 1T23 

5 26T 

— S2~CT6T 


TWrCTST nXCH 

WA 1 Tl: X 1 t 


009v4 

R E r- 66 

LAST 1220 

52 64 

6 5016 

0 

50 

TWO 


CRT97 





52 007) 

“7r 

DTCB 




007^^5 

"TTET r5~ 

LAST 12Z3 

L 3, 1400 



EBANK= 

LSTl 


— cnuD 

REF 2 

L AST 1223“ 


■" TT2'aTT 

“0" 

' W ATTITF BBCON 

WA 112 

1 - — — 1 - = ■ - - ■ ■ - ■ T ■ Mg- . — - - ■ , — ■ = ! — -i — ^ — 










ROlOi 


RETURN TO 

CALLER +2 

A F T F R W 

Al r iNG OT SPtLlFIhU 

in C ALL tK + 1 . 











0102 

■i’cF 293 

LAST 1223 

r>26 f 

50 OOP 

“U“ 

F IXDELA'r INDEX 

Q 

BuTH ROUTINES ^UST BE CALLED UNDER 

OTOl 



STTTT 

— njrmrr 

T" 

CAF 

0 

waitlist CLINIWIJL AND TERmINAIL i HE 1 ASK 

0104 

“Rrl- 294“ 

TTTST^TZZT 

" :*2n 

2Truc2 

TT 

- — — INCR“ 

Q 

IN WHICH 1 HcY WERE CALLED. 


k0l05 


RETURN TO 

CALLER +1 

AFTER WAITING IMF DT AS AK! 

U V ING IN A. 










_ m ■ _ L #i‘% ^ ^ mm f f k I 1 11 T ▼ — H — ^*1 - •"' - - — 

oro's — 

K t F 2 5 

CAST 122T^ 

5272 

— 56“ 002 

0 

miARUtLAY XCH' 

y 

OT TO TASK AORES TO WAIT ADR* 

OTT57 

2~ 

LAST l2Zr 

Trrr 

54 0 69 

0 

1 s 

WAIT AGP 


0T01 

"mn^ 27 

L ATT T:72T' 

5? /4 

■ 3“7jrnT6' 

T“ 

“ CA 

8 B A M K 

BBANK IS SAVED DURING OELAY* 

"0109 



5775 

T7 0006 

~T~ 

TXTFND 



.... ■ 1 ■ ■ ■ ■ 


0110 

RFF 

19 

LAST 

1223 

S276 

OA 007 

1 

ROR 

SUPFRBNK 

ADD SBANK TO 3BC0N. 

0111 

RFF 

16R 

LAST 

1223 

3 277 

34 001 

1 

TS 

L 


0112 

RFF 

1 



S300 

3 5303 

1 

CAF 

OELAYEX 


0113 

REF 

L. 

\ 

LAST 

122 3 

5301 

54 061 

1 

TS 

WAITEXIT 

GO TO TASKOVER AFTER TASK ENTRY. 

0114 

RFF 

1 



3 30 2 

1 52 56 

1 

TCF 

nLY2 



011^’ 

R E f" 

57 

LAST 

103 9 

5303 

1 5322 

0 

DfLAYEX TCF 

TASKOVER -2 

RETURNS TO TASKOVER 


WAITLIST 


OSFR'S PAGE NO 


E3 S3 


R0116 

ENDTASK 

►lUST 

BE ENTERED 

FIXED-FIXED 

so IT IS 

DISTINGUISHABLE BY ITS 

AORES ALONE. 







OllB 

REF 

16 

L/iST 

1223 t:3. 

1400 




EBANK= 

LST1 







0119 

R EF 

1 



5304 

72471 

0 

FNDTASK 

-2CA0R 

SVCT3 







0119 

REF 

1 



5305 

73 714 

1 



























0120 

REF 

18 

LAST 

1067 

5306 

10 076 

1 

SVCT3 

rxs 

FL AGWRn2 

DRIFT FLAG 






0121 

REF 

53 

LAST 

1224 

33 0 7 

1 5324 

0 


TCP 

TASKQVER 







0122 

REF 

59 

LAST 

1225 

5310 

1 5324 

0 


TCP 

TASKOVER 







0123 





5311 

1 5312 

0 


TCF 

+ 1 








01231 

REF 

2 

LAST 

192 

5312 

11*322 

1 


CCS 

I ‘^UCADR 

DON'T DO NBDONLY IF SOMEONE ELSE IS IN 

01232 

P EF 

1 



5313 

1 7717 

0 


TCF 

SVCT3X 


01233 





5314 

1 531'^ 

0 


TCF 

+3 


01234 

REF 

2 

LAST 

122 5 

53 15 

1 771*^ 

0 


TCF 

SVCT3X 


01235 

REF 

3 

1 A S T 

1225 

5316 

1 7717 

0 


TCF 

SVCT3X 


0124 

P E^ 

1 



5317 

3 7672 

0 

+3 

TCT 

PR 103 5 

COMPENSATE FOR NBD COEFFICIENTS ONLY. 

0125 

“R£F 

30 

LAST 

1015 

5 3 20 

0 5! 34 

1 


TC 

NOVAC 

ENABLE EVERY 81,93 SECONDS 

0126 

REF 

7 

LAST 

822 

E3 ,1460 




"“EBANK= 

NfJOX 


0127 

REE 

“T” 



^T2T 

0T542 

1 


2CA0R 

NBDONLY 


0127 

REF 

1 



5322 

140 63 

1 





01276 

REF 

60 

LAST 

1225 

5323 

1 5324 

"0“ 


TCF 

TASKQVER 














<517777- 

R EF 

“T~ 



6000 




SETLOC FFTAG6 


01277 





7717 




^mK 




0128 

REF 

“TT“ 
■ ^ 

last 

877"“ 

rrrr 

0 5267 1 

SVCT3X 

TC 

F lXI3bLAY 

DELAY MAX UF d IlMtb FUK 1 MU £tKVJ 

012 a 2' 





7720' 

00764 

"T" 


nTEC 

500 


012B5~ 



TA^ 

122 5“~ 

7T7T" 

0 53 06 

T “ 


"TC' 

SVC 13 

CHFCK UR I F 1 FLAG AGATN 
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L 

WAITLIST 








USER'S PAGE NO. 

6 E3 S3 



P0129 



BEGIN 

TASK 

INSERTION 

* 








01^0 





01 ,3246 



BANK 

01 




0131 

REF 

1 






COUNT 

01/WAIT 





0 132 

•' EF 

1 



01,3246 

54 062 

1 

WAIT2 TS 

WAITBANK 

BBANK OF CALLING PROGRAM. 


0133 

?EF 

2. 

LAST 

190 

01,32^7 

4 0026 

1 

cs 

TIME3 




0134 

PvEf 

25 

LAST 

1158 

01,3250 

6 5010 

0 

AO 

BITS 

BIT 8 = OCT 200 ■ 



0135 

REr 

325 

LAST 

1219 

01,325 1 

10 000 

0 

CCS 

A 

TEST 200 - C(TIME3). 

IF POStTtVEf 


A0136 








IT means THAT TIME3^ OVERFLOW 

HAS OCCURRED PRIOR TO CS 

TIME3 AND THAT 


A0137 








C(TIME3I = T - 

TTN^INSTEAD OF 

TTO - m - T), The fol 

rOFl NG FOUR 


A0138 








ORDERS SET CIA) 

= TD - Tl + 1 

IN EITHER CASE. 
















0139 

P EF 

2 

LAST 

1204 

01,3252 

6 6056 

1 

AO 

GCT40001 

DVERFLO^T HAS IXCUPREd. 

SET CIAI“ = 


0140 

REF 

326 

LAST 

1226 

01,3253 

4 0000 

0 

CS 

A 

T - T1 + KO - 201 




P0141 

MORMAL CASE (C( A) NM7 ) Y I TUTF 

; SAMf crsT 

1 »( -( l.O-(T] -T) ) + 200T - 1 




0142 

REF 1 


01 ,3254 

6 3402 1 

AD HCT40201 



0143 

REF 29? 

last 12T3“ 

01 ,3255 

6 000? 0 

AD 0 

RESULT = TD - T1 + 1. 



o 

IS 

REF 327 

LAST 1726 

01,3256 

10 000 0 

CCS^ A 

TEST TO - 11 + 1 










0 1 4 5 

REF 17 

LAST 1225 

01,3267 

6 1400 1 

AD LSTl 

IF TD - T1 POS, GO TO WTLST5 WITH 


0146 

REF 1 


01 ,3260 

1 3322 0 

TCF WTLST5 

ccAj = (TO - try + cnrsTTT = Tn-T2+i 










014^ 



01, 326T 

13 “2 62 "0 

NCinp 



0148 

REF 297 

LAST 1226 

01 ,3262 

4 0002 1 

CS 0 











R0140 

NOTE THAT 

THIS PROGRAM SECtl^ 

ON iS nEWr 

ENTERED' WHEN T-TI G/t -1 , 



R 01 50 

SINCE TD- 

Tl+l = (TO- 

T) + (T- 

n+1), AND 

DELTA T = TD-T G/E +1 . 1 GTE 



R0151 

symstttmfws greater than OIT 

"EQurn: TD)". 

TmS TlTER E NEED BE^NET C DIT- 



R0152 

CERtNi nVFR 

A PREVIOUS 

OR IMMINENT GVt-RFLOW OF TIM?.3 HERE. 












'KFf F 

LAST~rOH7 

01,3263' 

“5~5TK)irir‘ 

ATT PTTST72 

WHEN TO IS NEXT, FORM QUANTITY 


0154 

REF 9 

LAST 1??6 

01,3264 

6 5002 0 

sn pnsi/2 

1.0 - DELTA t= 1.0- (TD-T) 


' 0155 

RET 

LAST 1226 

01,326rF 

56 026 0 

XCH TIMES” 



0 1 56 ■ 

REF 12 

LAST 1148 

01 ,52TF 

”6 5FD1~ 0“ 

AO NEGMAX 



0157 

REF 298 

LAST 1226 

01 ,3267 

6 0002 0 

AT5 0 

1.0 — DcLTAT T NUW CUNPLb I E. 


015S 



0 1 . 3'27 a 

— u^mo^TT 

E X TEND ' 

ZERO INDEX Q. 


or59 



01,3271 

22 007 0 

“QOTCH T 

( ZO) 
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WAITLIST 


0160 


REF IS LAST 1226 


0161 

0162 


016S 


0164 

0165 


0166 


0167 


0165 


0169 

0170 


0171 

0172 


0173 



0176 


0 

0178 


j5Tm 


AOiai 





TTT^ 




LAST 1227 
LAST 1227 


REF 21 LAST 1227 


REF 

R^F 


22 LAST 1227 

23 LAST 1227 


REF 24 LAST 1227 


REF 25 LAST 1227 


REF 


LAST 1223 


RFF 


299 LAST 1226 




REF 


REF 

REF 


21 

H 

2 3 



REF 

R~EF 

RFF 


24 


LAST 191 
LAST 1227 
LAST 1227 
LAST 1227 

LAST 1227 
LAST 1227 





last 1227 

LAST 1227 

l9r 



tlt^T 


■"2 73 


01 » :> 
01.3274 


01 


01 t3303 
01.3304 


01 . 3305 

01 .3306 


01.3307 


01,3310 


01,3 


TT2 


ui , 3313 
01.3314 


57*401 
57*40? 


01,32^5 57*403 1 


01.3276 57*404 0 

01.3277 57*405 1 


01,3300 57*406 1 


50 002 0 
1 3305 0 



53 

^ 

01.3311 53 


5T 





415 1 



"423 

4 


0 

0 

r 





0i,33T^ 6 5304 71 


01.3272 57*400 1 WTLST4 


01.3301 57*407 0 


30? 3 0063 1 


XCH 


XCH 

XCH 


XCH 


XCH 

XCH 


XCH 


XCH 


CA 


IND EX 
TCP 


DXCH 

OXCH 


DXCH 


DXCH 

DXCH 

DXCH 


D X C H 

dxCh 



TO 


LSTl 


LSTl -1-1 
LSTl +2 


LSTl +3 


LSTl ^-4 
LSTl +5 


LSTl +6 


LSTl +7 


waitadr 



rrr? 

LST2 


LST2 +4 


L 5 

LST2 +80 


LST2 +100 
L TT 2 4-1 TO 
ST2 +14D 


L 'STZ^+T 
ENDTASK 


<11,3 3 r? 0 0006 T 


EXTEMT 



* \ 


Ti2 




7TTT5TTT 


T 

1 3^75 1 



TCT' 


L vwn; TST 

WTARORT 


USER'S PAGE NO 


E3 S3 


(MINOR PART GF TASK CADR HAS BEEN IN L.) 


FRU, CHECK THAT r(LST2+10) IS SID 


FNTJ 



ITEM, AS CHECK hOR EXCEEDING 

LENGTH rlF THE LIST. 


DUMMY TA5K“ADRES SHOULO bb INTT 
FIKEmn ITS AURES ALONE UlSTING 

rn 


T 5 HFS 


GAP: 

ASSEMBLE P 

EVISION 055 

nr AGC 

OOftAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. 1,1969 CHIEFTAN.028 

PAGE 1228 




L 

WAITE 1ST 









USER'S PAGE NO. 8 

63 S3 




0ir;5 

PEF 

323 

LAST 

1226 

01.3322 

10 000 

0 

WTLST5 

CCS 

A 

TEST TO - T2 + 1 




0166 

PFF 

26 

LAST 

1227 

01,3323 

6 1401 

0 


AO 

LSTl +1 





0187 





01,3324 

1 3330 

0 


TCP 

+ 4 





0188 

REF 

1 46 

LAST 

1216 

01.3325 

6 5017 

1 


AD 

ONF 





0139 

REF 

1 



01,3326 

0 3403 

0 


TC 

WTLST? 





0190 





01.3327 

00001 

0 


OCT 

1 






0191 

REF 

329 

LAST 

1228 

01.3330 

10 000 

0 

+ 4 

CCS 

A^ 

TEST TO - T3 + 1 




019;? 

RFF 

27 

LAST 

1228 

01,3331 

6 140? 

0 


AO 

LSTl +2 





0193 





01,3332 

1 3336 

0 


TCF 

“♦■4 





01 9 A- 

REF 

147 

LAST 

1228 

03 t3333 

6 5017 

1 


AD 

ONF 





0199 

RFF 

2 

LAST 

1223 

01 ,3334 

0 3403 

0 


TC 

WTLST? 





0196 





01.3335 

00002 

0 


OCT 

2 




















0197 

^EF 

330 

LAST 

1223 

01,3336 

10 000 

0 

+4 

CCS 

A 

TEST TD-T4+1 




0198 

REF 

23 

LAST 

1228 

01 .3337 

6 1 403 

1 


AO 

LSTl +3 





0199 





01.3340 

1 3344 

0 


TCF 

+ 4 





0200 


143 

LAST 

1228 

01,3341 

6 5017 

1 


AD 

ONE 





0201 

REF 

3 

LAST 

1228 

01.3342 

0 3403 

0 


tc 

WTLST2 





0202 





01.3343 

rRTO 0 3 

1 


OCT 

3 







0203 

REf 331 

LAST 1228 

01,3344 

~vy~uurr 

IT 

+ 4 ' 

CCS 


TEST TO - T5 + 1 



02 04 

REF 29 

LAST 1223 

“0T7TT4T" 


TT 


AVf ' ~ 

LSTl +4 




0205 



01,3346 

T^33 52 

1 


TCF 

+ 4 




0206 

REF 149 

LAST 1228 

01 ,3347 

6 w rr 

1 


“SD 

ONF — ^ 




0207 

REF 4 

LAST 1228 

01,3350 

0 340T 

IT 


TC 

WTLST2 




0208 



01,5351 

00004 

0 


ncT 

4 
















D7TT9 

'REF 3'37 

TAST 1228 

■'Or , 3 352^ 

10 000 

TT 


cz~s 

“A 

1 1 S 1 TO - T 6 +“1 



0210 

REF 30 

LAST 1228 

01.3353 

6 i4inr 

1 



LSTl 45 




' U7TI ^ 



01 , 33F4 

’T'TTeO 

0 


TtF 

+ 4 




0712 

“ R FF^ rSTT 

L TS T r2Z8“ 

TH.3 3 55 " 

SOTT 

1 


AD 

ONE 




021 1 

“xff r“ 

last 1228 

01,3356 

0 3405 

0 


TC 

WTLST? 




0214 



01 ,3357 

— 00005 

n: 


Dcn ^ 

5 
















urnr^ 

Rl-F 33'3“ 

LAST 1226 

01.3360 " 

10 000 

0 

+ 4 

CC 5 

A 

TtS I TU - TT + I 



0216 

REF “3T’ 

LASn223 

01 ,3361 

6 1406 

1 


AD^ 

TTSTl +6 




0217 



01 , 3JEZ 

1 3J66 

0 


TCF 

+ 4 




021S 

REF 151 

LAST 1228 

01 *33 63 

6 501^ 

1 


AD 

□nT 




IT2T9 

REF 6 


■ 01, 3364 

0 3403 



TC 

WTLST? 




0220 



— 0r7736'5~ 

0000^ 

"T 


OCT 

6" 


























• 

1 -T 1 _ 1 — - - ■ .1 ■ L . 



gap: 

ASSEMBLE 12 

EVISION 055 

OF AGC PROGRAM C^MA^4CHE BY NASA 2021113-051 

10:28 

APR. 1,1969 CHIEFTAN.028 

PAGE 1229 



L 

WAITLIST 










USER*S PAGE NO. 9 

E3 S3 



0221 

REF 334 

L AST 

1228 

01,3366 

10 000 

0 

+ 4 

CCS 

A 





0222 

r<Ef 3? 

LAST 

1228 

01 , 3367 

6 1407 

0 


AD 

LSTl +7 





02?3 




01 .3370 

1 3374 

0 


TCF 

+4 





0224 

PEF 152 

LAST 

1228 

01t3371 

6 56i7 

1 


AD 

ONE 





0225 

REP 7 

LAST 

1228 

01,3372 

0 3403 

0 


TC 

WTLST2 





022S 




01,3373 

00O07 

0 


OCT 

7 



















0227 

kEF 335 

LAST 

1229 

01 ,3374 

1 0 000 

0 

+ 4 

CCS 

A 





0228 

REF 6 

LAST 

1212 

01 .3375 

0 7755 

1 

WTABORT 

TC 

BAILOUT 

NO 

ROOM IN THE INN. 



0229 




01.3376 

01203 

1 


OCT 

12 03 






0230 

RFF 153 

LAST 

1229 

01,3377 

6 5017 

1 


AO 

ONE 





0231 

REF R 

LAST 

122 9 

01.3400 

0 3403 

0 


TC 

WTLST2 





0232 




01,3401 

00010 

0 


OCT 

10 






U7TV 




01 , 3402 

— 40201 

“0“ 

nCT40201 

“TTCT 

40201 














- - 












p 
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W^.TTL 1ST 


USER'S PAGE NO 


10 


E3 S3 


P0234 


THE ENTRY TO WTI-ST2 JUST PRECEDING OCT N IS FOK T LE TO LE T 


R023S 


N 


N+1 


R0236 


(LE MEANS LESS THAN OR EQUAL TO). AT ENTRY, C(A) = -(TO - T 


T~n 


R0237 


N+1 


R0238 


THE LStl ENTRY -(t - T +1 J IS TO BE REPLACED BY -(TO 


T + 1 ) t AND 


R0239 


N+1 


N 


R0240 


THE ENTRY -(T 


- TO ■+ 1) TS"Ti) BE IMSERTEir'r 



M 


FOLLOTTrrTG. 


R0241 


N+1 


0242 


REF 


01.3403 64 064 I WTLST2 


V^ATTTEM^ 


CCA) = -(TD -T 




0243 

0244 


REF 300 LAST 1227 


01.3404 50 00? 0 

n,340 5 3 0000 1 


INDEX Q 
C A F 0 


0245 


REF 301 LAST 1230 01.3406 54 002 1 


TS 


Q 


INDEX Value t n t cno7 


0246 


REF 154 LAST 1229 


01^3407 3 5017 1 


CAF 


0247 


0243 


REF 2 LAST 1230 
REF 302 TAST 1230 


01.3410 6 0064 0 


0249 


REF 33 LAST 1229 


01.3411 60 002 0 

01.3412 27*377 1 


AD 

I N PE XT "Q 
AD S L S 


ONE 
WAT TTEMP 


zTTr 


TTD - T 



0251 


REr T 
REF 303 


XT^ST 123 Cl 
LAST 1230 


0252 


REF 


01. 3413 

01.3414 

01.3415 


50 002 “0 


r 3272 I 


!iE 

INDEX 


TTEMP' 

0 

WTLST4 


R0253 


C(TIYF3) == 1.0 




R025B 


C ( L 
C(L 

C(LSTl+4) 



259 


R0260 


C(L 
C(LST2+2 


T-^^TCADR 
) = 2CADR 


R0261 

WQ2U2. 


CTXrrT+V ) = 2X 

C(LST2+6 ) 
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L 


002 


0266 


0267 


0270 


0271 


0272 

0271 


0274 

0275 

QT 76 

02 77 
0278 


0279 

0280 


0281 


q 2 b: 

028 3 


02 34 





02 '^^} 


TTT^ 


0297 

0298 

TJ 79 


rr 

-f 


XJ 3 TJU 


WAITLIST 


USER'S PAGE NO. 11 


E 3 S 3 


ENTERS HERE UN T 3 RUPT TO DISPATCH WAITLISTED TASK. 


01.3416 0 0006 I T 3 RUPT 


EXTEND 


P 6 F 



LAST 1224 01,3417 


007 1 


ROR 


SUPERDNK 


READ CURRENT SUPERBANK VALUE AND 



BANKRUPT 


SAVE WITH E AND F BANK VALUES. 


REF 



LAST 1096 01,342? 


012 


QXCH ORUPT 



REF 


REF 
REF 35 
REF 

PTf 


LAST 1200 
LAST 1230 


01.3423 


3 5000 1 T 3 PUPT 2 CAF 


NEGl /2 


01 , 3 A 24 


407 


XCH 


LSTl 4-7 



WUF 

ref 

REF 


LAST 1231 


LAST 1231 

Cast 123 1 

LAST 1231 
LAST 1231 


01,3427 
01 . 3+31 


4 04 


LSTl +4 

rm 


01 , 343 ? 


0 


XCH 

YUh 


MOVE UP LSTl CONTENTS, FNTFrTNU 
A VAXCTF'OE 1/2 41_ 

TO 



FOR T 6 -T 5 , CORRESPOND! 

Interval m~r^r 


THE 





REF 


LAST 1231 

LAST 1223 
L 


01.3433 

01.3434 



400 

6 4777 1 

rT 2"6 01,343 5 26 026 


ADS 


RFF 

REF 



K E F 


4 


LAST 588 
LAST 1220 
LASr T 2 3 1 


01.3436 

01,3417 



54 
4 5021 


01. 3440 5 ^ 734 0 


II 

CS 


TTTTE3 

FU P T^ GTT 

ZERO 
RUPTAGN 




T 3 = l.O - T 2 -T USING L 
WONT Tl"CK"DWTNCrWD 7 nT 




0285 "' 





01.3441 

i 

0286 

E F 

4 

LAST 

1227 

01,3442 

4 

" ~ 9 

0287 

p:ff“ 

■^b 

LTST 


Ol * 3443 

1 

023 S 

RFF 

TT 

LAST' 

123 1 

01 , 3444 

i 

^ — — - 

0289 “ 

REF 

" 3 D 

LAS I 

123 1 

0 1 , 3445 

1 

0290 "“ 

P EF ■ 


LATT" 


01. 3446 


02-1 ■■ 

•>EE 

“"? 7 ' 

LAST 

1231 

01, 3447 

i 


0006 t 



TASIT 


TT 


53»4 25n: 




FEF 33 


TZ3T 




FF — TF TEA ST 

LAST l23t 



FFF 

ITFF 


T 3 

36 


or 

01 » 345T 
01,3452 


T7n. 7 (T 
53»415 T 
53*413 1 


OXC H 
DXCH 

TTXCIT 

ITXCIT 

DXCH 

TTXCH 

DXCH 

DXCTT 



ITSTZ -1-160 
LSTV +14' 


TFTT 




UTTZ 
LST2“T6 

+77 
TI 



ITTZ 




Or.' 34 T 3 5 3 * 41 1 0 


T7XCH TSTZ 


REF 169 LAST 1224 


R FF 

7 TF 


“ 2 T 

TTTJ 


T 


orsT 


T 

rZTT 


01,3464 
0T;3465 
.3456 


TIT 

7 TT , •'+ 


56 OOr'TT 

' D“~0TT0 6 r 
or 00 7 T 
56 001 0 

0 1 , 3 52“^ cr 



rTTT^ 


EXTEND 


WRITE 

"XTR 



Sbl SUPbRBANK FROM BBCON OF 
RESUJRb ID L FUR' UXLH Zl 


"DTCF 
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L 


P0301 


0302 


03 03 


0304 


0 305 


0306 


0307 


0309 

0309 


0310 


0311 


0312 


0313 

0314 


0315 


WAITLIST 


PFTURN, AFTER EXECUTION OF T3 OVERFLOW TASK 


5324 


BLOCK 02 


RFF 


2 LAST 1223 TO 1226: 


5e 


5 ^^ 


COUNT 02/WAIT 


REF 


LAST 1231 


REF 2 LAST 1223 
ITfF 23 LAST 1223 


REF 


REF 23 LAST 1231 


REF 22 LAST 1231 


RFF 19 LAST 1231 

LAST 1232 
LAST 1232 




RFF 11 LAST 132 


03155 


0316 


5324 10 734 0 TASKOVER CCS 


PUPTAGN 


5325 3 5266 0 

5326 54 006 0 

5327 1 3423 0 


CAP 


WAITBB 
BBANK 
T3RUPT2 


5330 3 0016 0 

5331 0 0006 1 


C^ 

EXTEND 


BANKRUPT 


5332 01 007 1 


WRITE SUPFRBNK 


5333 0 0006 1 RESUME 


EXTEND 


5334 22 012 1 


OXCH 


ORUPT 


5335 

5336 


3 0016 0 
56 006 I 


NOQRSM 


XCH 


5337 52 011 0 NGQBRSM DXCH 


BANKR UPT 
BBANK 
ARUPT 


5 340 
5341 


0 0003 1 
5 0017 I 


RFLI f 

RESUME 



10:28 APR 


1.1969 CHIEFTAN,02B PAGE I 



USER' S PAGE NO. 12 


E3 S3 


IF +1 RETURN Tf) T3RUPT. 1 


0 


DISPATCH NEXT TASK IF IT WAS DUET 


RESTORE SUPERBANK BEFORE RESUME IS DONE 










GAP; 

ASSE^^PLE RFVISIUN 05*5 

nr 

AGC PROGRAM COMANCHE 

3Y NASA 2021113-051 10:23 

APR, i.l969 

CHIEFTAN.028 

PAGE 1233 


L 

WAITLIST 




USER'S PAGE 

NO. 13 

E3 S3 


P031 7 

LONGCALL 








P0318 

PROGRAM DESCRIPTION 



DATE- 17 MARCH 1967 




R0319 

program written py 

W . M • 

VANDEVER 

LOG SECTION WAITLIST 




R0320 

MOD PY- R. MELANSON 

to 

ADD DOCUMENTATION 

ASSEMBLY SUNDISK REV. 100 





R03?l 

FUNCTIONAL DESCRIPTION- 



R0322 

LONGCALL IS CALLED WITH THE O'^LTA TIME ARRIVING 

IN A,L SCALED 

AS TIME2,TIME1 WITH THE 2CA0R OF TH^ TASK 

R0324 

IMMEDIATELY FOLLOWING THE TC LONGCALL. FOR EXAMPLE* IT MIGHT 

8E DONE AS FOLLOWS WHERE TIMELOC IS THE NAME OF 

R0326 

A DP REGISTER CONTAIMTNG A DELTA TIME AND WHERE 

TASKTODU IS THE NAME OF THE LOCATION AT WHICH LONGCALL I TU 


P.0328 START 


P 0329 CALL IMG SEQUCNCE 


A0330 EXTEND 


A0331 


OCA TIMELOC 





^0332 


TC LONGCALL 





A 0333 


2CADR TASKTODO 






R033A 

NORMAL EXIT MODE- 






R0335 

IJ. TC WAITLIST 






R0336 

2J. DTCB (TO L+3 OF CALLING ROUTINE 

1ST PASS THRU LONGCYCLt 





R0337 

31. OTCd (TO TASKfiVER ON SUBSlOUEM 

PA!rS“tS THRU LONGCYCL) 






R033P 

ALARM OR ABOKT EXIT mode- 






RO'^39 

NONE 







ft0340 

OUTPUT- 






R 0 3 4 1 

LONGTIMF 'AMD" lONGTIME+1 = DELTA TlWf 






■ R0342 

LONGEXIT AMD LONGIXTT + I = RTTUTITJ PCADR 






^0343 ■ 

LONGCADR AND LONGCADR+l = TASK ’CADR 






R03'4~ 

7S'= SINGLr PRECISIW TTMF FOP waiTITST 







R0345 

Erasable initializatthn- 






RT5T45~ 

most .STCmFICANT PAPT OF OFF'' A TTMF 






R0347 ' 

1 = L'FaST SIGNTTICAMT PAT'T OF DELTA TIME 






RUW~ 

0 = ADDRESS OF 2CADft TaSK VALUE 







P0340 TTFG" T 

R0350 A,0,L 

Fr075T LUNGGADK AND LUNGCADP + 1 

P0332 LUNGEXJI AND Ll'NGEXll + l 

LUNG TI ME AND LUNGT IM ' +T 


R'a354 


THr- 

TTfLXTIW 1 NG IS" 

T’^ 3E IN 

TTXYrr-F T XE n ATID UN SWITCHED FPl^ ASIBLE ^5^ 





UJS5 




5342 

BLOCK UZ 




015"5“ 

'^EF 

4"2^‘ 

~rAST^T231 

?"3 .1400 

EBANK= LSTI 




0357 ■■ 

— PTF“ 

1“ 


5 34 2 

53*140 T LUMGCALL UXCH LONG M ME A 1 N 1 HE OtL!A IlMi^ 





0353 





U OUUb 1 ^XlbiNl UdIAlIN 2LA 
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L 

WAITLIST 







USER'S PAGE NO. 14 E3 S3 


0359 

REF 

306 

LAST 1230 

5344 

5 0002 0 


NDX 

0 


0360 




53 A 5 

3 0001 0 


DC A 

0 


0361 

REF 

r~ 


5^46 

53*13 4 1 


DXCH 

LQNGCADR 











— -- ■ ..—-mm - - - - -1 - ■ ■ - - - — — — — — ^ — jmr- — irwg^ jp L .pm. ■ — w s — M T‘1 ‘■r '■■■' SIP% ■“ T ■ K i *1 X 

0362 




5347 

0 0006 1 


PXTENO 


NOW GO TO THE APPU^OPRIATE SWITCHED BANK 

0363 

R E f“ 

r~ 


5350 

^T3 53 1 


OCA 

LGCL2C0P 

FDR THE REST OF LONGCALL 

0364 




5351 

52 006 0 


DtCB 




0365 

R E F 

43 

LAST 1233 

1-3 f 1400 



FBANK= 

LSTl 


0366 

REF 

1 


5352 

0346] i 

LGCL2CDR 

2CADR 

LNGCALL2 


0366 

REF 

1 


53 53 

02063 0 






RO 3'6 7 

:}c3}t 

THE 

FOLLOWING HAY RE T N A 

SWITCHED 

BANK. INCLUDING 

ITS ERASABLE 

dtt 











0368 




0 1. 3461 



BANK 

01 


0369 

P F 

2 

LAST 1226 T 

0 1232: 

139 1391^ 


COUNT 

01 /WAIT 












0370 

Rr-9 

1 


0] *3461 

2 3* 43 5 1 

LMGCALL2 

LXCH 

LPMGEXIT +1 

SAVE THE CORRECT BB FOR RETURN 

0371 

REF 

67 

LAST 1223 

01,3462 

3 5016 0 


CA 

~TRCi 

OBTAIN THE RETURN ADDRESS 

0377 

REF 

3 05 

LAST 1234 

01,3463 

26 002 1 


ADS 

0 


0373 

REF 

? 

LAST 1234 

01 . 3464 

55*434 1 


TT 

LONGEXI T 












R0374 



WAITLIST TASK LTINGCYC 





0375 




01,3465 

0 0006 1 

LONGCYCL 

extFmd 


CAIV WE SUCCESFULLY TAKE ABOUT 1. 25 

0376 

REF 

1 


0 1 . 3466 ■ 

4 3477 V~ 



0PB1T14 

MINUTES OFF OF LUNGTIME 

0377 

REF 

2 

LAST 1233 

Oil i46 7 

21*140 1 



LONGTIME 



0T73 


3 

L AST 12 3 4 

mr. 3 4 70 ■ 

~Tmr^ T“ 


XCS 

LONGTIME +L 

THE REASONlbG BEHIND 1H16 PAK 1 lb 

0379 

“STEF 

1 


01,3 4TT“ 

1 3510 1 


TCT 

M U C H T I ME 

INVOLVED? TAKING INTQT ACCOUNT THAT THE 

A 0380 









WORDS MAY NOT BE SIGNED CORRECTED 1 UP 

A 0381 









BASIC INSIKULllUNS 

Kwsni ■ 









DD NU T SIGN CURKECT) AND THAT WE SUBTRAC 

A 03 53 









TED 81T14 (1 OVER HALF THt PUS. VALUE 

A 038V " 









KEPKESFNi IBLE in single WORD! 

UW5~~ 




01 , 247^ 

13 473 0 


NUUP 


CANJT Gtr HERE 

0386 




01*34/3 

I' 34 74 -]- 


TCF 





REF" 

4 

LAST 1237?- 

01,3474 

11 n:37 1 


V-# w -3 

LONGI 1 ME 


0383 

R EF 


“1 jSrS T“ TTTir 

31 ,14T5 

“irXi5T0 1 


TCF 

MUCHTTFTc 


0380 




01*3476 

000 09" 1 

DRyiTl4 

■OUT 

00000 


0390 




"9X1,3477' 

zoo 09 5“ 


OCT 

20000 












mm 









LUNGC ALL 

0397 

WF“ 


LAST 1204 

01 * 3 500“ ■ 

' 3 50X2“ O ” 

"LASTTTME 

CA 

S I T 1 ^ 

Gt I BACK THE CCiRRtCT DELIA 1 FUK WAITLIST 

0303 

■REF 

5 

lAZT Trm 

■XT,. 3 5 01 

77*140 1 


a:d5 

LTITOTTT^ +T 


0395 

Rtf 

50 

LAST 1088 

01*3502 

D 52^5 r~ 


“TC 

waitlist 


um5~~ 

— c?T!'^ 

“ VV 

CAST~T234 

E3 .1400 



TFATT}r= 

“CSTT 


039 7 "■ 

"TTF^ 

I" 


01 T 3 50 3 

03r5T5 U 


■2CADRr 

XL i CAOR 

THe EmIkY T t.l OUR LUNdLAUK 

0397 

f\ r F 

1 


0 1 * :} 5 0 4 

02063 0 















■ 0399“ 

R EF 

■~~T“ 


01, ^0 5 

■T3517 1 

■“TOMORTRiV 

XA 

TSKOVCD*X 

SET IT UP SO THAT uNLY THc FIRST EXIT IS 


-4 
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L 

WAITLIST 









USER'S PAGE NO. 15 E3 S3 



0400 

REF 

3 

LAST 

1234 

01 * 150 6 

53*435 

0 


OXCH 

LONGEX IT 

TO THE CALLER OF LONGCALL 


0401 





01,3507 

52 006 

0 


DTC6 


THE REST ARE TO TASKOVER 



0402 

rn 

Tl 

70 

LAST 

1234 

01 , 3510 

3 5002 

0 

MUCHTIME 

CA 

BIT14 

WE HAVE OVER OUR ABOUT 1.25 MINUlfcS 


0404 

P.EF 

51 

LAST 

1234 

01 ,1511 

0 5245 

1 


TC 

WAITLIST 

SO SET UP FOR ANOTHER CYCLE THROUGH HERE 


0405 

PEF 

45 

LAST 

1234 

E3, 1400 




EBANK= 

LSTl 



0406 

REF 

1 



01,3512 

03465 

0 


2CADP 

LONGCYCL 



0406 

RFF 

1 



01.3513 

02063 

0 



















040B 

FF 

1 



01.3514 

1 3505 

0 


TCP 

LONGRTRN 

NOW EXIT PPsOPERLY 



R0409 



^ 35c :4c 

WAITLIST TASK 

GETCADR ■ 







0410 

R F F 

2 

LAST 

1234 

01, i 5 1 5 

53« 134 

1 

GETCADR 

OXCH 

LONGCAOR 

GET THE LONGCALL THAT WE WISHED TO START 


0411 





ni,35l6 

52 006 

0 


DTC0 


AND TRANSFER CONTROL TO IT 















0412 

REF 

61 

last 

122 5 

01.3517 

05324 

1 

tskovCdr 

GENADR 

TASKOVEft 

^ 

1 — II 


L LATITUOE LONGTTUOe SUBUQiJTIMES ~ ^ U$FR*S PAGE NO^ 1 ^0 $3 


ROOOl SUBRIUT INE TO CONVERT RAO VECTOR AT GIVEN TIME TO LATVLONG AND ALT 


ROOD? CALLING SEQUENCE 


R0Q03 L-1 CALL 

R0004 L LAT-LONG 

ROOOS SUBROUTINES USED 

R0006 R - TG-R P . A RC T AN • S E TG AMM A • S E T R E 

R0007 ERASABLE INIT* REQ. 


R0008 AXU,-AYD, AZG/TEPHEM (SET AT LAUNCH TIME) 

H0009 ALPHAV = POS I T TON VECTOR METERS B-?9 ” 

ROOlO MPAC— TIME (CSECS B-?B) ~ 

ROOll ERAOFLAG =1* TO COMPUTE EARTH RAOTUS, =0 FOR FIXED EARTH RADIUS 
R0012 LUNAFLAG=0 FOR EARTH. 1 FOR MOON ""HZ 

rWib output __ ^ 


R0014 

LATITUDE IN 

LAT 

(REVS. r3- 

0) 




R0015 

LONGITUDE IN 

LONG 

(FEVS. 

B-Ol 




R0016 

ALTITUDE 

IN ALT MFTF 

RS 8-29 





0017 

« 




30t 3750 


bank 

30 


0018 

P EF 

1 



18,2000 


Set LOG 

LATLONG 


0019 





13,2370 


BANK 













0020 

REF 

1 





U(TL)Nr~ 

TB/LT-LGT 




0021 

REF 

17 

last 


E4, 155r 


" — ERANK= 

ALPHAV 


0022 





“rT4 2^370" 

40220 0 

LaT-LONG sto 

SETPn 


0023 

REF 

2 

LAST 

540 

13, 2371 

02242 1 


I NCORPEiC 


0024 





13,2372 

00001 0 


on 


002 G 





13,2 3r3 

24007 0 

STOVL 

6 D 

SAVE TIME IIT 6— FUK R— (U— HP 

0026 

^EF 

le 

LAST 

T2T6 

18,2 174 

02152 0 


AL PH AV 


CJUTT 





13,2375 

“517^7^ r~ 

PTJSTr“"^ 

A B V A L 

0-5U= P Etik K-TU-KH 

TTO 2 3 

F 

2 - 

LAGT 

39 

T3,23T4“ 

16310 1 

STorn: 

AL RHAM 

At3S« VALUL UE R for ALT FORMULA bFLUW 

002'R 

REF 

12 

LAST 

1206 

1 3,23 7t 

11566 1 


7 irRLlVEC 

SET MPAC=0 fur EARTHt NON-ZERU FUR MUUN 

0030 





13, '24750 

71414 0 

ITD F F 

COS 

USE CO 5(0) 10 Get non— zero in mpac 

0031 

REF“ 

”zr“ 

“n^sT 

004 ■■ 

15,2401 

DI743 0^ 


LUNAFL AG 

0— 'EAK I Hf 1 — ML) UN 

0032 

REF 

1 



1 3 , ? 40 2 

26403 1 


CALLRTRP 


W33 





12, “740 3" 

7T62'4~r 

csulrtrp calx 



00 w 

— 

3 

LTLST" 

60iB 

■ r3,'240'4 

55371 1 


“IT-T Ll-RP 

RP VECTOR converted FRCJM R “B-29 

0035 





"T3T74TT5r 

77656 1 

ONTT 


UNIT KP y 1 

008^ 

RFF~ 

“rT"n7AST“ 

123 6 

13.2406 

T5152 1 

STCATL ALTHAV 

U2= 1/2 SINL FUR SETRE SUBR BELDTT 

0 OJ 7 

RrF“ 

i 



13,'2“47yT 

2 6 / 1. 0 


SbTGAMMA 

SE I GAMMA=B2/A2 FOR EARTHf— 1 FOk MuDN 

oow 





13,2410 

77674'T“ 

CALL 


SCALtU B 1 

0039 

n .,f" 

7 

“iTsm 

5171 — 

13, 2 4 IT 

' '26601 “!“■ 


SblRt 

CALC RE METERS B— 29 

004 0 





"TT,T^4T7~ 

6T54^‘4r“ 

OLD An 

usy 


oio^rr 

p r F 

""275“ 

LAST ■ 

1 2 J 6“" 

■"TT774T3" 

02157 0 


ALPHAV 


OTTO' 





1 3,7414 

68525 "0~ 

PlTDt 

USD 


0043 

^ Lm V 

21" 

L ASTT" 

TZJ6^ 

“10^,7 415 

02134 


ALPHAV +2 











— ■ -■ — ■ - 
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L 

LATITUDE 

LONGITUDE 

SUBROUTINES 





USER'S PAGE NO. 2 E4 S3 



0044 





13,2415 

75415 

0 

OAO 

SORT 



0045 





13,2417 

76405 

1 

DMo 

SLIR 



0046 

REF 

1 



13,2420 

00011 

1 


GAMRP 



0047 

REF 

5 

LAST 

6S5 

13.2421 

14021 

1 

STOOL 

COSTH 

COS (LAT) B-1 


0048 

REF 

22 

LAST 

1236 

13,2422 

02156 

1 


ALPHAV +4 



004 '9 

REF 

5 

LAST 

885 

13,2423 

34023 

1 

STCALL 

SINTH 

SIN(LAT) B-1 


0050 

REF 

1 



13,2424 

26531 

1 


ARCTAM 



0051 

REF 

11 

LAST 

904 

13,2425 

15104 

0 

STOOL 

LAT 

LAT BO 


006? 

REF 

23 

LAST 

1237 

13,2426 

02152 

0 


ALPHAV 



0053 

REF 

6 

LAST 

1237 

13 , 2427 

14021 

1 

STOOL 

COSTH 

cos (LONG) B-1 


0054 

kef 

24 

LAST 

1237 

13,2430 

02154 

0 


ALPHAV +2 



0055 

P EF 

6 

LAST 

1237 

13,2431 

34023 

1 

STCALL 

SINTH 

SUKLONG) b-1 


0056 

R E F 

2 

L AST 

1237 

13,2432 

26531 

1 


ARCTAN 



0057 

KEF 

3 

LAST 

904 

13,2433 

15106 

1 

STOOL 

LONG 

LONG. REVS B-O IN RANGE -1/2 TO 1/2 


0058 

REF 

3 

LAST 

1236 

13,2434 

02310 

1 


ALPHAM 



0059 





13,2435 

77625 

0 

osu 


ALT=: R“RE METEBS B-29 “ 


0060 

REF 

7 

LAST 

810 

13,2436 

02241 

1 


FRADM 



0061 

REF 

7 

LAST 

643 

13,2437 

35110 

1 

STCALL 

ALT 

EXIT WITH ALT METERS B-29 


006? 

RFF 

3 

LAST 

1236 

13,2440 

02242 

1 


INC'IR PEX 
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L LATITUDE LONGITUDE SUBR‘)UTtNES 




USER'S PAGE 

NO. 3 

E4 S3 












P0063 SUPPnUTINE TO CONVERT LJ T . LONG. AL T 

AT GIVEN 

TIME tn 

RADIUS VECTOR 






R0064 CALLING SEQUENCE 




- 

— 

-1— T 

J ■■ -■« ■■ 1 n 



R0065 L-1 CALL 

R0066 L LALOTPRy 

R0067 SUBROUTINES USED 


R006R SEIGA-^MAVSETP E P-TO-R 
R0069 erasable INIT. REQ. 


( 


P007 0 

Axo, AYO.AZO.TEPHEM set AT LAUNCH TIME 






- - - - - - . . — " — - .P ■■ — ■ 


R0071 

LAT — LATITUDE (REVS HO) 









ROOT 2 

LONG — LONGITUDE (REVS 801 









R0073 

ALT — ALTITUDE (METERS) h-29 









ROOT A- 

mPa\C — TIME (CSECS B-2B) 









r66^5 

ERADFI AG =1 TO COMPUTF EA^TH KADIUS, 

= 0 F0f5 FIXFO EARTH RADIUS 








R0076 

LUNAFLAG^O FOR EARTH,! FOR MOON 










R0077 

OUTPUT 








' ■ 


R OQ78 
0079 


OOBO 


'-Er- 


V EC Ti J lU ALPHAV (M ETERS B-29T 

13t24Al 40220 0 
13*2442 02242 I 


LALQTPP.V STD 


ETPD 


4 LAST 123^ 



GOBI 


13,2443 


00001 0" 


0032 


00H3 


n 


EF 


2 


LAST T2T6 


13*2 444 

13,244^ 


0084 


003 5 


008E 

T5W7 


0083 

(To 


B9 




0 0 - 1 

7T7T^2 


0094 

TIOW 


00 


fTT; 


0097 

TT(T^ 


oloO 

OTTT 


mu7 


0] 03“ 

TTHFr 


RER 


LAST 1237 


13.2446 

13.2447 

13, 2457} 


34007 1 

26571 0 

1 


STCALL 


T5U 

W 





OLOAO 5TN 


01104 0 

1 


REF 


REF 


TT 


AST 1237 


LAST 1238 


T7*2451 

13,2452 



pEr 


1 . A ST 12 



13, 2417 
13*24'5^ 


01104 0 

^5346 0 


TTMFR puirr" 

GAMR'R 

ETTF 




13,2435 


T3 , 2416 



T^TJUU 


L1TJE 

mTFTT 

ETIS" 


REF ■ 


121 


13,2457 

13,2461 


~ 01104 0 

— 71525 15 


POOL 


TAT 

ETTS 



ITT LAST 123 



1 


534771 


1714 


^T456 
T5T52 




RFF 


T2T7 

T73AS 


1377 4134 
4^ 


(T 

T 


FEF 

IFF 


73-^ A S T”T714 

T231S 



?7)6TTrT 




LA ST 


f E 

1177470 


■REF 


1 


13,2471 

T1 * 2 472 


4 3 1 4"5"7y 

1X5 6 r> r 
T)T74TH 
26473 0 

T 


LONE ■ 

DHEK VDEF 

TJMTT PUSH 

5TCALX ALPHA 
1FTRE 

BUFF 


DLOAD 


TEFPV EC “ 
ximATXSTr 
CALLRPRr 


LAT, LONG. ALT TQ R VECTOR 


6-7D= 



P-TTFF 

EARTH, r FOR MUON "EPI 


ETTS 




P- STN(LONG)COS(LAT J 



o-rn 


0-in= GAMMA*S1N(LA! > 


7 



2 - 3 0= C Oli LAT ) 3- 1 ( F M PU R A R ITT 


FIT 

FF 




2-30=SlN(LUNG)LUS(LAI J B-2 


FTT^ 


4“50=EUS(LA1 ) B-1 ^bMPUPAKlLV 


PO 4 
0-5F= 


CTJSILUNGlCOSCLATr 

iU-H SUHM. 


UNIT RP FUR RF^ 
AUPHAV +4^ SlXn: FUR SETFE 


-77 


7FR 


MUUN 


77T4o 


FXT5 




■ 13,2473" 

TT6Z4“ 

1 

FTFS 

RTF' ■■ 

b 

TTTT rrs~ 

13 , 2474 

5 53 44 

I 

0117 ■ 


26 

LAST l2'iT! ■ 

13,24^5 

161 52 

0 

01 O' 

“IFF 

ir~ 

rsrrrTzoT^ 

1 3 ,24/6 

0 2 2 4X“ 

L 


~ CTrs“ 

FRT CATX 


USE COSCOI 


TNX 


S T OD E 


R P- I U-F 
ALPHAV~ 


tXlI WllH UNI* R VhC*UR IN HPAC 


E R A D Ni 
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L 

LATITUDE 

LONGITUDE 

SU3R lUT INES 




USER'S PAGE NO. 4 

E4 S3 




0109 




13.2477 

74215 1 

DAD 

vxsc 

(RE + ALT) (UNIT R) METERS 8-30 




0110 

REF 

8 

LAST 1237 

13,2500 

OHIO 0 


ALT 





0111 

REF 

27 

L\ST 1235 

13t2501 

02152 0 


ALPHAV 





0112 




13,2502 

77772 6 

VSLl 


R METERS B-29 




01 13 

'^EF 

23 

LAST 1239 

13,2503 

36152 1 

STCALL 

ALPHAV 

EXIT WITH R IN METERS 8-29 




0114 

REF 

5 

LAST 1238 

13.2504 

02242 1 


INCORPEX 





R0115 

SUBROUTINE TO COMPUTE EA^^TH RADIUS 








ROll 6 

I NPUt 












R0117 

1 /2 

SIN LAT IN AL 

PHAV ^-4 




















ROll 3 

OUTPUT 











R01I9 

EAR 

TH 

RADIUS IN E 

RAOM AND MPAC < METERS 8-2^ > 








0120 




13.2505 

63545 0 GETERAO 

DLOAD 

nsQ 





0121 

ptef 

zT' 

LAST 123D 

13,2'^06 

02156 1 


ALPHAV +4 

SIN*»2lL 1 




0122 




13.2507 

44352 0 

SLl 

BDSU 





0123 

REF 

i 


13,2510 

i 1 5 6 4 d 


DPl/2 

COS** 2 ( L ) 




0124 




13,2511 

44275 1 

OMPR 

BDSU 





0125 

PEF 

1 


13.2512 

26526 1 


”cF 





T)1Z6” 

^EF 

2 

LAST 1234 

1 3 , 2 5 1 3 

11 564 0 


^'2T7T 





0127 




13,2514 

75465 1 

bdDv 

SORT 





(TITS’ 

ITFi: 



1 3 f 2 5 1 5 

26322 0 


B2XSC 





Ui29 




rT77FT*6~ 

77622 T 







OTTT 

ptt 

"T~ 

LAST 1238 

13,2517 

02241 1 

S T 0 P t 

LR ADM 





oru 




13.2 570 

H616’"D ■ 

RVa ■■ 







R 0 r'TT 

R CTl l~2 
■RU 


TH'" R^IUOWING CONST COMPUTFO WITH A = 637Rl 66 , B=63b6 wtlbKS 

5 T 


p- 0 1 n 
013? 



LED 3-0 
TT. 



UTTZ 

TTHT 


0134 


—————— = TT7ZSZ7 

TTFf — 4 — la?;t i 20'6 ?prrrr5T 

rT7Z5Z3 

1 


01)446 1 


BTJTS^ 


2WEZ 



13**2 SCALED B-5T 



DPI/? 


TTTT5 

0 r 35 ' 


I 3 ,?b 23 - 

TT 7 Z 5 Tfr 


T7T1T D" 
TJ 5754 I 

■ 07 Tr 5 T“D 



YUfm 

, 0^4 33 0 648 8'4 "K-T “1;AMMA= B**2/A**2 B-1 


FT 


TUFC: 


6.6036116 h-i 


b=tj 


uir^ 


TTTZFZT 


25250 r 

ir0?TTZ~O 


FRSTT 


ZOFC 


b37333B B-29 


PAD PAOTUS 


TFT 


p* 

7 ^ 



OTFF 
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L 

LATITUDE LONGITUDE SUBROUTINES 

USER'S PAGE 

NO. 5 

E4 S3 




POK'^T 

ARCTAN SUBROUTINE 
















R0138 

CALLING SEQUENCE 








ROl 39 

SIN THETA IN SINTH 3-1. 







R0140 

COS THETA In COSTH 8-1 







ROl'^l 

CALL ARC TAN 








por4?“ 

OUTPUT 







R0143 

ARCTAN THFtA IN MPAC ANO 

THETA B-0 IN RANGE -1/2 TO +1/2 







0144 




13t2531 

77600 1 

ARCTAN 

80V 



0145 

REF 

1 


13,2532 

26533 0 



CLROVFLW 


01h6 




13.2533 

63545 0 

CLPnVFLW 

“DLOAD 

DSO 


0147 

REF 

7 

LAST 1237 

13,2534 

00023 0 



SINTH 


0148 




13,2535 

63525 0 


POOL 

DSC 


0149 

REF 

-7 

f 

LAST 1237 

13,2536 

00021 T 



COSTH 


0150 




13,2537 

7761? 0 


“DTLD 



0151. 




13.2540 

75454 0 


BZE 

SORT 


01^2 

I5?F 

1 


13,254T ■ 

26557 1 



ARCTA^TX^ 

ATAN=0/0 SEl IHElA—O 

0155 




13,2542 



n5T5DV “ 

P 0 V 


0154 

Fff 

“8 

LAST 1240 

13.2543 

00023 O' 





0155 

REF 

~T~ 


T 3 . ?'5if4 

T 



“ATAN=90 


or5?> 




13.2 545“ ' 

67542 0 


STTT 

ATTN 


0157 

RFF 

4 

LAST 760 

13,2546 

00025 0 


STOftP 

thet a 


015?' 




— 13,2"547 

50125 1 


POOL “ 

BMN 


II 

o 

>0 

“REF 

8 

LAST T2 40” 

13t255'0"' 

00021 1 



COSTH 


0160 

REF 

1 


15.2551 

26553 0 



NPGCOS 


0151 




1 3 , 2 T57 

43545 1 


OLCOT" 

RVO 


OTST” 




— r3,25 53 

1 

~fTFGT:nT“ 

miD ATT” 

TTCOTTP 


0153 




1 3,2554 

43244 1 



DAD 


0164 

R £F 

1 

— ^ — — — 1 — . 

TTTT'TTy 

26561 1 



NEG OUT 


0 X6? 

““RTF— 


LA'ST 1239“ 

"13,2 53?; 

11564 0 



DP1T2 


0166 

REF 


LAST 1240 

077557 

00025 0 

ARCTANXX 

STORE” 

TFfFTS 


0167 




13 , 2'T67r 

77616 0 


RW 




0168 




13.2561 

5202^ 1 

NFGOUT 

DSU 

GOTO 


~ 0169 

REF 

4 

□^ST“r2W 

13,2562 

TTT6 4 0 



TTPT72 


OITT) 


“2“ 

LAST 1240 

13,2563 

26557 ET 





01 71 




— 13.2564 

753 - 45 — r 

A T AN= 90 

DLOAD ■ 

SIGN 


■ or72'" 

REF 



13; 7565- 

X 



LUDpI/4 


'UTT3 

^TTrF 


LATT 1240 

13,2566 

TTnT773 TT 



$ I NTH 


0T7T" 

ttet 

6 

LAST IT4Tr 

n.2’56'7 

"DTr(J75""D" 


5 TOR E 

THETA 


01 a6 




T 3,25^0 

776T6 0 


TTVO " 




JJTTTT 

RTF — 


"GATT 

04.3565 


2UZ ERU 

— 

DPZERU 
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L 

LAIITUDE LONGITUDE SUBROUTINES 


USER'S PAGE 

NO. 6 

E4 53 










00177 


m m 






R017a 

SUBH0UTHS1F TO SET GAMMA PUR THE LAT“LO!SiG AND LALOTORV SUBROUTINES 




. 


R0179 

GAMMA = / ^^*2 FDR EARTH 

(B-l) 






R0180 

GA«MA = 1 FOR MOON (B-l) 















R0181 

CALLING SEQiji-MCE 








L CALL 







P01S3 

L+1 SETGAMMA 















R0134 

INPUT 






. 

R0ia5 

LUNAFLAG=0 FQP EARTH, =1 FOP 

MOON 







P0186 

OUTPUT 







R0187 

gamma in GAMRP (3-1) 








0138 

_ 13,2ST1 

43145 

0 SETGT^MA DLOAD BOFF 

BRANCH FOR EARTH 




0139 

R EF I 13.2572 

26524 

0 B2/A2 

EARTH GAMMA 




Ol'^'O 

REF 23 LAST 1236 13,2573 

01743 

0 LUNAFLAG 





0191 

1 ^ 13,2574” 

26577 

O' SETGMEX 





0192 

13,2S75 

77735 

0 SLOAO 





0193 

ref 1 13,2376 

115'64^ 

0 IBl 

MOON gamma “ 





~R^ 3 L^?T~123b 1^,2511 OOOII 1 S&Td^^O STTOt GAMRP 

qW^ 13.?600 77S16 0 RV5 


01 ?6 0010 GAMf?P = 
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L 

LATITUDE LONGITUDE SU6 

ROUTINES 

USER'S PAGE 

NO. 7 

E4 S3 



P0197 

SETRE 

SUBROUTINE 






R0198 

SUfjROUT INE 

TO SET RE ( 

Earth or moom radiusi 






R0199 

RF= RM FOR MOON 






R0200 

R£= RREF FOR FIXFO FAP.TH RADIUS OR COMPUTED RF FOR FISCHFR ELLIPSOID 







R0201 

CALLING SEQUENCE 






R0262 

L CALL 






R0203 

L+1 SETRF. 



. 


1 


R0204 SUBROUTINES USED 
R0205 GGTERAD 


R0205 

INPUT 










R0207 

ERAOFL AG=0 

FOR 

FIXED RE 

1 FOR COMPUTED RE 






R0208 

AL«^HA\/ +4= 

1/2 

SINL IF 

GlTERAO is CALLcO 






R 0209 

LUNAFLAG=d 

FOR 

EARTH,=] 

! FOR MOON 




- - 



R0210 OUTPUT 

R0211 ERADM= 504PnV1 FOR MOON (METERS ^“29T 

R0212 5RAr)'^= ERAD OP. COMPUTEO RF FOR EARTH (METERS 6-2^ 


0"2T3 


TT, 





0214 

0215 


R FF 
R^ 



1 3 § 2602 


9 


00051 

26626 



REF 24 EAST 1241 


0218 

0219 

0220 

02n 

07Z? 

0223 


0229 

DtITJ 


OUI 


iy2T4 


1 


R EF 


fTEF" 


REF 


9 


TT 


0234 


LA3T 


LAST 894 


TOT 


LAST 



LA^^ 


i 


ITOT 


1 3 ,2 6^) 4 
13,2605 
1 3 f 2 60 6 

T3“,7bI)T 
1 3,2610 

IT 



t-TREX 
CT4^ 
DLOAfT 


m'mcwTmwjm 





2 

13.2613 

.2 614 
T3.T^6T6 

TTTOT^ 



1 3 , 2 6 2? 
T37 



13.26^4 
OTTET 
. 2 <'^2 5 

n,26'2T 


4^0t4 


TOFF 


INAFL 

TSTRL'S 

ERAD 

TOT 


XFD RE»1 FOR 


0074? 



2^^T. 4 
2 6 5 0^ 
367 

onooi 

77214 

00TO2 

76 6 T 4 


TT 



TJ 

w 


SFTRXX 


3Tr. 


XX 
GETETO 

EKITQM 
5 E T R FX 


bXII W1 fH 



TON 


VLOAO 

ERADFL 
S ETITXX 


=o,st 

= 1 


RO=RLS 

RO-HM 


(TTOTT: 

544 4 <4 
'7T65XT 


AI3VAL 
GDT7 


7T 


26614 



TJD065 


3ETRFX 
5 04 RW 


21370 


S7 

1T3 30^117^79 


METERS 


wnrs 


TTTTFn 



— ^ ■■■ ' ■ ■ - . - T ^ ■ ■ 
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L 

PLANET^RY INERTIAL ORIENTATION 

USER'S PAGE 

NQ> 1 

EO S3 

. 


POOOl 

RP-TO-R SUBROUTINE 





R0002 

SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM f E ITHER 






ROOO'3 EARTH-FIXED OR MOON-FlXi-< ) TO R (SAME VcCTDP IN TH6 BASIC REF« $Y$TEM> 


R 0004 R= f^T(T ) ^IRP-I-LPXRP ) MT= M MATRI X TRANSPOSE 




ROOD 5 

CALLING SEQUENCE 









ROOOS 

L CALL 









R0007 

L+l RP-TO-P 










ROOOB 

SUBROUTINES USE',! 









R0009 

EARTHMX. MGONMX^EARTHL 










ROOlO 

ITEMS AVAILABLE F’^OM LAUNCH DATA 









POOll 

504LM= the LI BRATTON VECTOR L OF 

THF MOON AT TIME 

TIMSUBL. EXPRESSED 







R0012 

IN THE MOON-FIXED COORD* SYSTEM 

RAOIANS BO 








R0013 

items NE'CESSARY pnc SUBR. USEO 

■TTEl OESCRIPTfON 

~0F SUBR.l 


a — 

— — ™ — 




ROOl^^ INPUT 

ROlnT MPXC= 0 FOR t A RT HfT4 aM-ZF^n FOR MO ON 
R0016 0-50= RP VECTOR 

R0017 6-70= TTMF 


ROOIB 

OUTPUT 










R0019 

MPAC 

= p 

4 

VECTOR METERS 3-29 FOR 

EARTH, 

^F7 FOR 

MOON 




■ " 

0020 

“RFF 



2 6 t 2 6 00 




SETLOC 

PL AMT IN 



OOZl 




26,3344 




8A"NK" 





m72 — 

R tF 







COUNT=«^ 

$S/LUFGT 















OUT! 




26,3rRF2i ‘ 

^5TT70“ 

"17“ 

RP-TO-K 

S 10 

BHl Z 





"TTFF — 

~T~ 



00050' 

"T" 



RPRFXl T 



tttTO 

“REF 

~T~ 


"26,3345 

5 53'6r' 

“0“ 



RP torts: 

— ■ r> I 1 T ■ — TT" 1 a A u 1 T \M f f M 1 — 


00 zs 




26, -5 34 f 

7 7 5T47 

”T“ 


CALL 


COMPUTE M MATRIX EUK MOUN 


OUFT 

"^TFF 

~T~~ 


26,33515 

55421 

"TT" 



MOuNMX 

LP=LM FUK mUON RAUIANS BU 


mT3 




"Z6 , TT5T 

77775 

~ir 


VtaAlT" 




002 9 

TTFT“ 

"1“ 


26“;3 352 

~02'0TZ' 

0 



5 04L^ 


. 

0030 




76, T'353 

53235" 

70” 

RPTORB'“ 

vxv 

VAO 



003 I ■ 

R E r 

1 

m m 

26,3354 

00001 

0 



504KPK 



auT^ 

“R.TT^ 

— 7” 

“CTTSO 1.243 

32 1) , 3 3 ^5 

00001 

0 



5 0^0^ PR 



0UT3 




26 , 3 3 B 6 

52105- 

"X" 


VXM 

GOTH 




OUT^f 

ITFF 

“IT 


“?5TTT57 

00025 0 



'-1 A 1 H 1 X 

MPAC=H=MTlTj’^( RPl^UPXKP 1 

. 

00 S 5 

KEF 

■ 1 


26,3360 

SSA07 1 



R PRpXXXX 

RESET PUSHLUL TO U BtFUKt txiiiNb 


07175 




2 6 , 3 T61 

776 24' 

“T" 

RPTn'R'fi— 

cAn — 


E A K f H C D M P U 1 A t 1 UM S 


00 37 

-tef 

~r~ 


26,3362 

55 5 73 

“0" 



EAPTRKX 

M MATRIX B-T 


"oim 




26, 3363 

77624^ 

"T7" 


— CTsn: — 




uui^ — 

TTUF 

“IT" 


2 , T36 4 

^ •* vj 2. ^ 




t AK 1 HL 

L VEClUR KAUlAf^J6 BU 

- 

0 0'40 “ 




26,3365 

T6521 

0 


wxv 

VS LI ~ 

1 P= M ( T j ’^L RAD B— U 


0041 

rr r: VZ 
• El 1 

2 

LA^T 1241 

^,3366 

TKnJ25 

-CT" 


iMT3ATRTA 

- _ 












. ■ . — ^ - ■ 

.. .. , ^ - 



— _ — ^ . ■ "■' — 
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D'SE^ 

’ S P AGE 
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0042 

26, 3367 

77650 

1 

GOTO 



0043 REF 1 

26f 3370 

55353 

1 

RPTOR8 












■ " 

























■ 















_ 





















. 

■ ^ — 



















_ 




























— 















- 

■ - ^ . . - - - - ■ 







— 





























■ - -I J ■■ . ST - ^ =1 » ~ 













M .■ ■ - . ■ - — »J- ^ "a i ■' ^ ■ ■ ' __■■ — -' 

. . 






- — M ■ ■ "P II fc » -. 1 


. . 







,, _ _ , 







- 














^ ,, r i~i z — r -B — i -» ■ M 1 






1 ■ ~ ■ " -■ * ^ 
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L 

PLANETARY INERTIAL ORIENTATIUN 

USER'S PAGE 

NO. 3 

EO S3 










P0044 

r-to-rp subroutine 






R0045 

SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP 







(VECTOR IN PL-^NETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOtlN-FIXED 













Rd047 

RP=M(T)*( R-LXP. ) 








CALLING SMUENCE 






R00^9 

L CALL 






R0050 

L + 1 R-TG-RT^ 






'50051 SUBROUTINES USED 

R005/? EARTHMX,MOONMX,EARTHL 


R0053 

INPUT 






ROOS^ 

MPAC= 0 FOR EARTH, NOFJ-ZERO FOR MOON 






R00S5 

0-50= R VECTOR 






R0056 

6-7D= TIMF 







R0057 

ITEMS 

AVAILABLE FROM LAUNCH 

DATA 







R0058 

504LM 

= THE LIBRATION V^CTriR 

L OF TH 

R MOON AT TIME 

TIMSUP.L. EXPRESSED 





R005'=) 

IN THF MOON-FIXED 

COORD. SYSTEM RADIANS BO 






R0060 


ITEMS NECESSARY 

FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.) 






R0061 

OUTPUT 










'<0062 

?TPAT 

= RP 

VECTOR METERS FOP 

EARTH, 

B-27 FOR MOON 







0063 




26*33 fl 

46020 1 

R-TO-RP 5!Q 

BFTIT 





006^ 

REF 


FAST 1243 

26. 3 3 72 

00050 1 


■TTPREXIT 





0065 

REF 



26,3373 

■55iri3 T 


RTORP A 





0060 




2 6 * 3 3 74 

77624 1 

CALL 






006 J 

REF 

~Z 

L AST r243“ 

26, 3375 " 

55421 0 


MOONHX 





uuEvr^ 




TT733r76 

6 1 3 T 1 

^ "VrUA'T 

VXM 





006^ 

rIE 

* 

LAST 1 243 

26,33 77 

02012 0 


504L M 

LP=LM 




“0TT7T5 


3 

LASI 1243 

26, 3400 ' 

0002 6 D"' 


MMatRIX 





uun — 




76,14(11 

f ( f 7!? 0 

VSLl 


L=MT(T)^LP RAuIANS bo 




00^2 




2 5 # 3 4 0 2 

51235 1 

KTORPb \nrv 

BVSD 





0073 

— hteF — 

~3 

LAST 

ZT, 34TJ1 

00001 “O' 


5 0 4 R P R 





007^' 

— ret 

~4 — 

TAST 1245 

Tt>, 3404 

ooooi cr 


504U9R 





urrrs — 




2 6. , 3 4 < ^ b 

f f f 2L 0 

TOV 


M( I ) ^ ( .R-LXK) 




0075 

— RIFF — ■ 

k 

TTTST — r743 

T6TT4TT6 

‘000 25 0 


M M A T R I X 





0077 




2 6, 3407 ■■ 

40372 0" 

TPTPXXXX VSLl 

S E T P D 





007B“ 




26. ’.41U 

000 01“ 0“ 


nrn 





0079 




26,3411 

77650 1 

GOTO 






OOBO 

RTF 

3 

LAST 1245 

2 6 , 3 41-2" 

OTTTBTr r" 


RPREXIT 





OTTin 




26,3413 

/^624 r 

PTURPA CALL 


EARTH CUMPOIATIONS 




0057“ 

— RTF ■ 


FAST 1243 

TTTT4T4 

55573 


^ ARTHMX 





0033“ 




2T,3415 

77624 1 

CALL 






00 ■ 

;‘EF — 


LASI 1243 

26 , 3416 

55625 U 


EAR I HL 





00B5 




2.0 r 3 4 1 7 

7765 0“T“ 

GOTCr 


C— L-*('“AX#“AY#01 RAO B”0 




0056 

' — D-trir 

i 

1“ 


7134 3 62 0 

55407 1 - 


RT OR PB 
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L 
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USER'S PAGE 

NO. 4 

EO S3 




POQHl 

MOONMX SUBROUTINE 






R0038 

SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX ” FDR tHE MOON 













P0089 

CALLING SEQUENCE 






R0090 

L CALL 






R0091 

L-i-1 MOONMX 







•5 009? 

SUBROUTINES USED 






R0093 

NEWANGLE 







R0094 INPUT 


R0095 

6-70= TIAE 







R0096 

ITEMS 

AVAILABLE FROM LAUNCH DATA 






R0097 

BSUBO 

tBDOT 







R0093 

TI MSUBO^NODI G, NODOOT* FSUBOt FOOT 






ROO^O 

cnsi= 

COS<I) B-1 







ROlOO 

SINT = 

SIN(I) B-1 







ROlOl 

I 

IS THE ANGLE BETWEEN 

THF MEAN 

LUNAR 

EQUATORIAL 

PLANE AND THE 



ROlO? 

PLANE OF THE ECL IPTlC 

(1 DEGREE 

3 2.1 

NiNUTpn 













R0103 

OUTPUT 








R0104 

X 

11 

”3X3 M MATPI)< B-l 

T^TT^ i-r)' nq- 

“VAT” 

AREA7" 





0105 


26, 342 1 

40220 0 

MOONMX STO 

SETPO 



0106 

PsEF 1 

26,3422 

00051 0 “ 



EARTHMT?X 



0107 


26»3423 ■ 

cmn^ 



BO 



0103 


26, 3424 

— 77770 i ■ 


AXT, 1 


8 REQUIRES SL 0, SL 5 IN NFWANGLE 


0109 


26 , 342 5 

00005 1 



c; 

y 



0110 


2673"42'6~ 

65345 0 


dload 

PDDL 

PD lOD B— SD=BSUBD 


OTTT 

“R6F 1 

26,3427 

— 15655 0 



BSUBO 

10-11U= BDUT 


0112 

T" 

26, 3430 

15647 0“ 



BOOT 



Till 3 ~ 


Zh . T4Gri” 

45006'73 


PTJSR 

“CTITL ^ 

PO 12D 


STT? 

I 

26,3432 

55546 O' 



N tWANGL E 

EXIT WITH PU 8D AND MPAC= B RbVS BU 


0TT5 


p v , ^- 433 - 

n.4 06 O ’ 


~TXrS¥\ 

CTTS 

PD 10 D 


Tn i“6r'“ 

RTF T 

26,3 43"4" 

14041 1 ^ 


STOOL 

XI 0 B 

PO dO COS(TJ) B-1 


DTTT 


2'6 ,ir4T5” 

77756 0 


S IN 


S I N < B J P-1 


01 1 3 

RTF r~ 

2 6 ♦ 3 ^ 3 6 

14043 “0 


'5 TO DU" 

5DB 

SETUP INPUI EUK NEWANGLE 

■ - - - - , ■ . ■ - — . — - - ^ ^ ^ 1 ■ tf *1 — 


0119 

REF I 

— 26 ,jvrr 

TT653 'Cr 



~F S UB 0 

8-9D=FSUB0 


0120 


26,3440 

4152 5'" h 


PTjnu 

P U S H 

PO lOJ THEN 12D 10-llT)=EUUI 


"o^r^ r ” 

r 

?oTT441 

15645 r' 



FOOT 



0122 


26,3442 

45170 0 


Airr,T 

CALL 

F REQUIRES SL It SL 6 IN NEwaNGLE 


irni 


26,3443 

— oooov'cr 






01 24 ^ 

F\ ^ F 2 

LAST 1246 ?6,3 444 

55546 "D 



NEWANGLIi 

EXIT WITH PO HD AND MPAC= E REVS BO 


0T7S 

-T<TF r 

■■ " 7IE73'443' 

1402TTr“ 


STUDL 

“AVTCTR" rZ 

STTV E F TEMP 


iTTZS 

"ircF 1 

26,3446 

Y5Z5Y r 



NUD t ^ ) 

d-m)=NOD lU 

— — m r> ^ — ir%- r> t ■ i** m 1 T — 1 — It 1 n 1 ^ f % I"T 1 ^ 


'OTZT 


26,34AT 

4T 5 2 5 0 


POOL 

PUSH 

PO 100 THUN 120 10 — 1 1 u— NUUDU 1 

— ^ w . - — ■ ^ — ^ ‘ ^ ^ ■ 


■ OTTB 

rEe 1 

271,1450 ' 

15643T~ 



N n n D f 1 T 

M r AC— T 


OTTO 


TFTwrr 

45170 O' 


A X T f 1 

CALL 

NODE REQUIRES SL D, SL 5 IN NEWANGLE 


0 1 3 0 


2 6 , J 4 52“ 

■ 00005 1' 



5 



01 TI 

“THEF 

"TAST'l 245 25 ,T453“ 

55546 0 



N*~ WANGLE 

ETTTTTTTH PO SO AND MPAC= NODI REVS BO 
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USER'S PAGE NO 


eo S3 


0132 


0133 


26 , 3454 


71406 0 


PUSH 


COS 


26,3455 


77606 1 


PUSH 


PD 100 8-90= NODI REVS 80 
PO 12D 10-11D= COSiNOOn 8-1 


0134 


0135 


0136 


0137 


0130 


0139 


REF 


2 LAST 1246 


26,3456 


00025 0 


STORE AVECTR 


26, 3457 


76405 1 


OMP 


SLIP 


R ^ F 


LAST 1246 26,3460 


00041 1 


COB 


COSINDOI ) 


B-1 


R T.F 


26,3461 


14035 1 


STODL BVECTR +2 


PD lOD 


20-25D=AVECTR 


26,3462 


76405 1 


DMP 


SLIR 


COST'S IN( NODI) 

SOB*SIN(NODI » 


R F h 


LAST 1246 


2 6, 346 3 


00043 0 


SOB 




0140 


0141 


0142 


2 FF 


2 LAST 1247 


26,3464 


14037 0 


STOOL BVECTR +4 


PD 80 


26,3465 


41556 I 


SIN 


PUSH 


PO 100 


STNTNODTT 


B-1 


26,3466 


77676 0 


OCOMP 


2 6-31D=BVECTR= COB^COS ( NOD I ) 


PD 8D SOB^CnSCNODIJ 

MOVE F FROM TEMP LOC, TO 504F 


0143 


0144 


0147 


0149 


0150 

0151 

0152 


1315^ 

TTT^ 


TTT56 

11157 


11157 


UT5(T 

IHTT 


THo? 

11 T 55 


0164 

0T75 


REF 


LAST 1247 


26,3467 


14033 1 


STODL BVECTR 


REF 


LAST 1247 


26,3470 


00027 1 


AVECTR +2 




LAST 1247 
LAST 1247 


26.3473 

26.3474 


00041 



26,39-75 

164 3476 


14027^1: 
000 11 1 
76 4 05“! 


STODL AVECTR +2 



DMP 


SI NNODI 
SLIR 


HFF 

rTf 




IATT“l747" 26,3477 00041'71 


LAST 1247 

ram — 717 


26,3500 

26 ; T50T 


14031 0 


TOOL 


26,3502 




SOB 

AVECTR +4 

Hr6ZER0S' 
OCOMP 


8-1 3 D= CVECTR 


FOB Bmr 


PD rOD' 




IFF 


4 LAST 1247 


26.3503 

26 .3 504 


TIFF 


RFF 


4 

4 


last 


26,3505 


T747 


26 , 3504 

26 . 3507 


00043 0 

6332 5 (J 
001141 T 
00033 1 

63361 0 


Forr 


5(711" 

PDVL 



1 2D THEN TTl "1411 


VITSC 


TTFF 


T 

T 


^ o , 


T 


74 



T 


15641 0 ' 

OOOll 1 


BVECTF 

FnVT 

mi 

CVECTP 


PD 200 


5TNI B-2 


TIEF I 


26,J51 2 
■27r,35I5 



WSC 


V4D" 

ZUST 


PD 14D 


CVECTR’^CtrST 


P5F 5 LAST 1245 


26, 351 4 

4,7515 


0166 


T5I 


THTTl 


TTFF 


TTIFF 

0169 


TIEF 


7 

5 


LAST 124 / 

XASr 1247 


26 , 3 *3 1 7 


77772 0 

“27r(i4T~Tr 

~GTToT~Tr 

15641 0 




TRIX >12D 




7X51 


PDVL 

SINI 


5D~ 

T4U 


*C 05 T 


CVbCf R’i'SlNl EF7 


757357.17 

7157357T 


Cr005T~T 


BVbCl'R 


523 6rT 


VX5C 


PD 80 



TTHTl 

riTT 




I _ 


2 — LAST i-prr 


777TT527 


i 5 5' 'JT T 


017Z 


TT 


FT 


7 TATI 


47 


rm 

5174 




1 


THTF" 

5177 


TTFF 


T 


AST T 


573 ^ 774 ^ 

7773575 
26, 3526 

2673527 

77715 T 5 

7573531 


o "> 3 7 2 1 
55507 5 


VSTT 


XT5T 

PDDL 


PD 145 


504F 


135 





UVEC 


7357 

0000 


PDOX 


F5 70tr 14-150^ 



7-7 


52351 1 


VXS5 


517^ 


T 


XTST 


517 

5155 




1747 


26,3 537 

ToTToTT 

26 , 3534 


5557557 

77777 ml 


5 TT 4 F — 

Y50 

AVECTR 


PD 14D 


AVECTR^STNF 


01 31 


f LAST 1247'" 


2oV3535 


~T4533“T 
5005771 


VSL7” 

31051 


M M A TR ITT 35 


Kl^ 



fi 
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0182 


0183 

0184 


0135 


0186 

0187 


0188 


013 9 


R0190 


R019I 


RQ192 

R0193 


P 0104 


R0195 

R0196 


0197 

0198 


0199 


02 00 


0201 
0202 
020 3 


0204 
020 5 
0206 

0207 


26,3536 


74356 1 


SIN 


VXSC 


PO 3D 


REF 


LAST 1247 


26.3537 

26.3540 


71525 0 
00007 0 


POOL 


CHS 
5^F 


P 0 140 8 - 13 D=DVECTR^SINF 8-2 


26.3541 


53361 0 


RFF 


7 LAST 1247 


26.3542 

26.3543 


00025 0 

57572 0 


REF 


LAST 1247 


REF 


LAST 1246 


26 . 3544 

2673545 


34025 I 


VXSC VAD 

AVECT R 

VSLl VCOMP 
STCALL 9^MATR IX 


PD 8D 


AVECTR^COSF B-2 


M0= -(AVECTR 



T 


00051 0 


FAPTH^XX 


COMPUTE X=XO+(XnnT) (T+TO) 


XO (REVS B-0) .PUSHLOC SET AT 120 
10-11D=X00T rREVS/CSECI SCATEP B423~ FOR W EAPTH.B428 FOR NODDOT AND BOOT 

AND B+27 FOR FOOT 


X~1 = D TF PER E N C E IN 23 AND SCALING OF XD0T.=0 FOR WEARTH.5 FQP NODDOT AND 
BOOT AND 4 F OR FOOT 

6-7Q=^T (CSEC B-2b). TIMSUBCI= (CSFC t3-42 TRIPLE PREC.J 


26.3546 

26.3547 


^5434^5 I NEWANGLE OlOAD 


ENTER PD 120 


00007 0 


26.3550 

26. 3551 


20617 0 


72371 T 


TOJATT 


ITT TF 



REF 


26.3552 

777T557 


26.3554 


01707 0 

00155 0 

r^Trrrr 


TI 

wm: 

T I M SUB'M 


F 



LAST 1248 


26.3555 


00020 0 





TUT3 MULT BY XDDT IN 10-111) 




020 b 
0209 


REF 


LAST 1248 


26,3560 

25, T5‘6T 

2 6, '3 567 


43757 
20206 I 


DAD 




ATm“TU IN 8-9D AFIbR SHIFT ! m 

SCALING IS B-0 


57705 



I 

I 


TUSH 



TF 


SUCH THAT 

TUD SAVE TARTI AU UXO+XDOT’^^T ) IN 8-9D 


T I M SIJBH 


0210 


0211 


26.3563 

26.3564 


0212 



0213 

T 



76. 

25,3566 

75,75^6T 


41261 1 

70712 I 

T 


0 


57 


"DHT 

W” 


432 5 7 U 


511^ 



0 


TFD 

TTTTD 

100,1 


XDOT 

FTTTO 


SHIFT SUCH I HA I IHIS PAKl UF X 
15 SUTiL "ED 


07741 


02147 

0215 


26 , 

767T5TT 
707 


//600 1 




55572 

776T>T 


TT 


TURN OFF'UVEKFLOW T5 
INSTRUCTION BEFURE EXIIINU 


0~ 


KW 


HP7H: = XH XO^FTXDUI I CT+TO) REVS HO 
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L 

PLANETARY INERTIAL ORirNTXTION 

USER'S PAGE 

NO. 7 

EO S3 



P0216 

EARTHf^X SU8R0UTi:'lE 





P0217 

SU0ROUTINF TQ COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH 






R021S 

CALLING SEQUENCE 





Roll 1 

L CALL 





'^0220 

L+L EARTHMX 






R 62?1 

SUBROUTINES USED 





R0222 

HEWANGLE 











R0223 

INPUT 





R02?'+ 

INPUT AVAILABLE FROM LAUNCH DATA A 7.0 REVS B-0 






TEPHEM CSEC S-42 





P0226 

6-70= TIME CSEC B-28 






R0227 

OUTPUT 












R0223 

"MATRIX^ 

= 3X3 

M MATR 

IX H-1 

(STORED IN 

VAC AREA) 








0229 





24,3573 

4027(5 0 

EARTHMX 5TQ 

SETPD 

SET B-9n=AZn 





0230 

RFF 

3 

LAST 

1248 

?cit3 574 

00051 0 


EARTHMXX 






0231 





26.3575 

00011 1 


8D 

10-110=WEARTH 





023P 





26.3S76 

77770 1 

AXT,1 


FOR 5L 5, AND SL 

10 IN NEWANGLE 




~^3 





26,3677 

00000 1 


0 






0234 





26,3500 

65345 0 

DLQAD 

POOL 

LEAVING PD SET 

AT 12D FOR NEWANGLE 



0235 

"nTFT" 

~^r~ 



26,3601. 

0T7T2 I 


A7G 






0T35 ■ 

"PEF' 

^r~ 



■764 360 2 

1F66T“T 


W EARTH 






0237 





26,3603 

46006 0 

PUSH 

CALL 







^ EF 

— zr^ 

* 

LAST^ 

1276 

27," 36 07“ 

55546" 7 


NE WANG LE 






0?T9~ 





26,3607“ 


7FTFrr 

PUSH 

18-19D=504A7 





0240 





26,3606 

00023 0 


18D 


CnstAZJ SlNlAZI 

0 



0241 





76,"37aT' 

65346 0 

CDS 

TOTTC 

20-370= MWTTTRTX^ 

-S I NX 471 COS ( A Z J 

- - - - - apfc - -- = 

^ — ■■ 1 ■ 



OTAP 

— REF 

T 



'^7776TTr 

mrnrrv 


504AZ 


0 cr 

1 








26.3611 

65356 1 

5TR 

POOL 






”D2W 

w EF 

2T^ 

tATF 

772rF 

26,36"I7” 

1 5 3 35" TT 


HI 6ZtRGS 






“ 0245 





■■ 26, 36 Tr 

73525 I 

FODU 

SIN 






OTW 

— RTF" 

“7“ 

LAST 

7775 — 

?6,3'6I4' 

00023 0 


5 t)4AZ 






024/ 





Z6 ,'76 T 5 

"■&52T6 1 

DCUMP 

POOL 






D2W“ 

— RTF" 

3 

rAST^ 

■TZ49 “ 

~27jr36‘T6 

coTrErro 


5 0 4 A Z 






02‘4^<^“ 





26 , 36 l7 

6 3 3 6^ 6 0 


POVL 






0250 

■ 

“78^ 

“L“AST“ 


7747670” 

153 3 5 0 


HibZERQS 






02 5 F” 





7767671” 

41525 0 

POOL 

PUSH “ 






0757“ 

— 7FF“ 

77“ 

LAST 

88 1 

26,3622 

15333 0 


HI QPHALF 






0253 





72647673“ 

r76707 ■ 

Gurn 







0254 

~P FF 


“rA“ST 1249 

'76,3674 

0'OD"5I' 0 


tAKl HMXX 
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L 

PLA'‘4ETAPY INERTIAL OR I L-NT AT I QN 


USER'S PAGE NO. 8 

EO S3 


P0255 





R0256 

SUBROUTINE TO COMPUTE L VECTOR FOR 

EARTH 




R0257 

CALLING SEQUENCE 




R025S 

L CALL 




R02 59 

L+1 EARTHL 





R0260 INPUT 

R0261 AXOtAVn SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE 


R0262' OUTPUT 

R0263 -AX 

R026A •'^PAC= -AY sADIAMS B-0 

P 0265 0 


0266 





26,3625 

57 545 

1 

EARTHL 

OLOAD 

DCOMP 




0267 

REF 

2 

LAST 

bZl 

26 *3626 

01716 

0 



AXO 




0268 

REF 

1 



26 t 36 2T~ 

■ 1A017 

1 


STOOL 

506LPL 




026 9 

REF 

2 

LAST 

62 7 

26,3630 

01714 

1 



-AYn 




02 7 0 

REF 

7 

LAST" 

1250 

2677731 

14021 

1 


TTmU" 

50ALPL +2 




0271 

REF 

29 

LAST 

1249 

26,3532 

15335 

0 



HI6Z-R0S 




027Z~ 

REF 

0 

LAST- 

12 50 

2 6 , 6 3 '3 

24023 

0 


“STOVL 

504LPL -♦-4 




0273 

PEE 


LAST 

TY5Tr~ 

2 6 » 3 6 3 4 

"> ji a c 

00017 

TTZTTT" 

_T~ 

n 

I. 1 ■ ■■! 

D Mn 

504LPL 

. , ■ ■ — 1 ■ ■ ■ 
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L 'PLANETARY INERTIAL ORIENT AT UN 


USER'S PAGE 

NO. 9 

EO S3 


P0275 

CONSTANTS AND 

ERASABLE ASSIGNMENTS 





0276 

REF 

5 LAST 

1240 

04*3563 


IBl 

— 

DPl/2 

1 SCALED 8-1 

0277 




26*3636 

17775 1 

cnsi 

2DEC 

.99964173 B-1 

COS (5521.5 SEC) B-1 

0277 




26*3637 

02052 1 





0273 




26*3640 

00333 1 

SINI 

2r)EC 

.02676579 B-1 

SIN (5521.5 SEC) B-1 

0278 




26,3641 

10374 0 





027° 

Off 

37 LAST 

1193 

00 50 


RPREX IT 


SI 

R-TG-RP AND RP-TO-R SU8R EXIT 

0200 

REF 

13 LAST 

1242 

00 51 


EARTHMXX 

— 

S2 

EARTHMX, MOONMX SUBR. EXITS 

0281 




0000 


504RPR 


00 

6 REGS R OR RP VECTOR 

0282 




0010 


S INNODI 


8D 

2 SIN(NODI) 

0233 




0010 


DVECTP 


8D 

6 D vector moon 

023A 




0010 


CVECTR 

— 

BD 

6 C VECTR MOON 

0285 




002 2 


504AZ 

— 

18D 

2 AZ 

02 36 




0016 


TIMSUBM 


14D 

3 TIME SUB M (MOGNJ T+TO IN GEtAZ 

0287 




0016 


504LPL 


14D 

6 L OR LP VECTOR 

0288 




0024 


AVECTR 


20D 

5 A VECTOR (MOONI 

0289 




0032 


8VECTR“ 


26U 

^ B VECTOR (MOON) 

0290 




0024 


MMATRIX 


20D 

tb m matrix 

02 91 




0040 


COB 


3^D ^ 

COS(B) &-l — — — = 

02 ^?. 




0042 




34T) 

2 S I N ( B > B- 1 

0 2 9 3 




0006 


504F 


60 

2 F (MOON) 

02 07 




26 * 3 o 4 2 

776'65' 1“ 

nsronuoT” 

7DFir 

-.457335121 h- 

2 REVS/C5FC B+28=-1.07047011 E-Q T^AO/SEC 

0 2 9 7 




26,3643 

42175 I" 





0293 




26.3644 

22211 0 

foot 

2i5eC 

.570863327 

ftEVS/CSEC B+27= 2.67240410 E-6 RAD/SEC 

0298 ■ 




26,3645 

0 0 5 0 





0299 




26*3646 

77TTT 0 

BOOT 

7. DEC 

-3.07500686 E- 

8 REVS/CSbC B+2 8=- Z. 19757301 E-14 RAD/SEC 

0290 




26*3 6 7 

77767 1 





0300“' 




Z6 1 ^ 6 

37436 1“ 

NUD 1 U 

20EC 

• 9H6209434 

REVS B — 0 = 6.196536 63 0 4T KAO 

■arryo"' 




26.3651 

01613 1 





0301 




— 2 6 , 3 STT'Z ■ ■ 

— 32417 1 

Fsueo 

2 DEC 

• 3 29090536 

REVS B-0 = 5 • 2093294 T829 RAU 

0301 




26,3653'“ 

— 3 21 60 1 





0302 




"27>*3654 

020^2 1 

"BSUBtr 

2DEC 

411651201393 

"R'EV5 = 0.40916190299 RAD 

o 

o 




26, 3655 

35552 0 





0303 




26*3666 

— 37TT7r TT 

WEAR TH 

■^TIHT 

• 9 / 3 56 1 59 5^ 

REVS/CSfcC b+2 5= /•29211494 h—5 kAO/SEC 

030'3 ■ 




26*3657 

37'52 3 1 
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MEASUREMENT INCORPORATI ON 


USER'S PAGE NO 


EO S3 


POOOl 


R0002 


R0003 


R0004 


ROOOS 

R0n06 


ROOO 


RQ0Q8 

ROOOO 


ROOlO 


ROOIl 

^0012 


R0013 


R0015 


ROD 13 


R0019 

ROOPO 


R00 21 


INCORPl — PERFORMS THE SIX OIMENSIONAL STATE VECTOR DEVIATION FOR POSITI 
ON ANO VELOCITY OR THE N I UE~ D I MENS I GNAL DEVIATION OF POS 1 T I ON, VELOCI T Y, A 


NO RADAR OR LANDMARK PI AS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH T 


HE FRRGR TRANSITION MATRIX (W) ARE USED AS INPUT TO THE ROUTINE.THE OEVIA 

ESTIMATED TRACKING MEASUREMENT FROM TH¥ 


TION IS OBTAINED BY COMPUTING AN 
CURRENT STATE VECTOR AND COMPARING IT WITH AN 


ACTUAL TRACKING MEASUREMEN 


T ANO APPLYING A STATISTICAL WEIGHTING VECTOR. 
INP UT 

nMENFLG = 0 60IMENSI0NAL BVECTOR 


1= 9DIMENSI0NAL 


= ERROR TRANSITION MATRIX 6X6 
VA RI ANCE~~^~VARIANCE ( SCAL AR 1 ^ 

OELTAO = MEASURED OE V I AT I ON ( S CAL AR » 


OR 9X9 


BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR 


P 0014 


nuTPur 


DELTAX ^ STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL 



OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENTIONAL 


CAL LING SEQUENCE 
L CALL INCORPl 


NORMAL EXIT 


R0022 


LT] of CALLING ST 



1 ^. ■ \ 


ZE 


0023 


0024 

0023 


00 26 RT^ 


0027 


OOTT 


002^ 

TT020 



0032 


0033 

0034' 


003b 


.j 


0039 

0039 


mzu 







I 


/_ 


ZZT 37 last STTT 


pTF To T^ST 386 


TeF 38 LAST 1251 


^F 14 L AS T 1'25T 


ttfF PTT^TASl 62 5 


RTF^ 5W rASTTZ37 


FAST 


TT 


RFF 21 ■■TAST"T7 37 


CIJDNTM= $$/lNCUR 


F37T 



36.3264 

36,32SS 

763773 6 
76“,777 


^r762TT 77 INCORPl STU 




66370“ 0 


iyTJ066T 




ATCrVI ““367 
— = 3r4TJ 



36.3260 

36.3261 
7677767 


00051 0 

"7 


ST 


I XI ^ 56 



= 17 


66376- T 


36,3263 

“76777.76 


7673767 


0002? 1 

“TT0052“7I 

“ijnzoTr T 


AXT,2 S77 

rar 


67 

6 


TX2 “^r6“ 52^ 


7673766 

777.7767 


637/5 1 

T)36G7“7) 



T 



7F“, y>. 70 
36,3771 


a2467 “0 
12/45 1 


3 V ECTOR 

W +54D,I 


BVECTOR COT 


7677777 

3 6,3777 


777 75 “I 
03510 O' 


sroT<F 

VTCrATT 


ZI -1-181), 2 


BVECTOR +6 


BVECTOR CTT 
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L 

M E A SUR E Me N T I MC OR POR AT I ON 






USER«S PAGE NO. 2 E5 S3 



004A 




36,3274 

5271 7 

1 


MXV’i' 

VAD=<' 



0045 

REF 

59^ 

LAST 1252 

36,3275 

02555 

0 



W +1030,1 



0046 

RcF 

3 

LAST 1252 

36, 3276 

75032 

1 



11 +180,2 



00-^7 

RE'= 

4 

LAST 1253 

36,3277 

12745 

1 


STORE' 

ZI +180*2 



0043 




36, 3300 

77775 

1 


VLOAO 




0049 

REF 

22 

LAST 1252 

36,3301 

03516 

0 



BVECTOR +12D 

BVECTOR (2) 


00 ‘jO 




36, 3302 

52717 

1 


MXV=«= 

VAD<= 



0051 

REF 

60 

LAST 1253 

36,3303 

02643 

1 



W +1620,1 



005^ 

REF 

5 

LAST 1253 

36. 3304 

75032 

1 



7.1 +180,2 

B(0)*W+B(1 )*(W+54)+B{2)=<‘(W+108)FIPST PAS 


0053 

REF 

6 

LAST 1253 

36, 3305 

12745 

1 


STORE 

ZI +ieo,2 

ZI THEN Z2 THEN Z3 


0054 




36,3306 

77700 

0 


TIX, 1 




0055 

RrF 

1 


36.3307 

75310 

1 



INCURl 



0056 




36, 3310 

43104 

0 

INCORl 

TIX,2 

BON 



0057 

REF 

1 


36,3311 

75266 

1 



7123 

LOOP PT5R Z1.Z2.Z3 


005 8 

R t F 

8 

LAST 626 

36,3312 

02706 

1 



OMENFLG 



0059 

REF 

1 


36,3313 

75317 

0 



INCORI A 



0060 




36.3314 

77775 

1 


VLOAO 




0061 

REF 

25 

LAST 891 

36.3315 

15335 

0 



ZEROVECS 



0062 

REF 

7 

LAST 1253 

*^6,3316 

02131 

0 


STORE 

ZI +120 



0063 




“36.331 7 

“TT20i 

1 

iNCORlA 

SFTt>D 

VLTJAT5 



0064 




36.3320 

00001 

0 



0 



0065 

RFF 

a 

LAST 1253 

36,3321 

02723 

0 



71 



0 065 




To, 3322 

47036 

IT" 


VSQ 

rtb 



0067 

R F F 

7 

LAST 920 

36,3323 

45565 

0 



TPMOOE 



0063 




:T6 ,-3524 " 

47515 

“ 0 "" 


“FUVL 

vso 



OTiW 


0 

LAST 1T53 

36.3325 

027 31" 

0 



Z I +6 



0070 




.36,3326 

762 34 

0 


RTB 

TOT 



00/1 

1 ^ P 

?r 

LAST 1253 

36.332/ 

45565 

13 — 



TPMOOE 



0072 




■3F7T3T0 

475 IS 

0 “ 


PDVL 

T5T5 



TmT~ 

REF 

T0“ 

LAST 1253 

36,333 1 

0273T 

0 



ZI +120 



0074 




jh.jm 

7623^ 

"0" 


T^TB" 

TAO 



00/5 

- r^^- 

9“ 

LAST 1253 

36.3333 

"45 5 65 

"(T 



TPMUOb 



OoTS 




36,3334 

77171 

0 


TAH 

AXT,2 



007 7 ■ 

REF 

"12" 

LAST 626 

T473T3F 

03526 

~ir~ 



variance 



a073 




TA; 3 336 

00000 

T 



75 



0079 

9 eE 

1 


36,3337 

01257 0 


STORE 

T R I P A 

ZI=^2 + Z2^2 + Z3=»^2 + VARIANCE 


003IT ■ 




36,3340 

“ADTsr 

0 


“TLOAD" ■ 

"^TTV 



ooirr ■ 

■REF 

“T3" 

“CAST 175? 

TotT^l 

035 9 6 

“0 ■ 



VARI ATTCE 

XL EAR OVFIND 


OOft? 




36,3342 

75343 

1 



+ 1 



008'3 

REF 

1“ 


3 '; . 3 3 4 3 

01262 

"TJ 


5 1 UR E 

T E MPV AF 

1 tMP S ! UR AGE FUR VAR I ANCE 


CTOrprzj— 




"36;T344 

~ TJh 5V 

"(r~ 


~FZF 




TOiTir" 

RFF" 

— r 


3 6 . 5T4 5 

"7 5354" 

~r~ 



I NCURIC 



00^^~ 




36,3346 

“ 40 1 1 Z 

~r 

I NCORIB" 

SCT 

B GV 



U0 3 / 

KbF 

z~ 

la:st t2^ 

T6TTJ4T 

/5354 

“I 



1 NLUK 1C 



umT~~ 

PbF ■ 

— 7~ 

LAST 1253 

T5'.T3'50 

■ 0TZ6T 

TT" 


S T n R h 

riiMPVAR 



■ 00^ 




36, 3351 

521 14 

■3 


“TNC R , 2 

GOTO 



0090 




36, 3352 

“onoirr 

“0 


DFtr 

1 



UTTTT” 

PFF 

— r 


.5 5 . 33 5 3 

/ 5 3 ^5 

1 



I NC UK 1 B 



— 009Z" 




■T6, 3354 

61551 

"T 

TNCnR 1C 

TUOAF 

ROUND 



009^ 

■ R EF ■ 

T 

"r7rsT‘r?’53 

3 6 , 3 3 5 5 

“T}T2'59- 

'3) 



T R I P71 
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L 

MEASUREMENT INCORPORA 

TI ON 





USER'S PAGE NO. 3 E5 S3 



009 4 




36,3356 

75405 

1 

DMP 

SORT 



0055 

REF 

3 

LAST 1253 

36,3357 

01262 

0 


TEMPVAR 



00‘:^6 




36,3360 

76257 

0 

SL=«^ 

TAD 



009? 




36,3361 

57576 

1 


0,2 



0098 

REF 

3 

LAST 1253 

36,3362 

01257 

0 


TR IPA 



0099 




36,3363 

63101 

1 

NORM 

I NCR, 2 



0100 

REF 

33 

LAST 1121 

36,3364 

00050 

1 


X2 



0101 




36,3365 

77775“ 

1 

DEC 

-2 



0102 




36, 3366 

77134 

1 

SXA, 2 

AXT,2 



0l03 

RTF 

2 

LAST 89 

36,3367 

02215 

0 


NORMGAM 

NORMAL I ZAT [ UN COUNT -2 FOR GAMMA 


0104 




36,3370 

00242 

0 


1620 



0105 




^ 6 , "^371 

40265 

1 

BDDV 

SETPO 



0 1 06 

QCp 

6 

LAST 576 

36,3372 

15325 

1 


DP1/4TH 



0107 




36,3373 

00001 

0 


0 



0109 

REF 


LAST 121 

36,3374 

03456 

0 

STORE 

GAMMA 



0109 




36.3375 

6 03 5 1 

0 

TLOAO 

NORM 



0110 

P.EF 

4 

LAST 1254 

36,3376 

012 57 

0 


trira 



0111 

REF 

64 

LAST 1193 

36,3377 

00047 

1 


XI 



0112 




36.3400 

653 45 

0 

““ DLOAO 

PDDL 

PD 0-1 = NORM (A) 


0113 

REF 648 

last I2^4E~ 

36,3401 

oor'55' 

0 


MPAC 



0114 

REF 

5 

LAST 626 

36, 340? 

03b24 

1 


OELTAO 



011*3 




36,3403 

— TTTcrr 

IT 

NORM 




0116 

REF 

IT" 

L ASr T752 

36, 3404T 

7)0X5617 0 


SI 



0117 




36,3405 

704 60 

1 

X sO , 1 

“TRl 



0118 

REF 

40 

L ATrr T2ir4 

36,3406 

"OOOTO 

r ■ 


S 1 



01 n 




36,'34T)7 

41471 

on 

DOV 

PUSH 

PD 0-1 = DELT AQ/A 


01143 




3 6 f 3 ^ 1 0 

77650 

1 

ctTm 




0TI9“S 

■■RTF 

“T“ 


3'7r,Tzn 1 

31377 

“O" 


NEW7C0MP 

- - ■ ■ - ■ ■ - - ■ 1 — a-, - ■■ -mi -r m ■ ■ ■ — — ■ 


0120 




■33VT4T2" 

TTTTT 

1 

-3 SSP 




0121 

REF 

15 

LAST 1252 

36,341 3 

000S2 

0 


S2 



0122 




■26,34T4 

000677 

“ 1 “ 


54D 



0123 




■T6,T4Ty 

607T5" 

nr 

T NCDR 2 VLtlATr 

17X7^^ 

CUMPUIE UMbGAl,2.3 


0124 


Tr~ 

LAST 1252 

36,3416 

02723 

0 


n 






m 

LTfST 1253 

TT , 54TT’ 

7 5 1 34' 

“ 0 “ 


W '^16?D,2 



~UY7h 




'T6 , 34r2cr 

7 72 06 ‘ 0“ 

PUSH 

VX L) A D 



0127 

REF 

TT~ 

LAST 

36,3421 

02731 

nn 


Z I +6 



0123 




"36 ,3422 

53 3 03 

1 

VXM* 

VAD 



0129 

REf 

■62“" 

TT5T T 254 ■ 

366 342 3 

75112 

1“ 


W + 1 B OT) 



0130 




3 ' » , Z' 4 ? 4 

77206 

0 

PUER 

vloaO 



0T3I" 


13 

LAST 1254 

“T5T7475r 

02737 

0 


■ ZI +120 ■ 



Ol 32 




T6 ,“2426“ 

5 3303 

“T~ 

VXM* 

TATT 



0133 

RFF“ 

"T3~ 

LAST 1254 

TfpTTTTTr 

750/0 

1 


W +1990,2 



OTW 




36,3430 

61()0'B^ 

o 

PUSH 

TTX,“2 

PO 2“7— OMFbAi t 3=0MEGA2 1 14’*19“0MrGA3 


0139 

rrEF“ 

r 


36, 3 43'Tr 

75415 

T) 





ons" 




36, 3432 

455 fh 

1 

VLUAU 

SI ADR 



aT3T" 

REF 

2^ 

“LAST OTZI 

36 , 34T3'‘ 

74303 

n~ 

5 TOR F" 

OMEGA +12 D 



0133 




36,3434“ 

45575 

rr~ 

VLDAO 

s i Auk 



0139 

— RTF~ 

“"5“ 

TAST 1254 

36,3435 

^4311 

T" 

STOrl 

U M fc G A 3*6 



0140 




■3'6', 3 436“ 

45575 

T" 

VCnATT 

S \ ADR 



Or4T“ 

— -5— p— 


TAST T254 

3Z, 54^y 

74TTT^ 

~T~ 

STORF 

U MEGA 
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MEASUREMENT INCORPORA 

TTON 






OSEP«S PAGF NO. 4 E5 S3 















01^2 





36,3440 

77214 

0 


BON 

VLOAO 



01^3 

REF 

Q 

LAST 

1253 

36 . 3 44 1 

02706 

1 



DMEMFLG 



0144 

REF 

r 



36,3442 

75445 

0 



IMC0R2A8 



01^5 

REF 

26 

LAST 

1253 

36.3443 

15335 

0 



ZFROVECS 



0146 

REF 

5 

LAST 

1254 

36.3444 

03474 

0 


STORE 

OMEGA +120 



0147 





36,3445 

66374 

1 

INCnR2 AB 

AXT, 2 

SSP 



0148 





36.3446 

00022 

] 



ISO 



014^ 

REF 

16 

LAST 

1254 

36, 3447 

000 52 

0 



S2 



0150 





36, 3450 

00006 

1 



6 



0151 





36.3451 

77773 

1 

INC0R3 

VLOAO* 




0152 

REF 

6 

LAST 

1255 

36,3452 

74275 

1 



OMFGA +180,2 



0153 





36,3453 

53761 

1 


VXSC 

VSL* 



0154 





36.3454 

00001 

0 



0 

OELTAQ/A 


0155 





36,3455 

20201 

0 



0,1 



0156 

REE 

~TT 

LAST” 

626 

36.3456 

11301 

0 


STORE 

DELfAX +180.2 



0157 





36.3457 

77304 

0 


T!X,2 

VLOAO 



(Jr58 

REF 

1 



36,3460 

75451 

0 



INCnR3 



015<7 

REF 

13 

LAST 

1255 

36.3461 

01265 

1 



OELTAX +6 



0160 





36, 3462 

77732 

1 


VSL3 




0161 

“REF” 

14 

LAST 

1255 

36,3463 

01265 

1 


'STORE 

OELTAX +6 



0162 





36. 3464 

77650 

1 


GOTO 




0163 

REE 

11 

“TbS^ 

125'2 

3 6, 3 4 c> 5 

02S17 

0 



EGRESS 






I 
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L 

M'^ASUREMENT I NCORPORATION 

USER'S PAGE 

NO. 5 

E5 S3 



P0164 

1NC0RP2 -INCORPORATES THt COMPUTED STATE VECTOR DEVIATIONS INTO THE 





R0165 

ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY 3E FOR EITHER THE 





R01i6 

LEM OR THE CSM* OETERMINEO BY FLAG VFHUPFLG. ( ZERO = LEM) (1 = CSM) 





R0167 

INPUT 






PERMANENT STATE VECTOR FOP EITHER THE LEM OR CSM 





P 01 6 ? 

VFHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM 





R0170 

W = ERROR TRANSITION MATRIX 





R017L 

DELTAX = COMPUTED STATE VECTOR DEVIATIONS 





R0177 

OMENFLG = SIZE OF W MATRIX (ZERO =6X6) (1=9X9) 





R0173 

GAMMA = SCALAR FOR INCORPORATION 





Rdi7't 

ZI = VECTOR USED IN INCORPORATION 





R0175 

OMEGA = WEIGHTING VECTOR 











ROl 76 

OUTPUT 





R0177 

UPDATED PERMANENT STATE VECTOR 






R0i78 

CAI LING SEQUENCE 





R017‘- 

L CALL INC0RP2 






ROl e 0 

NORMAL EXIT 





ROIBI 

l. + l OF CALLING SEQUENCE 






0192'“ 

R EE 

~T ~ 

3 6 . 2D'0*0 

s:Fn:ac mfasinci 


0133 



36,3466 

bank 



0184 

■REF 


LAST 1757 TO' 

1 25 6T 

r3 F I T8 * 


COUNT* 

^TTTTTCOH 






0135 




36,3466 

45020 1 

I NC0RP2 

STQ 

CALL 





0186 

'REF' 

12 

LAFF T255 

36,5467 

0731 TIT 








0187 

REF 

22 

LAST 915 

36.3470 

27A42"ir 



I NT STALL 





01 88 




36, 3471 

743T5 O' 


VLOAD 

VXSC 

CALC* GAMMA * OMEGAltZtB 




0189“ 

“REF- 

7 

LA'SF 1755' ■ 

“T6,34'T7~ 

03460 0 



U M E G A 





0190 

REF 

3 

LAST 1254 

3 tS , .3473 

03456 0 



GAMMA 





TlTTr' 

“ REF 

2 

LAST” 9T~ 

36,3474 

26643 1 


STOVL 

0 M F G A M 1 





■DT92 

^ RTF 

3 

L ASFT256 

“3FTF475" 




U M t G A +6 





019 3 




36,3436 

Z7761 1 


Vxsc 






0194 

“ EF 

4 

LAST r2F6 

3 6 , 3 4^ 7 

074F6 F 



F91WA 





0195 

“ RFF 

7 

LATT 97 

36, 3300 

266 51 T 


“STOVL 

D M E G A M 2 





0196 

REF 

9 

LAST 1256 

36,3501 

03474 0 



□MEGA +12D 





uvrr 




, T5X)F 

7T76T T~ 


VXSC 






mr9!r 

REF 


LAST 1256 

36,3503 

DT456“0“ 



gamma 





OTW 

TeF 

“T" 

LAST 97 

36, 3504 

02657 1 


STORE 

0 M E G A M 3 





0 2 OO 



“TFTIFO 5 ■ 

T77TF T 








0201 

— RFF 

1 


36,'35CrT 

3 3767 r 


CAP 

5^ UD 

I N 1 T I AF I X 1 SE ! TING FOR 

W MAT RI X 



0202 

REF 

? 

last 5T5 

36,3*507 

~5TTm“ 


T5 

WI'XA 





UTJTT 

PTF" ^ 


L ATT FD 

F7TTT5rrr~ 

55*253 'TT 


"TS 

W IXH 





0?0V 


rsF" 

LAST 1231' 

'36,3511 

3 5021 1 


CAF 

ZERO 





0203 

— 

~~r 

LAST TO — 

36 ,3512 

55 ’ 2 54 1 


1 S 

Z IXA 

INITIAL IX 2 StlTlNG f-Ok 

1 C^^MPtiNTEN 1 



0206 

RTF 

"7“ 

LAST TO! 

36, > 5 1 3 

56*255 0 



ZIKB 







IFF 

TT 

F7LST' 1031 

36, !5 5 1 ^ 

Tr541'2 U" 

“FATT 

TC 

PH A SCHNG 








- 


• 
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L 

MEASUREMENT I NCnP.PdP AT I IJN 

USER'S 

PAGE 

N0« 6 

E5 S3 



I 


0208 





36.3515 

04022 

0 


OCT 

04022 



0209 

P FF 

51 

LAST 

829 

3 5 t 3516 

0 5546 

0 


TC 

UPFLAG 



0210 

REF 

2 

1 AST 

513 

36,3517 

00236 

0 


ADRFS 

REINTFLG 



0212 

REF 

3 

LAST 

1256 

36t3520 

3 12 53 

1 

FAZAl 

CA 

WIXB 

START FIRST PHASE OF INC0RP2 


0213 

REF 

3 

LAST 

1256 

36,3521 

55*252 

1 


TS 

WI XA 

“ ^ TO UPDATE 6 OP 9 DIM. W MATRIX IN TEMP 


0214 

RFF 

3 

LAST 

12 56 

36.3522 

3 1255 

1 


CA 

7.IXB 



0215 

REF 

3 

LAST 

1256 

36,3523 

55 '2 54 

1 


TS 

ZIXA 



0216 

REF 

229 

LAST 

1128 

36,3524 

0 6006 

1 


TC 

INTPRET 



0217 





36.3525 

731 50 

1 


LXA.l 

LXA,2 



0218 

REF 

4 

LAST 

1257 

30.3526 

01252 

0 



WIXA 



0210 

PEF 

4 

LAST 

1257 

36,3527 

01254 

0 



ZIXA 



0220 





36.3530 

■ T0731 

0 


SSP 

DLOAD* 



0221 

RFF 

41 

LAST 

1254 

36,3531 

00051 

0 



SI 



0222 





36,3532 

00006 

1 



6 



0223 

REF 

14 

LAST 

1 2 54“ 

36.3533 

75054 

1 



Z1 .2 



0224 





36,3534 

60276 

1 


DCOMP 

■N n R M 

CALC UPpFR 3X9 PARTITION OF W MATRIX 


0225 

REF 

17 

LAST 

1255 

36, 3535 

00052 

0 



S2 



0226 





36.3536 

65161 

1 


VXSC 

XCHX.? 



0227 

PEF 

3 

LAST 

1256 

3A,3537~ 

02643 

1 



OMEGAMl 



02 2 

REF 

la 

“LAST 

1257 

36,3540 

OOTTFl 

0 



S2 





U2 4 5 





3 6 , 3 .6 6 7 

71124 0 

XCHX,2 LXC,2 



0244 

REF 

'7r~ 

LAST 

1257 

36 . 3 5 6t 0 

000 51' "0 

S2 



024T“ 

■ REF 



125 7 

■ Jo . T55T 

“OGOTm 

X2 



02477 





3 b' , 3F6Z"" 

^T6T4 1 

XAD,F 



0 7 '.7“ 

— T'T — 

4 

LTST" 

125 / 

36.3563 

02215 0 

normgAM 



CTZTTR 





30. 3 5 LT A- 

5/5/6 1 

U * 2 



024T 





’ 36,3 5'6'5 

52T2T T 

XCHX,2 VAD* 



0250 

REF 

T2~ 

TTrST" 

TZTT- 

36. 3566 

00051 0 

T2 



0251 " 

PEF 


LAST" 

1257 ■ 

3 6.356 

0255F T) 

W +108lJ,i 



07.52 

REF 

T 

rA5T"TZ5T~ 

36,3 57Xr 

02673 I 

STORE HULOW +6 









36,3bn — 

7761/f I 

BQFF 



02 54"“ 

— R EF ■ 

nrr- 

TTAST" 

1255 

— 5575517. 

‘02 746 0 

OMENFLG" “ 

BRANCH IF 6 OIMENSIONAL 


0255 

— RFF 

r 



— 5575513 

75613 1 

F A7 B 



0 2 5’zr“ 





36,35/4 — 

57543 1 

DLnAU=«‘ ULUMP 

CALL LUWfR iXV PAKllllUN Uh W MAI HI X 


0751 — 

— RFF 

To 

L7VST 

1. 2 ^ T 

— 36, 33T5 

T5T)F4 1 

Z I f 2 



0253 ” 





— TE , 3 5T6 

T430TF) 

■NTOKW ”3/XSr “ 
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L 

MEASUREMENT INCORPORATION 





USER'S PAGE 

NO. 7 

E5 S3 


02 59 

REF 

23 

LAST 1257 

36,3577 

00052 

0 


S2 




0260 

REF 

3 

LAST 1256 

36.3600 

02657 

1 


0MEGAM3 




0?61 




36.3601 

71124 

0 

XCHX,2 

LXC ,2 




0262 

REF 

24 

LAST 1258 

36,3602 

00051 

0 


S2 




0263 

REF 

36 

LAST 1257 

36,3603 

00047 

1 


X2 




0264 




36, 3604 

“336 74 

1 

XAD,2 

VSL^i' 




0265 

REF 

5 

LAST 1257 

36,3605 

02215 

0 


NORMGAM 




0266 




36.3606 

57 5 76 

i 


0.2 




0267 




36,3607 

52724 

1 

XCHX,2 

VAD* 




0268 

REF 

25 

LAST 1258 

36,3610 

000 51 

0 


s? 




0269 

?,EF 

66 

LAST 1257 

36.3611 

0 2643 

1 


W +1620,1 




0270 

R EF 

4 

LAST 1257 

36,3612 

02701 

0 

STORE 

HOLOW +12D 




0271 




36,3613 

77624 

1 F AZB 

CALL 





0272 

REF 

20 

LAST 626 

36,3614 

56750 

0 


GRP2PC 




0273 




36,3615 

77776 

1 

EXIT 





0274 

REF 

5 

LAST 1257 

36,9516 

3 12 52 

0 FAZBI 

CA 

WIXA 

START 2ND PHASE 

OF INCnRP2 tn 

— = — * — »-» ~ ^ . jr~i — ir ' 1 1 . ■ 1 

TRANSFER 

02‘’5 

p ef 

1 


36,3617 

6 3770 

1 

An 

600 

TEMP REG to 

PERM W^^TRIX 


0276 

PEF 

» 

‘t 

LAST 1251 

36,3620 

55’253 

0 

TS 

WIXB 




0277 

EF 

5 

LAST 1257 

36,3621 

3 IP 54 

0 

CA 

Z1 XA 




0278 

REF 

2 

LAST 190 

36,3622 

6 7715 

0 

Ad 

M I NUS2 




0270 

REF 

4 

LAST 1257 

36,3623 

55' 255 

0 

TS 

ZIXB 




028 0 

REF 

230 

LAST 1257 

36.3624 

0 6006 

1 

TC 

intpret 




0281 




36 , 3625 

663 50 

1 

LXA,1 





0282 

ITEF" 

6" 

LAST 125 a 

36 , 3626 

01252 

0 


WIXA 




0283 

RfcF 

42 

LAST 125? 

36, 3657 

00051 

0 


SI 




0284 




36,3630 

“DOOO 6 

1 


6 




0285 




36,3631 

77775 

1 

VLOAO 





02 S6 



LA5T*T?W 

36,3632 

02 66'5“ 

0 


HOLOW 




0287 

8FF 

67 

LAST 1258 

36,3633 

06467 

J. 


W +540.1 



— 


02 

02^ 


VLO 


wet 

RFF 


OTT 


36t3635 


TyZ?2?T’T 


6^ 





0291 


* 36 36 
36.3637 


TJ 65 65 I 
77214 0 



Hunyw 

¥^1030.1 


F3FF VLOAD 



TTZT^ 


TI 

”T 


OrST I25T 


0294 


R EP 

R EE 6^ 


36,3640 

36. 3 64 r 


(32 746 13 

r 


T 


LAST 1268 

O'ST 175~B 


36.3642 


I 

02701 O' 


OMENFLG 

FAZBR' 



36T3643 
■36TT? 44 


0?r643“a 

yzroTTT 



FA2BZ 


TIX.T 


HOLOW +12D 

TT +T42Da 
GDTD ^ 


0297 

0293 


RE 


T 


36,3645 

^6,3646 


75647 0 



OZW 

0300 


36.3647 



+ . 

FTTZi: 


UDTTF'WTTH W MATRTX. UPDTiiTF 3TATE“ VhC [UK 


irnr 




36,3650 


7Tr5T4 




0301 

UW 


36 . 3 651 



FAZB5 



'V 



0303 




ef 


5“ 

r 



36'.'3657 

36, 365'3 


01256 1 


TTTCTT 


0704 


36,3654 


0304 

0704 

O70T 



/ 


IASI 1253 


T 


75.3655 

36.3656 


35772 0 

"72077771 
75657 1 
75644 0 


BHTZ 



ormr 


FATC 


FA7B2 


0303 


FTF 


ZT 


LAST 'TZ57 


7777757 

57, '660 


77F2^ 


F'ATO 


OATU 


55T50'7} 
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MEASURFMENT I NCORPORAT I Or4 





USER'S PAGE NO. 8 E5 S3 











0300 




36* 2561 

533 75 0 


VLOAD 

VAO 

START 3R0 PHASE OF INC0RP2 

0310 

REF 

8 

LAST 609 

36 * 3662 

01701 0 



X /89 

7TH,8TH,9TH, COMPONENT OF STATE VECTOR 

0311 

REF 

15 

LAST 1255 

36 1 366 3 

01273 0 



DFLTAX +120 

INCORPORATION FOR X789 

0312 

RFF 

2 

LAST 121 

36.3664 

03450 0 


STORE 

TX739 


0313 




36,3665 

47014 1 


BON 

RT6 


0314 

REF 

13 

LAST 626 

36 , 3666 

00707 1 



VFHUPFLG 


031 3 

REF 

1 


36,3667 

75757 0 



DOCSM 


0316 

REF 

1 


36, 3670 

2701A 1 



MOVEPLEM 


03 T 7 




36,3671 

7700^ 0 

F AZAB 

BOVB 

AXT,2 


0313 

REF 

Q 

9 

LAST 926 

36,3672 

57352 1 



TCDANZIG 


0319 




36, 3673 

00000 1 



0 


0320 




36.3674 

77014 1 


BOFF 

AXT.2 


0 3 ? 1 

REF 

7 

LAST 533 

3^ . 8 675 

04343 1 



MOnNTHI S 


0322 




36,3676 

75700 1 



+ 2 


03.23 




36.3677 

00002 0 



2 


0324 




3f . 3700 

53775 1 


VLOAD 

VSR^^' 


03?T~ 

REF 

16 

LAST 1259 

36,370i 

01257 0 



oElTax 

" B27 IF MOON ORBIT, B29 IF EARTH 

0325 




36.3202 

57205 1 



0 -7,2 


0327 




36,3703 

40055 0 


VAO 

BOV 


0328 

RcF 

4 

LAST 289 

36,3704 

01521 0 



toeltav 


0329 

R EF 

1 


36.3705 

75717 1 



FAZABl 


03 30 

r¥F 

“F“ 

LAST 125'i 

36, 3'/06 

25521 0 


STQVL 

toeltav 


0331 

REF"' 

TT" 

LAST 1255 

36,3707 

01265 1 



DEL Tax +6 

05 IF MOON ORBIT* B7 IF EARTH 

0332 




36.3 /lO 

53257 1 


V SR* 

VAO 


0333 




36,3711 

51202 0 



0 -4,7 


0334 

RTT" 

4 

“TXST 7^ 

TT7T7TT“ 

01527 0 



TNUV 


0325 




36.37 13 

77600 1 


BTW 



0336 

R EF 

”TT 


36,3714“ 

75723 0 



F AZ AB2 


033 /“ 

RFF 

5 

‘LASI 1259 

36.3 Y rF“ 

35527 1 


5 7 C AL L 

TNUV 


0 3 3 y' 

— RTF” 

~r" 


36,3716 

— vrrmr~ 



F A Z AB3 


0 339 




“36,3717^ 

T3 3 75 0 

FA? AHT~ 

VLtlAD 

VAD 


— 0340 


nrr 

~X A ST~ 91T 

"36, 3720 

01535 0 



“RUV “ 


0341 

— fTET” 


LAST 1255 — 

36,3721 

01257 0 



ofltax 


(y34-7“ 

RRF 

FTzr 

■ UAST 1259 

~5“. 37 22" 

01535 0 


STURE 

REV 


034T‘ 




~T6 ."TT2T" 

5 1 3 75" O ’ 

F AZ AB2 

VDTAO 

“V/TD 


TTF^T" 

•' F f- 

12 

LAFT ^15 

36,3724 

01543 1 



VC V 

A 

0345 

RFF 


■ ITST 1259 

36. 3725” 

0TT65"T 



'jFLrAX“+6 


0 346 

RTF^* 

TX 

“CTAFT T2T9 

3 6, 3726' 

0X5^ T 


S T OR E 

"VCV" 


034/ 




36,372 7^ 

45134 0 


SX A , 2 

c^rc 


cnw“ 

RFF 

■ 3“ 

LAST 2 65 ” 

36.3730 

02150 1 — 





0349 

REF 

— 1“ 


36,3 / 31 

23621 1 



RFC ITFY 


03491 




36,3/32 

77624 1 

F 62 A 53 

CALL 



0 T4'9-2 

— 


■ LAST 1258 

36 , 373F" 

5 6 TTOT) 



GKR2PC 


03 ^ 0 




16,873^ 

“""4T014 1 


"BON 

RTB 


0351 

— Fn=T“ 

TT" 

LAST 1259 

86,3735 

00707 1 



V F E!LJ P F L G 


0352 

KrtF 




/5 762 0 



DUC S MI 


0353“ 

REF 

“T 


16, 3/3 1 

26 //I 0 



'VEALEH 


0354 




36.3 /40 

^/6 24 1 


CALL 



03 5 5 

r< h F 

2 

LAST ^oT 

3 6. 374T' 

202 63 1 



SVDWN2 

STORE DTTWNLINK STATE VECTOR 

U 




36V3T4 2“ 

776?4^T 

F A79AK4 

CATT. 


— 
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MEASUREMENT INCORPORATION 


USER’S PAGENUT 




£5 S3 


P 


0357 

REF 

23 

LAST 

1259 

36, 3743 

56750 

0 



GRP2PC 

PHASE CHANGE 


0358 





36,3744 

77214 

0 


BOFF 

VLOAD 



03 59 

REF 

12 

LAST 

1258 

36,3745 

02746 

0 



DMENFLG 



0360 

7EF 

1 



36,3746 

75751 

0 



FAZAB5 

6 DIMENSIONAL 


0361 

REF 

3 

LAST 

1259 

36,3747 

034 50 

0 



TX739 

9 DIMENSIONAL 


0362 

REF 

9 

LAST 

1259 

36.3750 

01701 

0 


STORE 

X789 



0363 





36, 3751 

66150 

0 

FAZAB5 

LXAtl 

SXA.l 



03 64 

REF 

13 

LAST 

1256 

36,3/52 

02317 

d 



EGRESS 



0365 

P.cF 

19 

LAST 

1196 

36,3753 

00052 

0 



QPRET 



0366 





36,3754 

77776 

1 


EXIT 



- 

0367 

RFF 

57 

LAST 

1068 

36.3755 

0 4701 

0 


TC 

POSTJUMP 

EXIT 


0 368 

REF 

3 

LAST 

634 

36,3756 

2T457 

~T 


CADR 

INTWAKE 



0369 





36,3757 

52034 

1 

DOCSM 

RTB 

GOTO 



03 70 

RFF 

1 



36.3760 

26747 

1 



MOVEPCSM 



0371 

REF 

1 



36,3761 

75671 

0 



FAZAB 



0372 





36,3762 

45034 

1 

DOC SMI 

RTB 

CALL 



0373 

REF 

2 

LAST 

35 

36.3763 

26t20 

0 



MOVEACSM 



03 7h 

REF 

2 

LAST 

265 

36, 3764 

20237 

0 



SVDWNl 

STORE DOWNLINK STATE VECTOR 


0375 





36,3765 

77650 

1 


GOTO 




0376 

REF 

1 



36,2744 

75742 

1 



F A ^ A 8 4 



0377 

^ EF 

27 

LAST 

125 5 

26,3334 



ZEPnn 

— 

ZEROVECS 




Om — 36.3767 00065 1 DEC ^ “ 

0379 ?;'6;~3770 TTTTr 0 60D DEC -6 

0380 36, 3771 000 14 1 12D0 OF?! 12 

0400 REF T — — - 14,2000 — — SETLOC MEASINC2 


0401 

0402 



15 


VT5 




I NFWICTT^ “VI 0 AH AFVM: 


04 04 


17 LAST 1257 


0405 

UW6 


REF 

ref ~ 1 

R FF ■ lir" L AST IZro 


14, 3400 

T4"r3^Tr 


02723 0 


^OVL 


14 






0407 

04DB 


0410 

0411 

04 12 

0413 

0414 


14,3403 

ITTTWA 

14,3406 

T4^4T407 


^T44?rT 



A 3 VAT 

TTSTJ ‘ 



YETT 



71 

NTTRTTZT 

ZI +6 " 

IIMR 

NORMZT 


04 1 5 

0416 

'(J4TT 
■04T^ 

04185 
0419 


O.ST 1260 

LAST 1260 


14,3411 

T47T7rn 

TAT? 

14.3414 

14.3415 


51573 1 


TJ 

T 


oioxir 

STQPF N0RM7I 

A8VAL 



452175 

Hoc 


T7SU 



Bm 



I4T54H5r 

14,34TT' 


XJ 


T^WZCHPT 


■0420 


OFF 

OFF 


2 


FAST 

FAST 


1060 

1200 


T4.T420 

14,342 1 


77626 0 
43732"0 
7 3635 O 


SICALL NURMZI 
— W1T7F7TPT 



AOVAF 


042T 

0422 


t I" 


T 


•Ab. '-’000 

T5VT5Tb' 


SET LUC HtASrNC3 

xlirFnr" — — 

t5 A N i\ 



1 1 ■ i * — — — L— a . _ * . . r 1 
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L 

MEASUREMENT I NCORPOPATION 

USEP*S PAGE 

NO. 10 

E5 S3 


§ 


0423 





35,3635 

66145 

1 

NFWZCMPl OLOAD 

S X A , 1 







0424 

REF 

6 

LAST 

1260 

35,3636 

00045 

0 


NORMZI 







0425 

REF 

7 

LAST 

1261 

35,3637 

00044 

1 


NORMZl 

SAVE 

XI 





0426 





35, 3640 

62101 

0 

NORM 

INCR.l 







0A2T 

REF 

65 

LAST 

1254 

35,3641 

00047 

1 


XI 







042 8 





35,3642 

00002 

0 

DEC 

2 







0429 





35 • 3643 

53775 

1 

VLOAD 

VSL=^ 







04 30 

F F 

20 

LAST 

1260 

35.3644 

02723 

0 


ZI 







0431 





35,3645 

20201 

0 


0,1 







04 32 

REF 

21 

LAST 

1261 

35,3646 

26723 

0 

STOVL 

ZT 







0433 

;<EF 

22 

LAST 

1261 

35,36^7 

02731 

0 


ZI +6 







0434 





35,3650 

776 57 

0 

VSL« 








0439 





35,3651 

20201 

0 


0.1 







0436 

PEE 

23 

LAST 

1261 

35,3652 

26731 

0 

STOVL 

ZI +6 







0437 

■IcF 

24 

LAST 

1261 

35,3652 ■ 

02737' 

0 


ZI +120 







0438 





AS. 16 94 

66057 

0 

VSL* 

SX A, 1 







043 





36,3695 

20201 

0 


0,1 







0440 

ww 

g- 

L A S T ' 

1261 

15.3696 

00045 

0 


NGRMZI +1 

SAVE 

SHIFT 





0441 

REF 

25 

LAST 

1261 

36,3697 

02737 

0 

STORE 

7! +12D 







0442 





35,3660 

54150 

1 

LXA, 1 

XSU, 1 







0443 



LAST 

1258 

35,3651 

02215 

/ l : 

0 


NORMGAM 

M 'T ^ 7 f 








0^^;^ REF 9 LAST 1261 3S,36S2 00045 0 NOK.^ZI +1 


TJ2^ " 35^-^663 77660 1 XSUtl 

0446 iTFF To LAST 1261 35,3664 00045 0 NORMZT + 

0 W 7 ^ ” T 6 , 3 66'5 70 T 30 I 5 XA ,1 LXC ,1 


Tr44T5 TFF ~1 IASI IZoF ‘ T5TT666 (TTZl 


N I'J R W A73 


OW? ^ n last 126T 

TW51 PTF r2 r A SO r26T 

7W^ 


LFr5T^ REF 2 LAST IT54 


35,3667 

00045 

0 

NORMZl +1 



35 , 3 6T0‘ " 

402 70 

0 

XAD.'I SETPTT 



T5,T6Tir 

0^0^(J4^4 

1 

"MORMZI '■ ■ 



35.3672 

— 00003 

"T 

2D 



T54 3673 

77&50 

1 

Gutn 



T5“. TS7“4 


1 

■ TNUnRT^^l 


- ■ - -IMM M 1 M-IM-TM— ■ ' T^ " ---^ ' 


0044 NORMZ I 
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L 

CONIC SUBPOLfTTNES 





USER'S PAGE NO. 1 EO S3 



POOOl 

PROGRAM 0;:SCR IPTION 

- ENTIPE 

CONIC 

SUBROUTINE LOG SECTION 


DATE - 1 SEPTEMBER 1967 


P0003 

•00 NO. - 0 





LOG SECTION - CONIC SUBROUTINES 



’’0005 


MOO BY KRAUSF 


ASSEMBLY - COLOSSUS REVISION 38 


ROOa? 


R0008 


FUNCTIONAL DESCRIPTION 


R0009 

THE FOt LOWING SET OF SUBROUTINES SOLVE VARIOUS PROBLEMS INVOLVING THE TRAJECTORY PRODUCED BY A CENTRAL 


ROOll 

I MV F R SE -S OUARE FORCE At TTNG ON A POINT MASS, AS OUTLINED IN THE CMC AND LGC LUNAR LANDING MISSION GSOP, SECTION 


KOOl ^ 

5. 5. 1.2. A general usage PO I NT-OF-VT cW WAS TAKEN IN FORMULATING. MEC HANTZT [>10 . AND SCALING THE SOBROUTT ME S*' 


^001^3 

RATHER THAN OPTIMISING EACH pOR A PARTICULAR USE. THEREFORE, MULTIPLE USAGE CAN BE MADE OF THE SUBROUTINES 


R0017 

TNVf^LVTNG ANY REALISTIC SET OF CONSTRAINTS. TT SHOULD BE NiJTED THAT ONLY ONE SET OF COOING TS USED, WHETHER TrfE 


P0019 

EARTh, moon, or any hthER celestial BODY IS SPECIFIED AS THE CENTRAL BODY OF THE PROBLEM* PROVIDED ONE OBSERVES 


R0021 

THE INHERENT SCALE CHANGE REQUIRED IN POSITION* VELOCITYt MU t AND TIME» AS OUTLINED IN MISSION PROGRAMMING 


R0023 

DEFINITION MEMO NO. 10. THIS CAN BE ACCOMPLISHFD BY SIMPLY ADDING TO THE MUTABLF AND INITIALISING THE SUBRDO- 


R0025 

TINES APPROPRIATELY. 


P0026 

DUE TO THE UNIFORMITY THF EDUATIONS INVOLVED* CODING WAS MINIMIZED BY TREATING INDIVIDUAL EQUATIONS AND 


R0028 

BLOCKS OR EQUATIONS AS SUBROUTINES OF LOWER RANK WHEN^:VER POSSIBLE. AS A RE“SULT* THRF'- BY-PROOUCTS SUBROUTINES* 


R0030 

DIRECTLY USAfiL? AS INDEPtNOf-NT SUBROUTINES, WERE GENERATED. 




R00 31 

RESTRICTIONS - 


- - - ■ 1 -!■- !■— — — -■ ■ _■ - — — W . h u ■ 

R0032 

THE ONLY LIMITATION IN THc SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARTICULAR SUbKLIUMNt IS I Ht SCALiNb 


R0034 

LIMIT OF EACH PARAMETER AS SPECIFIED IN THE G^OT^. THESE SCALING ITMTT5“ WERE CHOSFN SO THAT ALL FEASIBLE TRAJEC- 


R0036 

TO^^ IFS COULD BE HANDLED. 


ft0037 

— “Since tH;: tubroutines (cxcrPT kepler) ose“common susRnoTiTjFS of lower rank which use erasable oiher ihan 


R003 9 

“ THE P fISHL I^r~TDUE TO ITS LtMlTFDT FTET AND COMMON ITTT ETSPRETIVE SWITCHES, THE CaNIC“SUBROUTlNES CANNUI at ALLOWED 


R0041 

TO INTERRUPT EACH GTHFR. IT IS UP TO THE USER TO GUARANTEE THIS CONDITION. 


R0043 
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L 

CONIC SUBROUTINES 


USER'S PAGE NO. 2 EO S3 



POOA-A 

program description - KEPLcP SUBROUTINE 


DATE - 11 OCTOBER 1967 


R0046 

MOD NO, -1 


LOG SECTION - CONIC SUBROUTINES 


R0043 

MOO BY KRAUSE ~ 


ASSEMBLY - COLOSSUS 103 AND SUNDANCE 222 


R 0050 

MOD NO, “ 2 (AUGUST 196R) BY ROBERTSON: TO 

PERMIT BACKDATING BY 

MORE THAN ONE ORBITAL PERIOD. 


ROnso? MOD NO. - 3 


IDEC n6B) 3Y ROBERTSON: SUPPRESSION OF X-MnOULO-I NG 


R005O3 MOD. NO. - 4 


(JAN 196^1 3Y ROBERTSON 


CLEAR OVFINO AT KEPLER ENTRY 



R0051 


R0052 
ROD 54 


R0056 


P.0058 

R0060 


R006P 


R0053 
R0065 
R006S1 


ROOS53 
R0066 


FUNCTIONAL DESCRIPTION - 

THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE T5 TO 
BE UPDATED ALONG A CONIC TRAJECTORY., COMPUTES THE NEW. UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC 

RECTILINEAR WITH RESPECT TO THE EARTH OR’THE MOON. 


THE 



SECTION - CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR 

USE OF THE SUBROUTINE CAN BE EXTcNDED USING OTHER PRIMARY BODIES BY SIMPLE AIIDITIONS 

INTRODUCING ANY'COOIMG CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERA- 


MUTA'm W TTHnUT 


TION 


TECHNIQUE IS UTILIZED IN THE COMPUTATION. 

THE program WILL SOLVE 


IF A NEGATIVE TI Mb-OF-FL IGHT IS INPUT, 

EXTRAPOLATING THE POSITION BACKWARD IN TIME. 

IF THE Absolute value of the desired tran 


FOR THE 



WHICH WOULD BE T^TJITOCEir BY 



Time EXCEEDS THE ORBITAL 


MuDiiL AT tfchn I DUE . WILL Compute the sTAtp corresponding to the 



PERIOD, THE SUBROUTINE. THROUGH 

UR“ 




TTHB (WHETHER 





R0067 

THE 

"RFSTPICTTONS ARE - 



P0063 


1. (PRf^VIOUS PESTRICTION ON THE 

NEGATIVE DESIRED TRANSFER TIME IS NOW DELE 

TED.) 

R0071 


’2. THF PABTfflFTE^S IN THE PROBLE 

M CANNiTT EXCEED THEIR SCALING L 1 I S AS SP 

ECIFIbD IN THE USUP. IF 

RWJTT— 


OF THESE' LIMITS ARE "XCEEDED, THE 

"BISOLTTWT SLrLUTTON“'WTCL BE MFANTNGtEBST 


ROOTS 




— - - ^ - - 



^■MBFR 



1 1 EP ATTn NS ANT> , THFREF OR E , THErTCrMPTITAT TON 



TTTT the ACrURABY 


R0073 


GUESS. XKEPMEW. THE AGC COMPUTATION TIME IS APPROXIMATELY .061 SECONDS FOR 


065 SECONDS FUR IHt 





SECONDS FOR EACH'ITFPATIUN 





RTTUFR 

PfchtKFNLFS - 



R0083 

R-470, MISSION P'^OGi'AMMING DEFINITION (MEMO NO, 10, LUNAR LANDING MI3S1UN GSOPt SECilUN ^.5, bbA 



R0aB5 " 

Mi-MU 6 7-4. 



RTTCTTTT— 





R008 7 TNT>UT -“ERASABTF ini I lAL 1 ZAI ION RBQTTIPBD 


RTTORB ^ SCALE FAC (UR “ 

kUU89 VAP | ABLh*lN POW ERS 'IF ' UhSCRlRII'iM ANU REMARKS 


RDO 'I PBTCT * +7T“FT?R“ EARTH* DP INlllAL PUSlIlUN VbL (UR IN r<it I EKb 

ROD'J ? '*^+*27" FUR "^OnN * ~ ~ 
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COMIC SUBROUTINES 


U^E^S PAGE NO. 


EO S3 


ROO'^3 


VRECT 


R0094 


^ +7 FOR EARTH +0P INITIAL VELOCITY VECTOR IN METER S/CENTI SECOND 
^ +5 FOR MOON 


R00G3 


XI (380)=#= NONE 



ROOT 


^RESPECTIVELY, IS THE CENTRAL BODY 



OR LESS THAN ONE ORBITAL PERIOD 


ROO-9 

ROIO'^ 

ROlOl 


XKEPNJFvT* +17 FOR“EARTH*OP GOESS OF ROOT X OF KEPLEPsS EQN IN SQR T ( M ETER$ y T SIGN SHOULD AGREE WITH THA-TUF T AU 

~\rUUE SHOULD BE LESS THAN THAT XORRESPQNDING TO A PERIUD^VIZt 

MAJQJ^ AXISJ*FOR SPEED OF CONVE RGENCE , BUT IF EITHER CONDITION FAILS, XKEPNEW IS RE 


* +16 FOR MOON * 

4c 


RO IOI. 7 


* 




R0102 


TC 


BY KEPLER TO A POOR BUT VALID GUESS. 

MUST BE LESS Than one orbital period 


R0103 


XPREV 



ROIOS 


^ +16 FOR MOON * 


ORBITAL^ '-^ER lOOtVI Z,2PI SQRTTSEMI-MA JOR AXISI 


R0106 



R0107 

SUBPGUTIMES CALLED - 

' ■ ■ — — “ ^ . - . . . . - 






R 01 08 

DPLTIMR 







R0I09 




. 








ROllO 

CALLING SEOUEUCE ANO NORMAL 

FXir' WVDtS - 







■- - ^ 1 — -fa. • ^ ^ ■ ■■ ' ...... 7 « ■! 





ROlil 

KEPPTM-2 GOfn 

MUST feF IN 1 NtEPPR't!\/E MOOE RUT OVFIND ARfttTftARV. 





R0113 

KEPRTN-l KEPLER 

returns vJITH XPPFV in MPAC. PL IS AT 0. 

1 ■ ■ — — 1 ■ ■ !■■■ ■ ■ ■ ■ -I — — > = 





ROll^* 

KEPPTN 

CONTINUE 

- 




R0115 

R 0 ITT' 

R0119 

R0120 





ALLFD 



OF'TT'TinnLU 



THE INTERRUPTED JOB, THE^^EFORt THE 
ALSO CALLS KEPPREP TO COMPUTE A GUESS OF XKEPNEW 


CTOX^CSMCONICTiR LEMCONTr WHICH « 


FHE EiTA SABLES 

“TO 



TT NEEDS TO tUMPLEIb 
TNTERRUPTS "AND WKTCIT 



ETDTZr — ABORT- EXIT 
TTOTZ? NONE 

KOI ^3 


R0124 


Rcirz^ 

R0l26 


R 0 1'2T 
R01Z8 


R0129 

R0130 



R0132 



TTOT 




OUTPUT - 


* SCALt 


vAii IABLf:*TfJ (LOWERS ru z* 


OESCRIPTinKj AMO 




«»■* 


9 “FTT^ ■ EAKTT^TTP 

=4= +27 FOP MO 



TUN 



TTT 



YZV 


VELOCTTT VECTOR TTT 

^+5 FOR MiTOTT” 




TT 


lirTTQ »DP TRANS T FER TIME IN CbNIlSECS T O WH ICH KbPLhK CUNVEKGEUr ALWAYS LESS THAN UNh PtKiuu 

^ +1 7 FUR F ARTH^DP 0'F"X“rN~~^QRT ( ME » L KS ) fO WHCIH KhPLEK CUMVtkGbU. ALWAYS LESS THAN THE X 

+lo^r^P. MOON ^ CUKHhS!>ONn ING'TU 


XFRTV 




■«ii 


»• 




t »■ 


I f << 
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L 

CONIC SUBROUTINES 



USER'S PAGE 

NO. 4 

EO S3 


R0137 

FOR OTHER OUTPUT WHICH 

MAY 

Be OF USE. SEE DEBRIS. 




R 0 1 3 8 








R0139 DEBRIS - 


roi4l) parameters which may be of use - 


ROl^I ^ SCALE FACTOR’ =!« 

R0142 VARI ABLE’t'IN POWERS OF DESCRIPTION AND R EMA R KS 

WWW} « ^ — — — - 

P0144 UPPECT *""+1 *DP UNIT VECTOR OF INITIAL POSITION 

R 0 IAS O » -*-29 FOR EARTH^DP MAGNITUDE OF INITIAL POSITION IN M ETE R S 

R0146 » -t-27^ FOR MOON » ■ - 

P0147 ALPHA ^ -22 FOR EARfH^^^DP INVERSE OF S^MIMAJOR AXIS IN 1/METERS " 

R 01^8 — ^ ^ for moon ^ ”” 

RQ14R1 rMOOULn ^ +2S *np INTEGRAL WJMBER OF PER 1 OOS TISI ^CENtlSECS. WNTCH WAS 

R 0 1 433 * OF LESS THAN ONE PERIOD. 


" R0r44 

PARAMETERS OF Nn USE - 


R0150 

DP PARAMETERS - EPSILON), nFLX, 

DELT, ' RCNQRM, XSlOOULO, PLUS PUSHLIST REGISTERS 0 THROUGH 390. 

R01S2 
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L 

CONIC SUBROUTINES USER'S PAGE NO. 5 

FO S3 



P0l^3 

PROGRAM DESCRIPTION - LAMBERT SUBROUTINE DATE - 1 SEPTEMBER 196^ 

, — _ . _ _ . . - . — ■ — - — - ■■■ ^ -■» : - ■ — ' - - — ■ - — - - - 1 — — — . - ■ — ■ ^ ■ w 1 ■ » 1 - 1- ■ ~ n 1 — — W-— ■ - ... 


R 0 1 5 

MOD NO. - 0 log section - CUNIC 

SUBROUTINES 


P0157 

MOD BY KRAUSE ASSEMBLY - COLOSSUS 

REVISION 88 


ROI 3- 






P 0 1 o 0 

FUNCTIONAL DESCRIPTION - 




R0161 

THIS SUBROUTINE CALCULATES THE INITIAL VELOCITY REQUIRED TO TRANSFER A POINT-MASS ALONG A CONIC 

TRAJECTORY 


ROI 'S3 

FROM AN INITIAL POSITION TO A TERMINAL POSITION IN A PRESCRIBED TIME INTERVAL. THE RESULTING TRAJECrUKY MAY BE 


R0165 

A SECTION OF A ClRCLEt ELLIPSE? PARABOLA? OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOOTT. THE USE OF THE 


R0i67 

SUBROUTINE CAN BE EXTENDSn USING niHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY 


R6169 

CODING CiHANGES. ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATIUN 

TECHNIQUE IS 


R0171 

UTILIZED IN THE COMPUTATION. 



R01.7? 


R0173 

THE RESTRICTIONS ARE - 



R0174 

1. RECTILINEAR TRAJECTORIES CANNOT BE COMPUTED. 



R017S 

?• AN ACCURACY DFGRADATION OCCURS AS THE COSINE OF THT TRUE ANOMALY DI FFERENCE +1.0". 



ROI 77 

3 . The Angle between any position vector atio ITS VEinciTV vectur host bt'tjreater than“t hegrtc 

47.5 MINUTES 


ROI 79 

AND less than 178 DEGREES 12.5 MINUTES. 



RolW 

"Ti. Negative transfer tine is AMercuous and will result in no soldtign. 



R01H2 

5 ; THF P A'RA MIF f T 0 T HT " P TimCF M EXCEED THEIR SCALING LIMITS SPECIFIED IN IHh GSUP. IF IHL 


ROI 34 

limits are EXCEEDLC. TH: RESULTING SOLUTION WILL BE MEANINGLESS. 



ROI 35 

THE NUMBER OF ItERAtl’lNS AND. THEREFORE? THE COM PUTTiT I ON S SPEED IS DEPENDENT ON TKE^ ACCURACY UP 

THE FIRST 


p:T3r8r 

GUEWiiF THE independent VARIABLE, COGA. THE AGC COMPUTATTUTT llMt is 



R0189 

LY .105 SECONDS FOP INITIALIZATION. .069 SECONDS FOR FInAL COMPUTATIONS. PLUS .205 SECONDS FOR EACH 

iteration. 


R01?l 









R^92 

ftEEE'RENCES - 



R 0 1 9 5~ 

- - R-'479, O'TI SSTO'N PROGRAMMING W^FTriTTIUi^' MENTCT “NO . 10. LTTNAH LANDING Ml $S I ON^TTSTB^-SECT 10N“5^3. SGA 

MEMU 67—8. 


ROT -'5 

SGA MEMO t>7-^. 



ft0l96 





IMPTrr^“FRASABLE rNflTTfiTYTTS:! I ON RtOUlRtU 


R0198 

7Y?y 

proiOT 


WO'Ij 


R026t 


4= SCAL 

VARIA6LE*rf^ “FriWFR5 

^ 



— ^ ^ 


PTWC 


* +2*5 FW tARTH*.)!» INTTI SrPOS IT lUN VECTOR IN HiTtTiT 



Rd202 

^ +T7 FOE mm 







“TTTjzcr^r 

R2VEC“ ^ +2'9“FTTP 

EAPTH^D'*^ TARGET UR TERMINAL POSITION VECTOR IN MbTfcKS 






R02U4 

* +2^ FOR 

. MO QIT 







R0205 

■ 1 DtSTR:!^r!* +2 8 


■^P“DE3TREU' TRTiFTSFbR TIME IN CENT I SECOND'S 






— R0206 

XI IRPOl* NONE 


I ! I n EX ■ P EG T S T ER S E 1 IG -20 OR -lOi) ACCUKlJlNG lU WhEThEk THE EARTH 

OR MOtJTT? 





R0209 

^ 


♦SESPTTTIVELY. is THE’ central BODY 






ROZU'J- 

— GEOMSGI'I '^^ NONE 


*SP <-.5 IF DESIRED TRANSFER LESS THAN IBO UbGKEbS, -.B IF 

GREATER TFU 

^ t — y— » 1 ^ it — 

^N 1 80 DEG. 




R0211 

— rrrnrs sv * none 


*AN INIEKP.REIER SW ITrTTlTrT^E” SET IF NT" GUESS OF CuGA Is AVAILABLT”, 

01.. t- 1 1 A 

GUESS OF 
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CONIC SUC5R0UTINES 

USER^S PAGE NO. 6 EO S3 




R021 3 

* 


■:‘COGA IS TO BE USED BY LAMBERT 



R0214 

cog’a * 

+ 5 

■(■UP GUESS OF COTAMGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL). THIS WILL BE 



P0216 



'^'IGNORED IF GUesSW IS SFT. 



R0217 

NORMSW * 

NONE 

-AN INTERPPETEP SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SU8RGUTINE» CLEAR IF 



R0219 



^5=LAMeERT IS TO COMPUTE ITS OWN NORMAL (UN». 



R0220 

ON ^ 

+ 1 

-i'OP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR 



R 022? 



■^MOMENTUM VECTOR. THIS WILL BE IGNORED IF NORMSW IS CLFAR. 



R0224 

VTARGTAG^ 

NOhF 

*A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC A$ WELL AS 



R0226 

4= 


-AT PIVEC. 




R0277 



R022b SUBROUTINES CALLED - 


RQ229 »SEnM> GETX» DELTIME, ITERATOR , LAMENTER ( PART OF NEWSTATEI 

R0230 


R0231 CALLING SEQUENCE AND NORMAL EXIT MnOES 


R d [ ^ CALT B £ im NT ERp-RiET I VF OIT 13 UT 0 VF I ND ARBI TR Y. 

R0234 m L A M P F nf RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS NON-ZTPO OR VTARGET 

P0236 I'M IE VTAPGTAG WAS ZERO — — — 

R 02 5 7 ~ COMTtNUC TF SOL NSW CLEAR SINC £ SOLUT I ON~I S~ ACCEPTABLE 

R0239 r+3 SOLNSW ~ 

R02 40 IT^ LAMABORT 


R 02 A 1 TF” A~ L £ RT RESULT is TO B E~A FTRST“ FOFSF FUR THE NEXT LTS^MBERT CALCULATIUN, CUGAFMUST BE PRESEkVEO ANU 

R 0243 'SUESSW MUST BE CLEAR FoT; EACH SUCCEEDING LAMBERT CALL. 

P0T4T ______ _ — — 


'?0?45 



Mory’c s 


— 

RU74cr 

If s ul m s w 

vfA3 SFT UPON FXITTTT 

ITT 'ETTHfOnTAMBERT WAS TTSHn^OTri COMPUTE A IRANSFER TCnr 

NEAR 

0 OR 360 DEGt UR T 



— '<0243 

WAS TO.J SMALL T 

0 '^POQIJCF A RFALIST 

TC TRANSFER BETWEEN RIVEC AN 

D R2VEC. IN EIIHFR CASE 

THE El 

X MUSI BE MADE 



R023T 

AC{;0RD1NG TO THE "NEEDS OF" THE~PTTTT 

TCDI AT US ER'. IHE ABORl EXIT 

MUUt MAY BE CDDEi) AS ••• 





— R02SZ 

LAMA80RT DCUAD ' 

ABS 

A “MEASURE OF PRUXIMITT 

TO 0 Oft 





— 50253" 


l-CSTTl 

360 OtGREES. 






— R 0'754“ 

TT^U 

BMN 







R0266 


TTNEB IT “ 







— P02S6 


CHANGERS 

CHANGE R2VLC UIKbt. IIUN 

SL iGHTXV^ 





R0257' 

OLTTAT) 

■DATT 







— R02SB 


TDES IRED 







— R02b0 


snMFTrm- 







— R026a 

“STC ALL 

: n'DtSKFO 

” ■ ■ TNCRFASb ! UbS IPLb' 






P0261‘ 


LAMBFfM 









ROFs: 


DO 263 

R0264 

R025S 



^ " SCALE FACTOR 


^AFTAM5t:c^^^r^ wrwrirs“ 
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COiNIC SlJtlROUHNtS 


USER'S PAGE NO. 

7 

EO 

S3 



R0?66 





f w 














R02A7 

VVFC 


+7 FOR EARTH 

*i)P INITIAL VELOCITY VECTOR IN MET ERS/CENT I S ECONO REQUIRED TO SATISFY 

THF^ 

BOUNDARY VALUE 


R0269 



+8 FOR MOON 

^PROBLEM. 






K0270 

VTARGET 

❖ 

+7 FOR EARTH 

^OP RESULTANT VELOCITY VECTOR AT R2VEC IN 

METER S/C ENT I SECOND. 





R0272 



+5 FOR MOON 







R02 73 

SOLNSW 


NONE 

♦INTERPRETER SWITCH WHICH IS SET IF THE SUBROUTINE CANNOT SOLVE THE PROBLEM, CLEAR 

IF THE 


R0275 




♦SOLUTION EXISTS. 






R0276 

FQP OTHER 

OUTPUT WHICH 

MAY “BE OF USE, SEE DEBRIS. 






202 77 





















R 0 2 78 

OEBP TS 

— 








P,0279 

PARAMETERS WHICH 

MAY BE OF USE - 







R0270 


•X. 

FCALE FACTOR 







R 0281 

V4='1ABLE*IN POWFRS nF 

2* Description ano 

REMARKS 





R0282 



— a}t. 









K0283 

SNTH 


+ 1 

♦OP SIN OF ANGLE BETWEEN RIVEC ANO R2VEC 






P 02 34 

C5TH 

it 

+ 1 

*DP COSINE OF ANGLE 






R02">3 

1-CSTH 

❖ 

+2 

♦OP 1-CSTH 






R02 86 

rOGA 


+ 5 

♦OP COTAN of INITIAL REQUIRED FLIGHT PATH 

ANGLE MEASURED FROM VERTICAL 





P0289 

P 



*3P RATIO — OF SEKl LATUS RECTUM' TO'THTTTSi: 

RADI US 





rttzro 

2 lA 


+6 

♦D P ■ R'A'T 10 OF INITIAL RTriTITJS'Tn SFMTKITJDR 

axis 





R0291 

R 1 ( 320)=^ 

+29 FOR EAPTH^DP INITIAL ^^OIUS IN METERS 






R0292 



+27 FOR MOON 







R0293 

URl 

* 

+ 1 

♦ OP UNIT VrT:TTJ!r RlVEC ~ 






R02'^4 

v)2 

3k 

+ 1 

♦np UNIT VECTOR OF R2VEC 







P029^ 

TA 


METERS or ■N0“ 

USE 






R0206 

PARA 

M i; 

TORS - ^PSlLONL. CSTH-RHO* TPREV, TERRLAMiO, R2, RTNLAMB 

(SP) * PLUS PUSHLIST REGISTER 0 

through 

41 D 


R0293 

aniiiTnj 

nA 

L IMTPRPRETIVF SW t TCTlE'^TrSFD’ - TfTFTSrFOT, '^SOSTJ. SLMRfcSW 

, ORDtRSW 





■R0300" 
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CONIC SUBROUTINES 


USPR*S PAGE NO. 8 £0 S3 




P03 01 

PROGRAM DESCRIPTION 

- TIME-THETA SUBPQUTINE 

DATE - 1 SEPTEMBER 1967 



R03O3 

‘^no NO. - 0 


LOG SECTION - CONIC SUBROUTINES 



R0305 

MOD RY KRAIJSE 


ASSEMBLY - COLOSSUS REVISION 88 



R0307 







R0303 


FUNCTr^MAL DCSCRIPTION - 




THIS SUBROUTIMEf GIVEN AN rMITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DI FFER ENCE THROUGH WHICH TH^ 


R03I1. 


R031 3 


R03 L 


R 0 3 1 7 


R03I'^ 

R03?0 


R0323 


R0 324 
R03?'=i 


R0327 


R0329 


STATE IS TO BE UPOATEO ALONG A CONIC TRAJECTORY, 


CALCULATES THE CORRESPONDING TI ME-OF-F L I GHT AND* IN ADDITION* 

THE RESULTING TRAJECTORY MAY BE A SECTION OF A 


PROV IDES THE OPTION 0^ COMPUTING THE NEW UPDATED STATE VECTOR. 

CIRCLE, ELLIPSE, P A A3 OLA , OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF T HE ^ 

EXTENDED USING OTHER I MARY RTuTTFS BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY C ODING CHANGES* 
ACCEPTING THE INHEK'=NT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. "77^ 



ARP - 

THE ANGLE BETWEEN ANY POSITION VECTOR AND ITS VELOCITY VECTOR MUST BE GREATER 


47.^ MINUTES 


AND LESS THAN 178 DEGREES L 2.5 NINUTES. 

TM p "5APAM'prHftS r i\l ThF" PnOBI FM MlK T NOT EX C E EO' THE 1 R S^C AL I NG LIMITS 



TN“THE GSOP 



THF 




A'GC COMPUTATION T I M'F IS 



7 


STCC 



— 


- - - ■ , ■ - — - — — — ■ ■ -M- - 




R0330 

.''EFERENCES - 




— RU3J1 ■ 

MISSION 'PROGRAMMING i 

>E F IM 1 !' TOM MEMO ^0 . 10* LOTIAR LANDING MISSION GSOP^SfcCMUN S.5* SG7\ MtMO ftT-FT. 



R0333 



— 


ROTT^f INPUT "WA S ABLE INl f lAT ITTVETIGN REOUTRITD 


R033S ^ SCALE l-ACIOR~^ 

R0336 ITA'M ABLE* IN POWERS OK '2^ UtSCHlPllON ANU REMARKS" 

R03T7 

R0333 RA/EC “ FOP E AR I H*t)P' TNTTTATT POSITION VECTOR IN METER'S 

KJjm +27 EUR ML’HN 

R0340 VTEZ * +7 EUR EAP I H ^DP INITIAL VELOCIIY VEClUR IN ME I ERS/ChN i I Sbt UNU~ 

RTO 3 4T ^ +5 EUR MQf iN * “ 


R034 ? — ^r^irr •^UJP sine !JF TRUE-ANOMALY-DIFFEKENCE ihrough which the state is to bb 


R0'3W 

CSIH” 

* tt 

*0P CUSIMF rjF THE ANGLE 





R 0 3'4“ 

~w\rsw~ 

* NONE 

*A\T" INI FPPPETT VE SWITCH Tn “B^ S ET T F UNLY 1 IME IS 1 

?J Bh AN uUTPUT, clear I+ 1 lit Ntv 

" 1 IP^ • 



RTT3^7 


295 

*15 TO' BE COMPUTED" ALSO. 





KU3A.R 

— XI 134LI»*NUNF 

-INDEX KEGlSri;'': lO'TnT'S'FI 111 -2U (IR -lUU All'ikuiing 

lU WhE 1 HtK ! Hh tAK 1 H UK MUUN* 




R0350 


iJC 

*kespecttvei:y, is the central buuy. 





R03^I — 



- _ -- 







R03^ 







! 
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L CONIC SUBROUTINES 



USER'S 

PAGE 

NU. H 

tu 


R 0353 PARAM, GEOM, GFTX* 

OELT I MF* NFWSTATF 






R 035 A 









R 0355 

CALLING SEQUENCE AND NORMAL 

EXIT MOOCS - 







R 0356 

IF ONLY TIME IS DESIRcO 

AS OUTPUT - 



1 

=^^=^^=^==r^==^=£=-=-_~ ji 


R 0357 

L SET CALL 

MUST BE IN INTERPRETIVE 

MODE BUT nVFiND 

ARBITRAPVT 




R 0359 

L + 1 RVSy^ 






. 

R 0360 

L +2 TIMcTHET 

RETURN WITH PL AT 0 AND 

T IN MPAC 





P 035)1 

L +3 

CDNTTNUF 







R 03 t>? 


R0363 

IF 

THE UPDATE STATE VECTOR 

IS OESIRFO AS WELL - 





R036A 

L 

CLEAR 

CALL 

MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY# 




P 03 65) 

L + l 


RVSW 


mi m ■ — - . — — ^ 1 1 7 — M JM. E — ? f W W L J 

Pi TTi IT* T^l ! n i J 1 Y C ▼ A km 

, 


K03 67 

L+2 


TIMETHFT 

RETURNS WITH PL AT 6. THE 

ITMITIAL POSITION VECTOR IS IN 

OD OF THE PUSHLISI ANU 



R0369 




THE INITIAL VELOCITY VECTOR 

IN MPAC. 




P037() 

1 +3 

STnVL 

NFWVVFC 





— 

R 03^1 

L+4 

STAOR 







R037?. 

t +5 

STORE 

NFWPV £C 

MEWVVEC AMD NEWRVEC 

ARp SVMftOLlC REPRESENFATIOKiS 

OF THE USl, RS LOCATIONS* 



R0374 

L+6 

* « • 


■■'inTNTiNUE 





R0376 





' 

- — - - - 

■ 



R(J3 7f: 

■A'ffO R T c X I T MODES 

— 



R037? 

IE tOGAFLAG AND/OP INFINFLG IS SET AT THE EXIT TO TIME-THETAt TlME-THtlA 

WILL TRANSFER TO POUDDU WITH 

- 

R0379' 

AN TCARM CODE~T~.J)IGINALLT 00607), AND NOT RETURN'TU I he calling KKUbKAro. 

TFCR 692 AND ^20# 


R0386 







" ■ R03R7 

OUTPUT - 




R0388 

* scale 

FACTOR'^ 



■R03BT“ 

~\TAirrA5CE*rN PO’JE 

' - - = -J^ 

KS OF 2* ■■ DESCRIPMCPT ANO REMARKS 

" — ■ — ^ ‘ ' ^ ■ 1 ■ — 


R 0 3^ 0 
R03D1 

T (30DJ « +28 

*DP IP ANSI:,;!; TIME IN CENT 1 SECONDS 



ROIT^T' 

■■ I METNFlTl^S^NOAn^ 

s^TiTT iTrrFp rttettve s w i rcFnTRTCTrTS sei if ihe tr ansfek anulF" 

RfcOUIRES CLOSURE IHKUUGFl 

^1 — mm 'i^i ^ wm m — •“ — — - - — 


RTrJT4 


INFINITY INlj SOIUTrnfTTT CLEAR IF A PHYSICAL SULU l lUN lb KUbbifiLt. 


R03 96 

COGAELAG* NONE 

=!‘AN iNTERPf’ETI V(^ SWITCH WHICH IS SET IE resikicmun 1 mas 1 

T c r N V 1 U L A 1 t U 1 !N U 5 ^ > L U I i Uf>l 1 • 

1 

“R039'? 

54t 

^CLESh if not. 

^ — — ■ ,. ,. II II 


r 1 . ■ - 1 ^ — =- 





R0399 

IN ADOlTIGNf IF 

RVSW IS CL'-AR, THE FOLLOWING ARE UUIPI.II- 








"RTO^TTO 

MPAC - +7 FOR 

, EAR I H"^ITP TFRIBINTTL V-LOCITY VECTOR IN Mt T tRS/ChN 1 1 SEC . 



R 0401 

MPAC" +5* +5 FCTR 

^ T 1 ^ 1 'wl • * 



RTT4TT7" 

rrij _ -59 * +79 POR FARIH^UP lEPMTNAL POSITIUN VFLTUR IN MtltKb I kl ai ouj 




ROAOT 

' ^ +7 7 FUR MOrTN" ^ 




R0404 

FO^ jTHER output 

■ WHICH'~^ 1 Ay RE OF US , SEE DEHKIS. 



R0405“ 
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Cn-NTC SUBROLITINeS 


USER'S PAGE 

o 

• 

o 

EO S3 


^0406 

OEPKlS - 











^04 0^^ 

paramftfrs which h 

AY RE OF USE - 






R0408 


SCALE FACTOR * 






R0409 

VAGI IN POWERS OF 2^ 

DESCRIPTION AND REMARKS 





R 0410 









R0411 

Rl (320)* 

+29 FOR FARTH*OP 

MAGNITUDE OF INITIAL POSITION VECTOR, RVEC, IN METERS 





R0413 


+27 FOR MOON * 






R0414 

R 1 A * 

+6 * 0 P 

RATIO OF R1 TO SEMIMAJOR AXIS I NEG. FOR HYPERBOLIC TRAJECTORIES) 





R041O 

P 3}C 

+ ^ ^ U 

-ATIU OF SEMILATUS RECTUM TO PI 





R0417 

COGA * 

+ s * n 

COTAN OF ANGLE BFTWEEN RVEC AMO VVEC 





R 041? 

u:^l * 

+ 1 *DP 

UNIT VECTOR OF RVEC 





R0420 

U2 * 

+ 1 *DP 

UNIT VECTOR OF VVEC 





RC421 

UN * 

+ 1 *0P 

UNIT VECTOR OF UR1*U? 





R0422 









R0A23 

PARAMETERS OF NO USE - 






R6^?JV~ 


RTNTT. 'W9T] 

iMSGN. rtnpt?>t; MAGve‘(r?=i<2 i op) . tlos 'pushlist hxtstions o-iio. 140 - 210 # 240 - 390 . 4id 





ri042iS 

aUD I T 1 OT^AX 

interpretive S^m'TTCHES USEO - NORMSW, 360SW 





P042 7 
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P042S 

PROGRAM DESCRIPTION 

- TIMF-RADIUS SUBROUTINE 

DATE - 11 OCTOBER 1967 




R0430 

MUD NO. -1 


LOG SECTION - CONtC 

SUBROUTINES 



R043? 

MOD BY K PAUSE 


ASStrMBLY - COLOSSUS 

REVISION 88 


R 0 4 3 A 



R 0 43 S 

FUNCTIONAL DESCRIPTION - 







R0436 

THIS SUBROUTINE, GIVEN A 

N INITIAL STATE VECTOR AND 

A DESIRED RADIUS TO WHICH THF 




R043B 

STATE IS TO BE UPDATED ALONG 

A CONIC TRAJECTORY. CALCULATES THE CORRESPONDING T I ME-OP-FL I GHT 

AND. IN ADDITION* 



R0A40 

PROVIDES THE OPTION OF COflPUTING THE NEW UPDATED STATE 

VECTOR. THE RESULTING TRAJECTORY MAY 

BE A SECTION OF A 



R0442 

CIRCLE, ELLIPSE, PARABOLA, OR 

HYPERBOLA WITH RESPECT TO 

THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN Bb 



R 0444 

r-XTFNOFD USING OTHER PRIMARY 

BODIES BY SIMPLE ADDITIONS 

TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 



R 044c 

ACCEPTING THE INHERENT SCALE 

FACTOR CHANGES IN POSITION 

AND VELOCITY. 




R0447 


R044 9 


^?0451 


IF THE DESIRED RAOIHS TS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER* 


APSESW WILL BE SET AND THE SUBROUTINE WILL RETURN THE APOCFfJTER OR PERICENTER SOLUTTONf RESPECT I VELY, 


P04S? 


R0433 

R045S 


R0456 

R04B8 


R0458 i 


P045B3 


R04^35 

R045d7 


THE RESTRICTIONS ARF 




AND 


1. THE ANGLE RET WEEN ANY pnSTTTON V 
LESS THAN 178 DEGREES 12.5 MINUTES 

THE PROBLEM MUST NOT EXCEFD TRTnTR 


ITS VELilCTTY VECTDR 






47.5 T^INUTES 



TCAUrNG TTMTTS 



the:" gsop. 



3. 


ARE EXCEEDED, THE RESULTING SOLUTION WILL BE MEANINGLESS. 

AN ACCURACY DEGFADATION OCCURS AS THE SEN S IT I VIT I : S OF TIME AND UPDATED STATE VECTOR TO CHANGES IN 

THIS WILL OCCUR N F A^ Ert TTTFR^ I S OF 

P ROBLEM" r SnjfTDFF THED 


ROESIPEO INCREASE. 

“PA^TTCULARf IF 'THF CONlC TT""7lN~EXACT ClRCLEt THE 




THFCONIC IS NEARLY CIRCULAR; m 



TTBORT. 


k045^ 

R0460 


THE 



IMATELyT363 SFCONUE 


P"CVrT RFFI RE-NCES “ 

Q04.b2 4 TTISSION PKOGRAMMING DEEINITIUN ME'MU NU. TUT LUNAR LANDING HiSSlUtT GSuP-SFtlluN ^>.5f SGA MfcHu 6/-8. 

R 046'4 ■■ ~~~ 


Ta455“ TNFTJT - ERASA'BLE IN 1 T TAITZ A I I UN REglTIRETT 


RTT47T6 ^ “SUALF T ACTTTT^ 



Fa4o^5 VEC ^5^^Z7~FTlTr EARI H’J'DP INiriArTTFS T TTON VECTOR TN' HETTRS" 


RTJ4TD" 


TTzm: 


WFU 


F0472 

R04r3 

K047F 


^ +7 FOR EARTH INITIAL VELOCTTY VECrUP IN WE 1 LRS/tbN 1 1 SbCUNU 


FTirr MOUN 


"1^ 


TT 



(M)FSIRnT^ FUR tAK!H=i=lJ'R r 

* +27 FOR MOON 

SGN'RDTTT“^”TIUNr =i^SP f AG SET TT >,5 "UfT 


DISTANCE UNT:UNIC TRAJECTUKY FOR WHICH TRANSFER flME IS TO BE 



y~~^ 


0 4 TF 


TTTVF TJ1<"ME(;AI 1\7E , '^RTTTPECTIVETY 




PRnBLEH"TD 



r- 
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L 

CONIC SU3R0UTINES 



USER'S PAGE 

NO. 12 

EO S3 
















R0430 


^STNCI.E-V ALLIED PROBLEM. 









R04R1 

XI (BSUKNOWc 

^IMDFX PrGISTFR TO BE SET TO -2D OR - 

iOD 

ACCORDING TO WHETHER THE 

EARTH OR MOON 

f 





ROAb? 


^RESPECTIVELY, IS THE CENTRAL BODY. 










RVSW * NONE 

*4N INTERPRETIVE SWITCH TO BE SET IF 

ONLY 

TIME IS TO BE AN OUTPUT* 

CLEAR IF fHE 

NEW 

ST ATE 




R0436 


''J^IS TO BE COMPUTED ALSO. 









ROAR? 











RO40 3 

SUBkQUTINES 

CALLED - 



R0A-B9 

PAR AM. 

GEGH. GETX, OELTIME, NEWSTATE 



R 0A90 


R 04 5 1 

CALL IMG 

SEQUENCE 

AND NnP‘J>4t 

. -XIT MOOES - 





R0492 

IF 0 

NLY TIME 

IS DESIRED 

AS OUTPUT - 




R04R? 

L 

set 

CALL 

MUST BE IM INTERPRETIVE MODE BUT OVFIND ARBITRARY. 




R0495 

T+I 


RVSW 





R0A96 

L + 2 


TIMER AO 

return with PL AT 0 AND T IN MPAC 




R0497 

L + 3 

• • • 


CONTINUE 




R0498 
















R 04359 

IF^T 

HE UP-DATE TTaTc VE'CI 

np IS DE'^TRED AS WELL - 




ROBOO 

__ 

CLEAR 

CALL 

MUST BE IN INTERPRETIVE MODE BUT GVFINO ARBITRARY. 




S050? 

L + l 


RVSW 





FrD503 

L +2 ' 


TIMER AD 

RETURNS TITTH PL A’T THE INITIAL POSIFION VeCIOR IS IN 

“DTT 

i iF THE Push LIST AND 


R0S05 




THE II'IITIAL VELOCITY VECTOR IN MPAC. 




R 05Od 

L + 3 “ 

STOVL ■ 

NEWVVFC 





R0b07 

"TT4 

S I AUR 






RU'iO 

“T+5 

store 

newrveC 

NEWVVEC AND NFWRVEC ARE SYMBOLIC repkesfn i A i i ONb 

“Df 

!Ht UbtKS LUCA! ions. 


TO“5T3^ 

L + 6 

m m m 


CONTiNut 




R051 1 






— -- - — 

- - 


RTr5T2 A 30 P T 

Fyrrr^ 

1 ri 0 E s “ 




R0513 

rr 

SOLNSW iNO/rjp COGAFLAG AMO/OP I^iFl^fFLG IS Sl-T 

AT T FLF 

EXIT TO TIME~KADIUS. I 1ME“RAU1US 

WILL 1 RAN SE EK 

f n in o — r inr — %”■ “ 

R 0515' 

^ jrr 

pnnonu wi ih aim alarm cjde" (originally ocaon. 

AND NO T 

return TO THE Calling program. 

(PL'K ti f ^ h f 

\<O^ZZ 





- — 


\(T5Z1 

r 


R 0 15 

TOTZT 


RTT57 


\l0b2r 

w 0 5 2 3 


R0530 

KUbi2 

3 053A' 




* SCALt l-ALl'i'R 

Y r SBET^TW POWfcHS Ut- 2* 



rPTicrw 


nr 

r 


T 




+z^ 


TTIFTNFUG*' 
^ 


T 


inANSFFR TIME IN CE^NIlSbCO 

TNTin^PKTTVFSWTTClH WHICH IS 
■>iTNFrMIT7 (NU SOLUTION)* CLEAP 



IF RDcSTRtU AND SGNRDOT ^"FQ UIKE CLOSURE” 

SatXJTTDM IS posstbitt; 



CuGAI-LAU^ 

^ 


TTITTE 


^AN 1 NTE'^''P'P; F f 1 YF 
^CLEAR TF T^IPT. 



■A? S GG'VT 






‘ERPRETrVF G WITCH WBrCTT TT 


TTFSTKTtr WAS GREATER THAM RAOrtJS~rrF 
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L 

CONIC SUBROUTINES 


USEP^S PAGE NO. 13 

EO S3 


RObM 

^ ’^'L^SS THAN 

RAOIUS OF PEPICENTFR. THE APOCENTER OR PERICENTER SOLUTIHNt HE SPEC T 1 VEL Y , 


+ *WILL THEN 

BE RETURNED. THE SWITCH IS CLEAR 

IF ROESIRED WAS BETWEEN PERICENTEF 

< AND 

R054]. 

* ^ A P (’• C c NT F R • 




^05411 

SGLNSW * NONE INTFRPR 

ETIVE SWITCH WHICH IS SET IF THE 

CONIC IS SO CLOSE TO A CIRCLE THAT 

THE TERMIN 

R05413 

♦POINT IS AMBIGUOUS, VIOLATING RESTRICTION 3 

■. IF ECCENTRICITY IS GREATER THAN 

2-Tn-tHe- 

R0541 5 

♦MINUS-lfi, 

THE SWITCH !S CLEAR. 




R0542 



R05A^3 

IN ADDITION, IF RVSW IS CLEAR, THE FOLLOWING ARE OUTPUT- 







R0544 

MPAC - ♦ 

+7 FOR earth =^0P' TERMINAL VELOCITY VECTOR IM MET FRS/CENT 1 SEC . 






R 0545 

MPAC +5« 

+5 FDR MOON ^ 






R0546 

OD - 50 * 

+29 FOR EAPTH*DP TERMINAL POSITION VECTOR IN METERS (PL AT 60l 






R0547 

❖ 

+27 FOR MOON ^ 














R0548 

FOR OTHER 

OUTPUT WHICH MAY 3E OF USE, SEE DEBRIS. 





R0549 




R05AO 

DEBPIS'-" 







R0551 FAPAMETIEP.'Sr MAY 


R0552 


SCALE FACTOR ♦ 





R0553 

VAR I ABLE* I M POWERS 

OF 2* 

DESCRIPTION AND REMARkT 




R0554 

a# 








R0555 

"1 <320)+ 

+ 2 9 

FOR 

EAR TH*nP 

magnitude of initial POSITION VECTOR, RVEC, IN 

METERS 



R0557 


+rr 

FOP 

MOON“^ 





R0558 

~RT A“ ' 




’ATin OF Ri rn semi htii mr"z:x t < r ( neg. for hyperbi 

3LIC TRAJcCTOR I ES 1 



R05o9 

p 

+ 4 


*TTF 

RATIO OF SEMILATUS RECTUM TO R1 




RObSl 

COGA 

+ 5 


CnTAM OF ANGLE BETWEEN TWC ANTT VVFC 




“RT55^3 

UR 1 

+ 1 


’ *DP 

ON it VECTOR OF RVEC 




ftOB64 

U2 * 

+ 1 



OJFn T VFCTDP OF VVEC ’ 




RI)5"6'5' 

"urn" ♦ 

+ 1 


^rryp 

UNIT VECTOR TIP UR 1^12' 



1 » — ^ 

R056'6“ 

■ CTSTTI ^ ^ 

1 


*f)P COSINE OF IRUE ANOMALY DTFFERENC E BtlWbtN HVFC 

AND KDtSlRED. 



ROSoB 

SNTH ^ 

+ 1 



SINE OF TRUE ANOMALY DIFFERENCE. 




R‘(T56'^ 


















R0570 

PAPIA'^ 

''TERS OF 

m usF ■ 





'W5TT 

""ST^ 'FAk^WFT 

fc-.- 1 > - " 

“ R T NT T # F ^ 

OMSGM," ■p.TNPrm, MAGVEC 2=R2 ( OFT , TT:US FXISHLIST LOCATIONS 0-llD, 14D-2] 

nr, 24D-39TJ, ^rcr 


R:cr5TT“ 

ADDTTTONAI 

INTERPRETIVE SWITCHES USED - NDRM5W, 360SW 


— * 



R05T4' 
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L 

CONIC SUBROUTINES 

USER'S PAGE NO. 14 EO S3 








posv'; 

PROGRAM DESCRIPTION - APSIDES SUBROUTINE 

DATE - 1 SEPTEMBER 1967 



R0S77 

MOD NO. - 0 

LOG SECTION - CONIC SUBROUTINES 


R0579 

MOO BY KRAiJSE 

ASSEMBLY - COLOSSUS REVISION 

88 


R05B1 











P05^^? 

FUMCTIUMAL DESCRIPTION - 





R05S3 

THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR CALCULATES THE RADIUS 

OF PEPICENTER AND OF APOCENTER AND 

THE 


R0585 

ECCcNTPICITY OF THE RESULTING CONIC TRAJECTPRYt WHICH MAY BE A STRAIGHT LINEt 



R0537 

CIRCLE, ELLIPSE, PARASriLA, 0=’ HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN 

BF 


P0589 

r-XTFNOED USING OTHER PRIMARY BODIES 3Y SIMPLE ADDITIONS TO THt MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES 



R0591 

ACCEPTING THF INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. 




R0592 






R05''>3 

THE restrictions ARE - 




R 059^ 

1. IF APOCENTER IS BEYOND THE SCALING OF pr^SITION* THE SCALE FACTOR 

LIMIT ( 536T870f910 METERS WlTflT 



R05^6 

TO THE FARTH OR 1 34 r 2 1 7 1 72 7 . 5 METERS WITH RESPECT TO THE MOON} WILL BE RETURNED. 



R09 98 

2. THE PARAMFTERS IN THF PROPLEM MUST NOT EXCEED THEIR SCALING LIMI1S 

SPECIFIED IN THE G50P. IF THE LlMMb 


RlTSOTr 

ARE EXCEEDED. THF RESULTING SniUTIGN WILL BE MEANINGLESS. 





THE AGC COMPUTATION IS APPPiOXIMATf=L Y . 1 0 3' T r C aRTIST 

R0602 ^ 


R'06'0T~ 

REFERTRCES - 

R0604 

mission PkOGRAMfMlNG DcFINITIGN MEMO no. 10. LUNAR LANDING MISSION GSOP-S ECT I ON 5.5 

R0606 





F<06G7 


INPUT 



rnriiT lALizATim 





TTbM 


R060T 

R0610 

RO^n 

ROf.lZ 

~RTT‘6TT 


P0614 

R06L5 

K0617 

R061.S 


* SC A LT 



T^ABLT ^IN POWERS 


WSrRI PTI UN "ANn^R^l^ATiK'S 


~ t 


wm: 


WET 


* FOR EARTH^OR INITIAL POSITIW 

TW MU‘.N' * ^ 

^+T FUR' 




^r~r5 

rnTwoNE 



=^1 NUtX REGTSTER" ! M RE SE 
^T S P E C T TV FtTT “T'S'THE 


ACCOR 

WjJTT. 




R0527' 
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L 

CONIC 

SUBROUTINES 




USER'S PAGE NO. 

“t:5 EO S3 



R0673 

IF 

ONLY TIME 

IS DESIRED 

AS ntjTPUT - 






R0624 

L 

CALL 


MUST BE IN INTERPRETIVE MODE 

PUT OVFIND ARBITRARY. 



R0626 

L + 1 


APSIDES 

RETURNS WITH PL AT 0 

, PAOIUS 

OF APOCENTER 

IN MPAC AND RADIUS 

OF PERICENTEP IN 00 


R0628 

L+7 

STOOL 

APOAPSF 







Rb629 

L+3 


on 







R0630 

L +4’ 

STORE 

PEP I APSF 

APOAPSE AND 

PER I APSE 

ARF SYMBOLIC 

REPRESENTATIONS OF 

THE USERS LOCATIONS 


P0632 

L "^5 

m m m 


CONTINUE 






R0633 


P0634 

OUTPUT 

— 






R0635 


SCALE FACTOR - 






P 06 36 

VARTABLE^IN POWERS OF 2=«= 

DESCRIPTION AND REMARKS 





R0637 








R0638 

MPAC 

» +29 FOR EAPTHi'OP 

RADIOS nr APOCENTER IN METERS 





R0639 


« +27 FOR MnOf>| 






P064d 

0 U- 1 D 

^ +29 FOR EARtH^^OP 

RADIUS OF PERICENTER IN METERS 





Rb64l 


* +2 7 FOR MOON 






R0642 

ECC 

^ +3 M)P 

ECCENTRICITY OF CONIC TRAJECTORY. 






R06 43 

FOR OTHER OUTPUT 

WHICH MAY PE OF USP^ SEE DEBRIS. 




R0644 









R06 45 

nE8RTS“^ 













R06'46 

parameters which M\Y 3E of us«- - 











R7J647 


^ SCALE FACTOR * 




P0648 

VARI ABLE^^^IN PUWER*> (IF 2^ DESCRIPTION AND REMARKS 




R0649 


Jjs 






- r~fT2TTT 

+79“ for 

EAR TH+DP'M'AGNITUUE' OF I N I T I A L“ PI13TTTnfr VtClOP, kVEC, TN MtItkS 




R0652 


^ +27 FOP, 

Mnnfj Jk 




" Traps 3 


+ » D 

5fO'P TTATIO OF R1 TO SEMIMAJUR AXIS INEG. FOR HYPERBOLIC TRAJEC TORTFST 




■ R06S5 

cr 

i 

^ +4 “ 

*DP RATIO OF SEMI LATHS' RECTUM TU R1 




R0656 

COGA 

+5 

+ DP COT AN OF ANGLE BETWEEN' RVEC A'NCT-TVEC 




R0E5W 

ORT 

^ +1 

- s n P VJN IT WBCT riR TTF RVEC 





02 

*7 +l 

■ *DP UNIT VECTOP OF VVEC 




R 0660 

UN 

« +1 

■I'DP UNIT VECTOR OF UR1#U2 




R006i 


TTTR~ 

FART fT^P" TTABI^I ITDOF ' OF VVEC 




Rusirr 


^ +5 FTIR' 

MDON ^ 




R 0 6 6 3 



- _ ^ - - - - " ' > II— 1 n !■■ 1 1 - 1 ■ ’ 





RTT6H4" 

^ PAITAMf TtR'S OF Nn USF “ 




R 0 6 6 S 

SP PARAM 

iETERS - P 

TiSlAPTFT ‘>'-nMSGN, PTNPPMt PLUS PUSHLISl L')CArinNS 0-5.10D-liLN 14U-2iU. 310-380. 





ADDITIONAL 1 N T EKP RE T 1 VL SWITCHES UScD - NUKMSW 




RQ66:i 


067^9" 

n r ^ 

— 1 

1 

' ' 12,2000 

SEILUC CONICS 



d 


I 
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CONIC SU3POUT1MES 

USER»S PAGE 

NO. 16 

EQ 53 

- - - - - — 


067 0 


12, 2042 


BANIK 


0671 


REF 


COUNT 12/CGNIC 


0672 

0673 


067‘- 


06 3 3 


06 3 7 


06 92 


060-» 
WT 


07 02 


UTTT 




LAST 


96 


5 » 1 7 2 3 
12,2042 


EBANK= URl 

40001 1 KEPLERN SFTPO BOV 


12,2043 


00001 0 



c c 


LAST 363 


12,?046 


11740 1 


MUTABLE^l 




LAST 


12.2053 

1 2.2054 


00024 1 
16647 0 


STODL 


ITEPCTR 
200 

URPECT 



LAST 1277 


12,2057 


01 603 0 


RRECT 




12.2063 

12. 2064 


Q0Q23 0 

24043 0 


ST3VL 


l/ROUTMU 
KFP 


(-17 rrR"-r4T 


1/ROGTMU 

=R-V/RGOTMU (+1^ 


OR .+ 16) 



06 93 

0699 

0700' 

TTTTyr” 




T2T7 


Tzr70'6^ 0T5n~n 



TFT 


T 


12, 2066 

12\2'0~E 


57236 1 


VSO 


12,2070 



TJMP 


) M P R 

I/MO 

si:3“ 


l/MU (-34 OR 



T7F 


6 LAST 127/ 





077) 


ref 



00041 1 

6 1 42T 0 


T>3U 


70 

TTFJTTTT 


11610 0 



00045 0 


STORF 


KFPC2 


C2=RV.V/MU -1 (+67 


UTOT 

Tmu 





^ — LAST 12T7 





FTTW 


STIT 


0 703 

TJTOT 


07 1 0 


TEF 

TTFF 


7 raST OTTT 


TT7 

rZTTTOTJ 


T 


TT77TUT 


11610 0 

7T^T“T 
OCTDATLT 
00011 1 


rnrv 



ITT 


S TURF ALPHA 


ALPHA=(1-C2)7R1 (-22 UR -20) 



WT7 


THTT 

OTTT 


7T7 


TTTTT 


TT7TTT 



FEF 


TT 




TFF 


T 


ZWSl 



2 r TST T27T 


1 2 ,TlTr^ Z^TT2 


TTF2F 
400 71 


rTEV 


12.2I0T 

12,2105 


12,2106 

T7V2T11 


12,2110 

T7T2TT1 


U 


TKTOTl 


T41IT 


IT 

T 

T 


uuv 


52167i T 

'74TTrr~T 





AIPTiA 
STUTFTT7VX 
TTT 


STORFMAX 


XI MUM X OEPbNlJS UN lYPb Uh CUN 1C 


50SC r-TLTT 
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L 

COMIC SURPQUTtNeS 



USER'S PAGE 

NO. 17 

E5 53 



0719 


1 2112 


5^^366 1 IREV 


SQRT 


BDOV 


07 2 0 
0721 


FF 


L^ST 669 


12^2113 

12.2114 


11630 1 
77600 1 


2Pf SC 


2PISC T+M 


BOV 


0722 


FF 


LAST 1277 


12t21l5 


24116 1 


STORFMAX 


0723 

0724 


Q ^ p 


12 .2116 
2,2117 


13 0 
65203 0 


STOREMAX STOR E 

OMP 


XMAX 

POOL 


0725 


2£F 


LAST 1277 


12,2120 


00023 0 


0726 


Rl-F 


LAST 1277 


i 2 . 2 1 2 1 


00011 1 


1/ROOTMU 

ALPHA 


02'’? 


12,2122 


65301 0 


NORM 


0728 


P FF 


LAST 1261 


12,2123 


00047 


POOL 

XI 



0731 


12.21 26 


50000 1 


BOV 


P '-IN 



07555 


12. 2146 

12.2147 


0736 
T5Tp6 5 


R F F 
REF 


5 

T 


LA^T 127B 


.2150 


T77?T5T 


53165 0 
02312 0 




TAIJ. 


0757 



IZlE 


12.21:>2 

12.2r^3 



07585 

0T5^" 

075'95 


R 





TAST 


TTTb 

TZT^ 


12.2154 

12.2155 

1 2'V n 56 


51440^ 

24320 TJ 

r 




'5ATIX 



usu 


ijFtr 


T772T5T 


0760 

■0T4(TF 

OTol"^ 


RFF 

XFF 


6 

T 


LAST 1??R 


.2160 


1“^ 

12,2161 


ooon 0 “ 

2432^0“ O ' 
51T45 CT 

2312 0 


STD^TTND‘5 


TMAX 

TTAUX 

TIFI" 



07615" 

"0762 

07625 


R F F 


RTF 


1 — LAST 177m 


T 



T7V2T42 

T7Tn~TT 

TZVTT6r4 

T2T2T^ 


Z4T70“1 
5TS45 



— OC 


tot; 

STUFF 

iKjmp 


00013' TT 

140 rs*'o 


STcmu 



07774 

0 764 
TJ7UT 


TFT 

FFF" 



r 


FF 



o p 5 
07477 



.6 I- 


7 

"7 


LAST 1773 
LAST 127F 


12.2 1.66 

T2T7T67 

12.2170 

T747T7T 

T2,2I77 

1P,217T 


1 1 566 I 

740m 


TTOT 

"KFPZERn 



SICALL XMAX 

■“—'iTxrn 


SlUKEMlN ULUAD 


vrT 4 ' 5 ‘n: nxrm 


SIMRL 

or n AO 


XFPTFFTT 


[ 



t •' 


1 to 
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L 

C ON I C 

SUBROUTINES 






USER'S PAGE 

NO. 13 

E5 S3 


















0767 

P E F 

7 

LAST 

1278 

12,7174 

02312 

0 


TAU. 






0768 

EF 

1 



12,2175 

1162i 

1 


3E52? 






07685 





12,2176 

77646 

0 

ABS 







0769 

^FF 

1 



12,2177 

15350 

0 

smoL 

EPSILONT 






0770 

RFF 

1 



1 2»2200 

01 5 53 

0 


XPREV 






0779 





12,2201 

77621 

1 XDIFF 

BOSU 







07R3 

RtF 

2 

LAST 

1278 

12,2202 

00025 

0 


X 






0731 

REF 

2 

L.AST 

96 

12 » 2203 

02643 

1 

STORE 

DELX 







0782 





12,2204 

63545 0 KEPLnOP 

□ LOAD 

OSQ 




073? 

REF 

~ 

LAST 

1279 

12.2205 

000 25 "O 


X 

X=XKFP 


' ■ UK. 

0734 





12.2206 

41501 0 

NOPM 

PUSH 

OD=XSO (+34 OP +32 -Nl) 

DL 

1 iL— 

AT 2 

0785 

P Fp 

67 

LAST 

1278 

12,2207 

00047 1 


XI 




0‘7d6 





12,2210 

53605 1 

OMP 

SRR^ 




0787 

f ■ F F 

4“ 

LAST 

1278 

12.2211 

00011 1 


ALPHA 




078S 





12,2212 

21573 0 


0 -6,1 




073 9 

REF 

1 



12.2213 

34031 1 

STCALL 

XI 

XI^ALPHA XSQ (+6) 



0790 

REF 

1 



12, 2214 

24433 0 


OELTIME 




0791 





12,2215 

44200 0 

BOV 

BOSU 




0792 

REF 

r~ 



1 ? . 2 2 1 6 

2 4 3 2 6“ ’ 0 


TIMEOVFL 

UNLIKELY 



OTOli 

REF 

f % 

♦ 

^LAST 

12^9 

12, 221 7 

02312 0 


TAU. 




0774 

REP 


LAST 

“OF 

12.22TO 

02645 T' “ 

STORE 

delt 

DELT— DEL INUEP 



0795 





12.2221 

44246 1 


5DSU 






OTOF" 

2 

LAST 

T2T0 

12,2227 

01350 o' 


EPSILONT 




0 797 





1 4^ ♦ Z ^ 3 

"7T244 0 

BPL 

“TJFOAO “ " 




uvm — 

ft PF 

— r~ 



12, 222't 

24346 0 


KEPCONVG 




0799' 

■RFF" 

9 

FAST” 

9T0 

1 2 , 2 9 2F 

00037 0 


T 




08 OCT 





12.2226 ~ 

~EU275~ir^ 

"DSTT" " 

norm 




umi 

■TTFF” 

7~ 

"OTT 

S5 

12,222/ 

015 51 1 


TC 




uBjyr~ 

"RFF 

~^W~ 

“TTTST^ 

TZT9 

~T2 , 2 730“ 

00047 1 


XI 




0HU3 





“T7TZ231 " 

^"5a3Tr5Tr 

“PTmC 

N n R M 




0 3o4 

R EF““ 

3 

LAST 

TTT^ 

12,2212 

02643 1 


UFD5 




OmJ5 

"OFF 

37 

LAST 

TZFB 

^ ' f Z Z 3 3 

1KJTT5(TT 


X2 




OH 06 





12,2234 

412 60' f) - 

XSU.T"' 

DMP 




0o07 

"FFF“ 

~^Trr 

LAST 

TFT9 — 

12,2235 

00047 1 


X7 




0808 

R EF" 


“C7AST 

irz7^ 

“1"?T^2T6 ■ 

02645 1 


n r L r 




0809 





1 2 • 2 7T7 

56257 T 

5l~R^ 

DD17 




OBTIl 





17, :>’>40 

"TTTOn 


1,1 


— t 


aim 





■ rz;^2 4i 

41542 1 ■ 

SRI ■“ 

PUSH 

00“TRTAL DELX 

PF 

AT 2 

0312 





12,2242 

7T2'44 ~0 

' BFt 

DLOAO 




OFTl 

"RFF" 

— r~ 



12,2243 

24264 1 


rU o U t L A 




OBTTf 

R FF 

4 

LAST" 

1279 

"T2TrZ44 

"TKTOFF 0 


X 




OTHT' 

"FFP 

— 5“ 

LAST- 

1'2TO 

IF t7'74F 

00013' "0 

STORF" 

X MAX 

MOVE MAX BOUND IIT 



0816 





12,2240 

452‘21--1 

H15SU 

DSU 


PL 

A I 0 

OOTT 

RFF 

j- 

LAST 

1Z7F 

12 . ZFTT 

00015 0 


XMl N 




OKT2 





12, 2Z30'" 

5T0TKy 0 


BPF 




OOTO 

U 9 F 

* ^ 1.^ 1 

T" 



"TFTZTFl 

24256 0 


NOXCHNGi: 

t 




08^0 

R Fp 


0_AST- 

1 2T 9 

"12.2 2 52 

"24FF6 0 


NDXCHNGE 




asTi 





12, ■’253 ■ 

52145 0" 

uLuA iJ GU I 



- - ■ - 
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L CONIC SUBROUTINFS 




USER' 

S PAGE 

NO. 19 

t5 S3 











0822 12,2254 

00001 

0 

OD 






0823 RTF 1 12,2255 

242 76 

1 

NEWOELX 







0824 





12. 2256 

45345 

1 

NDXCHNGE DLQAO 

DSU 



0325 

REF 

4 

LAST 

1279 

12,2257 

00015 

0 


XMIN 



0326 

REE 

5 

LAST 

1279 

12,2260 

00025 

0 


X 



0327 





12,2261 

52075 

1 

DMPR 

GOTO 

TO FGRCE'MFAC tct zero 


0823 

rff” " 

r~ 



12,2262 

11624 

1 


np9/io 



082^'^ 

P EF 

2 

LAST 

1230 

12. 2263 

24276 

1 


NEWOELX 




1?,2264 77745 


POSnELX 




0B34 

0335 


LAST 127^» 


12 , 7267 

12.2270 


45221 

ooOl 


0836 





RHF 

FFF 


1 

T 


12.2271 

12. 2272 


Last izao 


T 



0838 


50000 
2A312 

TT 7 T 5 

00001 


BOV 



1 

T 


POXOHNGE 



0840 






LAST 1270 


12,2274 

I2”,T27'5“ 

1 2 , "27775 Or2W5“T 
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12.2625 
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0 
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1 SIGN 
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0 
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■^EF ? 
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24574 

1 
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12.2632 
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0 
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DLOAD 
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T" 
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3 
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1 
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HEF 
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12.2642 
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MOOPSOEL 



1066 

REF 

2 
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1236 

12.2643 
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12 ,2644 
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1 
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DLOAD 
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10 
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lOPO 
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4 
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3 
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POOL 
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REF 

19 
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12 , 270 1 

53605 1 

OMP 

SRR^!' 



1100 

RFF 

0 

LAST 1284 

12 » 270? 

00033 1 


S(XI) 



1101 




12,7703 

2157? 1 


0 -7,1 



110^ 




1?,2?04 

77621 1 

8DSU 




1103 

REF 

15 

LAST 12Sit 

12,2705 

0003/ 0 


T 



1104 




12.7706 

74352 0 

SLl 

VXSC 



1105 

RFF 

17 

LAST 910 

12,2707 

02746 0 


VVEC 



1 1 06 




12,2710 

53372 1 

VSLl 

V A 

PL 

AT 0 

1107 




1 2,2711 

41512 1 

VSL4 

PUSH 



1103 




1 2 , 2712 

~7T5^6~TJ 

A f! VAX' 




TTW 




“12,271? 

77701 1 LAMcNT^R 

NORM 




imr 

TEF” 

TT 

LAST 1237 

1?,2714 

00047 1 


XI 



— rmr 



1 


— r> , 2 715 

16722 1 

■sTm 

R? 



1112 

T: p 


TXST 1283 

r2,?716 

n003T 0 


X I 



nTT" 




— ]?,27TT~ 

45205 1 

“iW 

DTD 



rTTT- 

REF ■ 

5“ 

t“3ST 1287 

12,2 f 20' ~ 

00033 1 


Si Xi ) 



1 1 15 

‘ REF ■ 

— 

TA^T 1231 

12 , Z7Zr~ 

IT 6 06" r ■ “■ 


D1/12B 



nTF~ 




12,2722 

7640*3 1 

DMP 

SL 1 P 



rrrr 



T~ 

LAST 1281 

12,2723 

00021 1 


ROOT MU" 



niTT 




— 12.2T74 

1 

ORP 




rrrr 


2l 

LAST 1237 

12,2 ^?5 

00025 0 


X 



ITZO" 




12. 2/26 

2 ITlTj "1 


0 ^ 3 t 1 



1121 




1 ^ Z T ? T 

T4ZTI 0 

"xrov 

rx3c 



UTT 

kFT^ 


LAST 1287 

1 ? j ^7 30 

1 


R 2 



112 1 

RlF “ 

2r 

LAST X28 7 

“T2 . 2/31 

■ 02724 1 


UKl 



112 4 




— 12,2732 

6539^ 1 

VSLl 

POOL 

60=V2VFC FART f+15 OR 13) 

PL AT 12 

1X25“ 

HTF 

— 5“ 

LAST 128/ 

— 1:>,7 733 

000 35 I 


x3Tjrnm 



-rrzs- 




12,2 T3"4 “ 

— 575^2"5-jr— f - - 

“SLR^ " 

rjTTV 



1127 




1 2 , 273-5 

■ ?TrT5^ ‘ 


U -4 1 1 



rT7H“ 

^FF 

— T” 

LAST 1287 

1 2 , .2 ra 6 ” 

■ 02/22 1 


K2 



nrzT" 




— 12.2 / il 

/7621 I 

8uSU 




1130 

R-EF 

2 

LAST T ? n ? 

— r2TZ7W 

11622 T 


01/256 



1181 




— 12,2/41 

— 53'3'6l 0 

VX SC" 

V A 0 

PL 

A { 6 

imr 

7 FF 


LAST 1237 

— 12,274?" 

02746 0 


VVFC 



II^T" 




— 12,2743 

“4T4TT T 

vste ~ 

KW 




o *+ 
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L CONIC SUBROUTINES 

USER*^ PAGE 

ireu 27 

m 

VJl 

c/> 

yj 



1135 




04,2000 


SETLOC CONICSl 


1136 


04*3602 


BANK 


113-7 


REF 


1 


COUNT 04/CGNlC 


R1133 


00 NOT niSTURB THE OKO'cR OF THESF COS, OVtRlAYS HAVE BEEN MADE. 


1139 


04*3602 


00000 1 BEE17 


1140 


04,3603 04000 0 Dl/B 


DEC 

2DEC 


0 


KEEP WITH DL/8 20EC l.08-lt <OOOOOO4O0dy 


1.0 B-3 


1140 


04,3604 


00000 1 


1141 


04,3605 


00200 0 01/128 


2DEC 


l.O B-7 


1141 


11^2 


04.3606 

04.3607 


00000 1 
00400 0 


01/64 




1.0 B-o 


1142 


0 4 * K 6 1 0 


00000 1 


1143 


04,3611 


10000 0 01/4 


2DEC 


1.0 8-2 


1143 


04*3612 


00000 1 


1144 


04* 3ol3 


02000 0 Dl/16 


20EC 


1.0 B-4 


1144 


04,3614 00000 1 


1145 


0 A' t 3 o 


UlOOO 0 01/3? 


2oec 


1.0 B-5^ 



115? 


TT53 


? E F ? L AST 

^ 5 L AST 1 2 W 


0-+,3614 

04,3620 


8EE19 



01/32 -1 

Dl/266 -1 


20FC 1.0' B-IO (00000 OlOOiTJ 

1.0 8-22 (00000 




rn > 


'+ 



'■+ * O ) L 




04, 36 3 2 

04*343 



04;3n34 


1156 

“n ^ 

Rri57 


04*163 6 

04*36‘T6 


~UmUU~T~ nNFBTT 20EC 
THTO 

3 rT 6 T ~0 

3TT37 TT 
40010 1 


} ;■ 0 “8 --Z8 


iTr~zDru 


^^^511 597' 


coglolim'tuet: 



T5^ 


471040 I 


I 
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L 

CONIC 

SUBROUTINES 





USER'S PAGE NO. 23 E5 

S3 


1 153 

o r F 

\ \ *. . 1 

2 

LAST 1276 

1? *2000 


SETLOC 

CONICS 



1150 




12,2744 


BANK 





1160 

RFF 

9 

LAST 1277 TO 

1288 : 

450 450* 

COUNT 

12/CaNIC 

















12,2744 

40220 0 

TIMETHET STQ 

SETPO 

or~ 

AT 0 

1162 

REF 

1 


12,2,^45 

02712 1 


RTNTT 



1163 




12.2746 

00001 0 


0 



11635 




12.2747 

77600" 1 

80V 




11636 




12,2750 

24751 1 


+ l 



1164 




12,2751 

633 75 0 

VLOAD 

PDVL 

SETUP FOR PARAM CALL PL 

AT 6 

1165 

o f F 

iT 

LAST rTo 

1 2.2752 

6'26 5T 1 


PVEC 



1166 

3 F F 

19 

LAST 1287 

12,2753 

02746 0 


VVEC 



1167 




12,2754 

77624 1 

CALL 




1163 

“ref 

“T" 

LAST 9 IO 8 

12,2755 

11637 0 


PAKAM 

1 fc .. 1 1 I ■ M.. - — ' m L 

T — SO*-'" "Jit - -- 

1169 




12,^756 

45000 0 

80V 

CALL 

PL 

AT 0 

TTTO 

g cc 

1 


12.2757 

24776 1 


COGAnVFL 



1171 

REF 

1 


12,2760 

25001 1 


GFTX 



TTT? 




12,2761 

43145 0 

TOMNINOimTL 0 A 0 

BON 



1173 

“RFF 


EAST 12R7 

12.2 Mr" 

00031 Q 


X I 



1174 

PEE 

“T" 


12,2763 

04310 1 


INF INF LG 



nT5 

R F F 

1 


12'r2T64 

25751 0 


ABTCONIC 



“TTT^ 



« 

12.2765 

45014 0" 

C L EAR 

CALL 



TTTT — 

REF 

1 


12,2766 

04273 0 


C OG AF L AG 



TTTB 

RFF 


LAST TZTO 

. 12.2767 

24433 0 


DtLT IMF 







12,2770'' 

45014 0 

nnw 

C ALT 



rrm 

PEE 

lo 

'OTT 5175 

12,2771 

03706 0 


zVSW 



irm 

REF 

~T 

LAST 12'39" ■ 

“TZ . ZTT7“ 

02/12 1 


RTNTT 



1132 

~WE¥ 



12.2 r/3 

24665 I 


newState 



TT^l — 




1 2 , 2TT2r 

77650 1 

GOTO 




riH^ 

“fRFF 


LAST 1289 

12,2775 

0 2 T 1 2 1 


R 1 N ] r 





rnr> 




12,2 7 76 

7 76 14 1 

COGAOVFL SEIUU 




1186 ■ 

RtF 

~T 

■ lASTTTB^ 

TZVTTTT' 

040 33 O' 


C U G A FL AT 



rnr? 

REF 

“T 

LAST 1289 

12. 0 

25 751 0“ 


AB7 LI wrc 

m 



1 137 2“ 




04,36 r 


BANK 




11374 

R E F 

~~T 

■'TASI 12RH 

04 , 2 OuTT 


SETt Dir 

CUNTCSl 



A X ‘ ^ f V * 




' . HF ^ .3 o ..i 1 






rrrnr 

^ EF 

7r 

LAS! 12H8 TC 

7- — 1 9 9 n « 

no- 29* 

COUNT*” 

$$/caNic 


A T 11 ~ 

TTHB 




04. 3637“ 

43020 1 

P ARAR ■ ' ■STO ~ 

CL EAR 

MPAC=V1VEC. OU”Kiv6c RL 

A 1 b 

rns9 — 

I'HtT 

~T 

LAST 

04, T6'40 

02755 1' 



i 


n7TJ 

FF 


■37153 8sr8 

O' 473 7741" 

03665 1 


TIL1KN6W 



11901 




04. 3642 

"T76T4 T 

TTLTAIR 




TTWT" 

6 tF — 

”3" 

LASI 1289 ■ 

0 4.3JS4'r 

04 2 M U 


C U GA F L A G 



wri 




04, 3644 

451 31 nr- 

S'STP'" 

C ATE 



rT72 — 

R FF 


— LirST 4P'9 - 

— r7TT6T5" 

02 6 75 1 

•* 

G E 0 S b N 



1X^3 — 




04, 1'6'^*5" 

d n { f u 


^ fO f f 

oAMMA ALlrtAY^ LtS5 i man ibuutb 

— ' — — • j ^ fit it # - y -H — ^ ^ ^ it - — % O 1 

9 

1194 

REF ’ 

-nr 


04,3 S4T 

“T1702 1 


G F 0 .3 

MPAC = 5NGA C+ll. UU-L6bA l+iJ H'L 

A I 21 

A T — rt 

rr’5 — 




04.365TT' 

14045 0 

STODT 

3 6 D 

3 o IT — SINvjAnr^A 

* 

A 1 U 


K ^ j) 


1 

I 




n 

' J 




7 




1 - 




I 


w 


t 
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CONIC SUBROUTINES 


page no. 7 ^ 


E5 S3 


1196 


1197 


04» 3 6 1 


04, 3o5? 


56261 1 


20606 0 


SR 


DOV 


1198 

1196 
1200 
1 201 


1202 


1203 


120 4 


120 ^ 
1206 


1207 


120P 

1209 


1210 


1211 


1212 


04,3653 


00045 0 


T6U 


REF 

'■?EF 


4 

6 


LAST 908 
LAST 1277 


04.3654 

04.3655 


33775 I 
11740 1 


STOVL^^' CQGA 

MUTABLE, 1 


RE 


c rr 


REF 


2 

3 


LAST 1277 


04 , 36 5 6 


LAST 


96 


04, 3657 


14017 1 
02722 1 


STOOL 1/ 



MAG\/EC2 


04, 3660 


60316 0 


DSQ 


6 FF 


74 LAST 1287 


04* 566 1 


REF 


LAST 1290 


04.3662 

04.3663 


00047 I 

412T5 1 

00017 1 


NORM 

XI 




DMP 
1/MU 


REF 11 LAST 1287 


04,3664 


00041 I 


R1 


04. 3665 

04 . 3666 


77657 0 

21576 0 


SRR* 


0-3*1 


04*3667 


44206 0 


PUSH 




EF 


3 LAST 1283 


04,3 


670 


REF 


4 LAST 908 


04,3o71 


11616 0 

16744 1 


BDSU 

01/32 


0D=R1 VISQ/MU (4-6) 


PL AT T 


STGDL 


R1 A 


RIA 1+61 


PL AT 0 
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CONIC SUBROUTINES 


USER'S PAGE NO. 30 


65 S3 


1225 


1226 


04,3702 


77656 I GEOM 


UNIT 


REF 


LAST 


96 


04,3703 


16714 1 


STOOL 


U? 


MPAC=V2VeCf 0D=R1VEC 

______ 


PL AT 6 


1227 


1228 


1229 


04,3 / 0 4 


00045 0 


360 


REF 4 LAST 1290 


04,3705 


26722 1 


STOVL MAGVEC2 


PL AT 0 


04,3706 


77656 1 


UNIT 


1230 

ITn 


12 3 4 


1237 


T744 
12^1 5 


1246 


124 


REF 


RTF 


LAST 1287 04,3707 

04,3710 


02724 


LAST 1291 


REF 12 LAST 1290 
REF 6 LAST 1291 


REF 


LAST 1291 


KFF 


LAST 12R“9 


LAST 1239 


LAST 433 


LAST 12^n 


04.371 1 

04.3712 

04.3713 
Q4,3?}.4 

04.3715 

04.3716 

04.3717 

04.3720 

04.3721 

04.3722 

04.3723 
f)4, 372 4 

04.3725 

04.3726 

4; 

04,3731 


72441 

02714 

77725 

00045 

24041 

02724 

76435 

02714 

75214 

03705 

11734 

02675 

40056 


STORE 

DOT 


POOL 


URl 

SLl 


URl (+1J 


OD=CSTH (+1 ) 


PL AT 2 


360 


STOVL 


VXV 


BON 


R1 Ci-29 OR +27y 


VSLl 


IGN 


NORMSW 


T3N I T 



rr 

1 66 76 



UMITMORM STOOL 


SGN 


^LINEAR 

UN 

RVO 



MFAC=SNTH (+TT,'"34U= SNTH. SNTH (+Z1‘ 



1249 


04,3732 

52162 0 — COLINEAR VSRI 

■■GOTO 




1250 ■ 

RFF 1 

0443733“ 

11726 1 

UNTTNR’PM 





1251 

■Cr4','lT3‘4" 

75246 

TT' 

■ H AV ENORM ABVST" 

SIG'-' ^ 


1752 — 5 TTASr 1291 

04,373F 

\/ 1 



GEUMSGN 

4 


1 2 53 

~nATT7W 

— TTFTS" 

0 

RVO 


MPAC = SNTH ( + 1), 340= SN 1 H. SN f H (■••2) 
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L CONIC SUBROUTINES 


USER'S PAGE NO. 31 E5 S3 


12 54 




l'>t3001 



BANK 

12 


1255 

PEF 

3 

LAST 1289 

12.2000 



SETLOC 

CONICS 


1256 




12,3001 



BANK 




12565 

Q C p 

3 

LAST 1289 TO 

12 8 9: 

29 479’!' 


COUNT 

12 /cQNic 



1257 




12, 3001 

66374 1 

GETX 

AXT,2 

S5P ASSUMES P (+41 

IN MPAC 

1258 




12,3002 

00003 1 



3 


1259 

REF 

26 

L^ST 1258 

12, 3003 

00052 0 



S2 


1260 




12,3004 

OOOOl 0 



1 


1261 




1 2,3005 

77614 1 


CLEAR 



1262 

P EF 

1 


12,3006 

042 76 0 



360SW 

" ■ » ■■ — - ■- ■■ - -r — , — ■■ 1 ' ~ ~ ~ ~ 

1263 




12,3007 

65366 1 

* 

SORT 

POOL 00’=SQPJ“( P) 

PL AT 2 

1264 

REF 

Q 

»■ 

LAST 897 

12,3010 

02 734 0 



CSTH 


126 5 




12.3011 

44342 1 


SRI 

BOSU 


1266 

REF 

2 

LAST 34 

12,3012 

11612 1 



01/4 

tm h ^ ■ — m — W ■KT -■■■"-'■ f 

1267 




1 2 t 9013 

5432 5 1' 


"Font 

SRP 

PL AT 4D 

1268 

R f. F 

11 

LAST 897 

12,3014 

02732 0 



SNTH 


1269 




12 , 3015 

216 07 0 



6 

»=— ===^^=» r ■■■ - ■-■ ■ ■— " - ' — >- 

1270 




12,3016 

77671' 1 


DOV 


PU AT 2 

12'^ 1 




IP, 301 7 

77600 1 


“TTOV 



1272 

RFF 

"~T" 


12,3020 

2 5 1 TT'TT" 



360tHECK 


1 2TT“ 




12,3021" ■ 

""^172^ 1“ 


mu~' 

DMR ■ 


1 274 

PFF 

5 

LAST 1290 

12,5022 

03775 1 



C'lCA 

PL AT 0 

1 2 75 




12,3023 

401 32 0 


“SUT'R 

BOV 


1276 

R FF 

2 

LAST 1292 

17,^ r>A 

25134 0 



360CHECK 


1277 




12,3025 

63406 0 

WLOOP 

PUSH 

00=W 1+5) 

PL AT Z 

1278 




12,9026 

65351 0 


~nmTr 

■ POOL 2D=WSQ l + ior 

PL AT 5 

127^ 

-irpp 


L“A^r 1236 

1 f 3 0 z ^ 

00155 O' 



MPACF 


1280 

PEF 

5" 

lAST 1290 

12,3030 

02744 1 



P 1 A 


1281 




"T773^TTr 

T7T02 0 


SR4 

TAU 

PL A 1 2 





12, 3032 

■ -754 4 OT) 



SDK T 


1283 

?. F F 

r 


12,3033 

25217 1 



INFINITY 

— n, — ^ ->■ ■ 

rz-Ti- 




IV, 30 34 

■ 4T3‘0'6 0 


ROUND 

DAD 

PX AT OD 

17715^ 




T?, 30T5 ' 

bTOOO'TT" 


BOV 

T I X f Z 


1286 

Rt F 

1 


1 3 , 3 03 6 

25132 ■ 0” 



RF S ETX 2 


r?'i T ' 

" RIEF' 

1 


"IT, ITTTT^ 

■ '250 25 1 



WL(^np 













r?7>r“' 




12,3040 ■ 

■’■4m3'65 0 


BTTU\6 

B 0 V 


T2¥9“ 

r:^ 

3 

" L AST 1237 

TT, 3T4 1 ■ 

"TT6TT6nr" 





1290 

— rnTT" 

T* 

f _ 

LAST 1292 

12, W)42 

25217 1 



r Nf 1 Nt TV 

■ » ■ » mum # 2 — — % ' -■ — m ■ ■' m ^ = - . , . . 

1291"" 




1 2 , 3(543 

^14^ 1 

POLYCnFF 


PUSH an= TArx-+2 ) □ r 

16/W (+6) PL AT 2 

1 292 " 

RFF 

_ ^ 

LAST 1292 

12, 3044 

^ 25217 1 



INFINITY^ 


1202 




12,30^6 

77716 1 


DSQ 



1294 




TT,3'r415' 

■ 41301 0 


“NORM 

UMP 


1Z'?5 

" RTT" 

7^ 

XAST T7^ 

IT’, 

000 4/' 1 



X 1 


1 2'^‘ ■ 

rFF" 

6 

L AST TTTi — 

12,3050 

02 74 4 I 



^ 1 M 


1297 




1 ,’ , 3 0"5T ■■“ 

7745 / 1 


SRR^ 

LX I 1 


~ 1299 - 




1 2 , 30 52 

2156 z' 0 



0 -L0U,1 

II 1 
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L 

CONIC SUBROUTINES 






USER'S PAGE 

NO. 32 E5 S3 


1299 

REF 9 LAST 1253 

12,3053 

0 7171 1 

TC 

POLY 




13f^0 


12,3054 

00005 1 

DEC 

5 




1301 


12, 3055 

20000 0 

2DEC 

.5 




1301 


12.3056 

00000 1 






130 2 


12.0057 

72525 0 

20EC 

-•166666770 




130? 


12,3060 

52471 1 






1303 


12.3061 

03146 1 

2DEC 

.100000392 




13U3 


12.3062 

15003 0 






1 304 


12,3063 

75556 0 

2DEC 

-.071401086 




1 3 04 


12.3064 

45210 0 






1305 


I'’ , 306 5 

01615 1 

2DEC 

.055503292 




1305 


1.2 ,3066 

13553 0 






13 05 


12.3067 

76371 0 

20FC 

-.047264098 




1 '■^‘0 6 


12,3070 

63777 0 






1307 


12,3071 

01232 0 

2DEC 

•040694204 




1307 


12, jQ7? 

27367 0 


- 




13 03 

REF 233 LAST 1283 

12,30 73 

0 6006 1 

TC 

I NTPRET 




1 3 09 


12,3074 

76405 1 

OMP 

SLIP 



PL AT OO 

1310 


12.3075 

43006 0 

PUSH 

BON 




mr 

REF 2 LAST 1292 

12,3076 

04316 1 


360SW 




1312 

R£F 1 

1? . 3077 

25204 0 


TRUE360X 




"T3T3“ 


12.3100“ 

60316 0 XCHMMON 

(TXQ 

M n R M 




mx 

fTFF ~77 LAST 129 2 

12, 5101 

00047 1 


XI 




1315 


X.3102 

53605 1 

DMP 

SRR^^' 




0X5" 

!TFF *7 ^ LAST 1292 ” 

i: .310“3 ■ 

"757774“ 1 


RIA 




^3IT 


”1777 ro 4 

21565 1 


0 — 1 2 0 , 1 




TTOT 

FFF 6 — LAST 12^^9 

12.3105 

14031 0 

STODL' 

XI 

STT 

{ +6 ) 




















OTT 

RFF n LAST 1201 

I2,3"nr6” 

ooo4r"i 


Ri 




rszrr 


Y2. f 3 1 0 7 

75?>42 0 

STET “ 

S QR T 




T37r 


12.3110 

41306 I “ 

RUUNO 

0 M P 




077“ 


12,1111 

7763? 0 

SL4R 




PL A 1 0 


REF “22 C AST 1 2 57" 

12,3117 

00025 0 

S T OFTF 

X 

X 

(+17 OP +1 6 ) 



T77^ 

TT75 


TJ7^ 

TJ7T 






TTZ^ 

I33IT 


T33^ 


TTT5 


TTT^ 




S 

TTT 


xTTsi — rzw 

ASI 1:^93 


FFF 


FF~ 


LASI 12// 


7 LAST IZJT^ 
XA-ST 1T7A 


17 . 3 i 1 ? 


F TP — 78 “ X/rST "1?XX TTTTTPf 


3T6”ir 

TTOU^T 1 


12. 31 IT 

rTTTTTo 

17, 3117 

1 2 . 31 2 O' 

72,3121 


41323 0 

0274? 1 

00041 1 



12,3122 

rrrrrrr 



12,3124 

rZTTTZT 


14D^'3 
a274:4" T 


43021 0 


0317 


N] OFH 

7(1 


TOTTU 


TW 

7 


00^317 "{+34 Hk +32 -Nil 


FL A [ 2 


FT 


"SET 

TTNTF 


SFnrr 


3X77 

CD'G'A 



FTA 


8D5U 


j. 


CLEAR 



T77 

TzmrzT 

13.3130 


INF! NFLG' 


00043 


GTHR’E KEPC2 







• ■ 
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GAP: 

REVtSION 055 

OF AGr PRnGRAM'"CQNlANCHE BY NASA 2021113-051 

10:28 APR. 1.1969 

CHIEFTAN.023 

PAGE 129A 



L 

COMIC SUBROUTINES 


USER«S ^AGE 

NO. 3 3 

E5 53 



1338 


12 


3131 


77616 0 


RVQ 


1339 

12.3132 

77774 

0 RESETX2 

AXT.9 





1340 

12,3133 

000 03 

J 

3 







1341 


1? ,31 3A 

51001 

1 

3 60CHETrK SETPD flPL 



1342 


12.3135 

00001 

“0“ 

OD 



1343 

REr 

1 12,3136 

25141 

1 

I NVR5BQN 



1344 


12,3137 

77614 

1 

SET 



1345 

rTf 

3 LAST 1293 12.3140 

04076 

1 

3 6 0 SW 








• # 


GAP: "iSSF^ri.^ RFVJSinN OS^ 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:23 APR. 1,1969 CHIEFTAN 

.02B PAGE 

1295 


p 

L 

CONIC SUBROUTINES 







USER'S PAGE NO. 34 

E5 S3 




1331 




12f 3204 

50145 

1 

TRUE360X 

DLOAQ 

BMN 





13B2 

RFF 

10 

L^ST 1294 

12.3205 

02744 

1 



RIA 





1333 

REF 

5 

LAST 1204 

12,3206 

'25217 

1 



INFINl TY 





1384 




12,3207 

60366 

1 


SORT 

NORM 





133 5 

RfF 

81 

LAST 1294 

12.3210 

00047 

1 



XI 





13 8o 




12.3211 

53665 

1 


BODY 

SL’i' 





1 3 3 7 

RFF 

5 

LAST 1275 

12,3212 

11630 

1 



2P ISC 





133B 




12.3213 

201 76 

0 



0 -3.1 





1339 




12,3214 

4i4?5’ 

1 


DSU 

PUSH 

00=2PI/S0RT (R1 A) -X 

PL AT C 

)f 2 


1390 




12,3215 

77650 

1 


GOTO 






1391 

RF^F 

1 


12.3216 

25100 

1 



XCONMON 





13'92 




12,3217 

40001 

1 

INFINITY 

SETPO 

BOV 

NO SOLUTION EXISTS SINCE 

CLOSURE THROUGH 


13 93 




12,3220 

00001 

0 



0 

INFINITY IS REQUIRED 




1394 

P EF 

1 


12.3221 

25222 

1 



OVFLCLR 





1395 




12,3222 

43414 

1 

OVFLCLR 

SET 

RVQ 





1396 

• - E 

3 

LAST 1293 

12.3223 

04070 

1 



INFINFLG 


— .. ^ — - — - 

- ^ - — 

■ - - — . 












(J- 


I 




G^P: ASSEMBLE ‘^'^VISIGN 055 fJF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1*1969 

CHIEFTAN .028 

PAGE 1296 




L CONIC SUBROtJT IN(;S USER'S PAGE 

NO* 35 

65 S 3 



p 


1410 


143? 

TO? 


LAST 128 d 


12.3243 


00474 0 


IHl i 

14] 2 

r r 

O 

UM O i 

‘-to 

L /L 7 J C 

12,3245 

\j ^ i JL 

45115 0 

POVL 

CALI 

00=R1VEC (+29 OR +271 

“PIT 

AT 6 

1413 

REF 

10 

LAST 

490 

12*3246 

02665 0 


R2VEC 

» 

MPAC=P2VEC T+29 OR +271 



1414 

REF 

2 

“T AST 

1239 

12,3247 

1 r70 2 1 


GFO^- 




1415 

REF 

14 

LAST 

1294 

12*3250 

16732 0 

STOOL 

SNTR 

0 D= CSTH ( + 1J 

% 

PL 

AT 2 

1416 

REF 

5~ 

TTfrr 

T79T 

12,3251 

02722 1 


M A G V E.C 2 




1417 





r2 ,32 52 

65301 W 

NORM 

pnn*.. 


PL 

A 1 4 

141.3 

REF 

82 

LAST 

1295 

12,3253 

0004/ 1 


X 1 




1419 

REF 

~rr 

LXST 

rZ5T 

■ 12, 325V 

■ (101141 1 


R1 



M y ^ ^ “ 

1420 





12, 3255 

563421 

?RT 

DOV 


PL 

AT 

14?1 





12*3256 

65257 1 


POOL 

OXCH WITH on, 0D=R1/R2 (+71 

PL 

AT 0 , Z 

1422 " 





12,3257 

20TT3 0 


0 —6,1 




1 4? 3 





r?,3.?frtr" 

77626 0 

ST ADR 





1424 

REF 

11 

last 

129 4 

12,5261 

7 50 4T7[ 

ST OR E 

CSTH 

CSTH ( + 1 J 



1425 





12,3262 

— 2Pf52fT-i: 

5171 

BDSO 




1426 

R £ F 

“T" 

LATT 

1?92 

1 2 * J2'6^ 

ii6rrT 


01/4 




14?7 

RFF 

2 

last 

96 

12*3264 

02736 1 

STOR fZ 

1— C STH 

l-CSTH (+2) 

J 















r4ZB 





12,3 2 6'5- 

531 06 0 

RUUN 0 

F 




1429 

P £F 

r 



12.3266 

25473 0 


3 6 0 L A iM B 


m — 

— JT^T" A — 

I4T0 





i 2 , 3 2 6 

?r53 or 0 

NHP M 

P DDT- 


PL 

AT 4 

1431 

■ RFP 


TTTST- 


IT , 3 27T) 

■■ 077047 1 


XI 



. . 


12,3271. 


12,32 12 


T474 


3 

TZr3 



£. 




75^57"Ty 


3PT 

51^ 


^DW 


PTT^rr^ 


'prT?r 


17 


TTurp 



rZTTTTzr 

T7737T^ 


*Trr^ 









20176 O' 

54325 T 
T7ZT3 Z D 
20607 


3W1 

TT^ 


TTT 


TWT 


TTh 


05T IZ'JF 


rmroT 


432/1 1 

1T7T6 



1440T 



T 


12,3 ^02 
l?,Z3TrT 


T4^ 


TTVTBTTT 


77626 0 

7/760' a 

510 D'0"ir 



"BW 


rma'TOX 


IF OVFL^ 



=C 7 GUPL 


c ^^-1 



gap: 


ASS^.'IBLP PFVISION 055 OF 


PPOGPAM CO^^ANCHF BY NASA 2021113-051 


10:28 APR. 1.1969 CHIFFTAN.028 PAGE 1297 


CONIC SUBROUTINES 


USER'S PAGE NO. 36 


E5 S3 


I A 4 


P EF 


I 


12.3305 


25312 0 


UPLIN 


IF NEG. USE E 


IF LT CQGLOLIM. SINCE 


14A21 REF 


I 


12,3306 


25315 1 


MAXCOGA 


THIS WOULD BE R 



IN LAM8L00P 


14‘122 


12,3307 


50025 0 


DSU 


BMN 


IF COGAMAX GT COGUPLIM, COGA MAX=COGUPL IM 


lA^f2 3 


12,3310 


1163A 0 


COGUPL IN 



1A426 P^F 


LAST 1297 


12,3313 


11634 0 


COGUPLIM 


COGUPLIM=. 999511597 = MAX VALUE OF COGA 


14427 REF 


LAST 1296 


12,3314 


00017 1 


STORE COGAMAX 


A CALCULCT 


1 443 
1444 


T467 





12,3315 


77745 1 MAXCOGA DLOAD 



12, 1340 


00051 0 

CTCroT“T5 

I 


00001 


ITT 


T- 

r 


15 — LAST 




mTV> 






146S 




12,33/r'3 — 

77605 1 T 

A M B L n U P DMP 

ih 



1466 

REF”' 

"TT‘ 

— LASTTZ97 

"TZ73T44 

“07732^0 


SNl H 


146/ 




12,33^5 

4^34 Z TT 

SRI 

usu 


l"46-‘T" 

RTF“ 

— V 

LASI 1T71 

13,3346 

02740 0 


CSIH-RHH 


Pr69 




12, 3 14 / 

~65Tm 0 

NURM 

pnot 

00=6NIH CUbA— ( ubTH— RKOT (+7+ClXl)J PL— ^ 

— ^ — . ^ — - - 1 — • -r — ■ — ■ ■ ' ■ — - — 

1470~ 

■’ F 


'TATST 

12 , Ij t'TT ~ 

0004T7[ 


xi 


14 / r 

— nTF~ 


LASr 12VE 

12,33'>l 

02736 1 


i-csm 


1477- 




“T7TTT52 

S62S7 1 

• SL* 

— DTTV 

1-CSTH (+2) PL AT 0 

1473 




■T2VTT53 

“70177" O 


0 — 9 1 ) , 1 


14 74 




12,3354 

53040 0 

BMN 

fT7T 


1475 ■ 

i-? c F 

■ r 


T7T375T 

Z543r 0 ■ 


NtGP 


r475 



~L A5T T77T ' 

12, 3 355" ■ 

25A3r 0 


N FGP * 


PTTT" 



— ?r 

LASr 1294 

12,3337 

16^42 1 

S 1 fJDL 

P 

P=TT-C3TTTT7T5NTH CUbA— fOblH-HHU) } r+4 1 

PTTTr 

■ 

9 

CTTST r277 

12\ 33’67r 

03775 1 “ 


C 0 G A 


r4T9- 




12, 3 36T 

43316“! 

iTsa' 

DAD ‘ 


1430 

FTFF 

— r 


“TZ7T3F2 

Tr62U“0 


01/1024 


— 1 4-3T" 




"T2T37r53~ 

“4T3t>r tr ' 

NORM 

DMP “ 


VfBT- 

— frET“ 

35 

LAST 1777 

12 , 3374 : 

00047 1 ■ 


Xi 

* 








i 


# 



gap: assemble revision 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


L 


C^^4lC SUBROUTINES 


10:28 APR. Ifl069 CHIEFTAN.028 PAGE 1298 



AGE NO. 3T 


E5 ST" 




REF 


LAST 1297 


12, 3365 


1484 
148 5 


12. 3366 

12.3367 


02742 1 

1 

20571 0 




14 Bo 


REF 


5 LAST 1294 


12, BB70 


1487 


REF 11 LAST 1295 


12» 3371 


11616 0 
16744 1 


RD$U 

0 — 0*1 

DT 



TTOOL RIA 


R 1 A=2-P ( l+COGA" TTOA ) < ^61 


1438 


REF 10 LAST 129B 


12*3072 


02742 I 


1439 


12,3373 


«000 0 


BOV 


P 

rAXL 


1490 


REF 


1491 


REF 


7 LAST 1289 


1492 

1493 


12*3374 25434 0 

12,3373 
12,3376 


25001 I 


HiEN^RGY 

^FTX 


REF 16 LAST 1287 


1494 


REF 


12*3377 

r'^,3400 


T7T45 1 
00037 0 
16764 0 



u 


STOOL 


1495 


REF 


LAST 1293 


12,3401 


00031 0 


TPREV 

Yl 


1496 

14^7 


12.340? 


45014 0 


8 ON 


REF 


4 




LAST 1295 
LAST 1297 
LAST 12a<^ 


12,3403 


1500 

1501 


12*3404 

12.3406 

12.3406 


04310 1 

2 5431 0" 


CALL 

IWTTJFre 


24433 0 

^■^rzoo 0 


OE 


HWF 



BOUNDS 



BW 


REF 


T 


4 


LAST 1296 


1 3 . 340T 

12*3410 




02673 T 


TDESIRED 


1503 



~T~ 



12,3411 

02762 

0 


STORE 

TER''"LAFT“ 


150', 





12*3417“ 




ITS 

BOSH 


1505 

REF 

— T~ 

LAST 

1296 

nT3m~ 

03 777 

0 



EPSILUNL 


1506 





— 12, 3 4 14 ■ 

47044 

T~ 


11151 

ITTB 




1 



12*34T5 ■ 

25"5T 5 

r 



INI TV 


1509 

REF 

2 

LAST 

1230 

17,3416 

24656 

1 



CHECKCTR 


1509 





12,341 / 

45030 

Tr“ 


BHIZ 

CALL 


1510 

” REF“ 

1 



12*342 0“ 

- -25 4-60 

T“ 



SUFFCHbK 


i5ii 

REF 

1 



1 2 , 3 4'2 I ■ " 

24 550 

1 



ITERATOR 


1512 





1 2 I 342 2 

53145 1 

OLOAO 

B7 L 


L i 

“ R FF 

FFI 

“Last 1292 

10.3423 

OOITTT” 



MPAC 


rsw 

CT^T" 

2" 

L AST 

"TTW 

1:?,3424 ' 

-"2T4TT5 




S UF FCH fc K 


1515 





FT, ■ 3473 - 

776 IF 

“0 — 


“OAJl 



I5\E~ 

FEF 

' 10' 


1297 " 

12,3426 

0 ^ 

T“ 



C IT A ■ 


1 TlT 


“TF" 

LAST 

1298 

— nTTTT“ 

37 7 75" 

0 


STC ALL 

CUGA 


1519 

'T E r ■ 

' r 



TT,T43T) ^ 

2 53'43 

1 



lamblgop 


























JL- ^ 





— r773551~ 

51 1 M 5 

“0 

NFOP ■ 

UL UA1T“ 

TPT" 

if^HOSslBLb IRAJECTQRY UUE TO INACCUKAlb 

1521 

■RTF" 

1 



T7734T2 

"TO 015 

0” 



D C D G A 

BUUNU CALCULATTGN. TRY NEW COGA. 

1522 

FTF” 

— r~ 



— 12.3433 ■ 

Z5"43T 

T~ 



L(3ENtRGY 















rsTT 





— 12,3454 

— 712 01 


HItNERGY 

SETPD 

dluad 

HIGH tNtKbY IFAJtLIUKY Kt^ULfru 

1524 





— rTT54T5“ 

OOTITTT 

0~ 



0 


Ib'ZT 

RTF" 

TT" 

LAST 

~T2TR 

12.3436 

— 03775 

T“ 



cn G A 

IN UVFL OF P OR HiA* UK XI cXLttUlNG 

TSTTT 

— htF" 

2“ 

LAST 

129 

12,343 r 

OOtllT 

1 


STUKE 

COGAMIN 

FHlS Is IHt NtW BOUND* 

PITT 





" 12,3 44'0~ 

70545" 

T' 

CUMMUNLM 

OLUAD ■ 

SRI 



TFT" 

~ T 

L A3T 

"T7T8 

■[ 0 * T44T" 

TOOI3 

TF" 



OCOGA~ 







4 


— 
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L 

CONIC 

SUBROUTIMES 







USER'S 

PAGE NO. 38 

E5 S3 



1529 

REF 

3 

LAST 

129n 

12,3442 

00015 

0 


STORE 

OCQGA 

USE DCrjGA/2 

AS DECREMENT 



1510 





1?,34A3 

442 54 

L 


BZE 

BOSU 





l^TOl 

REF 

3 

LAST 

1298 

12,3444 

25460 

1 



SIJFFCHEK 





1531 

PEF 

13 

LAST 

1293 

12.3445 

03775 

1 



COGA 





1532 

REF 

14 

LAST 

1 2 '■) 9 

12.3446 

37775 

0 


STCALL 

COGA 





1534 

REF 

2 

LAST 

1298 

12,3447 

25343 

1 



LAMRLOOP 






1535 





o 

77 7 4 5 

1 

BIGTIME 

OLGAO 




1530 

REF 

2 

LAST 

129 3 

12.3451 

02 764 

0 



TDREV 



1537 

REF 

17 

LAST 

1298 

12,345? 

00037 

0 


STORE 

T 

















1538 





12.3453 

71201 

1 

LQEMERGY 

SETPO 

OLiTAO 

LOW ENERGY" ITTATEUTDRY "RFSinTTED — — — 


1539 





12,3454 

oobol 

0 



0 



1540 

REF 

15 

last 

1299 

12, 34S5 

03775 

1 



COGA 

IN OVERFLOW OF TIME. 


15‘i 1 

REF 

3 

LAST 

1297 

12, R456 

34017 

0 


STCALL 

COGAMAX 

THIS IS THE NEW BoUNO. 


1543 

REF 

1 



12,3457 

25440 

0 



COMVONLM 





■ “T 








t 


1 544 





1.2,3460 

51545 1 

SUpFCHEK 

DLOAD 

ABS 


1545 " 

REF 

2 

LAST 

1 2 ■ 3 

] 2,3461 

02762' 0 



TFRRLAMB 


1 546 





12,346? 

41325 0 


POOL 

DMP PL AT 2D 


1547 

REF 

5 

LAST 

129 8 

12,3463 

02673 1 



tdesireo 


154’' 

TteF 

4 

LAST 

12-96 

12, 3464 

ITTT? I 



Dl /4 


15A9 





“ 12,346 5“ 

45215 0 


TOO " 

OSU PL AT OU 


TW) 

REF 

1 



1^.3466 

11632 0 



ONEBIT 


r55T 





12,3467 

— 43Cr4TTr 


8PL 

SET G U 




RFF 


T A ST“ 

T2^5 

1^.3470 

ZT5T5“T 



I N n V 


rrr3 

“TTFF 

T” 



12,3471 

02434 0 



SOLNSW 


r55^f 




II ^ w 

“T?73'7^TT” 

— 02712 1 



RTMLAMB 
























1555 





12.3473 

4"TOOT I 

~T60LAMB 

SETPTT 

SErGG lamsekt cannjt handle CSTH=1 


1556 





12,3474“ 

00001 0 



□ 


1557 

1T5F 

"2“ 

LAST 


12,34^5 

02434 0 



SHLNSW 


1 5 :> 8 

-rrrj— 

~7~ 

LAST 

12 T9 “ 

"i:7.“3476 

TT2TI7 T 



RT NLAMB 



TTT ^ 





1 : 7,3477 

— 71331 0 

NDGUESS 

SSP 

DLOAD 


1 5 :»0 

lEFF — 

4 

XA5T 

T7T7 

l2.350Tr“ 

Oir05T IT ' 



1 W E K K 1 ! 


r55T — 





12.3601 

10 000 0 



2 0UUU 


1562 

■RTF 


TAST 

X > o 

12,3512 " 

“OTTOTT T 



1 0 G AMIN 

-- - 

15773 





17,3503 ■ 

65342 1 


““SRT 

POOL PL AT 

2 

1 5o4 

"PTT — 

“T" 

TTHTT 

129^ 

12,3 6 0 4 

000 17 r~ 



COGAMAX 


7555 — “ 





IZ.TTOT 

^3342 0 


SRI 

DAT) 

- — — ■ — . ■■Ill ■ . 1 . — .r, ,r ■ ■ ■.. 1 „ 1 H V 


1566 





12.3 505“ 

77626 'T 


“STADP 

PL AT 

0 

75777 

“RTF — 


LAST" 

1 2 9 9 

T2,35C17 

— /4ucr2“0“ 


b 1 UK t 

COGA 


7555 

-PT=T“ 


LAST' 

1299 

12 , 3510 

54X1X5 T 


STcmr 

DCOGA 


rsTo 


— ^ - 

TirsrT:?^ 

T27T9n 

2'5 343 1 



LAMBLUOP 
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10:28 APR. 1.1969 CHIEFTAN.028 PAGE 1300 


CONIC SUBROUTINES 


USER»S PAGE NO. 39 


E5 S3 


1374 


12.3512 


52145 0 LOLIM 


□LOAD GOTO 


1575 


REF 


157S 


REF 


I 


12.3513 

12.3514 


11636 1 
25333 0 


C0GL0LT i3 
MINCOGA 


C0GL0LIM=-.Q99511597 


157 


12.3515 


60345 0 INITV 


DLOAD NORM 


157d 


REF 16 LAST 12^6 


1579 
158 0 


REF 86 LAST 12^:’/ 


12,3516 00041 1 

00047 1 
70525 1 


PI 


12.3517 

12.3520 


POOL 



1581 


REF 11 LAST 1298 


12,3521 


0274^ 1 


Q 7 

1F33 


12.3522 

12.3523 


77671 1 
75457 0 


npv 

SL^ 


PL AT 0 


SORT 


150 


12,3524 


20175 0 


0 “4,1 


1535 

1536 


o c F 

1 1 » f 


'1 


LAST 1287 


12.3525 

12.3526 


7240 5 0 
1 1 


OMP 


0002 


SLl 
ROOTMU 


1587 


REF 


LAST 1299 


12,3527 

12.3530 

12. 35 31 


41206 0 


PUSH 


OMP 


OD=VTAN (+71 


PL AT 2 


1590 

1591 


R F F 


LAST 12T>1 


12.3532 

12.3533 


03775 1 
74261 1 
20206 1 


CDGA 

VXSC 


02 724 1 



1 

1593 


P E F 


LAST 1291 


REF 


8 LAST 1300 


12.3534 

12.3535 

12 . 

1 2 , 3537 
12.3540 


77725 I 


76561' I 

02676 1 


POOL 

VXSC 


XCH WITH 


r ST 0,6 



53235 0 
02T24 1 


VXV 


1598 

1599 


P. E F 
R 


LAST 1299 

Last 12 89 


12, 366.1 

12,3542 
4^ 


4Tr72 ~ 1 

02674 0 
02746 0 






C LFAR 

OLMSW 

VWT 


1600 


1 , 3 5 A 6 


STTOIJ 



1601 

177)7 

Tm3 

1604 


VTARGTAG 


RTF 


PtF 



wm 


LAST 127^ 


] ^ 


TT7 


RTNLA"^3" 


T6^ 

1 60b 


12.3551 


RFF 


160? 


ref 


6 

T 


LAST 


79b 




TARGETV DLOAD 


24713 I 


160 8 


REF 


1610 


REF 


LAST 490 

LAST 1307T 


, >5 54 



36705 0 

7)771T~r 



STCALL VT4F 


TTTNLTMB 







CONIC SUBROUTINES 


USER’S PAGE NO. AO 


E5 S3 


1611 


12,3556 


A0220 0 TIMER AO 


STQ 


SETPD 


Pt AT 0 


1612 


REF 


I 


12,3557 


02712 1 


RTNTP 


1613 


12,3560 


00001 0 


0 


161.35 


12,3561 


77600 I 


BOV 



VF1 


LAST 1259 


12, 35r 


02657 1 


P VEC 



REF 


LAST 1289 


12,3567 


11637 0 


PARAM 


1619 

1620 


12,3570 71200 0 


BOV 


OLOAD 


PL AT 0 


16 21 


REF 


LAST 12B9 
LAST 1298 


£l » 


3571 


12,3572 


2^776 1 
11616 0 


COGAOVFL 

01/32 


1622 


1623 

T6TA 


162 6 
162T 

1 ii ^6 


REF 
F 


P EF 


LAST 1298 
LAST 1300 


LAST 1300 






TTT 

jm: 


T^ AST T3W 


1?,357A 

12.3575 

12.3576 

12.3577 

12 , 3iroo 

n 1 

X C , J J -J' c 

12,3603 

12', 

12,3605 

12,3 


027A2 1 
41366 1 
03775 1 
7421^^ 


nTTTZ f 


WRT 


DM? 

otga 

VXSC 



DSU 
0 1 764: 


0> 744^1 

52361 1 

nnTAn: 



VXSC 


mj 


16345 

T6o4^6 


TFT 


OCT 

rACT 


IT7T607- 

12,3610 

TTTTtrrr 

TZ 


, 

12 , 3613 


vsr4 

RUV 



7 


UNIT 


ooajtAno 


TWL 




T7V5 5T4 


12,35T5 


02 760 I 

1)0047 r 

0 


RDESIRFIT 

XJ 


0D=UN1 i ( tCC) 
=ECC (+3) 


rm 


ITT 


PTOt 


TWT 

T7CT 




LAST 1300 
LAST ITOT 


T6'44 
7CT 


KEF 


7 


ST 




12.3616 

12.3617 

12,3620 
T7T 

12 73677 
T2T7671 
1 2 , 3‘67T 


00041 1 




56257 1 

707 

■SF775”T 


TTT\r 


FU 





TTSU 


ITT 



DDV" 

T3T7TT 


OOOT^ 


TT 


T6TS 

TT4T 


TEE 


I 


1775775 


TbTT 


IFF 


T 


12 , 3 675 
12. 3 677 


00031 0 

T3413 n T 

256/3 1 


STORE 
BOV 


TBrr 

CUS'F 


360= bCC (TJT 


ITSIT 


1649 


T77T6Ta 


r65T" 

16505 


FFF 

TTEF 


5 

7 


EATST 


AST 130 


I P, 3631 

T7T3 


50371" I 
TTSTT I 


BDSU 


TO 

TON 





TT5T 


1652 

TF575 


FTF 


4 


TACT mo 


12,3633 

T7V3CT4 


25673 1 

75366 “0“ 
02 /b / 0 


badt: 




SIGN 

5GNRDUT 


7653 


TEF 


12.3635 

T7735T5 


//6i4 I 

042T7 


CLbAR 


APSFST7 
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L 

CONIC SUBROUTINES 

USER'S PAGE 

NO, 41 

t5 53 


1 6^14 


1?,3637 


76561 1 TERMNVEC VXSC 


VSLl 



1655 

1656 
16 57 


RFF 


LAST 1300 


lZt3640 
12t 3641 


02676 1 
63235 0 


vxv 


UN 
POVL 


VXCH WITH 


12,3642 


00001 0 


OD 


1 6 5 1 
165 9 


REF 


2 LAST 1301 


1 2 * 3 643 
12,3644 


53361 0 
00031 0 


VXSC 


VAD 

cnsF 


PL AT 0 


1660 


12,3645 


41572 1 


VSLl 


PUSH 


0 0=U2 


PL AT 6 



1661 

16^ 


LAST 1301 


12.3646 

12.3647 


56241 0 
02724 1 


DOT 


OOV 


LIMITS R 



1662 5 


12,3652 


25653 


F SET 



1665 


12,3655 


76435 1 


VXV 


VSLl 


1666 


12,3656 72441 0 


DOT 


SLl 




israT 




12,3 6' 6^ 

4^0731 I CIRCULAR SETPD 

SETGU 







16735 




T27T6ro 

00001 0 


0 







1673 6 

f\ b F 

5 

LAST 1302 

I "’, 3 671 

024?^ 0 


SOL NSW 







rFTTT 

PEF 

■■"3 ■" 

LASr‘T21"^ 

12,3672 

25751 0 


ABTCONTC 






















167^*^ 




12,3 b7T~ 

75345 1 BAD 

K2 OLUAU 

SIGN 







nrr^i 

LL 

UJ 

1 

1 


LAST TZTT 

12,36/4 

1X564 0 


1 0 DPR ALP 







167 't2 

REF 

3 

LAST 1302 

12,3675 

00031 0 


CnSF “ 







16T'+3 

■“rff~ 

4 

'l:aTT 1302 

12,1676^ 

14031 0 

STOOL 

COST 







"16 73 


3 

last l27Tr 

1 2 t 3 6 7 T 

11566 1 


"ITEPZERn 







16755 




12,3700 

77616 1 

SETGO 








1676 

■" REF ■ 


LAST 1301 

12,3701 

" 047)32 1 


1 ^ P S E s w 








^FF 



1 2 , 3T JZ" 

25637 1 


TER MN V EC 
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CONIC SUBROUTINES 


USER'S PAGE NO. 42 


E5 S3 


I 


P 


16 73 





12.3703 

40220 

0 

APSIDES STQ 

SETPO 


PL AT 

0 

1679 

REF 

1 



12,3704 

0?7l'2 

1 


RTNAPSE 




1680 





12,3705 

0000 1 

0 


00 




16305 





12.3706 

77600 

1 

BOV 





16806 





12,3707 

25710 

0 


+ 1 




1681 





12,3710 

633 75 

0 

VLOAD 

PDVL 


PL AT 

6 

16 82 

REF 

15 

LAST 

1301 

12.3711 

02657 

1 


R VEC 




1683 

REF 

2? 

LAST 

1301 

12,371^ 

02746 

0 


VVEC 




1634 





12,3713 

77624 

1 

CALL 





1635 

REF 

4 

LAST 

1301 

1 2 , 3 1 4 

11637 

0 


PARAM 




1686 





12,3715 

77600 

1 

BOV 



PL AT 

0 

1687 

REF 

1 



12.3716 

25717 

1 


GETECC 




168 3 





12,3717 

42405 

0 

GETECC OMP 

SL4 




1639 

REF 

14 

LAST 

1301 

12,3720 

02744 

1 


RIA 




1690" 





12,3721 

75421 

1 

BOSU 

SORT 




16^1 

REF 

5 

LAST 

1301 

12 , 3722 

11610 

0 


01/64 




169? 

REF 


LAST 

666 

12,3723 

02 754 

0 

store 

ECC 




1693 





12.3724 

65215 

1 

HAD 

pnoi. 


PL AT 


1 6 94 

REF 

1 



12, <725 

11604 

0 


01/8 




1695 

KEF 

IS 

LAST 

1301 

12.3726 

00041 

1 


R1 




1696 





12.3727 

73405 

0 

DMP 

S L 1 




1697 

REF 

15 

LAST 

1302 

12,3730 

02742 

1 


P 


■ K 1 A ’ V 


16 98 





12.3731 

776 7r 

1 

DUV 



PL AT 

0 

1699 





12,3732 

60325 

0 

POOL 

NORM 

00=RP (+29 HR +?/J 

PL AT 

2 

mo 

RFF 

~TF“ 

LAST 

1303 

12,3733 

02744 

T 


R 1 A 




rroi 

RFF 

“W” 

■■'CT^ST 

1301 

r7',T734 

OTTOAT' 

T 


XI 



j. . ■ . - — 

TTO^ 





12,3735 

53725 

1 

PTJ13t 

SL^ 


PL A 1 

4 

rrm 

REh 

"PT- 

LAST 

1303" 

12,37 36 " 

00041 

I" 


R 1 




irm 





12.3737 

20174" 



0 -5,1 


■ r\ i‘ — r T" 







12,3740“ 

45271 

\ 

cnv 

OSU 


PL A I 

i? 1 0 

170'6 





““IT, 3T9T 

5 00 00 

1. 



BMN 




'T7U7 

RFF 




12,3742 

2Tr746" 

CT 


INFINAPO 





= EF 

2 

LAST 

1303 

12,3743 

25746 

0 


INFINAPU 




1709 ■■ 





12,3T44~ 

77650 1 

■ GOTO 





rrm 

ref 

T~ 

L A ST 

"TTOT 

1 ? f 3 T -4- 5 

n 7 1 ^ 
U 4 ^ l l c 

r 


R 1 N A P S f 




irn 





12,3746 

5214V 

0 

INFINAPO OLOAU 

G 0 T U 

RtlURNS WITH APHAPSIS 


rrn. 

REF" 

r“ 



12,3 747 

X J- 3 f 1 



LDPnSMAX 




r7T3 “ 

RFF 

3 

i:iL5T^ 

13TTT 

V7J3T5Xr 

— U 2 JTT 

T 


ktnapse 

THAT PL TS AT~TT, 


------ 





♦ 
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L 

CONIC SUBROUTINES 





USER'S PAGE 

NO. 43 

E5 S3 



i71'^6 


12.37S1 

77776 

1 ABTCOMtC EXIT 






1713 7 

RFF 8 LAST 1223 

l?,375? 

0 5721 

0 TC 

POOOOn 





17138 


12t3753 

OOF 07 

0 OCT 

00607 


















I 
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L 

CONIC SUBDflUTINES 







USER’S PAGE NO. 44 

E5 S3 



1714 

REF 3 LAST 1289 

04.2000 



SETLOC 

CONICSl 





171S 


04,3737 



BANK 







1716 

REF 3 LAST 12B9 TO 

1292 : 

64 

93* 

COUNT 

04/CnNIC 
















1717 


04.3 73 7 

22437 

1 MUTABLE 

2DEC* 

3.9B6032 ElO 

B-36* 

MUE 



1717 


o 

+''i 

<* I 

LjJ 

0 

\ 

1 

16067 

1 







1 7 1 


04,3741 

15625 

1 

20EC* 

•25087606 E-10 B+34* 

1/MUE 



1718 


04.3742 

21042 

1 







1719 


04,3743 

302 76 

1 

2nEC* 

1*99650495 E5 B-18* 

SORT(MUE) 



1 7 1 ■ 


04.3744 

04773 

0 







1720 


04,3745 

25004 

1 

20EC* 

.50037529 E-? 

5 8+17* 

1/ SORT (MUE) 



1720 


04, 3746 

06702 

1 








1721 


04. 3747 

16471 

1 

2DEC 

4.902778 F8 E 

5-30 

MUM 



1721 


04,3^50 

01352 

1 







1722 


04.3751 

21412 

0 

20EC 

.203966 F-B B+28 

l/MUM 



1722 


04.3752 

20500 

0 







1723 


04,3753 

' “ '2 5 47 7 

L 

2 DEC* 

2.21422176 E4 B-15* 

SOP T ( MUM J 



1723 


04.3754 

0336T 

0 







1724 


0^.3755 

27533 

1 

20EC* 

.45162595 E-4 B+14* 

l/SQRT (MUM) 



1T2'4" 


04,3756 

07571 

0 



















I7Z5" 

R2E T 

04, 3 5 76 


LDPOSMAX 

EQUALS LUDPMAX 

UPPGSWAX in low McMOKY. 




R1727 EP.ASABLP A<;S 


ft 172 A KtPl.-ft SUPsfti^UTlM? 

- - - r — t:— — K- r^ — ■ac^r^i ^;^=!^=g=a=^^B^= — — gi j ■ - » - i — 



RTTJ7 n^U”. +T 

R1733 5n<FR ERAST: FT 


R173^ IT ^ •Ta"SE FT 

H1735' XPTEA? ETTfi ST FT 


T7TE 


iTTTT 


T7TO 


EQUALS 140 


mrr 


TjrrZD 


TGUTTO 


i/38 r)iy^ 2 — 1/KMUIMU TaLmrT"TBT7 

R173^ n UT P U r~ ”■ 

'T /40 WtV fcKASt ' 

R17A1 TCV ERATT^ +T ~ ' 

R 1 7 AT ERASE +1 

R I /A3 X^RTV ‘ERTTST FT — — - 


RT7AT DEBRIS -"” 

1 7 A3 OniT ““ TAT P TO HWAL5 SD ^ 

- CmT XTA^X FPTOt S TtJD” 
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1 747 




0014 

XMIN 

EQUALS 

12D 







1743 




0024 

X 

EQUALS 

200 







1749 




0030 

X I 

EQUALS 

240 







1750 




0032 

SIX!) 

FOUALS 

260 







1751 




0034 

XSQCIXI I 

EQUALS 

280 







1752 




0036 

T 

EQUALS 

300 







1753 




0040 

R1 

EQUALS 

320 







1754 




0042 

KEPCl 

EQUAL S 

340 







1755 




0044 

KEPC2 

EQUALS 

360 







R1756 

OELX 

ERASE 

+ l 











R1757 

DELT 

ERASE 

+ 1 











R175S 

URRECT 

ERASE 

4-5 











'U75^ 

RCNORM 

ERASE 

4-1 











R1760 

XPREV 

EQUALS 

XKFP 













R1761 


LAMBERT SUBROOTINE 


31762 


R1765 


R1766 


R1767 


R1 7b8 


R1769 


R1770 


R1771 


R1772 


RTTTT 

RTTTT 


R1775 


INPUT- 



TDESIRED ERASE 



GUFSSW 


COGA 


ERASE +T 


NOPMSW 


UN 

vtariitag 

T W TXl T 


ERASE 
ERA SF 


5 


+0 

EQUALS 40D 


JUTPUT 


VTATOFT 



VI VEC 


FOUALS 


0 IF COGA GUESS AVAILABLE, 1 

TWUT ONLY IF GliFSSlii TS ZERO 

- tr 


0 


TTN TO CE 



ED, 1 t"“UN I 



ONLY USED IF NORMSW IS 1 


ONLY USFD IF GUFSSW TS TJ 


SVAIOliLE 



0 1777 RTNL AY8 ERASE +0 

R1 ,'V8 lj'2 FPXS"E " 

■pTTTS ■ MAG^VEC2 ERASE H " _Z^ZZ^ZZ!^^IZZZZI^ZZ^^IZIIIIIZIZZIZ 

RITBO Im ERASE +3" ~ ~~ 

■R1761 RT EtJlJ5rS”Tr3 ~ 

R 1732 ^ON FPASE +5 ~ 

R 17S3 SNTh eras ' +T ~~ I 

irm 5 rSTfl EPA S3 +1 

R I7F5 1 ^ TR'A S F^-t-T 

R 17a& CSTH-KHO ERASE +T ~ 

1 -7 3 7 atrre cogamax — equals cLu^HcRb i/mu 

1 /ff TT CRTTO CTIGTnnTr" EQUALS 'FD 

?TiTT3 OCUGA EQUALS 12Q 

R17Q0 rWEEKIT FOWLS 400 


R17F1“ R 








ibHv. c ^ r v -- 




— - — - — — ^ ^ I ^ ^ _ — = ■ .... 
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L CONIC SUBROUTINES 



USER'S PAGE 

NO. 46 

E5 S3 




R17-2 

COGA 

ERASE 

+ 1 












R1793 

PI A 

ERASE 

+ 1 












R1794 

X 

EQUALS 

200 












R1795 

XSO 

EQUALS 

220 












R179& 

XI 

EQUALS 

240 












R1797 

S ( X I ) 

EQUALS 

2 60 












R1793 

xsoc( XT y 

EQUALS 

280 












R1799 

T 

E QUA L S 

300 












R1300 

KEPCl 

EQUALS 

340 












R 1801 

KEPC2 

EQUALS 

36D 












Ria02 

SLOPESW 














R1803 

SOLNSW 














R 180 + 

OTHERS - 















R1805 EQUALS RIVEC 

R1R06 VVFC ERASE +5 

R1807 COG AFLAC 

R 1803 RVSW ~ 

ftl3Q7 I-MFINFLG " ' 

R 1 « 1 0 ■VP S E S’W ' 

R18U 360SW ~ 

ft lAi? ftTMlT EQUALS RTNLA8B 

ftl8l3 ETT ERATE ^TI 

R laiA RTNTR EQUALS RTNLAM9 ~~ 

Rlftrs RTNAOSE equals RT'flL'JHR 

Risrs R7 PJUALS .'AAGVtca 

— TWlT 0030 COSf EQUALS 2Rt) 

1TT3T!3 RTNPPH FRIfSlf +X5 

R ldl9 SGNROOT FR'A'S'F +75 

Ria?Q RQE5IRED ERASE +T ~ 


* 



KTWZ2 



~ IHZA~ 

ITTbZS 


TWZ^ 


TS7T 


lazu 

irrFZJ 


R1M3 ) 


T 




UhPTTEY 


ERTTSTT +T 


0016 

TTT 



WTT 

1KJ715 


GOTd 


uuyo 



wn^ 


equalstto 

RH"" 



UFLINOtP EOTA 


TTZRCTR EQUALS 220 


FEZ 


EQUALS’ TOU 


CLOBBERS 1/HU 




TWrEKTTT 





R133 3 EP5IL0NT “ERAST ^ 
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L 

CONIC SUBROUTINES 

USER'S PAGE 

NO. 47 

E5 S3 



R 1S3A 

MORE LAMBERT 







R1835 

TERRLAMB EOUALS 

DELDEP 





P 1836 

TPREV EQUALS 

DEPREV 







R1837 

EPSILONL EQUALS 

EPSTLJNt +2 DOUBLE PRECISION WORD 










I 
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L 

INTEGRATION I N I TI AL I Z AT I hm 

USER'S PAGE 

NO. 1 

EO S3 



R0006 


1 .0 IMTPODIJCT ION 


K0007 


R0008 


R0009 


FROM A USFRS POINT OF VIFW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION 


ROOll 


PROGRAM. THE S 


ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND 


R0013 


OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF 


R0015 


TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT- 


R0017 


IDE THE LUNAR SPHERE OF INFLUENCE. 


R0018 


R0019 


R0021 


IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM { LEM ) CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM 
WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE 


R0023 


INTEGRATION. THE OP REGISTEP RFINAL MUST BE SET BY USFRS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE 


POORS 


CALL TO INTSTALL. 


R0026 


R0027 


WHEN THE LM I S ON 


R0029 


TNTEGPV WITH VINFLAG = 3 WILL RESULT 


R0031 


THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, 

USE OF THE planetary INERTIAL ORIENTATION SUBROUT 

SYSTEM. “ 


AND 


ROTH THE LMS POSITION AND VELOCITY IN 


IN THE 

THE REFERENCE COORDINATE 



R0032 


R0034 

R 0 O 35 


THE PROGRAM WILL PR OV IDE ' OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND 

The" permanent state vector UPDATEU^VTHEN specified by an INTEGRV CALL. ~ ______ — 


R0036 

R0038 

"R,0040 


R0042 

R 004 T 

R0044 


USERS OF INTEGRVS DERTi^NG INTEGRATION 

IN LUNAR ORBIT IS TI IE OF P'!" N D FN T . “ TTTt^O^FFf^ 

TT^TTOFCTT 




(INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COi' 

THE USER SHTrorTT SWPtT'AN INITIAL STATE VECTOR VALID 

CQNir T^T^TTEGl^ATION, , THE USER MAY STILL USE 



E REAL 



TTMF.^ 



AS THE 



TIAL TIME AND DELTA TIME 


THE DESIRED TIME. 


Z.0 GENERAL 



RU046 


ROO'47 


P00“4"9' 

R 0 0511 


THE TNTEGKAriON PROGRA'^^ 

INTEGRA Its IPRECISlilN OR CUNIC) E ITHFP'T'SF 



IT 

TT IN It GRATES TH*^ 
TTT-ERNANENTTTR 


!JPt*"ATES AS A TTOTEO INTLRPRETrVE~^U0ROUTINE 

STATE VbCI 


AND PEREURMS THESE FUNCTIONS—- 


OR LM 


rEMPOPA-RY^ UFDATE 


TF THE STATE VECTOR 


ROO'55 



ITRAliUN PROGRAM. F 

PTmGTTA'H" I T SELT 


ROO'V7 


rHERTTP-F SIX ENTRANCE'S TO TFTFTNT 
ALL THE FLAGS REQUIRED IN 

UR CSM STA T E VEC r im;" ' A ' S THE bST . O NE ENTRANCE (INIEGRVS) PERMI1S THE CALirNC PRUGRAM I U 


IF THESE ICSMPRECt LE 
T'O CAUSE I HE PRbCiSlUN 



C5MC0NTC. LE MC ON TC7' "SET 



intet;ration ckefleri of 


RTTU5T 


KUOGL 

ROOF A 


TH*- LM' 

PROVIDE ATT7LTE VECTOR 

RATFON, m 


ClINTC 


TN 


BE INTEGRATED 
0^ OUT 



THF CALLING PROGRAM MUSI Sb! 

I' HF FLAG SET T ING ' in BYPASS W- ' M ' A I P IX INTFGPAIION. IHf LAST 'ENTRANCE nMrEGRV, USEa^IN GENERAL bY int 



IHE FLAGS 

AND THE INTEGRATION 


PRECTSTON DR 



P 006 


R'O OBT 

p (RV6 "r 

ROOTD 

P0071 


NAVIGATTON" PROGRAMS J PFR'TrTSTFrF'XAXLFR TTI SE I FIVE FLAGS INOT MOONFLAg Ok MIuFl 

rnSfNY PROGRTm-WHICH CALX5 TNTEGRVS nR“TNTEGRV MUSI CALL I NT STALL BEFORE 




rtTTNPUT A STATE 
INTEGRATION FLAGS 


AMD/OP STATE VbCTURT 



42” ^ EGT STERS” ANir ^ 'FL AGS" ATE 


R2JUT 


R0075 



F')P I HE PERHAN'.-N I S I A T E VEC I URS FUR THE CSH 
ING OONEG IS USED IN THF COMPUTATinNST" 


FUR THE STATE VtCTORG . 
AND LM. — IHE IHIKU Sb I 


TWU SETS, T?mCTI”IMAY“TJOT'‘BE OVERLAYEO, ARF- 
WHICH MAY BE UVERLAYbU WHEN IN I FGR A I 1 ON 


P 0075 


ROD / / 

ROOTS 


IHE PEKMANEMI S ("A 1 1 V:-slO ’S WILL 


T-f 


THE YECTUPS WILL NUI 8b ULDEK T 


vromr 


THE PERNANF^n STATE VECTORS ^nTCL 
5^TF"5TATFFLG f THE NAVTUATT UM 


PERiUDlCALLY UPDAIEU SO IHAI 

BE UPU A T ED WH E NEV ER — THE W-MATR"IX” IS INTEGRATED OR WHEN 
P20, F22".U “ 



4 TIME STEPS'." 
OF INTEGRV 
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I NTEGRATIGN 1 N I T I AL I 7 AT I 0^» 


USFR'S PAGE NO 


EO S3 


P0032 


APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES. 


R0033 


R0084 


2,1 RESTARTS 


R0085 


R0Q36 

R0083 


p H ASF changes will be maos in the INTRGRATIGN program only for the INTEGRV entrance when THE W-MATRI X 

INTEGRATED OP PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAT^ 


IT 


RC090 


R0092 

R009A 


R0096 


(I.E., GROUP?) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN 
rTTTG^iTION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE ITI THE CALL ING PROGRAM 
pRQGRA^^S WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF 

THE PUSHLIST" 


changing 


CAIXTNG 
I 



RQ097 

R0093 


that IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN 
ThTTS^IT BECAUSE The PUSHLIST is lost DURING A RESTART. 


R0099 


?.? SCALING 


RQIOO 

ROlOl 


R0103 


THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND DE FINED IN 

APPENDIX B OF THE UScRS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE 



ROlO? 


SYSTEM AT THE DESIRED INTEGRATION TIME 


R0107 


MULTIPLE TIMESTEP ENCKE INTEGPATIOM ONLY. THUS 11 


THE COOROINAfF SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON 

POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN 


IS 


ROllO 


DIFFERENT SCALING. 

HMWFVEF . RATT/ VATT WILL ALWAYS BE S’CALEO THT SA^TE 


ROII 1 


) 


ROll 
R0T13 

R0114 


3.0 INPUT/OUTPUT 


P0U5 

PROGRAM INPUTS ARC 

T H '■ FI AGS DE3GTrrB ED TfT APPENDIX 

A AND THT TFR-MANENT 

“STATE VECTOR QUAN 

1 X T 1 IT - J L# t- O iD X U 

D IN AP- 


R OTTT" 

PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME 

TO INTEGRATE TO IN TDECl (A PUSH LISI 

LUC AT I ON) . 



R0119 

FOR TNTEGRVS, THE 

RCVtVCV, TET OF THE TEMPORARY STATE VECTOR MUST 

BE Sf 

rit PLUS MOONFLAG 

AND M I DPL aG 



R0121 










tiOl?? 

"^■3R SIMULATION^ TRF 

TTLLOWING QUANTITIES MUST BT PTl 

E 5 ET — " 







R0123 










R0124 




EARTH 

M0I3N 





Rrirzs 




29 

27 





R01?6 

RRECTCSM( LFM) 

- P 1= C-T I F IT D PQSTTION VECTCm 

METERS 

2 

2 















RTTTZg" 




7 

5 





R0129 

VRECTC SM( LEMJ 

- RFCTIEIED VELOCITY VECTUR 

M/CSEC 

~2 2“ 






ROIOO 














28 

28 





R0132 

n TCSM(LEM) 

— TIME STATE VECTOR IS VALID 

CSEC 

2 

2 





RO 1 33 


CUSTOMARILY 0. BUT NOTE LUNAR 








“ RaiT?” 


WB I T '"UE P EFJD E M CF ’ IW~P. ES t TTH E . 








R013^ 















ZZ 

IH 





R0137 

ITEUTA VCST^I LFPH 

- PnsrTTTJNT DFVrsntTTT^ 

METERS 

z 

2 





R0138 


— 6 It= TCCSMILPM) = 0 








R0139" 










R0140' 




3 

-1 





R01 41 

NUVCSM(l.l=M»' 

- VtL'XITY DbVIATIiJN 

M/CSEC 

2 

2 





R0142 


1 TF~rrCSM(LFMT = 0 








R0143 



































1 - 1 - r. 


« ’ M ^ ^ . mm- - ^ 



, , — 

— — 

_ . - . — - — 
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L 

INTEGRATION INITIAL 

I 7 AT f UN 




USER'S PAGE 

NO, 3 

eo S3 




R0144 




29 

27 






R0145 

RCVCSM(LEM) 

CONIC POSITION 

METERS 

2 

2 






R0146 


FQUALS RRECTCSNI LEM) IF 









R01A7 


TCCSMILL'V) = 0 









R0148 











R0149 




7 

5 






R0130 

VCVCSM(LEN) 

CONIC VELOCITY 

M/CSEC 

2 

2 






ROl 51 


EQUALS VRECTCSMI LEM) IF 









R0152 


TCCSM(LPM) = 0 









ROl ^3 











R0154 




28 

28 






ROl'i? 

TCCSM(LENI) 

TIM- SINCE RECTIFICATION 

C S E C S 

2 

2 






R013^ 


CUSTOMARILY 0 









R6157 











R0158 



\/2 

17 

16 






R Ol 59 

XKEPCSM(LFM) 

RnOT OF KEPLERS EOUATION 

M 

2 

2 






R0160 


0 IF TCCSMILFM) = 0 










R0161 


R0162 


R0163 


R0164 

R0165' 


R O lo^ 


CHOOMFLG 

C.MIDFLAG 


- PERMAMFMT FLAGS CORRESPOND IMG 

AND i'^liJFLAG 


0 


0 


TO MCJONFLA 




0, I 


0,1 


Lf^GQNFLG 


C = CSM, L = LM 


LMIDFLG 


0 

^7T 


0 


0,1 


R0167 

SURFF 

Uag 

- LUNak surface FLAG 

071 

D71 








R0168 













R 0169 

IN ADD IT TON nTF 

(L)CMIDFLAG IS SFT, TRT INTTIAL INPUT VAXUFS TOP 

LUNAR 








R017Q 

SOLAI^ EP 

jui 1 1, T ' 

11 y 1 * « A ^ J 

b-S SUbPoUTInIE and planetary INERTIAL ORIENT 

THTHN : 









R 01 71 

RnUTINlT” 

T^UST^PTF 

PRESET • 










R0TT2 

R0173 

“nrUTTOT 













“ITFTETr F V 

FRY CALL TO TNTE G ' XT 1 0 N 










FTOITS 




EARTH 

MOON 








ROl To 




29 









■^TUTTT 

0T5 

RATT 

POSIT WATERS” 

2 

2 








KUTTB 




7 

7 








R0179 

6 n 

VATT 

VELOCITY M/CSEC 

2 

2 








“ 1^0180 




28 

?T3 








ROITT” 

"TZD 

“TAT 

TIM- 

2 

2 








R0182 




29 

27 








KUTB3~ 

“TZFD 

P5TTT' 

POSH I ON ■■ - - “METER'S-' 

2 

2 








R01B4 




7 









R 0 r85“ 

20D 

VATTT“ 

VELOC I TY M/CSbC ■ 


2 








ROl 86 



3 2 

3 6 









R0137 


Mum" 

^ MU ■ ^ /CS 

2 

2 








ROl’^6' 













RD18V" 

50 ” 


MU 1 ABLE i-NIKY 

-2 

-lOU 








ROl 90 ■ 













R019t" 

JTT 


CnUPiMMI 


■ ***■* WWW- 








Rai9r2”" 

X7~“ 


COURi'liNAIl-: SYSTEM nPTGETr- ' 


2 








R0I93 



(THIS, not MOONFLAG. ' STItHJLTl BL 
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INTEGRATION INITIALIZATION 


USER’S PAGE NO 


EO S3 


ROl'^4 


USED TO OETERMINE ORIGIN.) 


R0195 


R0196 



IN ADDITION TO THE ABOVE, THE 


R0191 


STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH 



R0 200 


R0201 

R020? 


4.0 CALLING SEQUENCES AND SAMPLE CODE 


R0203 


R 02 04 
R0205 


TTWE CTSION orbital integration. 'C^MPiTEC, LEMPREC TNTRAnCES 

r^x STGRR TIME TO 95TS791T5 T 95 PUS L9ST (T453n 


R020S 


CALL 



R0209 


P0210 

R0211 


R0212 


INPUT 28 

T 0 EC I ( P D 32 0) r I T ‘ i ! N T E G R A T E TO. . . C^.NT I S ECONDS' SCALED 2 

OUTPUT 

THE DATA LISTED IN SECTION 3.0 PLUS 


R0213 

R0214 


R021 

R0216 


KWv"^~rosn^Tn]^rwnT^^ respect t o sec qnd a ry 

BODY... METERS 6-29 ONLY IF MIDFLAG = DIMOFLAG = 

CONIC INTEGRATION. C S>^C ON If , L E MC ON I C ENTRANCES” 



R021B 


L + 1 


CS^C 


R 021 


C' 


In PUT /OUTPUT 


R 0220 


R0221 



R 0222 


SAME AS'PREC ISrVxi INTEGRATION. EXCEPT ROW NOT SET 

! NTEGRATE given $7 at?' VtiCfOR. INl EGRVS ENTRANCE 
(TATT* 


R 0223 



TMTSTA 


P0224 


V L 0 ATT 




R0226 


TN13TTT ON^’ c CTTTR 
V 



R 0227 



nuu 


3CITY 

vuv 


R 022 ^ 

R 0230 

'WOZJi 


time state vector 



Troui 




05 “ 


R 0232 




TT 0 T 3 ? 


STTirUCTR 

TUTYPFLAG 


R0235 


R0236 


5 FT 



RU233 

P0239' 


STCTEUI 



R 02 AT 


TUPUT 



WC7 


POSITION VECTOIT 


METERS 



C.VZ 



UZV 

TFT 


YTTFOrTTY VECTOR 

’F ~STATF’VFCTnPTWAr“^~U) 



F/CSTC 
X S FC B-FR 




% 
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L 




R0245 

^50246 


R0247 


R02S0 


RQ2 5^-r 
R025‘5 


R025S 


R025B 

R0259 


R0260 
0 0261 


R02 62 
R0263 
ROI'CT 


R026 
R0269 



IT 



<02 


R0274 


INTEGRATION I M IT I AL I ZATI ON 


USER'S PAGE NO 


EO S3 


R0257 


TDECl TIME TO INTEGRATE TO 


CSEC 6-28 (PD 320> 


(MAY RE INCREMENT IF TET=0) 


OUTPUT 


SAME AS for precision OR CONIC INTEGRATIONi 



STORE TITmf in PO'SH LIST (TDECl) (MAY BE DONE AFTER CALL TO INTSTALLT 
CALL 



SET (CLEAR) SET (CLEAR ) 


L-5 


VINTFLAG 


1=CSM, 0=LM 


L-4 


INTYPFLAG LACONIC, O^PRECISION 


L-3 


SET(CLEAR) SET(CLEAR) 



DIMOFLAG 

D6nR9FLG 


1-W-MATPlXt 0=N0 W-MATRIX 

1=9X9, 0=6X6 


SET 


DLOAO 



L+3 


STCALL 


RFINAL 



T imn 



TNTET^RATE 


r5FC”B‘-23 


SION OR CUNTC INTEGRATION 
TFTF FPnG'R'AM' T L L Sr T M n 0 N FF ATT; MlUFLAG UtFENDING ON 



TTAT 


02 741 




- . 

11 ,2363 

■ ■! ■ ■ ™ ■■ ■ - ■!» ■■■■ 


11 





. . ^ — ^ — ■ =saB J 1 

027^2 

REF 

2 

L A 5T 

709 

13.2000 


SETLnC 

imtiniT 





- . 

OTT^TT" 





"13,2627 


"BTLNK 






— 

02746 

“n x: n 

C i 

“5" 

LAST 

213 

XT ,1564 


ETONK^ 

R R t C 1 C 






02747“ 

XF 

~r 

LAST 

209 lO' 

212: ?T5 

— 3ro^ 

COUNT 

1 3/ I NT I N 

■ ■ ■- ^ ^ ■ .r - ■ — 

■ ■■ - . P ■ — 

- ■■ 




TJ2T5 

02 TF 


0277 


TTZTTT 


JJ7TT 

0 2 H O 

XTzno 

TTZdT 


TT277 

ozm 


LA^ 


TTFF 

'< tF 


REF 





7 




XTTST 

TTTST 




TXST 


~sr2^ 

TTTJ 


Z~Tn^^ 2X7 


R FF o2 L A S T 


■' EF "2X4 DIST 


T2X5 

129T 


T3TZb2T 

13,2630 


TJ 



0 STATETNT-Ttr 


00062 O' 


TirT 


1 3 » 2 F3T 

T7, 27X2 

3 , i ^"64 


3 6061 0 
XT4T 


CAF 


PHASXFmG 

00062 

PR 105 


TJ 


a 


TC 


FlNOVAr 


13,2633 


13,27X4 

13.2636 


02636 0 


260 63 


EOANK= RRtCrCSM 

2CADR STATTNl 


0 6324 T 


rc 


1 3 ,76 37 

13,2637 


0 6006 i 

47014T 


STAITNTl TC“ 
BUN 


TASKOVEIT 

1NTPR7T” 


TTTB 



U28 3 2 

Xr274 



73 — XTAST 




13,2641 
1 3 , ?5'42 


27677 
457X0 X 


TXNT 

Xn A DTI ME 


5 TATE TNT 


W7 
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L 

INTPGRAT TON 1 N I T I AL I Z AT t OM 

USER'S PAGE 

NO. 6 

E3 S3 



0236 

2FF 

% 

LAST 

934 

13,2643 

00041 

1 


STORE 

TDECl 








0323 





1 3 • 2 6 44 

45014 

0 


CLEAR 

CALL 








03235 

REF 

7 

LAST 

266 

13,2645 

04274 

1 



V960NFLG 








032A 

EF 

23 

LAST 

1256 

13,2646 

27442 

0 



INTSTALL 








032 5 





13,2647 

45 014 

0 


SET 

CALL 








03251 

REF 

2 

LAST 

210 

13.2650 

01076 

1 



NODOFLAG 








0326 

REF 

2 

LAST 

210 

13,2651 

26670 

1 



SETIFLGS 








0327 





1 3,2 652 

77650 

1 


GOTO 









0328 

REF 

1 



13,2653 

26000 

0 



STATEUP 








0356 





13,^654 

00003 

1 

600SECS 

20EC 

60000 








0356 





13,2655 

25140 

0 











040 A 





13,2656 

77414 

0 

ENOINt 

CLEAR 

EXIT 








0405 

REF 

3 

LAST 

610 

13,2657 

01672 

0 



STATEFLG 








040 8 

REF 

95 

LAST 

131 3 

13,2660 

0 5412 

0 


TC 

PHASCHNG 








0409 





1 > , 2 6 6 1 

20032 

1 


OCT 

20032 








0411 





13.2662 

0 0006 

1 


EXTEND 









0412 

'^EF 

2 

LAST 

213 

13,2 663 

3 2655 

0 


OCA 

600SECS 








0413 

REF 

3 

LAST 

686 

13,2664 ^ 

3 4 2 

1 


TC 

LONGCALL 








0414 

REF 

6 

LAST 

26 5 

F:3,15 54 




EBANK= 

RRECTHIS 








0415 

REF 

3 

LAST 

'’FIT" 

13, 2 6b 7 ■ 

0 261 r 

0 


2CA0R 

STATE I NT 








0415 





i 3726'66 ■ 

26063 

0 











041 6 

REF 

102“ 

LAST 

1038 

1 3,2667 

0 52r7'-0" 


TC 

ENDOFJOe 








0426 





1 3 ,2670 

43016 

0 

SETIFLGS 

TFT 

CLEAR 








0427 

REF 

4 

LAST 

1314 

13,2671 

01^.72 

1 



STATFFLG 








0428 

R '^F 

15 

LAST 

915 

13,2672“ 

0 1 6 73 

~Y~ 



TTrmTTT " 








0429 





13,2<^>7T 

43014 

' T1 


Clear 

CLEAR 








04 ^0 

REF 

1 3 

LASt 

62 3 

13,2574 

01676 

1 



01 •'OFLAG 








04301 

REF 

5 

LAST' 

610 

13,'26/5 

01675~l 



O601^9ELG 








04302 





r8,2676 

77616 

0 


“RV23 









04303 





13,2677 

77776 

1 

NOIMT 

EXIT 









04304 

REF 

96 

" LAST 

131 4' 

13,2700 

0 54rr 

0 


TC 

PHASCHNG 








04305^ 






00002 

“0“ 


OCT 

2 









154^06 

^"FE r 


LAST 

1066 

rr,27T37- 

*' 0 5360 

IT 


TC 

DOWNFrAG 








04^3 'J7 “ 

‘ fTFF 

3“ 

LAST" 


1 3 f 2 70 3 

mm 

0 



QU 1 FF L AG 









04T(r8 

~RFF“T03 

LAST 

1314 

13,"2T04 

0 5 ZTT 

“0“ 


TC 

FlSinTiFjas 








R 0431 ATUPCSM^TRANSFeRS RRECT TO RRECT +41 TO KRECTCSM TO RJ^ieCTCSM +41 


R 045^ c A LL F 

R0433 C C/fTL 

1>1 ATnpcst^ ~ ' 

R0^35 MOR'^AL ex I T AT L+^ 

I w^m m -MB ~ ~ ~ ^ — tr-mm-^ — -t-»- -■ - .■ ■ ■ ■ — n .». ■ sa=agg3i^^^^n^ 

0A36 13.2 705 A7U2 0“D ATOPCSSl STO ITTF 


(TATT 'TFF — ?7 — LA5T 1202 H.ITOfe 00051 0 

PTF “CTST 171575 TETJTCTT 26720 “0 " MUVbACSW 

04 3-' 13. 2 71 0 “"ATO 14“75 SPT C 4LL 


gap; 

ASSFN16LE RbVTSIf 

IN 055 
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L 

I NT r 

GRATION INITIALIZATION 





USER'S PAGE NO. 7 E3 S3 



0440 

p FF 

22 

LAST 

667 

13,2711 

04063 

0 


CMOONFLG 



0441 

REF 

3 

LAST 

1260 

13. 2712 

20237 

0 


SVDWNl 



0442 





13.2713 

43014 

0 

BGN 

CLPGO 



0443 

REF 

14 

LAST 

916 

13,2714 

00303 

1 


MnONFLAG 



0444 

REF 

28 

LAST 

1314 

13.2715 

00051 

0 


S2 



0445 

REF 

23 

LAST 

1315 

13, 2716 

04223 

0 


CMOONFLG 



0446 

REF 

29 

LAST 

1315 

13, 2717 

00051 

0 


S2 


■- -■ iUL, II ■ ■ 

0447 

RFF 

1 



13.2720 

0 3064 

0 

MOVEACSM TC 

SETBANK 



044 8 

RFF 

2 

LAST 

R5 

13,2721 

55* 500 

1 

TS 

DIFEQCNT 

INITIALIZE INDEX 


044^ 

REF 


L AST 

131F 

13.2722 

51 * 5 00 

0 

INDEX 

OIFEQCNT 



0450 

REF 

5 

LAST 

1277 

13.272? 

3 1502 

1 

CA 

RRECT 



0A51 

REF 

4 

LAST 

1315 

13,2724 

51* 500 

0 

INDEX 

DIFEOCNT 



045P 

RFF 

7 

L AST 

1313 

13.2725 

55 • 554 

0 

TS 

RRECTCS.M 

■ ■ 1" ■ ■ . ■ . ■wj. .■■.» _j. m ^ "T tm ■ * ■■III M ^ M J — W “ — «!■.■ ■ m mm mi 


0453 

R ff 

5 

LAST 

1315 

13.2726 

11* 500 

1 

CCS 

OIFEQCNT 

IS TRANSFEl^ COMPLETE 



0454 

reF" 

4 

LAST 

1314 

13,2727 

1 2721 

0 

TCF 

MOVEACSM +l 

NO-LOOP 


0455 

RFF 

63 

XXST 

1286 

13.2730 

0 6030 

1 

iz 

DANZIG 

COMPLETE- RETURN 



R 04^:6 


R0457 


R04'?8 


R 04 59 


f>T0ACSM TT^vTSFERS RftECTCSM TO PPECTCSH +4l TO RRECT TO RRECT +41 


CALLING GI-QUENC 


L 


CALL 


PTUACSM 


R 04515 NORMAL tXIT AT .+? 

0461 


04 ’^7 




0464 


04^ 


r 


0457 


04^ 


04 fO 

wm: 

04T7 

11473 


7pF 


TOF 


~2 — LAST 12^TT 
F4 LXST T3T5 


TFF 

TTEF 


75 

~4 


LS5T 
TA5 



7FF 


* 


IF 

~5 


OFT 

LAFT 


TTTT 


T5474 

04 


I \ 


0476 

077 


■RFF 


7 


USST — X3T5 
LAST 1315 


TTT 

' J 


W- 

TI477” 

04o0' 

04 B1 


TTF 

7TF 


7 


T4FT 

X7FT 


TTO 

T3T^ 


T7V773T 


13.2732 

13.2733 

13.2734 


13,2735 


13,2/ 36 
775“, 2737 
"T7 

1 3*2 
“13,2742 


ITT 

737 



7744 


43034 y 

T“ 

IT 




Z5747”3: 
662177 0 
imZF3'7 
37 



T3“,7747 

T3TT74F 


T37374T 
13,2 /bO 


^07X503 

007077) 

— 77FX57T 

7 3064 7 
7737X7 


K rrh 

TXF 


3 — L A ST 73X5 
~S~ 


TOST 



13X5 

13X5 


13,2751 

13,2777 

X3TZT53 

13.2754 


51 ■ 500 
3~ 


1554 


X 


PTOACSM ~7TB 



MOVtPCSM 


71^50071 


55'b02 O' 


13,2755 rX750TJ 


0477 

0 4”3' 


7EF 

ITFF 




ST^TTT 


T3TZT5B^ 


TPi LA5I liV5 


TTTTnrr 


1 2 7=50 TT 

0 603ir 



irw 


CLRMOnN CLEAR STTP’ 


MnONFLAG 

PBOIT? 



SETMCION SFT 



MHONFLAG 


PBUDY 


RV 

MOVE PC SM TC 

rs 



1 

ns 

I NDEX 

TR 


Sb IBANK" 

0 I'^'cQCNT 

DIFEOCNT 

R KtC TC SM 
01»-rUCNT 

RRRCI 



UI FCQCTTT “ 
MUVbPCSM 'll 
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0499 

0500 


0501 

0502 
050? 
0504 
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CALL 


LMOONFLG 
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TTT 
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TO 
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REF 

3 
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“05T0 
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17 
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1316 
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66 
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CA 
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0 
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PEF 

6 
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16 
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0 
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RCV 
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PFF 

2 
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34 
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1 
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14001 

0 

STOOL 
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054) 

REF" 

6 

LAST 

1259 

13,3060 

35527 

1 

STCATL 

TNUT? 





0550 

REF 

1 



13,3051 

27176 

ll 


A-PCHK 
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ACCELERATIONS OUE TO OBLATbK'ESS A1E INCLUDED. 

NO W-MATRIX INI. IS DUNE. 
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0 TB 8 R¥F ^9 LAST 1303 13 » 30 t 2 OOOAo 0 XI 
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0593 

05 ^ "REE B LAST 210 

0595 PEF 14 LAST 1314 

0596 

0598 1 ^EE 1 6 ■ TAST 1314 
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St I UK LLf-AK ALL FOITR FLAG'S 

ANO DIMOFLAG IS 
rATT 



G“rF UE5TRED 



INTbGR V 


INI I lAL IZAf 

— r\_mrS AS* A'HDVT 




rn ^^rTTTTGTTTrF T'O ^ TN 







GAP: 

assemble 

R 

FVISTON 055 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1.1969 

CHIEFTAN.028 

PAGE 1320 


















L 

INT E GR A T I ON INITIALIZATION 





USER'S PAGE 

NO. 12 

E3 S3 


















R 066 1 

OUTPUT 














R0662 

RATT 


AS 
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PFF 

7 
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2 
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1 

INTFGRV2 SSP 
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13.31 74 

26731 

0 


PTQACSM 
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13,3175 

27004 

0 
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0684 
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K 
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TFSTT DW 
RVCGN 
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0690 

06W 
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T 
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T^TTUOin 
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5 
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1 
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RECTOUT 
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F 


LAST 1315 
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REF 

REF 
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10 
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13.3242 
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TO 
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1 
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+T 
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13 
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09^3 





35,3 761 


0 

CLEAR ■■ 







0994 

rTf 

~ 6 ~ 

LAST 

1314 

35,3762 

01675 



0 6 0 R 9 F LG 






0995 

REF 

19 

LAST 

1328 

3 5 . 3T6“3 ■ 

-^.474 

1 


V 1 NTFL AG 






0996 

REF 

52 

LAST 

132 8 

T?,3764 

34Tr4 1 

0 

sttali 

TOECl 






0997 

REF 

13 

LAST 

1328 

35.3765 

27162 

1 


INTEGRl/ 






0998 





3 5 , 3 7' 6 6 

77650 

1 

GTTTD 







0999 

REF 

1 



— 3^3 767^“ 

“^3?W 

0 


1 - 1 %_,( j i 
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L 

INTEGRATION INITIALIZATION 


USER'S PAGE 

NO. 21 E3 S3 



P 1000 

MIDTOAVI 






R 1001 

this routine integrates fPRcCISION) fO THE TIME SPECIFIED IN TDECl. 




RIOO? 

IF. AT THE END OF AN INTEGRATION TIME STEPt CURRENT 

TIME PLUS A DELTA 




R 1003 

TIMT (SPp TTMEOELT BASED ON THE COMPUTATUON TIME 

FOR ONE TIME STEP) 




rio6'+ 

IS GREATER THAN THE OFSIREO TIME. ALARM 1703 IS SET 

AND THE INTEGRATION 




R lOOG 

IS DONE AS IT IS FOP, MT0TnAV2. 





R1006 

RETURN IS IN BASIC TO THE RETURN AODRESS PLUS ONE. 











R1007 

IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME. 

RETURN IS IN BASIC 




R1008 

TO THE RETURN ADDRESS 











P.1009 

IN EITHER CASE . eFFORE RETURNING. THE EXTRAPOLATED 

STATE VECTOR IS TRAN 




RIOM 

FEPfED FROM R.VATT TO R , VNl-P I PT I ME 1 IS SET TO THE FINISHING INTEGRA- 




RlOll 

TION TIME AND MPAC IS SET TO THE DELTA TIME 





R1012 

TAT MINUS CURRENT 

TIME. 





R1013 MIOTQAVZ 

R 1014 THIS ROUTiKlf tMTtGRATES THH CSM STATE VECTOR in CURRENT TIME PLUS 

RlOlS lNCREM6NiT3 OF TtMEOELT SUCH THAT THE DIFFEl^ENCE BETWEEN CURRENT TIME 

R1016‘ /WD THE'TT ATE VECTOR TIME ~A T THE END OF THF LAST SIhR lb Al LEAST 375~ 

P 1 (!) 1 7 S EC S • — — — 

R10I8 MO ' T' WP OTT TSiTE REQUIRED OF THE”rAT.LER. RE T i TRl^T T3 IN WASl C TCI THE RETURTJ 

R 1019 ADDRESS HI TH I HE AHIJVE'TTaWSFERS “TO* RIWT-PTFT I ML l-ANU MPAc L)UNt " ' 


102 '!) 

—RTF" 

— 4 

LAST 1320 

13"* 7 0 0 0 


SFTTOLT 

1 N I 1 N 1 1 

1021 




1 I, 1543 


“ BANK 


io'2r" 

c F 

— T~ 

XATT TT 

im 


EBANK= 

IRETUKNI 

10^3"" 




1 3 . 3'5"43 

"45112 0 I ■ 

M T0Tr7AV2~3T0“ 

CALL 

1024 

■REF 

3^ 

XASI 132-9 

1 3 f 5 5 44 

"(71127 1 


I retukni 

1025 " 

REF 

31 

LAST l3?i) 

1 3 T "5 54 5 

2744Z 0 


INTSTALL 

1026 




HTTITTS 

431^3 vr 

OLD AD 

C L E AR 

102 7 

PEF 



13t354 f 

277 11" Cf 


1 I MfcDE L T 

nrzFT- 

PFV 

— T” 


13. 35^0 

04674 0 


M 1 D 1 F L A G 

rj2T~ 

1 V Lr * 



■■ TB.JBTT'- ■ 

"37 732 ■0 

6 I OALL 

T -TO- A^DD 

1030 

“RTI^ 

— r~ 


" ITt3T52" 

0 


ENTMID2 ^ 


1031" 




13.3553 

43030 1 

MTDTOAVl STQ 

CALL 

1037 ■ 

REF' 


LASI 1329 

T3T35T4 

01127 ir 


1 Rt I URNl 

1033 ■ 

KEF" 


LAST 13'29 

1373335 

27442 0 


IN IS 1 ALL 

1034 




13.3536 

47014 1 

Shi 

H 1 B 

1033"” 

“TitF 

z 

LAST IT2T 

" 13,3T5r‘ 

0"44T2r 1 


MTDTFEffG 

1036 

— t - F 

i , 1 

26“ 

LAST 1313 

13,3 S'ZD 

45510 1“ 


L ( ) A D T I M h 

1037 




13.3531 ” 

44215 1 

DAD 

BU6U INITIAL CHECK. IS lUECl TN THE FUTURE. 

1 

”1038 “ 

— FFF 


"TATI — 132^ 

“I'l , 3"5\52 

z / r 1 1 0 


TI MEDEET 



RLE 

— T? — 

LASI I32'!r 

1 ♦ 3 5 6 3 

00041 1 


i 0 1 C 1 

1 040 




13.3564 

■45044 0 

HPT 

CALL 

rtm — 

— PFF 

T" 


13TTTB-S 



FNTMIDl 


I 
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L 

IMTEGRATION INITIALIZATION 






USER'S PAGE NO. 22 E2 S3 
















1042 

REF 

1 



13,3566 

27674 

1 


NQTI ME 

NO 

SET 

ALARM. SWITCH TO MIDT0AV2 
















1043 





13,3 56' 7 “ 

4323^ 

0 ENTMID2 

RTB 

DAD 





1044 

Ref 

27 

LAST 

1329 

13,3570 

45510 

1 


LOADTIME 





104^> 

REF 

2 

LAST 

1329 

13,3571 

03732 

1 


T-TO-ADD 





1046 

REF 

54 

LAST 

132 9 

13,3572 

00041 

T 

STORE 

Toeci 






1047 





13,3573 

45014 0 ENTMIDI 

CLEAR 

CALL 


1048 

PEF 

"Tb 

LAST 

1328 

13, 357“4 

01676 1 


OIMOFLAG 

NO W-MATRIX 

1049 

REF 

1 



13,3575 

26034 1 


THISVINT 


1050 





13,357S 

43014 0 

clear 

SET 


1051 

REF 

"T9 

LAST 

1320 

13,3577 

01673 1 


INTYPFLG 

— ^ — — — — . . * - ■ . , — 1' — -jF — y a 'I — g‘ JIT" x~mc ' 1 "TP 

1052 

REF 

2 

LAST 

1321 

13,3600 

04475 0 


MIOAVFLG 

LET TNTEG. KNOW THE CALL IS FOR MIOTOAV. 

1053 





13,3601 

776?^ 1 

CALL 



1054 

REF 

1 4 

LAST 

132R 

13,3602 

27162 1 


INTEGRV 

GO INTEGRATE 

10541 





13,3603 

66134 1 

SXAt? 

SXA.l 


105415 

REF 

16 

LAST 

935 

13,3604 

03746 i 


RTX2 


10542 

REF 

13 

LAST 

712 

1 3,3605 

03745 1 


RTXl 


105425 





13,3 50 6 

67214 1 

CLEAR 

SLOAO 


10543 

REF 

5" 

LAST 

1326 

1^,3607 

00275 1 


AMOONFLG 


105435 

REF 

1 7 

LAST 

1330 

13,3610 

03747 0 


RTX2 


10544 





13.3611 

43054 1 

BEE 

SET 


105445 





13,3612 

276i4 1 


+ 2 


10545 

RFF 

r~ 

LAST 

1330 

13.3613 

00075 0 


AMOONFLG 


1055 





1 , 3614 

77775 1 

VLGAO 



1056 

REF 

37 

t ATT 

954 

13, '5615 

00001 0 




1057 

REF 

9 

LAST 

836 

13,3616 

252 32 0 

STOVL 

WhI 


ro5i 

PEF 

27 

LAST 


13,3 6 1 7 

ooooT 0 


■ “V ATT 




4 


636 

13.3620 

15240 0 

STOOL 

1/NT 


1060 

REF 

11 

LAST 

934 

13,3621 

00015 0 


TAT 


1061 

o E F 

8 " 

LAST 

8 3 2 

13,3622 

01246 0 

STORF 

PTRTTMEI 


1071 





1 3 , ’362T“ 

'77776 1 

EXIT 


- — ■ ■■ ■ 


_ 1077 -5 13-57 I'l.ii.'iT TT^TT CJT 

107^ RTF 7 LAST — 5T5 FT, i632 (7^57^13 " TtT^ 

1079 1 ? 1 3 635 <+7014 I CKMIR2 BOF 

nJT^ RTF 3 LAST 1320 13.3634 7r47>4“ 0 

nm RTF I 13,363b 27662 0 

TTT RTF 23 laST 1330 13.3636 45blo I 

prT3 13.3637 ~ ^ T'42T5“T DTTO 

rT5T4 RTF 3~ LASI 1329 I3,T"54T3 27/11 U 

TOTF RTF 6 LAST 1324 13.1641 OllOl 0 

rrgF 0737747 ^457344 T! ~ STT 

1097 TFF^ 7 TA S T TT7'T 13,3 6 4 1 2737)^7 



TANKJUMP 


■TTB 

WTDIFLAT 
" flit) 2 


Ttrsu 

TTHFUtXT 
U 

CALL 


YET 


— r072 0.3624 O' 0004 0 INHlNfT 

“ToTT 13 ,3625 TT'0T)6 1 EXTENT 

1074 pTF 29 last 1096 13.3626 4 0026 I DCS T I Mt2 

- 1075 ref 655 L ATT 137 6 13.362 7 2T"T53"1 DTTT MPAL 

" r076 R EF IT LAST TTT7 1 3 .'TTS 0 ^D"772 5 CT ' TC TPTOITEF 




I 
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L I NTEGRATIi'N INITI ALIZAT ION USER’S PAGE NO* 23 E2 $3 


1033 

PEF 

7 

k_ ^ 

L A ST 

1330 

13, 3644 

27674 

1 



NOTIME 




1089 





13,3645 

43234 

0 

T I'lEINC 

RTR 

OAD 



1090 

REF 

29 

LAST 

1330 

13,3646 

45510 

1 



LGADTIME 



lO'-n 

REF 

3 

LAST 

1330 

13,364/ 

03732 

1 



T-TO-AOO 



10<?2 

REF 

7 

LAST 

1330 

13 , 3650 

35101 

1 


STCALL 

TOEC 



1093 

RlF 

3 

LAST 

1330 

13.3651 

27305 

1 



TESTLOOP 
















1094 





13,365 2~ 

45345 


MI 02 

DLOAO 

DSU 



1095 

PEF 

0 

LAST 

1331 

13.3653 

01101 

0 



TOEC 



1096 

REF 

22 

LAST 

1327 

13.3654 

01517 

0 



TET 



1097 





13,3655 

45246 

0 


ABS 

OSU 



1099 

REF 

1 



13.3656 

27707 

1 



3CSECS 



1099 





13,3657 

77644 

1 


8 PL 




1100 

REF 

1 



13,3660 

27645 

0 



TIMETNC 




1101 





13.3661 

442 34 

1 


RTB 

BDS'J 

SEE IF 5.6 SEC! 

AVAILABLE TU CALLER- 

1102 

REF 

30 

LAST 

1331 

13,3662 

~4T510 

1 



LOAOTI ME 



1 10 3 

REF 

23 

LAST 

1331 

13,3663 

01517 

0 



TET 



1104 





13.3664 

51025 

1 


DSU 

BPL 



1105 

rW 

T~ 



13,3665 

27713 

1 



5.6SECS 



1105 

RtF 


LAST 

1324 

13.3666 

27176 

1 



s^pcttr 

YES. GET OUT. 



1107 





13.3667 

43345 

1 


OLOAD 

DAO 

NOf ADD TIMEDEL 

r TO T-TO-AOO AND TRY 

1103 

° EF 

4 

LAST 

1331 

13,3670 

03732 

1 



T-T0-6n0 

AGAIN* 


1109 

n n 

r\^r 


■■OST''1330 

03,1671 

‘27711 

0 



T I MEOc LT 



1110 

R E F 

5 

LAST 

1 3 3 1 

— 0,3672 

3773T 

0 


STCALL 

T-TO-AOO 



1111 

REF 

F 

1 *. O i 


13,3673 ■ ■ 

27645 

IF 






1112 





13.3 674' ■ 

' 7741'4 

TJ 

“SIOTTIRT 

CLEAR 

EXIT 

TUU LATE 


TTTT- 

— TFF 

4 

L' A sr 

1330 

— P,36T5 

046 74 

0 



MI 01 F LAG 



nw 

RFF 

6 

LA'S"F 

1330 

13,3676 '■ 

25' 1 2 / 



INCR 

IRETURNl 

SET EKRUK hXlI 

tCALLOC +2) 

1115 

RFF 


TTTSF 

TT9X“ 

13.3677 

0 5650 



~TU 

ALARM 

INSUPFICltNI JlMt PUR INItbRAIIUN — 

rnTT" 





13,3700 

OrTTiT 

~r~ 


~auj 

1703 

TIG WILL BE 

SLIPPED- 

1117 

■■ R-F 

"Z3T 

^ TFSF 

1325“ 

l?..3TDr 

0 6006 

r 


TU 

I N T P R E T 



ma 





0.3 702 ■ 

/ / /45 



DLOATT 




1119 



5" 

LAFT" 

1331 

1 3 t 3 T 0 3 

JTTTT 

0 



TI MrOE L I 



" 1120 

FFF 



1331' 

13.3 1^04 

■ 03T3? 

r ' 


STURL 

T-TU- ADD 



1121 





li.3 /05 “ 

7761 6 

0 


ITTQ 





rr?7 





IJ, 37075“ 

— OOOTJO' 

“F 

3CSEC5 

ZUtC 




nzz"' 





13.3/0/ 

00003 

“T 






1123“ 





0,3/10 

— OOOO'CT 

1 

TI M EDELT 

2 DEG 

1250 



iTZir 





oorrnr“ 

02 342 

0 






1124 





1 3 ,3 71 2" 

'TTOCrOF 

“T 

5V6SEC5 

2 DEC 

560 



1124“ 





13,3711 

01060 

0 






TTZ5- 





2 /.26 /I 




BANK 

2 ( 



1126 ' 

- -PTF 

— r 



2 7.2000“ 




SFTtTKT 

U P 0 ATE2 



1 1 27” 





— 2 / , 26 rr" 




BANK 




1 

; CC 

RET 

— r 



0330 ■ 




~EBANK= 

iNt^lAKUQ 


■ ■ ■ ■ ■■XU-- — ^ ■■■ - - 
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INTEGRATION I N I T I A(. I Z AT K’N 


USER'S PAGE NO. 2 A 


E? SJ 


1129 


REF 


1 


COUNT# $$/INTIN 


1130 


R EE 


0330 


INTWAKUO = 


INTWAKIQ 


TEMPORARY UNTIL NAM 


NTWAKIQ IS CHN 


1131 

1132 


27.2671 

27.2672 


0 0003 1 
0 0006 1 


INTWAKEU REL INT 

EXTENO 


1133 


REF 


LAST 1331 


27,2673 22 330 1 


QXCH 


INTWAKUO 


SAVE 0 FOR RETURN 


1134 


REF 238 LAST 1331 


27,2674 0 6006 1 


TC 


INTPRET 


1 135 

1136 


REF 


LAST 183 


27.2675 

27.2676 


53135 

01502 


0 

1 


SLOAD 


BZE 
UPSVFLAG 


IS THIS A CSH/LEM STATE VECTOR 
REQUEST. IF NOT GO TO INTWAKUP. 


1137 


REf- 


27,2677 


5673 o 0 


INTWAKUP 


1138 


27,2700 


77775 1 


VLOAD 


1139 


1 lB -0 
1141 


REF 

TgF 

RFF 


12 



LAST 1327 
LAST 1327 ' 

LAST 132 1 


27.2701 

27.2702 


01503 0 
25535 0 


STOVL 


27,2703 01 511 0 


RRECT 

ftCV 

VPECT 


MOVE RRECT (6 

RCV( 6 ) 


AND VREtT <6 
ANUVCV( 6 l 


I 

RFSPEUTT WLY. 


114 ? 


1 143 



LAST T 32 T 


27, 2704 

2 7 ,'?. JUS 


77624 1 
23436 T 




NOW GO TO 'RECTIFY +13 
STORE VRECriNTO VCV AND ZERO 


1 144 

1145 


27,2706 


n LI 




4 — last 1332 



51535 0 

“T 


RECTIFY + 13 D 
SLOAD ABS 


“TnELTA VT6T. TN 0VT'6T. T C 12 ) “AND 



UPSVFLAG 


ARE ABSOLUTE VALUE OF 'UPSVFLAG 

UPDATE MOONSTATE VECTOR 



1146 


27.2710 



U 


U 5 U 


11 47 

11 48 

1149 


RFF 


1 


■ref 


27,2711 

27.2 712 


16747 1 

567T7~U 


UPMNSVCi) 

TNTWA'KEfl 


TO DETERMINE “WHETHER THE STATE VECTOR 

rf updated is in the earth or lunar 






“V 





1150 

1151 



TT^ 




Ti 

“T 


lATT 1321 


27,?714 

TTTZTPr 


00000 I 


5 


^HERF DF 
EARTH SPHERE (II- INFLUENCE 



1153 

1154 


2 T-,TTT 6 

Trrrrn 



4 5 1 


s^nrmFLAG 

TNTW A KHT 

INTWAKEM AXTt^ StT 


LUNAR SPHERE Oh TIJFLUENCb. 


27 * 27^0 



RFF T 7 LA^T^OTZ 


TI 35 


7T7772T 

TTTTTTZ 


00002'~0 

0 T) 06 n 



Z 


501-^5 (T 


MOONFLTO^ 

SLO'AD — Em 


COMMON CODING AhlER X 2 INllIALUbU AND 
MUONFLAG SbHf’R LLtAKED) 


TTEZ 

riCT 



1164 


WE 


r 3 

“T 




7 


2 T 72 T 2 T 

0 



Zlj 

TTTTTTB 


01671 0 ” 
56734 I 


crF:AR“i;rrnT 


TTTTOWFLffG^ 

INTWAKPX 


rT 65 


rr^ 


FeF 3 LAST 1321 


7 T.' 2 T 3 T” 

T 7 TT 7 T 5 ~ 


rr&z^TT" TTrrvATCL^“CAir 


U P 0 ATE STTTTE VECTCTR 



ATGPLFM 


1167 


TT^ 


WE 12 LA5T 13'2'7 


27,2734 

2 7 , 7713 - 


776 1 4 1 TiTTWAK FX XTE AR 


02676 1 


RENOWFLG 


TT( 5 ^ 


TTTZTZ^ 45131 0 


S 5 R 


r^rr 


REMOVE ;UPnATF~ 5 TATE VECTOR 





■ ^ -ir 





+ « • mm ■ r~' 


GA^-- : 

ASSEMBLE 

REVISION 055 

OF AGC PRO 

GRAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. 1,1969 CHIEFTAN.028 

PAGE 1333 




L 

liMTFGRATIGN INITIALIZATION 





USER'S PAGE NO. 25 

EO S3 




1170 

REF 6 

LAST 1332 

27,2737 

01502 

1 


UPSVFLAG 





1171 



27,2740 

00000 

1 


0 





1172 

SEE 2 

LAST 644 

27.2741 

27455 

0 


INTWAKEO 

RELEASE :GRA6: OF ORBIT INTEG 




1173 



27,2742 

77775 

1 

EXIT 







117'^ 

REF 99 

LAST 1325 

27,2743 

0 5412 

0 

TC 

PHASCHNG 





1175 



27.2744 

04026 

1 

OCT 

0 40 2 6 





1176 

REF 3 

LAST 1332 

27,2745 

0 0330 

1 

TC 

I NTWAKUQ 






117? 



27,2746 

00002 

0 UPMNSVCD OCT 

2 





1 1 7 8 



27,2747 

00000 

1 

OCT 

0 






1170 





27,2750 

77420 

T GRP2PC 


EXTT" 




1130 

REF 

3 

LAST 

122 

27,2751 

03536 

1 


GRP2SVQ 




rm— 

REF 

100 

LA^T 

njT~ 

27,2752 

0 5 '4 r2“ 

0 

TC 

PHASCHNG 




1182 





27,2753 

04022 

0 

OCT 

04022 




1133 

REF 

239 

LAST 

1332 

27,2 754 

0 6006 

1 

TC 

INTPRET 




1184 





27,2755 

77650 

1 

GOTO 





1135 

REF 

4 

LAST 

1 333 

?! ,2156 

03536 

1 


GRP2SV0 
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^.BITAL INTEGRATION 


USER' S RAGE NO. 


eo S3 


(' 


ROOOl 


000 ' 


0003 


0004 


0007 


0003 

0009 


0010 


0011 

0012 


0013 


0016 


0017 


0018 
001 


o 


0020 

0021 


0022 


0023 

0024 

0025 


0026 


0027 

0023 

0029 

0030 

0031 

mJ2 

0033 


DELETE 


REF 



372 


BANK 



11.2372 


40354 1 KEPPREP LXA 


SETPD 



11.2375 


REF 


4 LAST 1323 


llt2376 

11.2377 



PBOOY 
0 

DLOAD^ SORT 


SQRTIMUJ (4-18 



+ lTf 




50042 

53515 


MUEARTH.2 



POVL 


UNIT 


^FF 


LAST 1332 


11.2400 


01535 0 


RCV 



REF 


LAST 1318 


11.2403 


00047 1 


11,2404 77715 1 


PDVL 


0036 

0037 

WTO 


0039 

ITWT 

■0W3 

11044 


0045 

0044 


U04T 

"0044 


0049 


0050 


11.2405 65241 0 


DOT 


7'E F 
REF 


POOL 
VTV 


F*SQRT(MU) (+7 nR+5) 4D 


PL 40 


REF 

RTF 


7 



TTZl 
lAST^TTFF 


11,2412 00051 0 


RFF 


W35 


RTF IT 


1334 


11.2413 

1X77474 

11.2415 

11.2416 

11.2417 

TITT^O 
11,2421 

,^77 
Tr.Z473” 
11,2424 

1X77423“ 
11,2 426“ 
11, 2427 

11.2430 

11.2431 


77742 


SRI 


FOOT 


41405 0 

OOOWT 


DMP 


F S ( +4 + N 1— 


457r4“0 
00005 



2{ Ml* 




4471470 


40 

FTTOO^ 


20R +2(N1-M2) ) 1 


TZO 


EARTH 


40442 T 

47515 0“ 
0T54X'T 



FOVL 



PRE ALIGN MU (+43 


TTD 



T 


REF 44 LAST 1334 


11,2432 

TT77453~’ 

1X77434“ 

1X77453“ 

Tl,2436“ 

I1T7437'" 


44205 0 
30045“7r 

O 

T 


TW 


“4050 


FTXX 




oov 


00003 

53 605 


T4iy 

OMF 

70“ 


PL lOD 


TT7F 


I 






23774 



20176 0 
437411 1 
00050 1 


XSU.I 


0 -3,T 

DAD 

51 


TTIX 


11, 2440 
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0357 





ll,314r" 

40055- 

0 

“ vm 

BOV 




REF 


TTTFT 

TTW 

1 1 f 3 1 4 2 

■■a22a?' 

0 


F V 



0359 

RFF 

— r~ 
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INSTEAD OF 5 FOR COEFFICIENT) 
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A03g'3‘ 
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0 -27a*l 
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11.3317 

22512 i 


ACCOMP 
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■ ^ ■ t i - ' 


049^3 
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R Sf*Ht K b 
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1 
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24 
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0 
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T75 74 

0 


2.2 








0521 
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13 
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0 
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11,3402 

53715 

1 
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0537 





“671 54 

0 

LXA.2 

SXA.2 








0533 

RFF 

7 

LAST 1346 

1 1, 3413 

02270 

0 


iTriCEx 








0539 

REF 

“25“ 

LAST 1325 

11 ,3414 

0 GO'S 2 

0 


OPRET 








0540 




— nrT4T5 " 

5 i? 0 1 

17“ 

8T)N 

GOTO 








0541 

REF 

30 

LAST 1346 

1 ] , 3 41 6 

00303 

1 


MO ONE LAG 








0542 

REF" 

2 

CSTT 1716 

IT7T4T7 

26735 

T" 


CLRMOOM 








0543 

REF“ 


"TMTTTI^ 

“ TT'. 3420 

?67'4Z 



sETMaon 











gap: 

ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 

2021113-051 

10:28 APR. 1,196P 

CHIEFTAN. 028 PAGE 1347 








L 

ORBITAL INTEGRATION 


USER'S PAGE 

NO. 14 EO S3 



P0544 

IHF RECTIFY SUBROUTINF IS CALLED BY THE INTEGRATION 

PROGRAM AND 

OCCASIONALLY BY THE MEASUREMENT I NCOK PUKA 1 I ON 


P0546 

ROUTINES TO ESTABLISH A NEW CONIC. 






0547^ 





11.3421 

77354 

0 

rectify 

LXA.2 

VLOAO 

0548 

P EE 

15 

LAST 

1345 

11 . ^422 

02150 

T" 



PBGDY 

054'^ 

REF 

12 

LAST 

1345 

11 , 3423 

01521 

0 



TOELTAV 

0550 





11,3424 

53257 

1 


VSLi' 

VAD 

0551 





11,3425 

57605 

0 



0 -7,2 


REF 

26 

LAST 

1346 

11,3426 

01535 

0 



RCV 

0553 

R E F 

14 

LAST 

1346 

11 . 3427 

01503 

0 


STORE 

RRPCT 

0554 

RFF 

27 

LAST 

1347 

11, 3430 

25535 

0 


STOVL 

RCV 

0555 

REF 

10 

LAST 

1344 

11,3431 

01527 

0 



TNUV 

0556 





11.3432 

532 57 

1 


VSL* 

VAD 

0557 





11 ,3433 

57'6“cT 

i 



0 -4,2 

0553 

WfF~ 

20 

last 

1346 

11.3434 

01543 

1 



VCV 

0559- 

R EF 

”T0“ 

LAST 

1346 

U.3“43“5 

■ 0T5Tr 

XT” 

TINT R EC T 

S X 0 £ 

VRECT 

0 56:) 

REF 

21 

last 

1^47 

11,3436 

25543 

1 


STOVL 

VCV 

0561 

REF 

17 

LAST 

1337” 

1 1.3437“^ 

11566 

1 



ZEROVEC 

0 562 

REF 

TT" 

LAST 

1347 

11,3440 

0T521 

0 


^TORT^ 

TDELTAIT 

0563 

REF 

11 

LAST 

1347 

11,3441 

155 27 

0 


STOOL 

TNUV 

056 4 

REE 

18 

“T'STT 

1 3 4 T~ 

11 . 3442 

“1X5^6 

1 



ZEROVEC 

0565” 


ni'o- 

TTAST 

1340 ■ 

11,344'3 

01551 



STORE ' 

c "r (T 

TC 

V 1/ rr 


0566 'TpF 3 LAST 1335 11,3446 01653 0 STORE XKEP 
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L 

GRPT TAL 

INTEGRATION 







USER* 

S PAGE 

NO. 

15 EO S3 




p65o8 

THE 

THREE DIFEQ ROUTINES - 01 

FEQ+0, OrFEQ+12, AND DIFEQ+24 - ARE 

ENTERFDTO 

PROCESS 

THE CONTRIBUTIONS AT THE 



R0570 

BFGINNING, MIDDLEr, 

AND FND OF 

THE TIHESTEP, RESP 

ECTIVELY 

. THE UPDATING IS 

DONE BY 

THE NYSTROM 

METHOD. 



0572 





1 1 . 3446 ” 

64575 

1 DIFEO+O 

VLOAD 

VSR3 








05 73 

REF 

9 

LAST 

1343 

11,3447 

02202 

0 


FV 








0574 

REF 

2 

LAST 

89 

11,3450 

36166 

0 

STCALL 

PHI V 








0 57 5 

r?f“ 

1 



11 .3451 

23626 

1 


OlFEOCOM 








0576 





11,3452 

74575 

0 OIFEO+1 

VLOAO 

VSRl 








0577 

REF 

10 

LAST 

1. 3 4 8 

11.3453 

02202 

0 


FV 








0578 





11.3454 

532 06 

0 

PUSH 

VAD 








0579 

REF 

3 

LAST 

134 8 

11,3455 

02166 

1 


PHIV 








05 30 

RTF 

2 

LAST 

89 

11 , 3456 

26174 

1 

STnvL 

PSIV 








0 5 0 1 





11 .■’■457 

53362 

0 

VSRl 

VAO 








0582 

RFF 

4 

LAST 

1348 

lit 3460 

02166 

1 


PHIV 








0 5 83 

REF 

5 

LAST 

1348 

1 1,3461 

36166 

0 

STCALL 

PHIV 








0554 

fTF 

7 

LAST 

1348 

1) ,3462 

23626 

1 


DIFFOCO-^ 








0585 





11 , 1463 

57345 

1 L)IFEQ + 2 

OLOAD 

OMPR 








05 36 

PFF 

4 

LAST 

1 345 

1 1 ,3464 

022 12 

1 


H 








0587 

PEF 

2 

LAST 

1334 

11 , 3465 

23774 

1 


DP2/3 








058R 





11,3466 

742 06 

0 

PUSH 

VXSC 








0589 

REF 

6 

LAST 

134f< 

11 , 3467“ 

02166 

1 


PRTV 








0590 





11 , 3470 

53372 

1 

VSLl 

VAD 








0591 

REF 

2 

last 

1345 

11 . 3471 

01120 

0 


ZV 








0592 





1 1 ,34^2 

53361“ 

0 

VXSC 

VAD 








0593 

REF 

5 

LAST 

1348 

11 ,3473 

0 2 2"1 2 

1 


H 








05 94 

R £ F 

4 

LAST 

1345 

11,3474 

01112 

1 


YV 








05 ^^5 

REF 

5 

L AST 

134:3 

11,3475 

2'51T2" 

ir~ 

STOVL 

TV 








0596 

RTF“ 

11 

LAST 

1348 

1 1,3476 

02202 

0 


FV 








(JW7 





11,3477 


1 

VSR3 

TTD 








05 <^'8 

n^EF" 

■ 3 

LA^T" 

134B 

11,3500 

UJTTTT 

1 


PS TV 








0599 





11,3501 

— 76561' 

1 

VXSC 

VSLl 








0600 





11,3502 

TTFFT 

1 

VAD ' 









0601 

REF“ 

T 

LAST“T3T8 

1 X f 3 0 3 

“07120 

0 


Z V 








0602 

RTF" 

4 

L A s r 

1348 

1 1,3504 

01120 

0 

STORE 

Z V 








^ TOOT 





11,3505 

45014 

a 

“Btn=T 

Call 








— ^^TO04 

RFF 

T 

LAST 

1345” 

11,3506 

00341 

“T 


J S W 1 1 C H 








0605 

R !7 F 

1 



11 ,3507 

23557 1 


ENDST ATE 








0606 

REF 

25 

LAST 

i32X- 

TT735T0 

56750 

0 


G^F^C 








060-7 





TT,T5TT 

773 54 

0 

7XA7 F 

TTUOAO 








OoO& 

R E F 

2 

LAST 

78 

11,3512 

— 01102 

0 


COLREG 








06W 

TEF 

5 

TATI 


11,3513 

01X20 

0 


Z V 




ri — 




m>TW 





ITTTTTF 

7773 2“ 

1 

“ VSt3 " 


AUJUSI W-H 

'Ti S I T 1 01 

FOR 

STORAGE 



06U 

TEF" 


"“OTT" 

1 2TS~ 

11.3515 

72 4 67" 

"1 

ST OR E 

W +540,2 








TOT 2 





1 1 f 3 S 1 6 

“ 77775 

I 

VLIJAD 









06rT 

R E r 

T' 

LAST 


■'IT'.TSTT 

“ 0117 T 

T - 


TT 








0614 





11,3520 

40132 

0 

VSL3 

“Forv 








0615 

FEF 

r 



— rr,"i57T 

23 6 51' 

1 


W MAT END 








0676" 

RTF" 

“ 7F 

L AST' 

"1348 

TlGTOFr 

1 74“0 1“ 

“T 

STORE 

W * 2 

























06T7" 





T 1 f 55 2 3 

77S?it 

1 

^XTitr * 









O^TT 

“ ‘TFF 


TXST" 

1348 

11.3 524“ 

5 67 7>0 

0 


GR^2PC 
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L 

OReiTAL tNTPGRATlON 

USER'S PAGE 

NO. 16 

EO S3 


0619 





11,3525 

66354 

0 


LXA,2 

SSP 


0620 

REF 

3 

LAST 

1343 

11,3526 

01102 

0 



COLREG 


0621 

REE 

36 

LAST 

1340 

11,3527 

00052 

0 



S2 


0622 





11,3530 

00000 

1 



0 


0623 





11 ,3531 

67114 

1 


INCR.2 

SXA,2 


0624 





11,3532 

00006 

1 



6 


0625 

REF 

1 

LAST 

1343 

11 , 3533 

Ollll 

1 



YV 


0626 





11,3534 

45104 

0 


TIX,2 

CALL 


0627 

R EF 

1 



11,3535 

23622 

0 



RELOADSV 


06 2B 

REF 

27 

LAST 

1348 

11,3536 

56750 

0 



GRP2PC 


0629 





11,3537 

671 54 

0 


LXA.2 

SXA.2 


0630 

REF 

8 

LAST 

1349 

11,3540 

Ollll 

1 



YV 


06 31 

REF 

4 

LAST 

1349 

1 1 ,3541 

01102 

0 



COLREG 



0632 





11.3542 

77624 1 

NEXTCOL 

CALL 




0633 

REF 

28 

LAST 

1349 

11, 3543 

56750 0 



GRP2PC 



06 34 





11.3544 

76754 0 


LX A, 2 

VLOAO* 



0635 

RFF 

5 

LAST 

1349 

11,3545 

0110? 0 



COLREG 



0636 

REF 

72 

LAST 

1348 

1 1,3546 

75376 1 



W,2 



0637 





11,3547 

,'■77 22 0 


VSPT 


ADJUST W-PmTTTUFTFGR INTEGRATION 


0638 

REF 

Q 

LAST 

1349 

11,3550 

01112 1 


STORE 

YV 








11 , 3551 

76173 0 


VLOAD* 

AXT, 1 



0640 


“7T" 


1349 

11,3552 

■ TFniT 1 



W ^-540, 2 ' 



0641 





11,3553 

00000 1. 



0 



0642 





11,3554 

77722 0 




ADJUST W-VELOClTY FOR INFEGHAIIUN 



REF 

6 

“LAST 

T343 

1. IT f 3 *5^3 

“15121 IT 


STCALL 

TTV 



0644 

REF 

1 



ll,355f7' 

23305 0 



DI FEQO 




0645 





11 ,"3’557“ 

772 00 0 “ 

FATOSTATF 

BDV 

V1DAD 



0646 

o c c. 

— T~ 

LAST 

1343 

11,35'Sir 

22762 1 



GOB AQU E 



064 7 

— 

“ T~ 

TTAFT 

jjTfcr- 

ri,3F6T“ 

01121” 0 



Z V 



0'6'4B 

“7TFF 

12 

LAST” 

1347“" 

1 1T3562 

2 5 5 2T“0 


smvi 

TNUV 



0649 

RFF" 

10 

last 

134^ 

\ 1.3563 

01112 1 



Y V 



0650 " 

REF 


"I'AST' 

1346 

~Tr77564~ 

01521 0 



~TDELT AV 



0651 





11,3565 

430'14"“Tr” 


BON 

BOFF 



0652 

REF ■ 

T~ 

LAST" 

1330 

11,356S 

04 715 0 



M I 0 A VFLG 



0653 

FEF“ 

1 



“TT77T5T 

27633 1 



C K M I D 2 

CHECK Fur M1D2 BEFORE GOING TO TTMtlNC 


0654“ 

^ c h 

21 

“LA“5T 

133 8 

11,35 70“ 

01756 1 ■ 



TmoFrAi” 



06'5'5~ 

REF ■ 

F" 

LAST 

1340 

11,3571 

27305 1 



f F S I L LI □ P 



0656 





■I1,3FT2^ 

If / /b 1 


F X 1 I 




“ ■D'657 

REF 101 ' 

LAST 

1333 

ll,3573‘ 

0 5412 ~(r~ 


TC 

P H A SC H NG 









”1171574" 

04022 0 


an 

04022 

Phase i 


0659 

RFF~ 

53 

"irAsrrT3 2 o“ 

rTVT5T5~ 

0 5546 0 


1 c 

U P F L A G 

PHASE Chang^ HaS ULCukkELi BETWEEN 


06613 

— RFF” 


LAS 1 

T320" 

— n, /t5 /6 

00236 0 


ADR E S 

REInTFLG 

INTSTALL AND TNiWAKE 


066T 

P EF 


LAST 

1333 

11 ,35 77' 

0 6006 1 


TC 

"17) I I^FT 



~ 0662 





— n ,3 601 }” 

7773T T“ 


“SST^ 




0663 — 

REF“ 

“76r 

“CAST 

I346~ 

1 1 . 3'6'ITI 

000“53~1 



OPRET 



0664“ 

PFF“ 

T" 



11,3602 

21607 1 



AMOVED 



0665 





11 ,3o03 ■ 

52014 O'" 


lUN 

GPin 



0666 

PFF 

“20 

L AFT 

“T3ZF 

— 11, 3604 

“ OTTIFI 



“VTNTF L AG 
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L 
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integration 






USER'S PAGE NO. 17 FO S3 


0667 

REF 

4 

LAST 1332 

11,3605 

26705 

1 


ATOPCSM 


066 3 

3EF 

4 

LAST 1332 

11,3606 

26760 

1 


ATOPLEM 


066<^ 




11,3607 

66214 

0 

AMOVED SET 

SSP 


0670 

REF 

4 

LAST 1348 

11.3610 

00061 

0 


J SWITCH 


0671 

RFF 

6 

LAST 134Q 

1 1,3611 

01103 

1 


COLREG 


067? 




1 1,3 612 

77741 

0 

DEC 

-30 


067^ 




11.3613 

66 214 

0 

BOFF 

SSP 


067'4 

n r p 

7 

LAST 1328 

11,3614 

01755 

1 


D60R9FLG 


067S 

FF 

1 


11,3615 

23542 

0 


NEXTCHL 


0676 

REF 

7 

LAST 1350 

1 1,3616 

01103 

1 


COLREG 


06 77 




11,3617 

77717 

0 

ntc 

-48 


0673 




11,3620 

77650 

1 

GOTO 



0679 

REF 

2 

LAST 1350 

11,3621 

23542 

0 


NEXTCOL 













0680 




11.3 622 

77745 

1 

RELOADSV OLOAO“ 


reload temporary STATE VECTOR 

0681 

REF 

Q 

LAST 1331 

1 1,3623 

01101 

0 


TDEC 

FPQM PERMANENT IN CASE OF 

06P? 

REF 


LAST 1330 

11, 3624 

34041 

0 

STCALL 

TbECl 


06 33 

REF 

1 


n . 3625 

27167 

1 


INTFGRV2 

BY STARTING AT INTEGRV2, 

06 34 




1 l, 3626 

433^ 

1 

OlFEOCOM OLOAD 

DAD 

increment m and oifeqcnt. 

0635 

Wf 


LAST 1336 

11,3627 

^3 1 4 

0 


DT/2 


0636 

RFF 

6 

LASI 1348 

1 1,3 630 

(}22iT 

] 


H 


06^ 




11,3631 

6'6TT(r 

IT 

I NCR , ! 

SXA, 1 


0683 




11,3632 

77763 

0 

C)£C 

-12 


068 9 

REF 

25 

LAST 1345 

n , r63 3 

01500 

0 


TTlFFOCTsTT' 

DIFEOCNT SFF FOR NEXT ENIKY. 

_ ^ ^ w mi\m -mr- - ■ - --,■■■ ■ — ■— — J = 

069? 0 

^.FF 

7 

LAST 1350 

11,3634 

02212 

1 

STORT 

H 


0691 




11 , 3635 

74 5 61' 

0 


VSRl 


069? 


TT 

LAST 1348 

— U.3636 

(jTzrrr 

ir 


F V 


0693 




lT,^33rT7 

T4?55" 

“0 

V75D' 

VXSC 




8 

LAST 1549 

1 1 , ?'54'0 

0ll20 

0 


7V 


06 95 

r'ef 


last 1350 

— 11,3641 

02212 



H 


0696 





77655' 

“T 

¥40“ 



06 9 

R FF 

11 

LAST 1349 

11,3643 

d 11 1 2 





06 G 3 

REF'^ 

41 LAST ■I37i:5^ 

11771744 

02152 

0 

STORE 

ALPHAV 


(J6W 




YTVJU^5~ 

5201^ 

0 



GTrm 


0700 

REF 

“5" 

LAST 1350 

1 1 , 0 6 4 6 

00301 

0 


JSWITCH 


fJToX 


2 

LAST 1345 

11,3647 

23665 

0 


ITW, . 


07712' 


1 


rT7i^5Tr 

ZZ^JT 

TT 


f 3P3 



0703 




11,365 1 ■ 

41TTI'4 0 

WKTrTFND “CCFAP 

"CtFAH 


0704 

~RFr 

22 

LAST 1349 

11,3652 

01676 1 


DI MOFLAG 

DON! TNTtGKATF W THIS TIME 

0T<T6 

D'TTfT- 

» V u. » 


LAST 1332 

1 1 , 3777"^ 

“"757 671" T 


OHBWPL AG 

INVALIDATE W 

0709 




'IT , 3 'T34“ 

TT614 1 

CTTA^ 



UT77 

rff 

~TT~ 

LAST TTZl — 

i 1 , 365 5^ 

— 02676 1 


R E N D W F L G 


OTaR 




rr,T654 

“"T74T7"T5 

St 1 

F X TT 


0709 ■“ 

PFF 

7 

“CAST 1323 

11, 3 65 7 

— 014T2"T 


S I A I E F LG 

PICK UP STATE VECTOR UPDATE 

OTT^ — 

R 9 r- 

"FTT" 

LAST 1331 

n ,366'0"“ 

0 5650 TT 

TC 

ALARM 

- — — — 1 - - — ■ B ■ .■ — II ^ — — ■ “ 

OTTT 




1 1 , 3661 

DD-ATI 0" 

OCT 

”421 


UTTP 


241 

LAST 1349 

“IT, "1669 

“0 WTS I 

Txr~ " 

INTPRFT 
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L riRRITAL INTEGRATION 





USER’S PAGE 

NO, 18 EO S3 




071? 

11*3663 

776 

60 1 

GOTO 





0714 REF 6 LAST 13A9 

11 ,3 

27? 

05 1 

TFSTLOOP 

FINISH INTEGRATING STATE VECTOR 

- ^ -IJ 








II 










1 


GAP 
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ORBITAL INTEGRA! ION 


USER’S PAGE NO. 19 




P0715 

ORSITAL 

ROUT IN 

E FOP 

EXTRAPOLATION OF 

THE 

W MATRIX 

. IT COMPUTES THE 

SECOND DERIVATIVE OF EACH COLUMN 

POSITION 


R0717 

VECTOR OF THE 

MATRIX 

AND CALLS 

THE NYSTROM INTEGRATION 

ROUTINES TO 

SOLVETHE 

DIFFERENTIAL EQUATIONS. 

The program 


R0713 

USF s 

A TABLE OF VEHICLE POSITION VECTORS 

COMPUTED 

DURING THE INTEGRATION OF 

THE VEHICLES POSITION AND VELOCITY. 


0721 





11.3565 

707 54 

0 

DOW. . 

LXA,2 

OLOAD* 





0722 

REF 

17 

LAST 

1 347 

11 , 3666 

02150 

1 



PBODY 





0723 

RFF 

7 

LAST 

1340 

11.3667 

50042 

1 



MUEARTH.2 





072 4 

^EF 

4 

LASt 

1339 

11.3670 

36210 

1 


STCALL 

BETAM 





0725 

REF 

1 



11.3671 

23713 

0 



D0W..1 





0726 


13 

laTF 

1350 

11 .3672 

02202 

0 


STOR^ 

FV 





0727 





11,3673 

62014 

0 


BOF 

IMCR.l 





0728 

REF 

6 

LAST 

1344 

11,3674 

00342 

1 



mioflat; 





0729 

R - F 

2 

L^ST 

1341 

11.3 67'^ 

“T3^20 

0 



NBPANCH 





07 3 0 





11,3676 

77771 

0 


DEC 

-6 





0731 





n , 3677 

70744 

1 


LXC .2 

DLOAD* 





0732 

REF 

13 

LAST 

1352 

c 

o 

0 2 1 50 

1 



PBOOY 




■- - — T ■- ■ IM., - - — ■^= 

0733 

REF 

p 

LAST 

1352 

11 , 3701 

50044 

1 



MUFARTH -2 

,2 




0734 

RFF 

5 

LAST 

1352 

11,3702 

36210 

1 


STCALL 

BETAM 





0733 

Rcp: 

2 

LAST 

1352 

11.3703 

■ 2 37l'3' 

0 



D0W..1 





0736 





11,3704 

50414 

0 


BON 

VSR6 





073 7 

R F P 

31 

LAST 

134o 

11. 3 7 03 

00303 

T~ 



MGONFL AG 





0733 





1 1 , 3706 

23707 

0 



+ l 





0739 





“ U ,3707 

77655 

1 


VAD ■ 






07'^0 

REF 

14 

LAST" 

13 52 

11.3710 

0220? 

0 



FV 




... 

0741 

REF 

15 

LAST 

1352 

11,3711 

36202 

1 


STCALL 

FV 





0742 

REF 


LAST 

13F2 

1 1,3712 

23220 

0 



'“TjGRANCH “ 





0743 





11.3713 

60575 

(T~ 

D0W..1 

VLOAO 

VSR4 





0744 

REF 

42 

LAST 

1350 

11,3714 

02152 

0 



ALPHA V 





0745 





Il.371’5 

53513 

0 


POVL*“ 

UNIT 





0746 

PEF~ 

9 

last 1556 

^r7T7T6 

0221^ 

1 



VECTAB , 1 





0747 





11,3717 

46315^ 

1 


POVL 

VPROJ 





0T4“B“ 


43 

LAST 

1352 

n .3 7717 

02152 

0 



ALPH AV 





~ ■ T) 749 





U, 3721" 

523 6T 

1 


VXSC 

V5U 






0750 rTF 5 LAST 134A 1 1 » 3 7 2 2 23764 0 3/4 


07RT 11. 3733 6032' 0 POOL MUKM 

0752 rr7TT2^i^ TTOO^^ 0 36D“ 

0753 TT LAST 1349 I 1 , 3725 0 00 5? 0 

075^ n . 3 7 :T6 63405 0 ^ PUSFT “ 17 W 

=^755 — rm^Tl TTSTTS' r TmP^ ^ 

“0756 TTTT?TO 65301 0 POOL 

"7)T5 2 11.3731 aTT043 V 


075?r 


0750 

0760 


TTPn: 


0 76 2 
717631 
TTT64: 


0775 

07776 



7^^ 


5 LATST 


^TcT 


T5 — LAST 1352 


TT6F 7T5 LAST 1352 


n , 

n 



— T 

» j 




ri7 

TT7 


TTT4 



1 1.3 736 

TTT ,'37 37 
Tl. ,3740 

TT 


TTTTT 



TTT 

1 1 . 3747 


07710 “ 0 
56342 


T 

T 


T71 54 

00051 


0 


T71 

VXSC 

LXAtZ 


OOXJ5T 
5 f{) /4 
00051 


TT 

TT 


O 

o 


00042 

47477 


O 


vst^ 


HTTW 


007 


XAD.T 



2 XTUJ 


■1^ 


740 

7\ro 
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L 

ORBITAL INTEGRATION 





USER'S PAGE NO. 20 

EO S3 


0768 


11,3744 

57o06 

0 


0 -30,2 


07S9 

REF 1 

11.2000 




SFTLOC ORBITALl 


0770 


1 1 , 3 74 5 




BANK 



0771 


11.3745 

04631 

1 

3/5 

2DEC .6 B-2 


0771 


11,3746 

23146 

0 




0772 


11.3747 

14000 

1 

THREE/8 

20EC ,375 


07 72 


11,3750 

00000 

1 




0773 


11.3751 

02314 

0 

.30 

20EC .3 B-2 


0773 


11,3752 

31463 

1 




0 7 74 


11,3753 

01400 

1 

3/64 

2 DEC 3 B-6 


07/4 


11.3754 

00000 

1 




0775 


1 1,3755 

10000 

0 

OPl/4 

2DEC .25 


0775 


11,3756 

00000 

1 




077^^ 

REF 3 LAST 1302 

11.3755 



nOUARTER 

EQUALS DPI /4 


077 7 

REF 4 LAST 1353 

11.3755 



pasi/4 

EQUALS DP 1/4 


0773 


11,3757 

03 000 

1 

3/32 

20Er. 3 B-5 


0778 


11.3760 

00000 

1 




077 7 


11 , 3761 

36000 

T 

15/16 

2DEC 15. B -AT ■ 


0T7^ 


1 1 .3762 

ooooo 

1 




0780 


1 1,3763 

30000 

1 

374 

2DEC 3.0 8 -2 


DTFcT 


11,3764 

00000 

1 




0781 


11.3765 

2 2 52 5 

75 

7A2 

2DEC .5833333333 


0731 


1 1 . 1766 

12525 

0 




0T32” 


r r ,3767 


nr 

~^ni> 

2 DECT" 9 6-4 


0 / J2 


1 1 ."3" /TO 

owo rr 

1 




unr 


11.3771 

01200 

1 

5/128 

2 DEC 5 B-r 


0 783 


11,3772 

OTJOW 

n“ 




0/34 

TTFF r? LAST 1347’ 

04.'3'5f.5 



DP z cR n 

EQUALS ZERDVFC 


07^5 


11,3773 

25252 

0 

DP2 /3 

20EC .6666566667 


07 85 


T1TT7T4^ 

2 5 R 53 

I 




0T86" 

“FTEF"" ^ LAST 1340 

n . 3TTJ 



”273 ' 

EQUAL S“'D’’2/T' 


0757 


11,3775 

0002? 

1 

nCT27 

□c T ?7 


P 0 /HB 

CTToO^ TS" TFHPORARV 







Cr7BT“ 


T34T7T4 




BANK '13 


D7W 

■RFF 1 

13.2000 




5ETL0C ORBIIALZ 


(rrrr 


13 , T7T4 




BANK 


R7rr32“ 

TT' TS VTTAL THAT THF 

FnunWTHTT" 

1 11 i\j' 1 i 


rs NOT BE SHUFFLED 


DTTT 


13,3 7 1 7f 

TTTSTT 

i 


DEC 


0704 


13,3 715 

/ / / / 6 

“T“ 


DEL “2 


07^5“ 


1 3 , 37TT 

777 66 



DEC ■ ■ - 


0/96' 


13,3/1 / 

/ / / / 1 

0 


DEC — 6 


0 / 7 


13 . - 

TTTT5“ 

T 


DEC -2 


07^8 


13. 3721 

f f { ! :> 

1 


DEC 


0 / 9 9 


13,372? 

1K5T1W 

1 


DEC 0 


■ asocr 


I 3 . 372 3 

77 7 6 3 

TT 


DEC -r? 


“ — — 0 9 or 


13,1724 

77 766 

nr 


"DEC -7 ' 


0802 


13,3725 

TTTTT 

1 


U EL — 4 


cmcB 


1 8,3726 

77770' 

r 

A SC AL E 

DFC -7 


0 8 9 A 


T3TT7TT 

T777T 

O' 


DEC -6 
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ORRIT/M INTEGRATION 


USER'S PAGE NO 


21 


EO S 3' 


0.:"05 


I?, 3730 


274A6 1 


2DEC=^ 1.3271 5445 E16 B-54* 



0806 


13,3733 


01352 1 


3.986032 ElO B-36^ 



0P03 


13,3736 


00000 


20EC 


0803 


13.3737 


00000 1 


080 


13,3740 


02302 1 J4RE0/J3 20F.C^ .4991607391 E7 B-26=f= 


0809 


13,3741 


0810 
0 810 




•^r 


13.3742 

13.3743 


24736 0 
77 6 51 0 
76237 0 




176236.02 B-25 


08 11 


13,3744 


77776 1 2J3RE/J2 2DEC=<' 


.1355426363 E5 


27=«' 



0812 


13,3747 


081 3 

0313 


13,37150 

13,3751 


053^4 1 
13710 0 
35320 0 


T2RE0SQ 2DEC=<^ 1 .75501139 E21 B-72^ 


081 


0814 
081 5 


13.8752 

13.8753 


12160 0 
12124 0 


3J22R2MU ZDEC’^' 


T0479T541? 



0816 

0817 


RTF 


LATT 1T5? 


13,3757 
1 j,3732 


63145 1 


TOM 


081F 


13,3760 


002 43 


I" RECRATIO Tore 


MUEARTH -2 

TDl 


0818 

0819 


1 3,3761 

1 8,3762 


■OFT 


0820 

OB2 0 


TTTTTTTB 
13, 3764 




64 3 73. 76~"r3 B-2<r 



"TOM 








0 821 
TTTZF 


3TT7^ 
1 8.8767 


04627 "TT PUT 



i?n46T.7a E3“~B- 




0874 


00X6 

XTTTT 


RATT 
"VATT 


FOUTTCS 



“nnrr 


08 2 5 


IT0T7 


0326 




0827 


032 3 

TyT29' 


003 2 

TTiTATT 


VATTl 

TOTFT 


EOUALS 
"E0OTL3 T4I1 
FOUALXZDTO 




tttf 


EQUALS 2T3 
FUUATS T2F 
EOUALFT TXa 



0830 

'OTTr 

0312' 


RFF 


6 — LAST 134'3‘ 


(5TT2T 




URPV^ 

CnSPHI/2 hOUAT 
Ur”" EQUAL 5 TOO 

TVFF EQUALS D 
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L 

INFL IGHT 

ALIGNMENT ROUT I Mr s 


USER’S PAGE 

NO. 1 

EO S3 




0001 


22,3510 

BANK 22 






0002 

REF 1 

23,2000 

SETLOC INFLIGHT 






0003 


23,3205 

BANK 















0004 

REE 34 

LAST ei3 E5,167I 

EBANK= XSM 




- I- 




R00:)5 


CALCGT4 COMPUTES TH 


YKO TOROUF ANGLES REOUlREDTiy 3P TNG THE STABLE MEMBER INTO THE DESIRED OR I ENTAT I OF! 


R0007 


Rooog 


ROOlO 


ROOT 2 


OTTTT 


001 ^ 

001 S 


0 017 
WITT 



TT07Z 


0023 


0 0 





002^ 

'UUZ^ 


TTTm 

Tmrr 


TTUTZ 

TyTTTT 




T5TTT5 

TTTHo 


0 03 7 


TTOTT" 

003'^ 


0041 


THE INPUT TS THE DESIRED STABLE MEMBER COORDINATES REFERRED TO PRESENT STABLE MEMBER CQORDt NATES* THE THREE 


HALF-UNIT VECTORS ARE STORED AT XOCt YDC, AND ZOC 


TH^ OUTPUTS ARE THE THROVE GYRO TQ'^QIJING ANGLES TO BE APPLIED TO THE Y* T~* AND X GYROS AND ARE STORED DP AT IGCt 


MGC 


OGC RESPECTIVELY. 


W¥ 


1 



777TWLT 


23,3205 


E F 
RT'F 


^ LAST 1352 


lAST 




■ ■ 

V 


TTTF TO^LAST 1250 


23 ,3206 
2 3,3^1)7 
23, 3210 
2 T, 3 211 


712 20 I CALCGTA 

00051 0 


TTTT 


DLOAD 


52 


7 LAST 





T 


23,3~2TT 

22,3213 

2 3,32X4 


027 lA 1 

65325 0 

15 135 O' 


02 720 


POOL 


XOC 

POOL 

I 6 Zr-R 0 S 


PUSHDOWN 

00-03 

Tree 

XOC = (XOl 

X02“ 

XD3) 

YUt ^ (YDl 

Y02. Y03I 

lOC = (?Dl 

Z02 

ZD3) 


XOC +4 



Z' . 9 





EE 


2 LAST 1355 


23,3216 


55476 1 

77^6 T 

14027 T 

00027 1 


mroMP 

UN I T 
STODL 


ZPTTPrF 

IPPim 


UNITF-XDT 0 XDll 



77742^ 


5 RT 


REF 

TFT 


To 


LAST 1240 

TTST TT5F 


23, 3220 





14023 0 

00033 T 
^7742 0 


STODL SI NTH 


SINdGCy = 7351 


7P3TTHF“+4 



TFT 


5 


LAST 1240 

17S5T nTFT 


23, 3223' 

T4 



34021 0 

47256 0 


STCALL COSTH 





) = 7P3 



ITTF 



T 

R 



5T7 


LAST 1 3 T 5 


23,3225 

7r;T7TS 


1676r"n' 


STODL rise 


Y GYRO TOkOUlNG ANGLE 


FRACnUN UF KbV 


K 


FF 

TEF 


TT 



LAST 1355 


1 3 5‘' 


ZT, 327;' 
ZTTTTZe 

2T,T323T 


02716 TT 
7 7 7 42 O 


XOC +7 


14023 0 

DTDTT^^l 


S lUDL 


STNTPr 

ZFRTME 


SIN(*^GL) = XU2 


TFF 


RTF 


5 LAST 1355 
T ” T AST T3T5 


23, 3232 

774TTTT 

74 737 


65205 O' 

027ZTr"0 



XTTC +4 
7PR T^r”4F4 


PTKK) 


(/PI)CXU31 


2 3,3 23 5 


TTEf rO FAST 13TT 



4 5205 n: 
TTZTTT*! 


DT»rP“ 


iTSir 

imc 



xmr 


FF 

FF 



rSST 1335 


2’. »3?4T 


43745 “T 
472 56 3T 


STCALL COSTH 

^ 4tjrTR 10 


COS(MGC) = MPAC 
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L 

I NFL 

IGHT 

ALIGNMENT 

ROUTINES 





USER'S PAGE NO. 

2 t5 

S3 





0043 

4FF 

3 

LAST 

537 

23t3242 

26764 

0 

STOVL 

MGC 

Z GYRO TOROUING ANGLE 

FRACTION 

OF 

REV. 



0044 

RFF 

6 

1 AST 

1355 

23 T 3 243 

00027 

1 


ZPRIME 







0045 





23. 3244 

776 41 

1 

DOT 








0046 

REF 

5 

LAST 

741 

23,3245 

02730 

1 


7 DC 







0047 

REF 

11 

LAST 

1355 

23.3246 

2 4021 

1 

STOVL 

CQSTH 

XGS(OGC) = ZR . ZDC 






0048 

RFF 

7 

LAST 

1356 

23,3247 

0M^2 7‘ 

1 


ZPRIME 







0 04 9 





23, 3250 

77641 

1 

DOT 








00=50 

REF 

5 

LAST 

741 

23»3251 

02722" 

1 


YOC 







OOSl 

PEF 

12 

LAST 

1355 

23,3252 

34023 

1 

STCALL 

SINTH 

SIN(OGC) = ZP . YDC 






00=^? 

PEF 

7 

LAST 

1355 

23»3253 

47256 

0 


ARC TRIG 








0053 

RFF 

17 

LAST 

750 

23,3254 

36760 

0 

STCALL 

OGC 

X GYRO TOROUING ANGLE 

FRACTION 

OF 

REV. 



00"^4 

PFF 

f\7 

LAST 

1355 

23,3255 

00051 

0 


S2 







gap: 
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OF AGC PROGRAM COMANCHE BY 
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1357 



L 

INFLIGHT 

ALIGNMENT ROUT i NFS 




USEP‘S PAGE NO. 3 E5 S3 




R0053 

ARCTR IG 

COMPUTES AN 

angle GIVEN 

THE SINE AND COSINE OF 

THIS ANGLE. 





ROOSS 

THF 

INPUTS ARE SIM/4 

ANO COS/ 4 

STORED OP AT SINTH AND COSTH. 
















T H 

nUTPUT IS THE CALCULATED ANGLE BETWEEN +.5 

AND -.5 

REVOLUTIONS 

AND STORED AT THETA. THE OUTPUT IS ALSO 



R0059 

AVAILABLE AT MPAC. 




















0060 




“2173756 

51545 1 ARCTR IG 

DLOAD 

ABS 

PUSHDOWN 160-210 



0061 

REF 

13 

LAST 1356 

23.3257 

00023 0 


SINTH 




0062 




23.3260 

50025 0 

nsu 

RMN 




0063 

pTF" 

_ 


23.3261 

07474 1 


QTSN45 

ABS(SIN/4) - SIN(45)/4 



0064 

REF 

1 


23,3262 

47271 0 


TRIGl 

IF (-45,45) OR (135,-135) 





0065 




23,3263 

72545 0 

DLOAD 

SLl 

(45,135) OR (-135.-45) 



0066 

RFF 

12 

LAST 1356 

23,3264 

00021 1 


COSTH 




0067 




2 S, 3265 

75326 V 

ACOS 

SIGN 




0068 

RFF" 

14 

LAST 1357 

23,3266 

00023 0 


SINTH 




0069 

REF 

7 

LAST 1240 

23, 3267 

00025 0 

STORE 

theta 

X = APCCO^ICCTST WITH STGNTSTTTl^ 



0070 




23,3270 

776 160 

RVO 







tttjtt 




23.3271 

72545 0 TRIGl 

DLOAD 

SLl 

(-45,45) UR (135.-135I 



00/2 

RTF" 

i 5 

LATT 1357 

23,327'2 

O0O23 0 


SINTH 




aOTT 




“Z3 ,TZ7 5 

TT736 0 

A~ST?r“ 





TOTT 

RTF' 

fi 

. 1 

LAST 13 57“ 


14025 0 

STOOL 

THETA 

X = arcs IN( SIN) WI IH SIGN! SIN) 



0075" 

RTF“ 

~TT" 

LASI 136/ 

23,32^5 

00021 1 


CDSTH 




0TTT6" 




2 3 r3 276 

77640 0 

Efwr 





DTTrr 

FFT 

— r 


22,3Z77 

47302 0 


T P I G2 

IF (135,-135) 














0078 




23V3 30n ■ ' 


DLOAD 

WO 




UU7^ 

> 4^ 1 

5“ 

LAST 1357 

23;«7)'I 

00025 0 


THETA 

X = ARCS IN ( S i N^) 1-45.45) 















ourrr 




23,3302 

75345 I TR1G2 

DLOAD 

SIGN 

13!>f 



OOTT 

RTF" 


LAST rZ4^ 

23',33"0 3 

15333 0 


Hi DPH A LF 




0082 

■”T?FF 

TTFT 

LASI 1357 

"2^,3804 

00023 0 


SINTH 




oo^ 




23,'310b 

■7T6TF~0 

— rrsD 





0nw 

RTFF’ 

TO 

LAST 1357 

23,ii06 

n 0 0 2"5 U " 


1 H E 1 A 




0085“ 

RTF" 

nr 

LAST 1357 — 

~Z37TTrn 

00025 0 

STURE^ 

THFTS 

X = .5 with SIGN(SIN) - ARCSINTSIN) 

f 1 


OOHTT 




23,3310 

ff6l6 0 

RVT5 

- - III — 


(+) — 1 + ) UK t” J 

I — ) 
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L 

INFLIGHT ALIGNMENT ROUTINES 



USER'S PAGE 

NO. 4 

E5 S3 










ROOB? 

SMNB. NBSM, AND AXISROT, WHICH USED tO 

APPEAR HERE, HAVE BEEN 





ROO‘^8 

COMBINED IN A ROUTI*^'E CALLED AX^SR’J'Tt WHICH 

APPEARS 

AMONG THE POWERED 





R0089 

FLIGHT SUBROUTINES. 




















gap: 
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L 

INFLIGHT ALIGNMENT ROUTINES 


USER'S PAGE NO. 5 E5 S3 







R0090 

CALCGA COMPUTES THE CDU DRIVING ANGLES 

REQUIRED TO BRING THE 

STABLE MEMBER INTO THE DESIRED ORIENTATION. 







P0097 

THE INPUTS ARE 1) THE NAVIGXtMN BASE 

COORDINATES REFERRED 

TO ANY CnORDINATF SYSTEM, THE THREE HALF-UNIT 


R0094 

VECTORS ARE STORED AT XNB.YNB. AND ZNB 

. R) THE DESIRED STABLE MEMBER COORDINATES REFERRED TO THE SAME 


P0096 

coordinate system are stored at xsm, ysm, and zsm. 




R0097 

THE OUTPUTS ARE THE THREE COU DRIVING 

ANGLES AND ARE STORED 

$P AT THETAD, THETAD +1, AND THETAD +2. 




0099 





23,3311 

77601 

0 CALCGA 

SETPO 


PUSHDOWN 

00-05, i6D-2lD, 3AD-37D 


010'^ 





78,3312 

OOOOl 

0 


0 




0101 





23.3313 

473 75 

0 

VLOAD 

VXV 


— ■ 1 — ■ » - — — - — TTTic — a — j — A L ^ ' 1 — — . - 


0102 

PFF 

10 

LAST 

SI 8 

2:^, 33X4 

02714 

1 


XNB 

XNB = OGA 

(OUTER GIMBAL AXFS) 

.-.T — — — — — .^—i 

0103 

RFF 

5 

LAST 

318 

23,331 5 

02 7 00 

1 


ysm 

YSM = IGA 

(INNER GIMBAL AXIST 


OlOA 





23*3316 

414G6 

“0 

UNIT 

PUSH 

PDO = UNIT 

(OGA X IGA) = MG A 





0103 




73,3317 

44041 

1 

DOT 

ITS 




0T06 

REF 

7 

LAST BIB 

23,3320 

“ 02730 

1 


ZNB 




0107 

REF 

43 

LAST 1356 

23.3321 

00051 

0 


S2 




0X03 

' El^ 

14 

LAST 1X57 

23,3322 

“n^40 2r 

1 

STGVL 

XnSTH 

CQS(0G> - MGA 

• ZNB 


0109 




23,3323 

00001 

0 


0 




(j ; 1 0 ■ 




2 "^ * 3 3 2 4 

7764'1“ 

r 

DOT 





0111“ 

RTF 

" T 

XAST 8 rR““ 

2 3 f 3 ^ *7 

027 22“ 

1 


YN3 




0112 

R'T 

“TT“ 

LAST 135r" 

23 * 3326 

3402 T 

1 

STCALU 

S I NT H 


« YN8 


— — on 3""' 

TEF” 

0 

LAST 1356 

23*332/ 

47256 

0 






“ ' Trii4 

REF 

TTS"' 

lASX 1356 

2T, 3330 

26T6Tr 

T 

STGVr” 

u r? c 




0113"“ 




23,3331"' 

OOOOl 

0 


0 
















■ 01 13"" 




23, 3377“ 

502 3T 

"IT 

VXV 

0 OT 

PROVTSIFn FOR 

MG ANGLE OF 90 UbUKttS 


0117' ■■ 

REF ■ 

TT” 

LAST 1359“ 

"TT733T3 

027 i'A" 

T 






0118 

RFF 

6“ 

^LAST 135^”“ 

23,3334 

02 7 00 

1 


T6M 




0119 



^ , - -- 1- . - ■■ 1 ■— Tr“ 

2 3 , 3 3 .3 5 

TTl^Z 

1 

“ SLl ■ 





0X2.0 " 

PEF 

"TT“ 

last 13 59' ■■ 

23,3336 

24021 

1 

STOVL 

C 13 S T H 

CaS(MGJ = IGA 

• { MGA X OGA) 


012 r~ 

R EF 

■ 7“^ 

LXST" 135 9 

23/3137 

■ 02700 

T 


YSM 




on 7- 




73,3 3 477“ 

77641 

1 

DO] 





012 3 ■■ 

REF 

~^[T~ 

LAST 1359 

23.^141 

"TTTTTTT 

T 


TTre 


^ ^ ^ — = ‘ ' 1 ■ . 


01 2 > ■ 

“ REF 


“LAST 13-?g~ 

23* 3 342 

34023 1 

“STXia L 

S 1 nt h 

S 1 N ( M G ) — IgA 

• OG A 


■ “OTTV 

"PEF“ 

9^ 

“C'A ST 1359 

2 3 , 3SSS “ 

4/^256 

“D 


“T^CTRTG" 




UT77r~ 

“’F" 

4 

LASI 1356“ 

23, 

02 /64 

0 

STURF 

^ G C 




1 1 1 

012T“ 




— 2 3345 

~4524Tr 

-Q 

l^WS 

U5U 





rrrar” 

REE 

— r~ 


23,3346 

OTA'TS" 

"0 


« X O b • m m 




01 2- s 




2 3 , 3 3 4 / 

77644" 

TT — 

~ BPL 


g f — * — t t ^ ^ ' 1 ■ A 4 


. 

0130 

REF 

— T. 


— 23, 3 3 50 

— 47371 

TT 


T5TML0CKI 

IF ANGLE GREAi 

IcK THAN 6U UtbKttb 



om — 




— 23,3351 

— 503 75“ 

"0 — C AL CG AT 

VLOATJ 

UU 1 




0 1 32 

7-crp- 

4 

“CAST SIR 

23*3352“ 

02 TOT 

“T 


Z S H ■■■ ■ 





0133” 




23, 3 3 53“ 

0 0 U 0 1 





1# ^ — ^ -■ ■ ■ ... T _ 


DT3r4 

REF" 

16 

~L“ASJ 1.3 59 

— 23* 3354“ 

“ 24021 

T 

STOVL 

CnSTH 

C D S C I G 1 — Z S M 

• H GA 


0133 

— RTT 

735“ 

LAST 1.35 5 

— 2 3. 3 35 5 ■ 

n2672“ 

“0 


XSM 







■■ 














1 
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L 

INFLIGHT ALIGNMENT ROUTINES 




iJ^PR* S^ PA^ 

NO. 6 

ET.S^a 




01 J6 


23. 335S 

45441 1 

noT 

STAOR 






0137 

REF 

19 LAST 1359 23*3357 

43754 0 

STCALL 

SI NTH 

SI^)( 16) ^ XSM . 

MG A 




0138 

r FF 

10 LAST 1389 23,3360 

47256 0 


ARCTRIG 







0139 

REF 

4 

LAST 

1355 

23*3361 

26762 

0 


s T ovir 

IGC 



0140 

RFF 

19 

LAST 

135 9 

23*3362 

02760 

1 



OGC 



0141 





23*336^ 

43034 

1 


RT3 

30NCLR 



01 41 5 

REF 

5 

LAST 

544 

23,3364 

45 5 52 

1 



V1ST02S 



0142 

REF 

2 

LAST 

818 

23*3365 

00200 

0 



CPHIFLAG 



0142 5 

RFF 

44 

LAST 

1359 

23*^366 

00051 

0 



S2 



^ OT4l5 

9 FF 

20 

LAST 

767" 

23.3367 

35I57r 

0 


STCALL 

THETAD 



0144 

REF 

45 

LAST 

1360 

23,3370 

00051 

0 



s? 




0145 





23.3371 

777 76 

I 

GIMLOCKl 

EXIT 




0 146 

REF 

37 

LAST 

1350 

23*^372 

0 5650 

1 


TC 

ALARM 



0147 





23,3373 

00401 

1 


OCT 

00401 



01*+ 1 

R cF 

54 

LAST 

1 349 

“"T3 * 3 3T4^ 

0 5546 

0 


TC 

Ut’FLAG 

GIMBAL LOCK HAS OCCUREO 


0149 

RFF 

2 

LAST 

424 

23,3375 

00056 

1 


AORES 

GLOKFAIL 
















0150 

RtF~ 

242 

~XAST 


Z3*3376 

0 6006 

1 


TTT 

I NT PR FT 



0131 





23,3377 

77‘650 

1 


GOTO 




0T52 

REF 

1 



23,3400 

475517 

0 



“Ca:lcgai 



— — 


T 


i 





(: 





INFLIGHT ALIGNMENT ROUTINES 


USER'S PAGE NO 


E5 S3 


ROl S3 


AXISGEN COMPUTES THE COOROINATES OF ONE COORDINATE SYSTEM REFERRED TO ANOTHER COORDINATE SYSTEM. 



?Ol^y5 

THE INPUTS ARE 1) 

THE STARl 

VECTOR REFERRED TO COORDINATE SYSTEM A STORED AT STARAO. 2} THE STAR2 VECTOR 



R0157 

RFFERR ^-0 

TO CnORDINATC SYSTEM 

A stored 

AT STARAO +6. 3) 

THE STARl VECTOR REFERRED TO COORDINATE SYblEM B blUKtU 



ROl 59 

AT I.OCATinN 6 OF THE VAC APFA“ 

1 4) THE 

STAR2 VECTOR REFERRED TO COORDINATE SYSTEM 3 SlORbl) A! LULAIIUN 120 Uh 



9 0161 

THE VAC AREA. 









R 0 1 62 

THF OUTPUT DFFINES 

COURDINATE 

SYSTEM A 

REFERRED TO COORDINATE SYSTEM B. 

THE THREE HALF-UNIT VECTURb ARE blUKEU 



R0164 

AT LOCATT 

ONS XDCf XDC +6, XOC 

+12D, AND 

STARAD, STAR AD +6, STARAO +12D. 















0165 



23. 3 AO 1 

66370 0 

AXISGEN AXT.l 

SS9 

PUSHDOWN 00-300. 34D-37D 



0166 

REF 11 

LAST 783 

23,3602 

02743 0 


STARAO +6 




0167 

R E F 53 

LAST 1342 

29,3403 

00031 0 


SI 




0168 

r¥F 12 

LAST 1361 

23.3404 

02727 1 


STARAO -6 














0169 



23,3405 

77601 0 

STTPD 





0170 



23.3406 

00001 0 


0 




0171 



23. 340 T" 

4677:3 0 

■ A X I S’GTNl VLOAIT* 

V X V4 

06D UA = SI 



017? ■ 

pn^F 13 

LAST 136r 

23,341 0 

0275? 0 


3T7RAD +12TJ,1 

STARAD +00D UB == SI 



0173 

REF 14 

LAST 1361 

23.3411 

02760 1 


STARAD ’»-18D,l 




UT7T" 



2 37^4 IT " 

7 76 56 1 

UN I T 


12D VA = UNITCSI X S2 ) 



0175 

RFl ■ 15 

L A ST 13 617 

?T,3413" 

06T60 0 

STORE"" 

S T A R A. D +18 0,1 

STARAD +060 V3 = UNITISl X S2) 



0176 



23,3414 

77773 1 

WUKW 





0177~ 

riFF 

LAST 136r 

23, 3415" 

D7T52 0' 


STARAD +12D,1 














— 017a 



23.3416' 

76433 1 


VSLi" 




'0179“ 

— RTF” IT ^ 

LAST 1361' 

23,'34T7“ 

02760 1 



18D WA = UA X VA 



OISO ■ 

'^EF 13 

LAST IICT" 

23,342‘a“ 

06 1 66 0 

"STORE 

S f AKAD +Z4l)f 1 

STARAD +1ZU WB = UB X VB 




01 'TjT" 



2 3 f 3 A* Z 1 

TTTOO 0 

TTXTir 





■ 016? 

EF ■ I 


2'3', 3 4 27" 

477;U7"T' 


AX I SCE N1 





01 M3"" 



23,3423" 

66160 TJ" 

AXC, 1 

S X A t 1 




01 RA 



23 . 3 47^7 

00006 1 


6 




0135“ 



23, '425 ■ 

— 00036 T" 


30 D 














01 Bo ^ 



2 3,3476r 

-56370 “O' 

AXT.l 





0 1 nj- 



23,342 / 

00022 1 


1 8D 





0133 ' 


LAST 1361 

23,3430" 

■ 00051 U 


S 1 




01 39 



23, 3431 

0UUU6 1 


6 





0190 



23 , 343 2 

66374 1 

A X 1 f 





(Tr9t~ 



23,3433 

00006 1" 


6 




0 i s 2 

— !TEF JfTT- 

LASl 1360 

23, 3434 

000 52 0“ 


5 2 




Ol^T” 



2 3, i--tT5' 

00002 0" 


2 

_ m ■ » ■ ^ i^=^= ■ - - 


— — 











OlOA ■ 




/ 6 / 2 O'TT 

AXlSGhN2 XCRKVT 

V L f J A L) ^ 

— V — r — xr ^ ^ ^ 1. /. n# ’£r "y A. ^ 



OJ '-5 



“ — 2TTT4TT" 

■ 00036' T" 



X X “* ^ X 2 *“ ^ O X 1 ** & X ^ ^ X i O X ^ iL 



UVT^ 



23, 3440 

00001 0 


0 y X~ 
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L 

INFLIGHT 

ALIGMMf^NT 

ROUTINES 





USER'S PAGE NO. 8 E5 S3 


Ol--? 





23, 1441 

62757 

0 

VX.SC* 

POVL* 

J=(UA)IUB1) J=(UA)(UB2) J=(UA)(UB3» 

0198 

REF 

19 

LAST 

1361 

23,3442 

75033 

0 


STAR AD +6 f 2 


019Q 





23,3443 

00007 

0 


6> » 1 


0200 





23,3444 

77757 

1 

vxsc* 



0201 

2 E F 

20 

LAST 

1 362 

23,3445 

75025 

1 


TTARAO +120.2 


0202 





23,3446 

30031 

0 

STOVL* 

24D 

K=(VA) (VBl) J=( VA> ( V82) J=( VA) ( V&3) 

0203 





23,3447 

00015 

0 


120,1 













020^ 





23,3450 

53357 

0 

VXSC* 

VAD 


0205 

REF 

21 

LAST 

1362 

23,3451 

75017 

0 


STARAO +18D.2 

L=(WA)(WB1T J=(WA)<WB2) J=(WA)(W83) 

0205 





23,3452 

76455 

1 

VAO 

VSLl 


0207 





23.3453 

00031 

0 


2 4D 







23,3454 

53520 

0 

XCHX.l 

UNIT 


0209 





2*3, 3455 

00036 

1 


300 


0210 

REF 

li 

LAST 

1355 

23,3456 

06736 

0 

STORE 

XOC +18D,i 

XDC = L+J+K YDC = L+J+K ZDC = L+J+K 


021 1 





— 23,3457 

77700 

0 

TIX,1 



0212 

REF 

1 



23,3460 

47461 

1 


AX1SGEM3 













0213 





23;t41>I 

~TTT07r 

I 

AXISGENT" nXiZ 



0214 

'’EF 

1 



23,1462 

47436 

0 


AXl SGEN2 



0213 





23, 1463 

77775r 

"T" 

VLOAD 



0216 

REF 

12 

LAST 

1362 

23.3464 

02714 

1 


XDC 


0217 

REF 

22 

LAST 

1352 

23,3465 

26736 

1 

STOVL 

3TARAD 


0211 

REF 

6 

TATT 

1356 

23.3466 

02T2T“ 

1 


YDC 


0219 

REF 

23 

LAST 

1362 

23,3467 

26744 

1 

STOVL 

STARAD +6 


0220 

REF 

6 

LAST' 

13 56" 

23,3470 

02730 



ZOC 


U7ir 



LAST 

1362 

— TJTT^mr 

02752 

'J 

STORE 

STARAO +120 













0222 





23 f 3^7^? 

/7616 

0 

R VO 











1768 


0231 

0281 

0282 
0 28 2 


23.3473 05520 0 “ 0TSN45 2DEC 

23.3474 26075 1 

23.3475 05252 1 .166... 2DEC .1666666667 

23.3476 25253 1 
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L oOWnRPD FL IGHT 

SUBROUTINES 



USER’S PAGE 

NO. 1 

EO S3 












0001 

14,3422 

BANK 

14 

SAME FBANK AS THE 

FINOCOUD 

SUB-PROGRAM 



0002 REF 1 

23.2000 

SETLOC 

POWFL ITE 






0003 

23 t 3 '+77 

BANK 

M 1 ■ ■ ■ m ■— — 1 




— - 




0004 
000 5 


R0005 

R0007 


ROOD 


U 


ROOQO 

ROOIO 


ROOIl 


R0012 


ROOl 3 


POO 14 
R0015 


R0016 


REF 

REF 


0142 


E8ANK= DEXOEX 
COUNTS $$/POWFL 


CDUTRIG* COUTRIGl. COUTRIG?* AND CD»TR*GS ALL COMPUTE THE SINES AND 
COSINES OF TFIREE 2*S CO-^PLEMENT ANGLES AND PLACE THE RESULT, DOUBLE 


PRECISiaM. IN THE SAME OPnER AS THE INPUTS. AT STNCOU AND COSCDU. 


AN 


AODITinNAL OUTPUT IS THE 1«S COMPLEMENT ANGLES AT COUSPOT. THESE 
ROUTINES GO OUT OF THEIP HAY TO LEAVE THE MPAC AREA AS THEY FIND IT. 


EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. 


THEY DIFFER ONLY IN 


WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING. 


CDUTRIG (AND CDUTPI<JT. WHICH CAN 3E CALLED IN BASIC) COMPUTE THF 


SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CPU REGISTER S. 
THE CONTENTS OF CDUTFMP, ETC., ARE MOT TOUCHED SO THAT THEY MAY 
CONTINUE TO FORM A CONSISTENT” SET WITH THE L A T E S T P I P A R E A D I f^lGT 


ROOl^ 


COUTRIGl IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASI 


r 



R 0021 
ROOT? 


R0025 

R0aZ4^ 


R002S 

ROTT?^ 


■RW7 



-J E THAN X y 

CXtr.” TD THT^STl^ TN EITHER 

FIND 


Twcr 




SINCE AX=5^ST^ 




COS I NT S TN THE GPD^R^OT Z X THE ANGLES MUSX HAVE BEEN PLACFO" TN CUUSPO 
TATTHTS TIRDER . CD^TP=i'GS' NEED NU! BE RbPLAIbU WHhN AX*SR*r XST CALLED 

anglfs have not changed. 




TT"T:raHTrF p:s ~ btif^ 


ONCE. PROVIDED TH 

TW 



THE S'TTT 


TIMT 



NOTE THAT SINCE 
*GS CANNOr 8E 


TTAMKTTATn 



R 00ZR"“ 

Cir^IR*G IS LIKE CO’MR*GS EXChPI 

THAT IT CATT BF XALLED TH 





Totnr^ 

INTETTPPFTIVE. 








00 VJ ■ 




23,3^77 

77 TT6~ 

t: cntrrRTG exit 








0031 

PfTF 

r 



TT TSITT 

0 ic 

CDUtRiGS 







003? ■ 

REF 

Tzrr 

LAST 1360 

23.350T 

0 60 06 

TC 

I N T PK hi 







00 33"- 




23« ''. S02 

TTHTfT 

TJ RVO 







at ^ j .1 » i> -■ ■' "1 ^ J 


0034 




2 a, VS or 

77776 

X C 1 K ^ G t X 1 J 








U035 

— PTF” 

r 


23,3504 

“0 351“5" 

TJ “TC 

CO*TP*GS 







00 '^6 

R EF^ 

T4"4 

CTimTST” 

23.3505 

“0 SO 06 

1 nx 

I MTPRE r 







00'3T“ 




? ’3 , ’3 S O S" 

77616'' 

13 RVO 






















DTTBB 

— RFT’ 


“TAST 1063 

“ZTTTS'OT' 

— 3~aTr37“ 

~0~ XOUTR TGS^tTA 

TTTcrx 







CRJTT— 

’RTF” 

6 

LAS f S44 

2 '3 , TS-llJ- 

54 y (2 

1 1 s 

^ m - 1 * . - # 1 V 






. 

0040 

KEF 


— LAST 106 3 ■ 

23,3511 

— 3 0 0 3 3“ 

"T CTT" 

COUY 







0041 

^ U F* 


“LATST 13T)“5~ 

25. 3 > 1 2 


L TS 

CPUS POT 





i 

- - - - 
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L 

POWERFD FLIGHt SUBROUTINES 




USER'S PAGE 

NO. 2 

EO S3 




0042 

REF -22 LAST 1063 23.3313 

3 0034 0 

C A 

CDUZ 






0043 

REF 3 LAST 1365 23.3514 

54 770 0 

TS 

COUSPOT +2 








0047 


0050 

0051 
005? 


0056 


0057 


005 0 


OOSQ 
006 0 
0061 


006? 

0063 


0064 


0065 

"0066 


23t3515 0 0006 1 Cn’«'TR=«'GS EXTEND 



FT 


LAST 1152 


23 t3520 


6211 


TR7GL’«'’!'P MASK 



RFF 


LAST 1366 
LAST 1344 
LAST 1178 


23.3523 

23.3524 


3 0766 0 
IT5 




SIX 
TEM 3 
TE^ 
COUSPOT 

VRUF +4 
USPRCADR 


MAKE 


EVEN AND SMALLER 


STORING ’•S COMP ANGLE7 LOAD 

ftATION 


REF 659 LAST 1366 


23.3531 3 0155 0 


REF 


LAST 1366 


23.3532 50 143 1 


OCA 
INDEX 


MPAC 


TEM3 




10 


REF 


LAST 1366 

LAST 1366 


23.3533 

23. 3534 




ref 


6 


FAST Ills 
LAST 1366 
LAST 1366 


23.3536 

23.3537 


52 767 0 

0 4757 0 

“of; l b 1 


nxcH 

TO 


cnuspoT 

USPRCADR 


STORING 1*S COMPLEMENT ANGLE 


C AD R 





52 

5F 


155 

F 4 “T 


1 




last 74 2T, 3W) 52 745 0 


REF 



7 

11 



FAST 

LAST 1366 


23.3541 

23.3542 


FT 7 



0 0006 1 

5 01 4T 1 

“T 


OXCH 

TRTTET” 

nxaF“ 

F.XtEND 


MPA 
TFMF 

CO SC DU 



INDEX TT 1 T 3 




0067 


REF 


0068 

0069 



3 


REF 54 


LAST 1366 

FA3T 1115 
LAFT"TT6F 



0 4757 0 

“OTFTirXJ 


FT, 3546 52 127F: 


TF 


“CnUSPQT 

USPRCTO 


LOADING l^'S CUMPLbMENT 






0070 


0071 



REF 

R E F 

o 


661 


* . 


8 

4 


0077 

TJD 


I? 


cF 


LAST 1366 

L AST 1366 
FAFT~ 7 4 
LAST 1366 


23, 3547 5F 

“~5F 
“52 


2 3,3 5-50 
Z3”,FTr5 T 


L 


FEF 


WTT 


r * 


9 

I ■“ 

5 FAST 1366 


23,3562 

7T7 


TFT 

T 4 T 

7 T 7 

T 4 T 


r 

I 

?r 



10 143 O' 

T 3S20 I 


DXCH" 
DXCFT 
INDEX" 
nXCFT 

Trs“ 



+4“ 



EXPECTS ARGUMENT TTM 
UF PRIOR MPAC 'TT 



TEFT 




TF(n" 4 Z“D 


TC 


yp+nL^^ep 

TEM2 









ag 
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L 

pnwEPFO 

FLIGHT 

SUBRPUT [MES 




USER»S PAGE NO. 3 EO 53 




P0076 

3 #: jjc :{s 3 }c jjtjje rjc :^c :jt :(c : 9 c ^ :(e : 4 c ^ :Ct ){« 














ROOT 

OUICTR [Gf 

INTENOeO FOR GUIOAMCE CYCLE USE 

WHERE TIME IS CRITICAL. IS A MUCH FASTER VERSION OF CD'^’^TR’^'G S- 



ROOSO 

OUICTi^ IG 

COMPUTES AND STORES 

THE SINES AND CGSINFS OF THE 2*S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2, 



R003? 

AND COUSPOT +4 

. UNLIKE Cb^TR+GS. OUICTR IG DOES NOT LEAVE THE 1«S COMPLEMENT VERSIONS OF THE ANGLES IN 



R00P4 

CPMSPOT . 

OUICTRIG 

•S EYFCUTION TIME 

IS 4.1 MS 

; THIS 

IS 10 TIMES AS FAST AS CO*TR*GS. QUICTRIG MAY BE 



R 60‘^6 

CALLED FROM INTERPRETIVE AS AN RTB OP 

-CODE, OR 

FROM BASIC VIA BANKCALL OR I 8 NKCALL. 














OOQO 




“23. 3SSS 

0 0004 ' 

0 OUICTRIG INHTNT 

INHINT SINCE DAP USES THE SAME TEMPS 



0000 1 




23.3S56 

0 0006 

1 

EXTEND 



00902 

REF 18 

LAST 

231 

23,3557 

22 061 

0 

QXCH 

ITPSPl 



009 1 

REF in 

LAS'" 

1366 

23,3560 

3 5015 

0 

CAE 

FOUR 



00 -''? 

REF 37 

LAST 

1366 

23,3561 

7 6211 

1 +4 

MASK 

SIX 



0093 

REF 19 

LAST 

229 

23, 3S62 

54 062 

1 

TS 

ITEMP2 



0094 

R^F 20 

LAST 

1367 

23,3563 

“ 3 b" 062 

0 

INDEX 

if EMP 2 



0095 

RW~ 12 “ 

LAST 

1366 

23,3564 

3 0766 

0 

CA 

CDUSPOT 



0096 

REF 8 

LAST 

1073 

23,3565 

0 5075 

0 

tc 

SPSIN 



0097 




23,3566 

0 0006 

1 

EXTEND 



0098 

TEE 71 

LAST 

1 235 

?3,3S67 

7 5002 

1 

MP 

8rTl4 SCALE DOWN 111 MAILH INltKPKEIEK UUIh'Ulb 



0009 

REF 2T~ 

LAST 

1367 

23,3570 

50 062 

0 

INDEX 

ITEMP2 



OiOO 

REF 5 

LAST 

1366 

23,3571 

52 737 

0 

DXCH 

STNCDU 



0101 

P.EF 2? 

L A sr 

1367 

23,3S72 

50 062 

0 

INDEX 

ITtMP? 



0102 

REF 13 

“LAST 

1 3"6T" 

ZTTT57T 

3 0766 

0 

CA“ 

CDUSPOT 



01 OB 

7“ 

LAST 

1075" 

23,35?4 

0 5074 

1 

TC 

S'^cns 








— 2 3.3575 

0 0W3' 

1 

txtend 



OIOS 

REF 72 

LAST 1367 

23^3 6 

"'rsooz 1 

MP 

BIT14 



0106 

REF ZT" 

“TATT" 

1367 

— TTTVTTT 

50 062 

3 

INDEX 

I temp 2 



OliW 

R t F 5 

t7L5T“ 

136'6" 

23,3”6’0o 

52 745 

15 

UXCH' 

COSCDU 

* 



0109 

REF TTT 

TAS? 

1367 

23,3601 

10 062' 

1 

"XXS 

I I EMF2 




—TTEF Z“ 

LAST 

705“ 

— 23,5^?“ 

1 3561 

1 

TCF 

QUICTRIG +4 



01091 

TTFF rsr 

~nsT~ 

1J67 

2 3 . 35773' 

3 0061 

0 


ITEMPl 



0110 




7T7T6TT4“ 

0 obTiyi 

b^ELINT 



oiior 

REF 

L A ST" 

132 6“ 

71,3605 

0 00 00 


TC 
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L 

DOWCRtO FLIGHT SUeiP.nUTI N'S 


USER'S PAGE NO. 4 EO S3 




- 



Roin. 

j}j :*c sjT :^r 4 : : 4 c 5 }e Jfe ;^t 5 {: :it * :fc i>: :Jc sje 3 {c :{£ ;{e ;Jc jjc ^ ; 4 : 

: 4 c : 4 c ;{e i|c' Xc ij: 4 c sit ^ * : 4 : : 4 e * : 4 c :Sc 3 {c j}e ^ + : 4 c : 4 « 3 je : 4 c =*£ * 5 jt ^ )!c : 4 t 3 k : 4 f 3 Sc sf: apt 3 {t « : 4 t « ajc ♦ :}: 5 ^ ♦ 59: 5 ft ^ 5 «t ^ 3 flt : 4 e : 0 t : 4 c X< 39 £ 3 I« : 9 t V V V V ^ ^ 3 «t 3 F 5 F V ^ » V ▼ ▼ 





, ^ ^ ^ - - ■ 



ROn . '3 

THFSE INTERFACE POUTIMES MAKE IT POSSIBLE TO CALL AX=^SRFt. ETC*. IN 


P 0114 

INTERPRETIVE. LATER* WHERE POSSIBLE, THEY WILL BE ELIMINATED. 



ROll 5 

NRSM WILL BE THE FUST TO GO. IT SHOULD NOT BE USED. 

-.L-. » , ■ 


0116 





23,3606 

77620 

0 MBSM 

STO 





0117 

REF 

43 

LAST 

1343 

23,3607 

00047 

1 


X 2 




01 1 B 





23,3610 

76 74 0 

0 

LXC. 1 

VLOAO* 




OUT 

R EF 

55 “ 

LAST 

1361 

23 . 3^11 

00050 

1 


SI 

BASE ADDRESS OF THE CDU A 

iNGLES IS IN SI 


0120 





23,3612 

00001 

0 


0,1 




0121 

^ L r 

14 

LAST 

1367 

23.3613 

24767 

1 

STOVL 

CDUSPOT 




01?2 





23 . 331 ^ 

00041 

i 


32 D 

VECTOR TO BE TRANSFORMED 

IS IN 32 D 


0123 





2 3, 3 sis 

77624 

1 

CALL 





0124 

F 

o 

4 . 

LAST 

454 

23.3616 

47 63 7 

0 


TRG^NBSM 




0125 





23,3617 

34041 

0 

STCALL 

32 D 

SINCE THERE'S NO STGOTO 



0126 

RFF 

44 

LAST 

1368 

23,3620 

00047 

1 


X 2 





R 0127 

THESE INTERFACE ROUTtUcS ARE PERMANENT. 

ALL RESTORE USER'S EBANK 





RTHTF" 

SETTING. ALL ARF^GIRICT T NT LRPRFTTVE SUBROUTINES, CALLEU USING "CALL", 





R 0129 

1 ” TURN TNG vnr O'PRET; all EyPECI and HErUPN 

THE VECTOR TO BE TKANSEUK- 





R 0130 

MED Interpreter-style In mpac; components at 

MPAC. MPAC + 3 . AND MPAC + 5 . 













- TPG^STWB ' ANT) TPG^^WBSTTTinTH TEXPHCT TG 

“THE 2 'S COTIPLEMeNT ANGCES 





R 0132 

at CDUSPOT (ORDER Y Z X, AT COUSO-T, CDUSPOT 

+ 2 . AND CDUSPOT + 4 ; ODD 





ROl SI' 

‘ LnCATIONS NEED N'^ BE ZERUEDT. TRG^BGW 001 

= S THE NB rD'" 5 F 7 TRANSFOR- 





R 0134 

lATION; TRGFSMNB, VIC" V^RSA. 







RCriT^ — ^'XirmNBSM DO^S its TRANSfOKMAITDN' US lUCT THF"PRF S t N I CON I bN I S Uf- 
RUT36~~T HF CPU COUNTER S > OTHFRUTTE~ lT~"rS~L T ^ 

ROTJbT ^ — ' IS THt COMPLFMUNT^UT^CUU'^UBm: 


01 36 2 

0TT6 3 

■oi:ur4 




0139 

aruy 

ur4i 


uw 


TTT^ 

TTT4^‘ 


REF 

R r F 



n ^ p 

\ c ■ 


2 

1 


2 

J 

W p I- 



L A ? T 1 T65 


LAST 136*5 
LAST 1175 
LIS ST^ 1 2TFf 


LAST 13AS 


TT 


FF 65 t: 2 rST ~1366 





77776' 1 CDU^SMNB EXI 

“ TC 


0 ’ BFOF 0 
3F 2 6“U: 


TCF 



73T3F2T 


77776 "I rRG*FWiF“FXTT 


23.3625 Cn35TFU5 

23.3626 

23t362T~ 



73T367T7 

23.3^31 


mr6 5 0 U 

0''6'0'0n T 


Z37363F 


43575 I 
23 . 363 ’ 3 ” 0012 3 I 




C+MM’^N2 


TT 

CS 

TC 

TTT 


VLOATT 




CWTR^TTF 

MPACWUF 


IHI’ht 

INTPREl 


TU7Q' 

VBUF 


EXPECTS VECTH'^ IN VBUF 
5 TGNAL FOR 'SH UU W TKISNSF <J R M AT rOTT 


(ITTT 


■0TT6 





rssT 


TTTTfBT? 

7T7TS75 


TTTTB^ T 
O ' ^'^ nT' TT 


CDU*NBSM 


^XIT^ 

TC 


cnui R KiS 


I 
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L 

POWERED FLIGHT SUBROUTINES 


USER'S PAGE 

NO. 5 to S3 



0147 

PEE 

1 



23,3636 

1 3641 

0 


TCF 

C*MM=^^N3 




0143 





23,3637 

77776 

1 

TRG^NBSM 

EXIT 




Ol4'P 

REF 

3 

L A ST 

1368 

23,3640 

0 3515 

0 


TC 

CD^TR^^'GS 



0150 

REF 

4 

LAST 

1363 

23,3641 

0 7501 

1 

C=!*MM=^N3 

TC 

mpacvbOf 

FOR AX’J'SR’J^T 


0151 

R E F 

45 

LAST 

1368 

23,3642 

3 6214 

0 


CA 

THREE 

signal for nb to sm transformation 


01*^2 

REF 

1 



23,3643 

1 3630 

0 


TCF 

C*MMAN2 




R0153 

«NBSM* AND «SMN8'7 EXPECT TO SEE THE SINES 

AND COSINES 

(AT SINCOU 



ROl 54 

AND CnSCDU) RATHPR THAN THF ANGLES THEMSELVES. 

OTHERWISE 

THEY ARE 



R0155 

LIKE TRG^NBSM AHO TRG'icSMNB. 






R 0156 

NOTE THAT JUST AS CO'i^TR^GS NEED BE CALLED ONLY ONCE FOR EACH SERIES 





R0157 

OF tR ANSFORMAT TONS USING THE SAME ANGLtS, SO TOG ONLY ONE OF TRG*NBSM 





R 015 '^ 

AND TRG^^'SMNB need BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANSFOR- 





R 0159 

.M^ATIOMS use and 'i^SMNB*. 




... — ^ — • 


0160" 2 3, 3 64 A 77776 1 *SMNB^ EXIT 

OTTI TEF ""2 LAST 136B 23,3645 I 3626 1 TCP 


Olo“ 23*3^46 77776 1 ^NBSM=«' EXIT 

PEE “ 2 TTAST 1369 23,3647 1 3641 0 tCP 


I' 


K0)64 

AX^SR*T COMBINES THF OLD SMN3 AND N8SM. FOR THE NB TO SM 



R 0 1 6 5 

TRANSfORMATTON, 'ENTER WITH +3 IN A. FOR SM TO NB , ENTER WITH -3. 



ROl 66 

TTIF' VECTOR TO RE TRANSFnR MED ARRIVES', AND IS RETURNED, IN VOUF. 



ROl 6 7 

<^X*SR*T EXPECTS" TO EfN'O THE SINES AnO CDSINFS OF THF ANGLES OF ROTATION 



PUl68 

AT SINCDU AND CUSCDU, TJ THE' ORDFR Y 2 X. A CALL TO CD*iF’«'GS, WUH 



R0169 

— THE 2'S COMPLEMENT ANGLES ( JPHtR Y 7 X) AT CDUSPUT , WILL lAKt CARP Ut 



Rf)170 

Ttfl'S: HERE IS 4 SAMpL- CALLING SC-OUFNCt;- 


____________ 


R 0 T 7r ~ ^ TU nrijTR igs 


R0172 

CS THREE 

("CA Tl 

TRFc" FOR NB5MI 




ROl ri 

TC cvX-SR^J 







i^Oi 74 rnt CALL TG CD^TH *GS 'TTEtf) NO! BE PtPtATEO, WHEN AX^SK^I IS LALLtO 

R 0175 riTAN UNITETTJNrFSS TH- ANGL 3 S ■F^A^ 7 F■ CHANGED; ^ 



ROl /6 

R017T" 

K0i73 

POi /'L 


ttnttt; 


A LOTTK 


IS GUAR 

AT 


'J SAFE CINLY POP UPCIHRS HP MAGN'Huuh Ltss i 
fHb LASE IN WHICET A VECIITR UP OKbAtt^^ -^AbNlluOP 



HAPP E NS i P LIP ALtIMG An! A X I S OF THE' SYSTFTT TO WRTCPrTT nrV" H ! b b I RANS^ 

FOR-^iPn CnMVlNLPS HNP IHAl 


THIS IS A PESTRICTION WHICH MUSI BP ALLPPlPO 


TTL 

TJTBT 


0LH2 


0 i"RT 
0 I 34 


0135 


^FF 


v 


FF 


TTFF 

TTFF 


Z"TAST 136F 


rpF 


*+ 


3 LAS! 1363J 


tXST 


1367 


. AST T31P 


~ 54 T4F 

0 00774 

23,3652 22 1 


7r3377J50 

23,3661 


ZT73F5T 

2 3,36 54 

3655 


T 



0 142 r 

4 0T42~T 


F~ 67 T 4 ~TT 


TAX^SF^'T 


F^TTWP 


TXS 

TrS“ 

TVTF 


ttfxdex 


"WHERE TT 



M I NSAVER 


UPXObX 


DPXDFX 


THU 5 T 


+ 3”- 

+ 2 - 


THPF 




I ND E X O F I ND E X ES 



T 

7 


-> 2 

-> T 


-1 -- 


gap: 
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OF AGC PROGRAM COMANCHE BY 
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PAGE 1370 



L 

POWERED 

FLIGHT SU 3 R 0 UTIMFS 





USER'S PAGE 

NO. 6 

EO S 3 














01 R 6 



23.3656 

0 0006 

1 

EXTEND 






0137 

fEF 338 

LAST 1367 

23,3657 

5 0000 

1 

INDEX 

A 





0188 

REF 1 


23,3660 

T 37 37 

1 

DC A 

INDEX I 





0139 

REF 1 


23,3661 

52 144 

1 

a —, — r — ■ — ■ - 


DEXl 






0190 


OFF 158 LAST 1326 


23,3662 3 5017 1 


C 4 


ONF 


0191 


PEF 122 LAST 1219 


23 » 3663 54 130 1 


01 n 



PFF 


LAST 


71 


2 3 » 36 64 
23^3665 


0 0006 1 
5 0143 1 


0194 


REF 56 LAST 1368 


23,3666 4 0123 0 


TS 

FXTEN D 
INDEX 

mrs 


BUF 


OEXl 


VBUF 


0195 


REF 


1 


23,3667 1 3671 0 


TCF 


LHOPl 


8 EALLY BE A SUBTRACT, AND VICE VERSA 


0196 


REF 123 LAST 1370 23,3670 52 131 0 L 00 P 2 


OXCH 


TOF 


LOADTIN^ VECTOR 



nTNlJFX 


0 1 7 


r> 


FF 662 LAST 1366 


23,3671 52 155 1 LOOPl 


OXCH 


MPAC 


0193 


REF 


019 ^ 

0209 


REF 
R EF 




73 


LAST 1370 
LAST 1181 


73,367? 

2 3 • 3 5 73 

23,3674 


3 3735 0 
6 0143 T 

54 116 0 


CA 


AO 

TS 


SINFSLOC 
DFXl 
AOORWO 


TT201 


0202 


0 20 3 
0204 


0205 


0206 


RFF 21 LT 5 T 
REF 5 LAST 1369 
REF 66~3 last 1370 

REF 664 ^LAST 1370 


23,3675 



23, 36 76 

unzrr 

23,3 70 0 


0 7 056 (T 
10 142 1 
5 T” 


1 3 



nXCH 
TUf 


OEXDEX 

WAC 


NBSM 



23,3701 

23 . ^ 79 7 


0 0006 1 

A 0155 r 


EXTEND 

UCS 


SMN6 CTATF 


MPAC 



0210 



U2TT 


9 EFT.24 LAST 1370 


T3T0 


7 ^ 


J f 

3 ', 370 7 
2 3 ", T TU) 


0 01 TD 6 “T 
5 0130 ~ 0 ^ 



TNDFX 


5 0143 1 


INDEX DETT 



CZIT' 

“RTT" 5 T“ 

HLAST 1370 

— 23,3 711 ' 3 " 01 ^T 3 

1 

TJCA 

VF 5 IJF ~ 





07 T 4 

REF 665 

1 -> IT c — 

“ L A ST 1370 " ' 

i nrr i a ^ n 

23 , ■> 7 T 2 ^ 52 155 

— ^ ^ . u’n 3 — — TTYcrr" 

1 

" 7 ^ 

tSXCFT 

n 

MPAC 

nMPSim 

Min TIPrT"BY"TT 

ISlCnUANGLb ) 



0216 

t)2l7 


REF 

RFF 


666 



7 


LJ 

FAST T3T0 


0218 


Q 


EF 


LAST 1370 



TTXTH 


0220 

022T 


FFf 

■rFF 



i:ast 1370 


last 070 


7773720 

7TTT77T 



DAS 

OXCH 

DDUUBTL 
INUE>r BUF 
INDEX" 


TETTMTTTTP 
T tz 



UTKT 
VBUF 



7T774 


FFF 




339 

r 


T A S T 1370 


7 ^ 


^ * 


^4 — ro~noo 0 

T 3, 3 72 5 " 1 “ 367 m 


CCS 


A 


•CAUSE THAT^S WHERE THE INDEX NOW IS 


LGGPT^ 



LAsrmrTTT 


23,3 77 6 

TT"; 3 737 


ir7)0 06 1 

6 


^rXTENTT 

DIM 


UFXTTFJr 


UbCREMENT MAGN 



ING SIGN 


GAP: 
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L 

POWERED 

FLIGHT SUBROUTINGS 






USER'S PAGE NO. 7 EO bi 



022 3 

REF 

7 

LAST 1370 

23.3730 

10 142 

1 

TSTPOINT 

CCS 

DEXDEX 

ONLY THE BRANCHING FUNCTION IS USED 


022 9 

R EF 

1 


23.3 73 1 

1 3653 

0 


TCF 

R^TL**P 



0230 

^^"ef 

2 

LAST 1369 

23,3732 

0 0145 

1 


TC 

RTNSAVER 



0231 

atF 

7 

LAST 1371 

23.3733 

1 3653 

0 


TCF 

R’«'TL*=^P 



0232 

REF 

3 

LAST 1371 

23,3734 

0 0145 

1 


TC 

RTNSAVER 
















023 3 

R6F 

6 

LAST 137^7 

23.3735 

0073 5 

0 

SINESLOC 

ADRES 

SINCOU 

FOR USE IN SETTING AODRWD 



0234 

23.3736 

00004 

0 INDEXI 

DEC 

4 

^ T " 

DON'T 

:i^ ^ 3*e i4c ifc 4c 4c :4c 


0235 

2<,3737 

00002 

"0 “ 

DEC 

2 

4c]4c:fc7}c:jt^3{c:4(:}c:9: 

TOUCH 

4c 4( 4c 4e 4c 4c 4c 4c 4c 4c 

■ ~ - 'y a a 1 A 1 a A i ' . 


023 6 

23.3740 

00000 

1 

DEC 

0 

;4c:9c:(c:^]$c:^i4e:4e:4c:4e 

THESE 

4e4e4cit(4c4e4c]^4c34c 

— ^ — T — 1 i . — 1 ■ i" < I ■ 


0237 

23. 3741 

00004 

0 

DEC 

4 


CONST ANT S 


- - -— 
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L 

POWERED FLIGHT SUUROUTIMFS 


USER’S PAGE NO. 8 EO S3 



P0240 

Ttn S SUBROUTINE COMPUTcS INCREMENTAL CHANGES IN CDU(GIMBAL) ANGLES 

FROM INCREMENTAL CHANGES ABOUT SM AXES. IT 


■^0242 

REQUIRES SM INCREMENTS AS A OP VECTOR SCALED AT ONE 

f!EV0LUTI0N(DTHETASM, + 2.+4) . S I N. COSICDUY. Z . X ) ARE IN 


R0244 

SINC0U,+2,+4 AND C0SCDU»+?t+4 RESPFCT TVELY , SCALED TO 

ONE HALE. CDU 

INCREENTS ARE PLACED IN 0CDUt+2*+^ SCALED TO 


R02 46 

ONE REVOLUTION. 





R0247 


❖ 

cns( IGAIS 

EC(MGA) 

0 

-SIN( IGA)SEC(MGA) * 








R0248 














R0249 



-cos ( IGA )T»N( MGA ) 

1 

SIN( IGA)TAN(MGA) * 








R0250 














R0251 



SIN ( IGA) 

0 

COSI IGA) 






















0252 




14.3*22 


BANK 14 








0253 

PEF 

■ 1 


23,2000 


SETLX POWFLITl 








0254 




23,3742 


BANK 








0255 




23.3742 

41345 0 

SMCDURES DLDAD OMP 








0256 

REF 

“Tf 

r 

LAST 594 

23,3743 

03212 0 

DTHFTASM 








0257 

REF 

4 

LAST 763 

23.3744 

00745 1 

COSCDUY 









0258 




23.3745 

41375 0 

POOL OMP 








0259 

P EF 

8 

LAS1 1372 

23,3746 

03216 1 

dTHFT ^SM +4 








0250 

REF 

4 

LAST 763 

23.3747 

00737 1 

sincdUy 






















0261 




23, 37">0 

■ “TT^Fr T 

5DSU 








0262 




23,3751 

77671 1 ■ " 

DOV 


1 






0263 

REF 

7 

LAST Q67 

23.3752 

00747 0 

CnSCDLIZ 








0264 



LAST 596 

2 3 VTT5B " 

03204 1 

STORE OCOO 









0265 




2TTT7F7. 

“TZTOS 0 

IW SLI SCALE 








'15766 

PEF 


I AST 7TT" 

23.3755 

007'4"I TJ"" 

siTicnuz 








0267 




23,3756 

77621 1 

BD5U 






















02^6^' 

cr p fr 

1 V i. . * 


TAST I3T2' 

2 3.37 5T 

032TTT 

□THETASM +2 








02 6 P 


7 

LAST 1372 

2 3, >760 

17206 0 

STODL DCDIJ +2 








UTJn 


1 0 

TAST 1372 

2 3,3 7F1 " 

Tr52T2“ir 

DTHFTASM 






















027L 




23.^762 

65205" 0 

OMP POOL 








0272 

REF 

s 

LAST 1372 

“TT, 376T ■ 

0073T1 ■ 

SINTCDOY 








0273 

rrf ■ 

rr 

LAST 1772 

23,3764 

1 

DTHFTASM +4 






















0274 




2 3. 3 7.i5 

43205 T 

DMP DAD 

' Ul« ■ . 







027 5 


ST 

"L A ST TT72 

F3 , 3 7 T6 ■“ 

- 0074TT 

XDSCnUY " 








02 76 




THTTET- 

77752 1 

■■ SLi 








0277 

— RTF” 

8 

"L A ST IT72“ 

23.3770 

— T32rO 1 

STORF' DCDLT +4 ' 








02TB 




2373771“ 

■ 77E'I6 O ' 

■ ■ RVQ 

— 





— 

_ - 
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TIME OF FREE FALL 


USER'S PAGE NO. 


EO S3 


ROOOl 


P 0003 


THE TFF SUBPOUTTNES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER 
KNCJW WHICH ORIGIN APPl IFS. IT IS THE USER WHO KNUWSt AND WHO SUPPLIES RONE» VONE AND l/SQRT(MU) AT THE 


R0005 


AppqoPRIATF SCAL- L^V^TL FOR THE pc^OPER PRIMARY BOOY, 


R0006 


EARTH O^'IGIN 


POSITION 


29 


METERS 


ROOD? 


VELOCITY 


MET ERS/C ENT I SECOND 


R0009 


1/S0RT(MU ) 


+ 17 


SQRTICS SQ/METERS CUBED) 



ROOll 

R0012 


VELOCITY 


R0014 


1 /SORT! MU) 


+ 14 


METFRS/CENTISECONOS 
SORT(CS SO/METERS CUBED) 


R0016 


ALL DATA PROVIDED TO AND 


R002i 

R0023 

POORS 

R002T 


RECEIVED from ANY TFF SUBROUTINE WILL BE At ONE OF THE LEVELS ABOVE. IN ALL 
TTT^~TRTF~ FALL T I MF IS RETURNEO IN CENTISE CONnS AT (^28). PROGRAM T FF/CONlC WILL GENERATE VONE/RTMU 

IF MOON ORIGIN 

AND MU 


CASES. 
A N D ■ 


AT THE PROPER ^SOTLF BEFOPF CALLING 


RONE. VONE 

TFF/CON IX. SINCE RONE. "VONE’ 


IN THE FORM 1/S0RT(MU) IN TFF/PtMO 
THF XTENTTHT" VER B STORAGE AREA, 


THE USER MUST ALSO LOCK QtJT THE EXTENDED VERBS, AND RELEASE THEM WHEN FINISHED. 

CALC/TP'FR ASSUME 


rALC/TFF ANO 


R002^-T 

R0031 

P0032 


PROGRAMS 

Radius.' th t s rest p i c t i o n can be ‘ r e mo v €\T b y a 


rUAT TTTE T E15M11^2rL^TOTTTlJS 



The FOLLOrwTNG cRASABLF OUANTJntS AKE used by THE TEE 


AND are 



THE 




TfTTG 


BELOW 


A 003 6^ 


Wi 


USEU’TaRT EARTH DRIGI 
UST=T) FOR ORIGTl^" 



A003 A 


TFFSW 


119D BIT! 



TTOTT 




0 = CALCTFF 
02-01 


r ^“CAXCTPER “ 
XX ) M : . - r-T5T 


T 




wnr 


A0040 

0041 


RMAGT 

RPFR 


rzTj 

Tznr 


ABVALtRN) M 

PERIGEE RADTIJ5X3 


IT: 


T 

T 




IMT 

WT 


H 


(-27T 

r^TT 


0 0 I A 


AO 04 2 




TFFOI 

sdelf/? 




R‘77~7 



E t i-Un MXT^-TEir 



0016 


A0044 






IWTJ 


N R TEITK 


TETJ 
1 6D 


NITHETAT 77 

ETA) rz 

APOGEE' 



RADIOS ^ 


-XZ 


TERMINAL RADIUS M 


A 0 0 X6 
~aU4T 


ET 

W: 


(-29T M: t-2TT 
1-29+NRI “ 



0027 


00'49' 




TJUTS 


RTFRM ^ 
TFFVSO ^ 

TFFT/lSXn 


TBTT 

Tmr 


27 T 7 


TERmWSt RADIUS M 
-IV SODARED/MUI 
SEMI MAJ AXIS 


7 -29T ' 
bt (20) MT 

(-22-2 WAT“^ 


m; (-ztt 


A 00 50 
OObi 


T7^ 

"FT 

T^s (-20-2 N/a 


TT8T 


TJU5^ 

0 05 T 


TTDW 
0 0 3 2 
0224: 


T FFPTTOT^ 


TFFATFr ^ 


74TT 

26TT 


SQRT( ALEA) " 

AiFA rr^ 

SEMI LAI US RECTUM 


El ( 10+NA) 
E: (26-NR) 


MT 

KT 


(9+NAT 

(24-2077 



(-32+2”2TRT 
M: (-364-2 


m 


RRT" 

TT47 


UU26 

A 0057 


25XNR7 


2 /+NR7 


W5 

XKH 


TTDTZ 




TFFTC " 

TFFTEM 


36TJ 


TEMFORTTRT 



) 
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10:28 APR. 1,1969 CHIEFTAN.028 PAGE 1374 


TIME OF FREE FALL 


USER'S PAGE NO. 


EO S3 


A0060 


AQ061 

A006? 


A 006“^ 
A 006 V 

A 0065 


TECTISTERS si, S2 ARE UNTOUCRED BY ANY TFF SUBROUTINE 

INDEX REGISTERS XI, X2 ARE USED BY ALL TFF SUBROUTINES. THEY ARE ESTA B 
L ISHED TN TFE/CONIC AND MUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT 


SUBROUTINES 


rrxi) = NORM COUNT OF ~RMAG 
C(X2)= NORM COUNT OF SQRT(ABS(ALFA 







I 









r 7 AP: ASSEMBLF PEVTSinN 065 OF AGC PPOGPAM COMANCHF BY NASA 2021113-051 
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P0056 


R003 


R OOiS 


R0085 


R00R3 


POOR 9 


R009 


R0094 


R0096 
R 0098 

WT 


ROrOT 

R 0104 


TT 


ROIOV 


TOT 


TOrrr 


TOITO 


TOTTT 


TOTTTT 


TOTTT 

R0124“ 

H0125 


TOTTT 


P 012 T 

TOTTO 


R0130 


R 009 ' 


TIME OF FREE FALL 


USER'S PAGE NO. 


EO S3 



H = RN^V^4 


ANGULAR MOMENTUM 


LCP ^ H.H / MU 


SEMI LATUS RECTUM 


ALFA = 2/FN 


VN.VTP/ MU 


RECIPROCAL semi MAJ AXIS". SIGNED 


AND ALEA^TS POS for ELLIPTIC ORBriS 



SUBRnUTT N 
SEOUENCE:““ 


ALSO COMPUTES AND SAVES 


TFFCOMIC 

17 SORT (TOT 


EXPECTS CALLER TO ENT^r WITH CORRECT GRAVITATIONAL CONSTANT IN MPAC. IN 
. PRuGkW RTCX SAV^- TN TFF/RTMU . THE SCALE IS DEIEKMINEU bV WHEIHEK 



MOON 


OITIGTNTOS USE 
vTjNF ATTOTOF 





L 


"TITE CatC ETrT^)ST^i:OCK~DDT 

scale. TRE I^XTI-'ND’D VPRfiS MUSni 



VER B~S^ 

RESTORED WHEN THE CALLER IS EIMlSHtl) USI’MT 


TT 3 ~WDNE 
“TTTE — 


ROUTTNES". 

RY' prmn TFFuuwmj 



THAT 



LOADED 



WTT 


DLOAD — CMX 




ic MU ALREADY STORED: 

riTI Hr TTfT 



TFFCUNMU 



ROITA 
R 0 1 rs AOTTHSl 


SUBKOUTirrES c 
NORMAL EXIT MOi 




TTOTP 1 JT : nrr 


WTNiG ARE STORED IN THt T’TrSFT LT ST 
R M A r;i E:(-2ii) M:(-27)' M 

(_ 29 +'>jR ) w~ 


NRWA '3 


1 : 

IMT 


RN» PRESENT" 

NORMAL 



TOTH 


HT — - 



TTOTTTOT 


f - Mm- ■* 

R0120 

50 

— -NR. MNR'M CUUW7 




R0121 

TFTNT ‘■'^r~FTTFFZWT" 

M" TXFl SE^ UATUS RFCTUM^TOETGTi I EU BY NR. 

FOR VbAMCALL 






r-TO + T^TPT 

— ^ 


TFF/RTMTl TTTTTT M: ( 14) 

IFFVSQ F:(2UI ^ :TTT1 T/^ 
TFF AIT A E : (26- N'P 1“^ 


1/SOP 



vELTTcrm 


ET 

W: 



M 


FTGTTTai 


TFT^ 


t 



NORMATIZED 


TTO^TAT 



GAP: ASSEMBLE REVISION 055 OF AGO 
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10:28 APR. 
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L TIME HE FRFE FALL 


USER'S PAGE 

NO. 4 

EO S3 



R0131 X2 

-NA, NORM COUNT 






R0132 TFFl/ALF t : (-22 

-2NA» SITtNED semi MAJ AXIS» WEIGHTED BY NA 






R0133 M: (-20 

-2NA) 






R013^ PUSHLOC AT PDL+O 







ROl 35 THF FOtLOWINiG IS 

STORED IM GFNFRAL ERASABLE 






R0156 VOME* E:(10) M: 

(Q) V/RT(MU), NORMALIZED VELOCITY 






k0137 ERASABLE INITIALIZATION PE 

QUIRED: 






R0133 RONE E : (-29) ^ 

: (-27) M STATE VECTOR 

LEFT BY 

CALLER 




ROlA-0 VGNE E:(-7> M 

: (-5 > M/CS STATE VECTOR 

LEFT BY 

CALLEP 




ROl^R TFF/HTMU EMI"') 

M:(1^) 1/RT(CS SC/M CUBF) 

IF ENTER 

VIA TFFCONMIJ. 



R01A4 OEBRIS: OPRFT, POL+O . 

.. POL+3 







R0145 














0146 





33.^776 




BANK 

33 


01'-7 

RFE 

1 



27.2000 




SETLdC 

TOF-FF 


0148 





27,2757 




BANK 




014^) 

REF 

1 







COUNT^t' 

S$/TFF 














0150 

REF 

5 

LAST 

814 

27, .2757“ 

00037 

0 

TFFCONIC 

STORE 

TFF/RTMU 

l/SOftT(MU) E: (17) M: (14) 













0151 





27, 7 7 SO 

63 5 75' 

0 

TTn=^ClWMTr 

VLGAO 

UNIT 

COME HERE WITH TPFRTMU LUAUEf). 

015? 

F EF 

16 

LAST 

790 

27.2761 

02327 

0 



RONE 

SAVED RN. M E: (-29* M: (-27) 

0153 





27 ,2762 

77725 

t 

JL 


rddl 


UR/3 TO PDL+0, +5 

0154 





27,2763 

00045 

0 



36D 


0155 

REF 

1 



27,2764 

00015 

0 


STORE 

RMAGl 

M F: (-29) m: (-27) 













0156 





2 7,2765- 

7770T" 

1 


NORM 



0157 

REF 

97 

LAST 

1342 

27 ,2766 

00047 

1 



XI 

—NR 

0158 

REF 

4 

LAST 

815 

2 7 VTU^ 

?^4'04T 

1 


STOVL 

NR M AG 

RMAG M E : (-Z9+NR) P-ZT+NR ) 

0159 

REE 

12 

LKTr 

790 

27,2770~ 

“(12335 

0 ■ 



TTONF" ^ 

SAVED VN. MTTTS El (- M Ml T^SI 

0150 





27, 2771 

77761 

1 


vxSc 



■016T 

R*EF“ 


LAST 1376 

TT.llTl 

— ooo37"ir 



^TFTT^TMU 

E: (IT I H: T14T 

0T7r2 


“ T~ 

“rAST" 

~n 

2 1 1 2T7 3 

(12172 0 


STORE 

VONF^ 

VN/ SORT (MU) E: (10) M; (9) 


0T6T' 





P.7 ^ 2 774 

473 61 

Tr~ 


VX5U 

vxv 


0l64 

“ REF 

5 

LASl^ 

1376 ' 

2T f 277 ^ 

00041“ 

r 



NRMAG 

E: (-29+N5T M: (-27+NR) 

A 01 C)5 











UR/ 2 FROM PDL 

0166 





2 7 * 2 ^ / 6 

4 7572 

1 


VSEl 

V5Q 

before: E: (-19+N!TT M:C-184NR) 

ixr^T" 

REF 

T 

n:ATT 


“27T2T77 

140 35“T““ 


smor 

T F ENP 

LC P M F:f— 38+2NR) m:(— 3^+2NR) 

A0168 











SAVE Also for vgamcalc 

0 1 69 

i^E^ 

1 



"27,3 00 0 

15325 

r“ 



TFFI/4 


U1T0' 





27V3Dr01 “ 

6T2TI 

TT" 


DDV 

RO VI 

C2A^MAG} T AM E • C Z 1 M5C24 NR} 

Ol7l 

reE 

6 

LAST 

TTTb — 

27,3002 

00041 




Nfi“AG 

RMAG M e:i-29+nhi mii-zt+nkj 

' 01 72' ■ 

REF 

- 

^ L AS r 

1 376 

2 7 , 3 003 

“02372 

ir“ 


VONE' 

SAVEO TN. TT nTTT 7!1 (9T 

0173 





"7?7,3T) 0^' ■ 

- - 572 ^^ 6 "! 


vsg 

33CIJMP 

KEEP MPAC+Z HUNEST FOR SORT. 

0TT27- 

— TTF" 

T~ 

TUTrr 

“TTTf — 

2 7,3006 ” 

00025 

TT^ 


S T OR E 

TFFVSQ 

-(V S{J/mU) e: (201 m: i 18) 

AOIVF 











SAVE FOR VGAMCALC 






27,3 006 

5325T~ 

Tr“ 


5R^ 

DA D 














gap: 

ASSFMRLF f 

lEVISION 05"^ 

OF AGC PROGRAM CUMANCHF BY N/'SA 2021113-051 
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L 

TIMF 

OF 

FREE FALL 






USER’S PAGE NO. 5 EO S3 


01 7 7 




27, 1007 

20573 

1 


0 -6,1 

GET “VSO/MU E:(26-NRJ M:(?4-NR) 

0178 




27,3010 

77626 

0 

STADR 



AO 170 









2/RMAG FROM PDL+2 

0180 

REF 

1 


27,301 1 

77744 

0 

STORE 

TFFALFA 

ALFA 1/M E:(26-NR) M:(24-NR) 

0181 




27,3012 

41457 

1 

SL^ 

PUSH 

TEMP SAVE ALFA E:(20> M:(i8) 

OIR? 




27. 3013 

20173 

0 


0 “6,1 


0183 




27,3014 

75446 

0 

ABS 

SORT 

E;(10) M:(9) 

0 1 8 4 




27,3018 

77701 

1 

NORM 



01;- 3 

rIf 

4-5 

LAST 1368 

27,3016 

000 50 

1 


X2 

X2 = -NA 

0135 

RFF 

1 


27,3017 

000 31 

0 

STORE 

tffrtalf 

SQRT( ABS(ALFA» ) E:(10+NA) M:(9+NA) 

0137 




27,3020 

75316 

1 

DSO 

SIGN 

NOT SO ACCURATE. BUT OK 

A0ie3 









ALFA FROM POL+2 E:(20J M:(18) 

0189 




27,3021 

55254 

1 

8Z E 

BDDV 

SET 1/ALFA =0, TO SHOW SMALL ALFA 

01 'PO 




27, 3022 

57024 

0 


+ 2 


01<71 

pTf 

~ 

LAST 1376 

27,3023 

15325 

1 


TFFl/4 


0192 

RFF 

1 


27,3:)2A- 

00027 

1 

+2 STORE 

TFFl/ALF 

1/ALFA F:(-22-2 NA) M:(-20“2 NA) 

0193 




27.3025 

7T616 

0 

OUMPCNIC RVO 


~ ^ - r r 
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ASSrMPLt- P 
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L 

T I M F nF 

FREE FALL 


USER'S PAGE NO. 6 

EO S3 



P0195 

SU8POUTIN2 NAME: TFFRP/RA 


DATE : 

01. 17.67 



R0197 

MOO NO: 

0 


LOG SECTION: TIME OF FREE FALL 


R01"‘''> 

MHO by: 

RR BAIRNSFATHEP 






R0200 

MOD NO: 

1 MOD by: RR BAIRNSFATHER QAfE: 

H APR 

67 




R0201 

MOD NO: 

2 *<00 BY: RR BAIRNSFATHER DATE: 

21 MAR 

68 ACCEPT 

DIFFERENT EARTH/MOON SCALES 


P020^ 




ALSO IMPROVE ACCURACY OF RAPO. 



R020E 

FUNCTIONAL DESCRIPTION: USED BY CALCTPER AND TFF 

DISPLAYS 

TO CALCULATE 

PERIGEE RADIUS AND ALSO 



R0207 


APOGEE RADIUS FOR A GENERAL CONIC. 






R0208 


PROGRAM GIVES PERIGEE RADIUS AS APOGEE RADIUS IS GIVEN BY 



R0210 


RP = O /( H- -) 

RA 

= (1+E) / ALFA 




R0212 


WHERE 2 






R0213 


E = 1 - “ ALFA 






R021 4 


IF P. A IS NFGATtVE OP SHOWS DIVIDE OVERFLOW. THEN 

RA = POSMAX BECAUSE 




ROZlft 


■ '1. apogee RADIUS IS NOT MEANINGFUL FOR HYPFRBOLA 





R0217 


2. APOGEE RADIUS IS NOT DEFINED FOR PAPABOLA 





R0213 


3. APOGEE RADIUS EXCEEDS THE SCALING FOR 

FLLIPSE, 



IT .Ui 1 


R0219 


THIS SUBROUTINE REQUIRES THE SIGNEO RECIPROCAL 

SEMI MAJ 

AXIS, ATFXr" 

AND S’^MI LATUS RECTUM 

A S DA T A • 


P0221 

CftLLIMG 

SEQUENCE; CALL 







R0222 TFFRP/RA 


^q222 PU-SHL0C~= PDL-*-Ot ARBITRARY IF LEQ lOD 

P.0224 C(MPAC) UNSPECIFIFD 


R0225 

SUBROUTINES CALLED; "NONE 




R0226 

NORMAL 

EXIT MODE: RVQ 




P0227 


IF ELLIPSE. WITHIN NORMAL SCAXlNG. PAPO IS CORRECT. 




R0?2‘6 


UTHERWISFf PAPO = POSMAX. 




R0229 

ALARMS: 

NONE 




R0230 

OUTPUT : 

STORED TN PUSH 1 1ST AREA. SCALE OF OUTPUT AGREES WITH DATA 

SUPPLIED 

TO TFF/CONlC. 

r-jm — a-T » ■■. ■ ■■■ — -—p w w ■■■ 

R0?3'2 


PPER '":{-29) H:<-27» M' PERIGEE RADIUS 

DESTROYED BY CALCThF/ 

XALCTPER. TFFTRIG. 

R0234 


PAPO t ; (-29) M; (-27 J M apogee RADIUS 

WILL 

BE DESTROYED BY 

CALCT FF/CALL 1 PEK 

R0236 


PUSHLOC AT POL+0 




RT)T 3 7 

ERASaHU 

E INITIALIZATION RF OUT RED: 




R023R 


TFFALFA r:I26-NR) M 1/SEMI MAJ AXIS 

LEFT 

BY TFFCdNIC 


R02'4(T 


M :T24-NP J 




R02^ri 


TFFNP Fr~r-TB + 2mT“ TC P. StMT TAlUS TIl^CTUFr 

1 1 

BY IF FCON I C 


R0243 


Ml (-36+2Nft ) ^ 




P02AA 


XI ■ XTIUNT DT RATSG 

LEFT 

BY TFfCUNIC 


R024ES 


X 2 -N A , NO PIT C OUNT OF ALFA 

LEFT 

BY IFFLUINIC 


R024B 

DEBRIS: 

QPRET. PDL+0 ... PDL+1 






















— .»■ 







• c»**— c 


GAP: ASSF'^BLE REVISION 05S OF AGC PROG^A?^ COMANCHE BY NASA 2021113-051 10:26 APR. 1, 1*^69 CH1EFTAN«Q26 PAGE 1379 


L 

TIME 

OF 

FP^FE 1 

FALL 






USER'S PAGE NO. 7 EO S3 



P0249 












0250 





0020 


RAPO 


160 

APOGEE RADIUS M E: (-29) M: (-27) 


0251 





0016 


RPER 


140 

PERIGEE RADIUS M E:(-29) M;(-27) 


A.CZ52 

0253 





27,3026 

41345 0 

TFFRP/RA 

OLOAD 

DMP 



0254 

9FF 

2 

LftST 

1377 

27,3027 

00033 1 



TFFALFA 

ALFA 1/M E;(26-NR) M;(24-NR) 


0255 

f? FF 

3 

LAST 

1376 

27.3030 

00035 1 



TFFNP 

LC P M E;(-38+2NR) M:<-36+2NR) 


02 56 





27,3031 

57457 0 


SR* 

DCOMP 

ALFA P (-12+NR) 


0257 





27,3032 

20571 0 



0 -30,1 

ALFA P (-4) 


02 5 R 





27.3033 

51415 0 


DAO 

A0S 

(OCOMP GIVFS VALID TP RESULT FOR SORT) 


^025^ 










(ABS PROTECTS SORT IF E IS VERY NEAR 0) 


0260 

REF 

4 

LAST 

B79 

27.3034 

17366 1 



DP2 (-4) 



0261 





27.3035 

43366 0 


SORT 

DAD 

E SO = (1- P ALFA) R4T 


0262 

RFF 

3 

LAST 

1377 

27,3036 

15325 1 



T^Fl/4 



0263 





27,3037 

55206 0 


PUSH 

HDUV 

( 1 + E ) (-2 ) TO PDL+0 


0264 

REF 

4 

LAST 

1379 

2 7 , 30 4 0 

00035 1 



TFFMP 

LCP M E;(-38'-2NR) M:(-36 + 2NR) 


0265 





2 7 t 3 0^ 1 

53657 0 



SR* 

(DOES SR THEN SL TO AVOID OVFL) 


0266 





27.3042 

20601 1 



0, 1 

Xl=-NR 


OPTTT 





27, 3047 

20572 0 



0 -7,1 

(EFFECTIVE SL ) 


0268 

REF 

3 

LAST 

523 

27,3044 

14017 I 


STOOL 

R P f- P. 

PERIGEE RAOTUS W F : (-29T m: (-27) 


A0269 










(l + E) FTJ FROM PDL+0 


rymr~ 





27,3045 

41005 1 


“DMT* 

pnvP 



0271 

■R'FF~ 

^ 

LAST 

1377 

27.3046 

00027 1 



Tt"51/ALF 

E: (-22-2NA> M: (-20-2NAI 


0272 

REF 

11 

LAST 

1335 

27.3047 

5735? 1 



TC0AN71G 

CLEAR OVFIND, IF ON. 


0273 





?7,305ff' 

5T634^ {J 



SL* 



02 74 

R E F 

1 



2T.T0TI ■ 

57060 0 



MAXP A 

SET POSMAX* If ALFA— 0 


0275 





27, 3052" 

57603 0 



0 -5,2 

-5+NA 


02T6 “ 





27 , 3 OFT 

40n5TT ^ 


“ST* 

BOV 



U7T7~ 





27 .3054 

57576 T 



0,2 



0273 

REF 

“2“ 

LAST 

1379 

27,3055 

57060 0 



M A XU'S 

SET POSMAX IF OVFL. 







~ZT,“30 5fr~ 

"TT644 T~ 




CONTINUE WITH VALIU RAPO. 


0280 





2 7"; 3135 7 

5T06Z~r~ 



+ 3 



0231 ■ 





27,7060 — 

77745 1 

MAXRA 

dloao 


RAPQ Calc is nut valid, set kapo = 



■REF'" 

— zr 

LAST 

BTV 

2 / . TC76T 

1 /3 72 1 



Nh ARON E 

POSMAX AS A TAG. 


02 83 

REF'“ 




27.3062 

00021 T 

T3 

SIURE 

KAPO 

apogee RADIUS e: (-29) M: (-27) 


07114“ 






776 16 0 

OUMPRPRA 

TWO 





2raZB5 


?tr-w 



!l 


GAP : ASStEMBLE REVISION OF AGO PROGRAM CQMANCHt 3Y NASA 2021113-051 


10:28 APR. 1,1969 


L 


TIME np FREE FALL 


USER'S PAGE NO 


8 


EO S3 


P0236 


SURRGUTINE NAME: 


CALCTPER 


CALCTFF 


date: 


01.29.67 


R0288 

R0290 


MOD 

MOD BY: 


0 

RR BATRNSFATHER 


LOG SECTION: 




R0?'=>1 


MOn NO: 


won PY: RR 8AIRNSFATHER 



F: 21 MAR 67 


’•^02^2 

R0293 


MOD NO: 
MOO MO: 


MOD BY : 
MOO BY : 


~PP BAIRNSFATHER 

PR RAIRMSFATHFp 


DATE: 

DATE: 


14 APR 67 
8JUL 67 


R 0 2 P o 


MOD NO: 


‘^On BY: RR BAIRNSFATHER 


DATE: 


R02O7 


MOD NO: 


21 NOV 67 
21 MAR 68 


NEAR EARTH MUE AND NEG TFF 
ADO VARIABLE MU. “ 


GONEP 


R0299 


MOD BY: PR BAIRNSFATHER DATE: 

PROGRAM CALCULATES THE FREE-FALL TIME OF FLIGHT FROM PRESENT POSIT! 


M.CEP T ' DIT F'ERTNT' T AR T H / MOON SCALES 

ANb 



R0301 


P0B03 

R0305 


RmCTIONAL description: PROGRAM CALCULATES THE FKbt-hALL IlMt ut- fLtb Mi r-i\un RN 

VELOC I TY VN TO A RADIUS LENGTH SPECIFIED RTERM t SUPPLIED BY THE USER. TH E POSITION VECTOR 

may be on EITHER SIDE OF THE CONIC, BUT RTERM IS CONSIDERED ON THE INBOUND SIDE. 

THE EQUATIONS ARE 


R03 J6 
RC3 0B 


02 = -SQRT(RTE^M 1 a-f^TERM ALFA ) 


LCP) 


(INBOUND SI DEI) 


LEO “+- L CETTQRK ALFAT 


R0B09 


01 RN.VN / SORTLMJT 


LEO +- X7:iASQRT( ALFA! 


ROBli 



z = / DEN 


+- 1/S0RT(ALEAI 


R0313 

R0314 


w mehe. If inbpiund 



R0316 


NUM = RTERM - RN 
DEN = 02+01 


E 

LEO + 


E/ALFA 



ALFA! 


R0315 


AND 


R0310 

R032T 


IF OUTBOUr 
NUM = Q2-Q1 


OEN = 2 - ALF'A (RTERM 1- RNT 


LEQ + 




ronrr 


R0323 



ALFA Z Z 


TTCT 


T 



EXCEPT 



PSES HAVING ABS(DEC ECC^ ANOMJ G DEGT^ 


rutzu 

R0326 


THFTI 


X = ALFA 

TFF^ 






T ( X r 1 



K032r 


EXCEPT tF ALFA AND 



V/ v ' 


THF^r 



TFF = /(ALPS SORT (ALFA)) + TFF 


P0329 


OR IF — ALFA IZ PFO TaT 


(FOR ELL I PSES HAV ING ABS(Ut-L L-H. ANHUI dbQ 90 Dfc«) 


R033 ! 


THFF) 





ir^ 


RO??,? 


AND 


TFF = ( J’l /SORT ( ALFA ) -02 +Q1 +2(X T{X) -II /ALFA 1} /ALFA SQRUl^UJ 


■R‘D3?4 


R0335 


WHFRF r ( X ) IS T~TTXTNnwTAirTOT>R OXTWATTCTI TO 

5 



7 



X/3 +X /7‘^ T5 T - 


TT 




P.0337 CALL IMF SFOUtWCF: TIMF Tij RTERM 

R0 33T CTTCI” 

TOW) 


POTZT 


r ALCTFF 

C(MPAC) = TbRMNL RAO ff 


TIMF TO PtRlIjfcb 
CALL 

— CALCTPER 

= PtP 


C(MPAC) 



R0344 


FOR tlTRPRT 


T^T) 





F I T H E P ", P U S H L n C "^~P17U+Tr ‘:r~ATrBTTR AT^T T LEQ BIX. 










^ - — 
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L 

time of free fall 


USER'S PAGE 

NO. 9 

EO S3 



R03A6 

SUBRnUTTN*-S CALLED: T(XJ, VIA RTB 







R0347 

NORMAL EXIT MOOF: RVQ 







R034^ 

mWEVEP. PF-nGRAM EXITS WITH ONE OF THE FOLLOWING VALUES 

FOR 

TFF (-28) CS IN MPAC. USER MUST STORE. 


R 03S0 

A. TF‘== FLIGHT TIMF. NORMAL CASE FOR POSITIVE FLIGHT 

TIME LESS THAN ONE ORBITAL PERIOD. 


R03S2 

P, (THIS OPTION IS NO LONGER USED.) 







R0353 

TFF = POSMAX. THIS INDICATES THAT THE CONIC 

FROM 

THE PRESENT POSITION WILL 

NOT 

RETURN TO 


R03S‘=^ 

THE SPECIFIFD ALTITUDE. ALSO INDICATES OUTBOUND 

PARABOLA 

OR HYPERBOLA. 




R03S7 

OUTPUT: C(MPAC) (-28) CS TIME OF FLIGHT, OR TIME TO PERIGEE 






P,0358 

TFFX (0) X, 


LEFT 

FOR ENTRY DISPLAY 

TFF 

ROUTINES 


Rn360 

NRTERM F: (-29+NR) M RTERM. WEIGHTED BY NR 


LEFT 

FOR ENTRY DISPLAY 

TFF 

ROUT I NES 


R03G? 

M: (-27+ NR) 







R03S3 

TFFTEM F; 1-59+2NR) tCP Z Z SGN(SDELF) 


LEFT 

FOR ENTRY DISPLAY 

TFF 

ROUT I N E S 


R036S 

■ M: (-SS+2MR) LCP /ALFA SGN(SDELF) 


LEFT 

FOR ENTRY DISPLAY 

TFF 

ROUT t NE S 


P03F7 

note: TFFTEM = POL 36D AND WILL BE DESTROYED BY .:UNIT 

• 






R 0 3 n 3 

rmAGI E ; (-29) M: 1-27) POL 12 NOT TOUCHED. 







R0369 

TFFOl E:(-16) M:(-1S) POL 140 







^0370 

TFFDELO E:(-16T POL 100 







R0371 

PUSHLDC AT POL+0 







Rd372 

ERASABLE ! N I T I AL t Z AT 1 ON REQiHRED: 



>■ ■ ■ -g " ■ ■ — ■“ ■ "Mil 




R0373 

TONi- £:(-29) STATI^VECTOR 


L EL T 

BY USFR 




R0378 

VONt • F. : ( + 1 0 ) M: ( +9 ) VN/ SORT (MLt) 


LEFT 

BY TFF/CONIC 




Rd377 

RMAGI e:(-29) M;(-27» P’RESENT RADIUS, M 



fj f 1 , 1 V# i_l 1 M J. V# 




R03 79 

r.(HPACl^:(-29'l M; {-773 PTERfT; TERMINAL RADIUS LENG/H , 

M 


iJ 1 J (7^ 14 





R03PI 

THIT FOLLOWITJTr'ltRF ST0R¥!3''TFr THE PUSff UTST AREA. 







R 03:T2” 

TFF/RTMTT FTTTTI ri47 I/SQRTIMDI 


left 

BY TFFCLlNlC. 




ITTJTW 

NRmAG E: i-2P+HR) M RHAG. NORHALIZEG 


LEFT 

BY TFFCONfC 




ROBTlC^" 

“ M; (-27+NRr 







R03H/ 

XI -HR, HURM CUUNT 


LEFT 

BY 1 F FCuNTC 




RTJBW 

TFETTP — E; (-3A + 2NR) R LCP. St-MI LATUS RECTUM. WEIGHT 

NR 

LEFT 

BY ! FFCtTN I C 




RTTTrr 

M: (-3V+2NR'T 







R a 397 ■ 

TFFALPA E: (26-^TR) ALLA, WEIGHT NK 


LEFT 

hY IFFCtJNlC 




R0394 

«: i24-:jr) 







R03v^ 

TFFPTSLF E;(10+NA) SORTrSIFA), NORHALl/bO 


LEF t 

B Y TFl* C 1 ] NIC 




R03 -7 

M; <9+NA) 







R0 3^T 

X2 — NA. NORM COUNT 


LEFt 

BY I F FCUN 1C 




R04G!T~ 

TFF174CF ■^FT^^2-2NS1 STGTTED STHIHAJ AXIS, WLlKHItU by ina 

LEF f 

BY TFFCONIC 




R0402‘ 

• ►n (-?o-2Tnn 







R04i33 

0E3PIS; OPRFT. P!3L+(V ... PDII+S 







POAOA 

m LRM g i (-297 Mi (-2 n KIEPM, TERMINAL KAUIUS LENGTH" 



- — — 




R04n5“ 

- - RAPTl :-i (-29) M: (-271 POL loTr (-NPTERM7 







Pf)406' 

RPEl? E: (-29) W; (-27) PDL 14D (=TFFOn 








■ ■ ■ — - - ~ 

JL 1 1 















— = 



__ _ 











_ _ 

1 — — — 

— - 
















-1 ■ < - ■ ■ ■ ■ — ■ — — - - 
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L TIMF OF FREE FALL 

USER'S page 

o 

o 

EO $3 




P 0407 



041 


■^EF 


LAST 



? 7 t 3072 

27.3073 

27.3074 


00021 1 


0417 

0418 


REF 


LAST 1379 


27.3075 

27.3076 


44205 0 
00033 1 


TTURl 

DM?^ 


0*1 
nrTeR 




“27 +NP 


BDSU 



TFFALFA 


ALFA 


04 T 


REF 


4 


LAST 1379 


27,3077 


15325 1 


TPFl/4 


0420 

0421 


REF 


LAST 1382 


27.3100 

27.3101 


41206 0 
00021 1 


PUSH 


OMP 
K’PTFRM 


r ^LFA PT ER~HI 

<- 29 +NR 


(-3) 

(-2T+NR) 


TO PDL+O 


04 2 


27,3102 


53725 1 


POOL 


SR* 


A 0423 
0424 


(-30+NR1 


ref 


LAST 1379 


27.3103 


0425 


0426 


27.3104 

27 .3105 


00035 

■20573 


4 ^ 76 ^ 


iK:mp 


TFFNP 

0 - 6,1 

T)AT 5 


E: <- 29 +NR) M: 

RTFRMr 2 -ALFA RTERM) TO PDL +2 

LC P E: {-38+2NR) 

.“KEEP PlTECISinN 


E: 


M: (-36+2NR) 





A 0427 



A 0428 


RTER 



042 ^ 

0430 


0431 


0432 


REF 


LAST 1382 


77.3106 

27.3107 
27,3110 

27 ,^ 11 I 


77657 0 
20601 I 




712 74 0 




0 , 1 


lEAVF 

XI = - 


1 vn 


PMy FROM 


TTr"(-3oy 



TFF 7“TTOT 


nxH 


03 7 55: 0 


TFFS¥ 


0433 


0434 

0475 


REF 


27,3112 

777TTTT 




f ^ 


UA 



T 2 





IF tff, continue 

TF TPFR. SET QT" 

(-161 M: r 


T1 



157 


IJ 435 


REF 


T 


27,3115 


5774 7 I 


TTAXTFFT 


NO FREE FALL CUNIC TU TITERM FRUM HERE 

, 5ET TEF^PUSMAX. ANTT EXIT. 



5433 

TT 4 T 9 




Z 7 ", 
7777 X 77 

TTTTTTTT 


410760 



0441 


L A S ^ 



0442 


27,3721 
7T7 


24C45‘X 

02372 a 


T5(XmP EDVB'" 
—— TCUAMZ IG 
STOVL TFFTEM 


RT 1S"0N' TNBUUNU SIDE 
Aisnr PORT XN A ST01TW7” 


ASSURE UVFINU=T 1 



E: (- 16 ) 


VUNE 


^/S OR TIMU ) E”: TUD 


(- 15 ) 

“ 74 : 


797 




HOT 


0443 

X 444 


REF n LAST 13^6 2 7 , 3 1 23 


T 7 F 


77,7 1 74 


02327 0 
17 7 


SL 3 

mm 


STOXE 




SAVED RN. 

XT. 

X 67 


F: (-291 M: (-27) 






044 


7777775 



r 



X 447 



K f: I 


LXST 





44240”T 

5714/ 1 

OTTO 45 ^ X 



1 *» 


BT> 5 n 


TNRUUNLl 

TFFTE75^ 



E: T^THI WT- T- 



A 0444 


TTUT 



Z rsrc CONTINUES HEPX 


045 ^ 


0451 

5457 


Rhh 


2 LAS! 5X5 
"TXST X757 


4 


TTTTTXT 

7T77TTT 

777T177 


I4047"“J 

X 


STODX 



TFFX 

TFFALFA 


NUM=02-Ui F: (-16) 

TnXTl E: ( 26 -NRT~ 




M: (- 15 ) 

T 74 ^NR) 


442 X 15 


OMP 


BTTSU 



jAP: ^SSEMRLI£ f^EVTSI'iN 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10228 APR* 1*1969 CHIEFTAN«028 PAGE 1333 


OF FRFE FALL 


USER'S PAGE NO 


EO S3 



0A53 


FF 


7 LAST 1376 


27.3133 


00041 1 


A 0434 


0455 


A0455 


0457 
045 3 


0459 


0460 

0461 


A 0462 


0463 

0464 


0465 


0466 


R F F 




•^FF 


KEF 


EF 


1 


2 LAST 13^2 


LAST 1382 


27.3134 


27*3135 
27. 3136 


27,3137 


27.3140 

27.3141 


7.3142 
27.3143 


27, 3144 


27.3145 


40015 1 
17360 1 


57160 1 


65345 0 
15335 0 


57545 1 
00033 1 


71240 1 


57254 0 


NR MAG 


51406 1 SAVEDEN PUSH 


DAD 


DLOAD 


3 MM 


ABS 


BOV- 

LIM(-22y 


TFFXTEST 


OLOAO. PDDL 

TFFZFR 


DCOMP 
TFFALFA 


DLOAO 


TFFELI 


RMAG E: (-29+NR) M: (-27+NP) 


(2-RTEPM ALFA) (-3) FROM POL+Q 

DEN TO POL+O E2 (-3) OR (-16) 

M; (-3) OR (-15) 


INOETERMINANCY TEST 
=1.0-B(-22) 

GO IF OEN >/= B(-22) 


SET DEN=0 OTHERWISE 


XCH ZERO WITH PDL+O 


ALFA E: (26-NR) M: ( 24-NR ) 

FOR TPFR: Z INDET AT 0ELE/2=0 AND 90. 


ASSUME 90. AND LEAVE 0 IN PDT: 1/Z=D/N 


A 046 7 


0468 


27,3146 


77616 0 ruJRPTFFl RVQ 


Z INDET. AT PERIGEE FOR PARAB UK HYPfcHb 


return iff 


A 0469 


0470 

0471 

0472 


0474 


754T6 


wm 


04T8 


04 /9 
A 0480 


04S2 


0'4 2. 3 




^4^ 

WT6 


A(J4H7 

TOFfH 
AD4"3^ 

0470 


7T47T 


4W37 


04^ 

4 0495 


A 0476' 


RTF 



TFf 


FTF 

TFF 


RTF 


TTFF 


TFF 


TMT 


LAST 1377^ 
LAST 1382 
LAST i3TT 


1 

T 


LAST 


27,3147 

27,3150 


27.3151 

T7, 315? 
27. 3153 
22. 2154' 
7T7TT55^ 


27.3T56 


77TT 


27,2160 


77745 1 
45345 1 


00023 0 

00015 T 

14043 0 
00045 0 


iNBrjUFfO Z CALC CONTINUES HERE 
INBOUND “ 


DLOAD 

DLLIAO 


ODL 


DSIJ 
'RTFRH 

RMAG l 

TFFX 


RESET PDL4-^ 
ALTERNATE Z CAL 
F; (-29) 


570X5^ 
00017 1 

57134 0 




TFFTFIT" 

G OT U 

TFFTT — 

SAVFDETl 


E : r- 2 91 WT 
=RTERM-RN 
T2 E: (-16T 


FTTT 


XTTT 


F : 


(-291 M: (-27) 


151 


TH E: (-16) 

DEN = 02+01 


M: (-lb) 
E: (-161^ 


F: 


T5r 


65215 1 



TOFT 


(ABS (DEN) TO paLT2rr 


FT 

Wz 


(-3) OR {-ITT 
T^^TFTiTr^rxrTr 



27 . 316T 



OTT“TT77 2T, "HTT 


27.316T 


00043 

53605 1 
nOTJ31 0 
5720TTT 


“RESTORE ABS(DEN) !U MPAC 

H:(-15) OR (-27T 


:(-16) OR (-291 



54)RT( ALFA! ET (lO+NAT m: 


0 - '^77 


27.3166 T7 671 1 


DDV 


X2=-Na 

C(MPACT“ = NUM SORKALFAT 


FT 1^31 UR (-16T 



BSC DEN) FROM PDL+7 


M: (-31 OR (-T5T 

1 


E:(-3) UR 

nrv^ 


27,316 


TTTT 


DLGAD' 


5 

T 


LAST li'HT 


27.31 ru 


2T7TTTT 


0 0 0'4T15“ 

TT 


BW 

TFFT 



TTHETTLUAD IS 

(-16) UR (-29) 


TJTT 

LFFEtn 


(-15) 


FT 


M:(-15) UR (-2TT 


TFFLLL 


USE EQIVI' FUR DEUt GbU 9U, LEU -90 



TTF h ON 


7T73T7T 


45471 r 


UDV 


STATTR 


DEN FROM PDL+O 


E: (-3) OR (-16) 


(-3) UR (-15) 


TT4T7 R'EF 


T LATT^ T383 


2 7,3 1T3 


77732 1 


STOPF TFFTEM 


SAVE FOP SIGN OF SDFLF 



gap; 

AS5FM3LF REVISION 055 

OF AOC PR( 

IG-^AM C93*ANCHE by NASA 2021113-051 10 

:28 APR. 1,1969 CHIFFTAN.OZB PAGE 1384 


L 

T I ME 

OF 

FREE 1 

FALL 






USER'S PAGE NO. 12 EO S3 


^0^93 










F: (-13) M: (-12) 

0499 





27,3174 

63406 0 


PUSH 

DSQ 

Z TO PDL+O 

0500 





27,3175 

41206 0 


PUSH 

OMP 

Z SQ TO POL+2 E: (-26) M: (-24) 

0501 

REF 

6 

LAST 

1332 

27.3176 

00035 i 



TFFNP 

LC P E: (-38+2NR) M: (-36+2NRJ 

0502 





27,3177 

75261 0 


SL 

SIGN 


0503 





27,3200 

20206 1 



5 


050^f 

REF 

7 

LAST 

1383 

27.3201 

00045 0 



tt-ftem 

“AFFIX SIGN FOft SOELF (ENTRY DISPLAY) 

0 505 

REF 

8 

LAST 

1384 

27,3202 

14045 0 


stool 

TFFTEM 

R 2TQ F: (-59+2NR) M: (-55+2NR> 

A0506 










(ARG IS USED IN TFF/TRIG) 

A0507 










ZSO FROM PDL+2 E: (-26) M: (-24) 

0508 





27,3203 

41206 0 


PUSH 

OMP 

RESTORE PUSH LOG 

0509 

REF 

6 

LAST 

1383 

27,3204 

00033 1 



TFFALFA 

ALFA E: (26-NP) M: ( 24-NR ) 

0510 





27.3205 

77657 0 


Sl^ 



0511 





27,3206 

20201 0 



0,1 

X1=-NR 

0512 

REF 

6 

LAST 

1333 

27.3207 

000 43 “O 


STORE 

TFFX 

X 

051 ^ 





27, 3210 

41234 1 


RTB 

DMP 


0514 

REF 

1 



27,3211 

57334 1 



T(X) 

POLY 

A0515 










ZSO FROM PDL+2 E: (-26) M: l-24> 

0516 





27,3212 

44302 0 


SR 2 

BDSU 

2 zsq T(X) E; (-29) M: (-27T 

0517 

REF 

5 

LAST 

1333 

27,3213 

00023 0 



RT E ft M 

RTERM L; I-29I M: (-27) 

0518 





27, 3214 

41215 1 


DAD 

0 M P 


0519 

REF 

3 

LAST 

1333 

27,3215 

00015 0 



RMAGl 

E; (-29) M: (-27) 

A0520 










Z FROM PDL+0 Ei (—13) MJ (— T2) 

0521 





27,321 6 

51042 0 


SR 3 

BPL 

TFF SQRT(MU) E: (-45) M: (-42) 

0522 

F F 

1 



27,3217 

57240 0 



fndtff " 

(NO POSH UP) 

0593 





27,3220 



PUSH 

STGT^ 

TFF SORT ( MI} r TO PDL + 0 

05><. 

REF 

3 

LAST 

1333 

27.3221 

00017 1 



TFFOl 

Q1 FOR GQNEPAST TEST 

0525 





27,3222 

71244 0 


BPL 

DIO AO 

GONE PAST 7 

052^ 

RcrF 

1 



27,32235 

51^4^ 



NKGTFf" 

YES, TFF < 0 . 

0527 

P FF 

3 

LAST 

1379 

27 , 3224 

00027 1 



TfEi/ALE 

1/ALFA E: (-22-2NA) Ml (-20-2NA) 

0523 





27,3225 

— 51076 T 


DCGMP^ 


ALFA > 0 ? 

0^2 9 

r: FF 

"T” 

LAST 

13 84 

27,3226 

57244 1 



^NEGTFF 

NO, TFF IS NEGATIVE, 


A 05 3 0 







CORKEI 

I j U K 

TTRBTTAL PERTOlXr 



0531 





27,3227 

‘'76 76 0 


1)C0MP 


YES, CORRECT FOR ORB PERIOD, 

0532 





27. 32 3 O' 

a 


DM P' 



0533 

R EF 

1 



27 , 3T3 1 

173^6“T “ 



^1/16 

2 PI (-5) 

0 53 4 

REF 

3 

LAST 

13 8 3 

27, 3232 

00031 0 



tffrtALF 

SQRT(ALFA) EJ (10+NA) M: ( 9+NA J 

0535” 





2T , J2 T3“ 

53 6 57 0 


S L ^ 

SL^ 


053^ 





“27,3234 

^7602 1 



0 -4.2 

X2=-NA 

0537 





27,3235 

57602 1 



0 —4.2 


0533 





27,3236 

43 2 57 0 


SL ^ 

DAD 


0539 





27, 3237^ 

57576 1 





A 0540 










TFF Sqrt(MU) from pqL+O e : ( -45 ) M : (-42 ) 

0‘5'4T” 





2^.3240 

”~7fo:007r‘0' 

TNDTFF 


BMV 

T Eh SQRTCMU) IN MPAC ElT-45) Mt(— 42) 

0542 

REF 


^XTTST 

1376 

2 7 1 i 1 

0003 / 0 



t FF/'-*TMU 

fcJ (17) MI (14) 

0543 

ETT" 

r 



— 27.3242 

572 50 ■ T“ 



iMAXTF F 

5TT PDSMAX 1 h o VFI“. 












D5W 





ZT, 3 2 4T' 

77^ 6 0^ 

DUm^TFFT 

~RVD 


RETURN Ihh (-28) CS IN MPAC, 







GAP ; 

ASSEMBLE REVISION 055 

OF AGC PROG 

RAM C! 

DMANCHE BY 

NASA 2021113-051 

10:28 
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CHIEFTAN. 

023 PAGE 1385 













L 

TIME GF FREE FALL 






USER'S PAGE 

NO. 13 

EO S 3 



0545 


27,3244 

77745 

1 NEGTFF 

OLOAD 






A 0546 






T^ 

SORT(MU) FROM PDL+ 0 * 

NEGATIVE. 


0547 


27.3245 

77650 

1 

GOTO 






054 3 

REF 2 LAST 1384 

2 ' 7,3246 

57240 

0 

ENDTFF 











0549 


27,3247 


77745 1 MAXTFFl DLOAD 


0550 


27,3250 


43545 1 MAXTFF 


OLOAD RVQ 


0551 


REF 


LAST 1379 


27 ,325 1 


17372 I 


NEARONE 


R 0552 


TIME i:iF FLIGHT ELLIPSE '/HEN DEL ( ECX ENTP I C ANOM ) GEQ 90 AND LEO -90 



A 0553 


NUM FROM TFFX 


A 0554 


0555 

0556 
A 0557 


27 , 325 ; 

27,3253 


77712 0 
41465 0 


TFFELL 


SL 2 
BOOV 


NUM E:(- 14 ) or 


M 

T 


(-16) 

^T 5 T 


TH 


(-29 
(- 27 ) 


M:(- 13 ) DR (- 25 ) 


PUSH 


A 055 a 

0559 


TEMP SAVE 0 /N IN PDL +0 
DEN FROM POL +0 E:(- 3 )/( 16 ) M:( 

(TOT 


3 )/(-l 5 ) 



0560 


0561 




9 LAST 1384 


27 , 3 ?‘S 4 
27, 3 2 5 3 


4534*5 1 TFFFLl 
00045 0 


DLOAO DSU 


TCT PDH-O 

(ENTER WITH 0 

r-Tsr 


E: ( 11 ) >i: 

N =0 IN POL +0 

T 


4 


0562 


REF 



LAST 1334 


27.3256 

27.3257 


0001 ? ] 
14013 0 


STOOL 


TFFQl 
TFFOELQ 


A 0563 
05 3 3 


01 

02-01 Ft (-16 

0/N FRON POL + 0' 



f -> 


60 


- 77626 ' 0 


STADR 


0565 


RTT^ To LAST 1385 


0 5 6 s 
U 5 OT 


27,3261 

T77T76T 


77732 1 

5 16 OT T 


STORE TFFTTM 


dtn — rr“nrn m: (lO) 


T)MT> 


4 L 7 IST 13 R 4 





0569 


05 7(1 

OTTT 


RTF n LAST 13 T^ 


27,326'3 
27,32_'6"4 57576 T 

27 , 3 2 OT> 41 ZDOTTJ 

?7,3 26to 00045 (T 

27, 3267 


3 L* 

IFF 1 /ALT 

T 5 T 2 



“ET 

1/ALFA T“ 


1 


TT 



r-Ta-TNAT" 
(- 1 I- 1 TA') M: (- 10 -NA) 


FDSTR 




41057 0 




T F F TE M 


TO POL +0 

E 





Xy 5 T 3 ' 

05/^4 


■RTF 

TTTF 


16 

T 


L 




771 


LAST 13-^4 2 7,3277 


57576 1 

r 

00043 0 



f 



• 1 


05 '5 

TT57T 


wrrr 


TFF 

TFT 


2 

TT 


TATT 

OTT 


1384 

TT8T 


TTTTZTT 

ZT 7 T 774 


41234 1 


STOR-F 

RTB — 


TTTX 


X 2 = -NA 

IN CASE X= 1 . 0 , CUNIINUE 

X=1/AUF 



573 34 T 


7 T 73 T 75 


057 3 


RTF 


2 /,327T 

2 /, 3277 


00043 0 

■ 45242 OT 



FUCT 





U 5 W 
A 05 3 T 


27, 3 1017 


41405 0 


IW 


TTTU 


TTP2T- 

PUSH 


TT 


A 05^2 


2 (X I (X)-i) // ALFA FT 

■ 

1 /ALFA 2 FRUM PDL +0 FT 


T 


T 


TT 

TT 


NA J 


THAT 



TVOT 



05 " 35 

0575 

0557 

055 ^ 

0590 

0591 


12 LA 5 T“TT 55 

- 4 — LAST I’TTZT 


777330T 

ZTIOTOT 

7 T 7 T 700 


41545 ^ 
00045 0J 
00015 0 
4331? 0 


DLDAO’ ORO 


OTT 


TTFTT 

RMAGT 


SIGN FIJk SHELF 

rrrT ' m : ( tot 

— M: (-27T 


5t?" 


off 

RTF 

R“FT 


rrsT 1335 
OIST 

LOOT 


or 


T 



“FT 

Ul + R 1/7) 


OT“T 





00005 

53605 


D'MF 


TFFNP 

51 ^ 


= SGN UF SUFLF bM -16) H!C-15 
2NR)’ C-35+2NR1 


FOR ARG FOR 





% 
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L TIME OF FREE FALL 

USER'S PAGE 

NO. 14 

EO S3 




0592 

REF 

5 

CAST 

1385 

27,3311 

00027 

1 


TFFl/ALF 

1/ALFA E: (-22-2NAJ M:(-20-2NA) 

0593 





27.3312 

57575 

1 


1.2 

X2=-NA 

05 94 





2"^, 3313 

53765 

0 

SIGN 

SL* 


0595 

REF 

14 

LAST 

1385 

27,3314 

00045 

0 


TFFTEM 

AFFIX SIGN FOR SOELF 

0556 





27,3315 

57575 

1 


0.2 


05 •■>7 

RFF 

15 

LAST 

1336 

27,3316 

14045 

0 

STOOL 

TFFTEM 

P/ALFA E:(-59+2NR) M: (-55+2NR) 

4 05 9 3 










“ (ARG FOR USE IN tFF/TRlG) 

0599 

REF 

6 

LAST 

1386 

27,3317 

0002 7 

"I 


TFFl/ALF 

1/ALEA E:(”Z2”2NA) M1(-2D-2NA) 

0600 





27,3320 

41366 

1 

SORT 

OMP 


0601 

REF 

2 

LAST 

1384 

27.33? 1 

173 56 

1 


PI/16 

PI (-4) 

0602 





27,3322 

77615 

0 

DAO 



A0603 










2(XT(X)-1)/Z ALFA FROM POL F:(-15-NA) 

AO 6 OA 










M 2 ( “ 1 4— NA ) 

0695 





27, 3323 

45257 

0 

SL* 

DSU 


0606 





27,33? 4 

57577 

0 


0 -1.2 


0607 

REF 

2 

LAST 

1385 

27.3325 

00013 

0 


TFFDELO 

02-01 E: (-161 M: 

... ^ — ^ ■ ^ - - - — , i- ■- - - ~ - - ■ f - -W imi — ■ "" - ■ » 

06 03 





?7 , 3326 

53605 

1 

OMP 

SL^ 


06 09 

REf- 

7 

LAST 

1336 

27.3327 

00027 

1 


TPFl/ALF 

1/ALFA E:(-22-2NA) M: I-20-2NA) 

0610 





?7, 3330 

“3777^ 

1 


0 -3,2 


0611 





?7 ,3331 

“5 20^ 

1 

5i:3< 

GOTO “ 


0612 





27.333? 

57602 

1 


0 - 4,2 


0613 

"REF~ 

3“ 

LAST 1395 

27,3333 

57 2 40 




ENDTF F 

IFF SQRT(MU) ITN MPAC 1:2 1-45) M2C-42) 


*■ 
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ASSEMBLE 

REVIS ION 

055 OF AGC PROGRAM COMANCHE BY NASA 20'21113- 

051 

10:28 APR. 1,1969 

CHIEFTAN.028 PAGE 1387 




L 

TIMF OF 

FREE FALL 


USER'S PAGE 

NO. 15 EO S3 




P06l«+ 

PROGRAM 

NAME: 

T(X ) 


DATE: 01.17.67 



R0616 

MOn NO: 

0 



LOG SECTION: 

TIME OF FREE FALL 



R0618 

MOO BY: 

RR 6AIRNSFATHf-R 






R0619 

FUNCTIONAL DESCRIPTION: THF POLYNOMIAL T(X) IS USED BY 

TIME 

OF FLIGHT SUBROUTINES 

CALCTFF AND 



R0621 


TSTLCTP': 

R TO APPROXIMATF THE SERIES 






R0622 



2 3 






R0623 



1/3 -X/5 +X /7 -X /= ... 















R0624 


WHER E 

X = ALFA 71 IF ALFA Z Z LEO 1 






R06?5 



X = 1/(ALFA Z Z ) IF ALFA Z Z G 1 







R0626 


ALSO 

X IS NEG FOR HYPERBOLIC ORBITS 






R0627 



X = 0 FOR '^APABOLIG ORBITS 






R0i^2R 



X IS POSITIVE FOR ELCrPTIC ORBITS 






R0629 


FOR FLIGHT PTR, THF POLYNOMIAL T(X) IS FITTED OVFR 

TH^ 

RANGE TOT+TT AND HAS 

A MAXIMUM 



R06 


~n V TATI 

-rf w ^ ■ JL 

ON FRTIM" THE SERIFS OF 2 ( T(X) TS^ 

A CHE8YCHEV TYPE FIT AND WAS nBTAINEO USING 





■ MAC PP.n 

iGRAM Ai iTCtIP, n T2P4'RP'3 "CTO IS VALID TD THE ‘ISA 

MF TOLERANCE OVER THE RANGE 




RO^TW 

CALLING 

SEQUENCE 

: RT3 






R0636 


* 

T(X) 






R06yr 


crn^PTin 

= X 






^03513 


3U3 STTU r I E TT"5 LXETTl fTt 



R0639 ■ 

NORMAL EXIT MODF:" 

TC DANZIG 










R0640 

ALARMS: HONE 












R 0 6 4 1 

' (TUT PUT: Cl MR AC) = 

TlX) 












TTTATABt F TNI T I AL I ZIM I ON "REOUTR 

I * 










R0643 

C(MPAC) 

= X 











R 07S4^ ■ 

DERR 13; HmF 













0A4b 

REF 10 LAST 1203 

'47 t 3 334 

0 7171 1 

T(XJ TC 

POLY 








0646 


7T73T3T 

■'00004 71“ 

uet: 

4 


N-T 






cr6r4T 


27.3336 

12525 0 

2UEC 

3 • i 3 3 3 3 3 3 3 3 

E— 1 







0'6"47” 


27,333 / 

12525 0 










0643 ■ 


27,3340 — 

”7T7h5T~T'" 

2 DEC*' ■ 

“1 ,9P98191'35 

E-1 









2Tr374T 

5 4703 1 










064 9 


2 7t 3342 

04423 0 

ZDEC^fl' 

1.41 814846 7 

E“ 1 







064"9 “ 


27*3'3’43 

17645 0 












2 3344 

746 04 ■or' 

7UEC* 

—1.01 31099T 

F-I 









27, 3345 

43667 1 










0651 


27.3'347^ — 

■ 01357 

2iJcC* 

~5. 6US#004986 

E-2 







0651 ” 


7TT7347 

37 2 56 "T" 










0652 ■■■ 


27,3350 

77404 1 

ZDfcC^ 

- 1 . 536156925 

b-2 

* 






0652 


2 7,3351 

~32jyTT~xr- 










1T6 5 3 

— RTTF" 6T LAST 1316 

2 ,', 3352 

0 hU3U 1 

~ENDTCXr TC~ 

ITANTTG 









-zrvrm 


rCDANZIG = 


ENOriX) 


065A 


GAP: ASSFMRLE REVISION 055 OF ^GC PROGRAM COMANCHE BY NASA 2021113-051 


:28 APR. Itl969 CHIEFTAN.023 PAGE 1388 


TIME OF FREE FALL 


USER'S PAGE NO. 16 


ETm 


P0655 


0656 


TFF CONSTANTS 


32t 3770 


BANK 


32 


0657 


0653 


REF 


27, 2000 


27,3353 


SETLOC TOF-FFI 
BANK 


A0659 


A 0 6 -3 U 


A0661 


0662 


0662 


A 0663 


A 0664 


A0665 


0666 


0666 

0^^ 


0667 


0668 


066B 


066^ 


066 ^ 


0670 


0670 

R0671 


NOTE 


NOTE 


ADJUSTEH" MUE FOR NEAR EARTH TRAJ 


MUE 


RTMUE 


3.990 815 471 ElO M CUBE/CS SQ 
1.997702549 F5 B“18« MODIFIED EARTH MU 


27.3353 

27.3354 


24775 1 1/RTMU 


20EC* .5005750271 E-5 B17=?= 


MODIFIED EARTH MU 


30424 0 


NOTF 1 NOTE _ ADJUSTFO“^UE FOR NEAR EARTH TRAJ 


MOM 


4.902 778 E 8 


M CUBE /CS 


27.3355 

27.3356 


06220 I 


PTMUM 

PT7I6 


2DEC^ 2.21422176 E4 B-18« 
YUEC 3.141592653 B-4 



2 /',3360 
27,3 3':6T 

27.3362 

27.3363 
F7V3T64 


T7T63^ 

37777 I LrM(-22) 20CT 

37700T 
OOOOO 1 D“Ft-22) 20CT 

00100 0 
04 TOO 0 
OWOO 1 


TOOOD OT)100 


B(-22) 


0 P 2 T-TT ZDFCT 


I 3=^ 



^PATJX 


2 DEC 6 



27.3365 

27.3366 

8 B-2^ 


02000 0 
OTOTOTOI 


IT 




TOTT RFF 


03 T 5^ 



TJ6TT 


27, 336 r 


ITFAin 


TT03 



im 

6464 77 B 




M 


0 >73 


TT6T4 


73374 


— n 

BTTTTnr 
TTTTTTT 3TT77TO: 


27,3370 

7T77TTT 



NEAFON^E 2 DEC 


TTF73 

0o76 


R EF 


TT 

4 


LAST 1555 
LAST 


24,33'7,4 



S HItZfcRUS 


TFFT/4 


TTTTiPI /4 



gap; ASSirMBLf- PEVISIO’'! 055 

OF AGC PROGRAM COMANCHE BY 

NASA 2021113-051 

10:23 APR. 1.1969 

CHIEFTAN.028 

PAGE 1389 



L STAR TABLES 




USER'S PAGE 

NO. 1 

EO S3 



0001 

32,3770 

BANK 

32 





0002 REF 1 

14,2000 

SETLOC 

START AB 





0003 

i4t 3422 

BANK 







0004 REF 1 


COUNT 

14/STARS 





0500 

14.3422 

15262 

0 

2DEC 

+.8342971408 

B-l 

STAR 37 

X 

0*^00 

14,3423 

21773 

1 






0501 

14*3424 

74130 

0 

2DEC 

-.2392481515 

B-l 

STAR 37 

Y 

0501 

14,3425 

42420 

1 






0502 

14,3426 

70033 

0 

2DEC 

- • 496697697 5 

B-l 

STAR 37 

Z 

0502 

14,3427 

41533 

1 






0503 

14,3430 

15014 

0 

20 EC 

+.8139832631 

B-l 

STAR 36 

X 

0503 

14,3431 

04650 

0 






0504 

1^*3432 

67067 

1 

20EC 

55572431B9 

B-l 

STAR 36 

Y 

0504 

14,3433 

60150 

0 






0505 

1 4 * 3 4 34 

02351 

1 

2DtC 

+.1691204557 B-l 

STAR 36 

Z 

050 5 

14*3435 

1 5723 

0 






0506 

14,3436“ 

07210 

0 

“ 2DEX 

+.4541086270 B-l 

ST«\R 35 

X 

0506 

l-i' ,3437 

01664 

1 






0507 

14, 3440 

67276 

0 

20 FC 

-.5392368197 

B-l 

STAR 35 

Y 

0507 

14,3 44 1 

62232 

U ■■ 






0505 

14, 1442“ 

1 32 62 

0 

2DFX 

+.7092312789 

■F-r~ 

SI AR 35 

Z 

0508 

14,3443 

0 0 5 6 X 

1 






051T9 

14,3444~ 

05076 

"cr ■ 

2DEC 

+.320181 7378 


StAR 34 

X 

0509 

T4"* 3 445 

3T5~Sl~ 

0 






cnrro 

14,3 44 6 

7 07 16 

0 

2DEC 

-.4436021946 

B-l 

STAR 34 

Y 

0510 

14,T447" 

4a2'6D' 

x 






05Ti 

14, 3450' 

6246X 

1 

2DEC 

-.83 /O /86986 B-l 

SI A9 34 

Z 

05X1 

14,3451 

64656 

0 






0512 

T47T45Z 

10652 

X 

2UEC ■ 

+.55201 84464 

B-l 

STAR 33 

X 

0 512 

1 4 . 3 X53r 

”04746 

”0 ' 






0513 

14, 3454 

63235 

0 

2UEC 

-. 793318740T5 


STAR 33 


05i'3 

14,3495 

442W 

”0 






a5^r4 

T4,2 456 

737X0" 

”0 

213XC~ 

— . 256 /50B /45 

1 

STAR 33 

Z 

cprn;^ 

1'.,3457 

66237r 

"T5 






US I 5 

.14,3460 

07 204 

“0 

“ — znzc” 

+ • 453 / 196908 

B"1 

SIAH 

X 

0 5 1 5 

r4, 3461^ 

— 33712 

”0“ 






(T5ro 

T 4 , 3 4 6 2 

617 47 

1 

2 DcC 

-.8 / /^^soyixn." 

B-l 

S r AR 32 

Y 

0516 

14*3463 " 

7ZT4T 

0 






05 17 

14 , 3 454 

0234 3 

■3 

20 EC 

+• 1527T661 53 

B— T 

STAR 32 

7 

051 / 

i ^ , 3465 

TTTST 






^ — -+»- — - - -■ , , -P..-,- - -■■■ » ■ 1 ■■■■ - 


14* 3466 

— 0323T 1“ 

2 DEC 

+ . 2069 525789^ 

B-l 

STAR 31 

X 

05 ] X 

14',3 47»T' 

■ 13301 

X 






051^ 

14*34/0 

— 62030 

“0 

2UtC'' 

-.8 /19H85 748 

B— 1 

S i AR 3 1 

Y 

0519 — — 

14.3471' 

653 32 

u 






0520 

14,3 472 " 

— TOTTS' 

“QT 

2DEC 

- .4 43^3 84 86 8-1 

STAR 31 

Z 

0570 

14, 74 T}' 

7X767 

1 






05 21 

1 4 , 1'474“ ■ 

X1745 

~0 ■ ' 

2 D EC 

+ • 1217293692 

B— 7 

STAR 30 

X 

0521 

14,3475 

07^47T 

0 













«■ 



























^ ^ ^ ^ ^ ^ T- JWW — 

- * w -W- — ^ - - -r^ _ . — • 

- . ^ ^ ,1 ^ 




GAP: 

ASSEMBLE REVISION 055 i 

If AGC PPCGPAM COMANCHE 

BY NASA 2021113-051 10:28 

APR. 1,1969 

CHIEFTAN.028 

PAGE 1390 










L 

STAR TABLES 





USER'S PAGE NO. 2 

E 0 S3 


0522 


14 f 3476 

63531 0 

2DEC 

-.7702732847 B-1 

STAR 30 

Y 


05?? 


14,3477 

75365 0 






0523 


14,3500 

12010 0 

2nEC 

+.6259880410 8-1 

STAR 30 

Z 


0523 


14,3501 

03005 1 




■■ — k i" ■ ■ ■ ^ ■ 


0524 


14,350? 

76146 0 

2DeC 

-.1124304773 B-1 

STAR 29 

X 


0524 


14,3503 

77014 1 






0525 


14, 3504 

60371 1 

2DEC 

-.9694934200 B-1 

STAR 29 

Y 


0525 


14,3505 

75073 1 






0526 


14,3506' 

03370 0 

2DEC 

+.2178116072 B-1 

star 29 

Z 


05?6 


14,3507 

12003 1 






0527 


14, 35 1 0 

761 25 ”0 

?nHr~ 

— . 1146237858 8— T 

STAR 28 

X 


0527 


14,3511 

40037 1 






0528 


14,3512 

72A36 0 

2DEC 

-.3399692557 B-1 

S T A R ' 2B 

Y 


052 8 


14,3513 

77062 0 






052^ 


1^», 3514 

61041 0 

2DEC 

-.9334250333 B-1 

star 28 

Z 


0529 


14,3515 

54164 0 






0530 


14.3516 

72? 77 0 

’oec" 

-.3 5164996139 B-T 

STAR 27 

X 


05-^0 


14,3517 

51044 0 




'"■f i ■ — . 1 - . - 


0531 


14,3520 

62641 0 

2DEC 

-.824?) 7 52703 B-1 

STAR 27 

Y 


0531 


14, 35^21 

'45471 r“ 






0532 


14,3522 

70711 1 

20FC “ 

-.4441196390 B-1 

STAR 27 

z 


0532 


1 4 , 3 5 2T- 

70546 1 




'■ ' 


‘ 0533 


1 ^ f .352^ 

“T?73 64 1 

20EC 

— . 5326876 93 0 8—1 

STA^ Z6 

X 


0533 


14, 3525 

47073 0 




-= — * ■ - - 


053A 


“l^., 3 52b 

64425 0 

2 DEC 

-.7160644554 3-1 

STAR 26 

Y 




1 ^ t 3 5 2 7 

7T777 0 






053S 


14, 3530 

07157 0 

2nEC 

+.4511047742 B— 1 

STAR 26 

Z 


Cr5T5~ 


14.35’^r 

' ■^16322 0 


■ 


■m r u" 




"r4 , 35:32 

bT3 2 7 1 

2DEC 

—.7361763936 B— 1 

STAR 25 

X 



0 53 ' 1 ^ 1 3 5 3 5 O ^ 

7T5T7 !.4.353^ 5T5I S~[ ' 7UFC ^.”5^1 f9V63U5 H-1 blAK -;5 7 


Cn5T7 pr,T575 55 JlScTTS 


0 57T a ~C ZUEC +.33113a6/b B-1 STAR 25 




T4“,353T 

“■ “2Tr476*D 


__ ^ — — 1 — » 


— ^ ^ 

* ‘ ^ 








14, 354Tr 

64754 0 

2DEC 

-.6898393233 B-1 

S T AR 

24 

X 






05T9 


14, S54T' 

72604~0 











0540 


14, 3 54^2“ 

7TZ35 0“ 

20FC 

- , 4152 331364^0 BFIT 

= ^ — ■' - — - 

STAR 

24 

Y 






0540 


14,3543 

72553 “1 











0541 


1 t , 3544 

6642V 0 

ZDtC 

—.5909338474 B— 1 

5 I AR 

2 4 

Z 






- 0541 


■ i44 3'5^5 

42171 0 





— mw— 


— — — 




0542 


1 4 , “5546“ 

“~665“46 n 

■ 2 oh:' 

— .5812 03 5376 B — 1 

STAR 

23 

X 






0542 


14,3547 

7076 





= — " mm “ — “ 






054^ 


- T4T3'55Tr 

■T32 6Cn 

ZDETT 

-.290914129^ B-1 


23 

Y 






05 43 


1 4 , 3'5'5T' 

71643 0 











0544 


14.3557- 

14121 0 

ZTTFC 

+ . ^59^9 80046 8 B-1 

S I AH 

2 3 

L 






0544 


r4, 6 6 ^ 

30153 U 











0545 


nr, 3 5 54 

6IZ4T~1 

^ 2TIEC 

" -."9 17 0097616 2 B-1 

STAR 

22 

X 






0545 


14, 3555 

733 tot: 





~ — % -m — ■ 






■” 054o 


1 , 3 5 56 

— 7Z3T3 0 ’ 

“ZDEIT 

—.3502146628 B— 1 

STAR 

22 

Y 






0546 


1 Y ^ ^ 7 

~4T 747" 0 












';AP: assemble REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:2B APR. Itl969 CHIEFTAN.028 PAGE 1391 


STAR TABLES 


USER’S PAGE NO 


EO S3 


0547 


14,3560 


74744 0 


2DFC 


-.1908999176 B-1 


STAR 22 


0547 


0548 


14.3561 

14. 3562 


44566 1 
70606 0 


20EC 


-.4523440203 B-l 


STAR 21 


0548 


14,3563. 54564 I 


0549 

0549 


14,35 64 
14,3565 


771 53 0 
61536 0 


20EC 


.0493710140 B-l 


STAR 21 


0550 


055 0 
0551 


0551 


0552 

0552 


0553 


0554 

0554 


05 55 

0555 


71556 
055^ 
055 7 



TT 






a 


7T5^ 


TT5mT 

056a 


71561 


7156T 


0562 


715bT 

7T56T 


056 4 


0 564 
0565 


0555 


0565 

0566 


056T 


TJ56T 

0563 


0566 

0569 


056 7 

0570 


1J5TTT 

0571 


0571 


14, 3566 


61601 1 


2DEC 


.8904759346 B-l 


STAR 21 


14,3567 
14, 3570 


47046 0 
60604 0 


2DEC 


-.9525211695 B-l 


STAR 20 


14,7571 


76224 1 


14.3572 

1 4.3573 


77031 0 
73354 1 


2DEC 


-.0593434796 0-1 


STAR 20 


14.3574 

14.3575 


73161 0 


2DEC 


-.2986331746 B-l 


STAR 20 


14. 3576 

14.3577 
1 4, '3 67)0 
lA ,3601 
14,3602 


63065 1 
50431 1 


2DEC 


-.9656605484 B-l 


51702 0 


00636 

33013 



+.05259331 



1 


STAH” TO 


y 


14, 5 3 

14. 3604 

14.3605 


04044 0 

lOOZ? 0 

52164 0 

430 4 OT 


TOFO 


+.2544280603 B-T 



7 


2DEC 


.8608205219 0-1 


STAR 18 


X 


14,3607 




+.4636213989 B-l 


S T A3 T3 


) - 


f ,3610 


374 43 0 
03267 r 




STAR 18 


Z 


T4TT6TT 

14,3612 


06626 O 


14,3613 


T4T36T4 

14,3613 


63471 0 

5 0471 0“ 

T“ 


ZTTFO 


-.7742591356 B-l 


STAR 17 


11660 

04 1 51 


ZIJEU 


+73152504197 B-l 


5TAK IT 


“T47 3616 
14, 

14, 3^20 


75501 I 
43634^ 






STAR 17 


r 


14.3621 

14,3327 


70430 I 

4354'0'~T 

0 75 07 


70FC 


-.4657947941 B-l 


STAR 16 


X 


7DEC 


+ .4r/4 785033“3=-T 


STAR 76 


■y 



, >373 



3575 


13727 1 
05435H 


TITEC 


74507 



STAR ro 


14.3673 
1 4 , 33'7T 


TTTTnm 

64207 0 


2urc 


. 3612508532 B-T 


STAP 13 


14, 3630 

T47T3TT 


14, 3637 
T4T73TT 


TTT44m 


05701 

6 42 00 


7UFC 


+ .5747270840^-1 


STAR 15 


20FC 


/342932655" 


STAR 15 


14,3634" 

14, 3635 
14, 1636 


35331 0 
71322 I 

4T51'7~T 


TOEi: 


-.4118589524 


SIAP 14 


14, 3 1> 3 7 

14, 3640 
14,3 641 


16 4 02“‘n 

1 6 3 05 


TOFC 


+ . 9065435360 B-vT 


STAR“T4 


r 


01365 O 


203C 


^0924226975 B-l 


STAR 


O4om 










gap: assemble REVISinN 055 01= PROGRAM COMANCHE 6Y NASA 2021113-051 


10:28 APR, 1*1969 CHIEFTAN.028 PAGE 1392 


L 


0572 

05 72 


0573 

0573 


r ^ 


0575 


0575 
05 76 


0576 


0578 


0579 


0530 


0580 


0581 


0 581 


0582 


0582 


0533 


0583 


058 + 



STAR TABLES 


USER'S PAGE NO. 


EO S3 


0591 


0592 


0592 




05 04 

059A 


05 95 


059S 

0^06 


14,3642 


75054 1 


2DEC 


-.1320751783 B-1 


STAR 13 



1 4,3645 


17635 1 


1 /. -3 i: 

1 . ’ -r I 


14,3650 


7-3 '51 n 

j r KJ ^ \J 

77O10 0 


■:> npr 


^ :?aAQ:?7i 62 a ft-1 


STAR 



2DEC 


0614937230 R-l 


STM IT 


T 


14.3651 

14. 3652 


47623 0 



11515 0 


20EC +.6031563286 


14.3653 

14.3654 


01640 1 

6T2T5~I 



14*3656 


02143 0 


20EC 


+.1371725575 3-1 


STAR 11 



14, 3661 


31470 0 


14,3662 


13401 0 


2DEC 


+.7199685267 B-1 


STAR TT 


7 


14,3663 


31222 1 


14. 3664 

14.3665 


03157 1 


20EC 


+.2011399589 B-1 


STAR 10 


1( 


27504 0 


14,3 666 
14. 3667 


17402 1 

12312' T 


2^ 


+.9690337941 B-1 


star 10 


y 


14,3671 

T7m6T2 





T5UT3I5aJB 





05 B5 



1 4 * 36 74 

16220 0 

0585 



14*3 6 7 5 

16362 1 

05 86 



14, 3676 

04417 1 

05 36 



14*367? 

32762 0 

05 



167370 0 

06443 1 

0587 



ICTTTOr 

i26:2znr 

05^3 



'>,3702 

07766 1 

0588 



14,3703 

10237 "O ' 

0589 



14,3704 

141 54 1 

05^89 



14*37o6 

3615^ 1 

0590 



1 4 , 3 706 

"TT27)(T 1 

0590 



14,3707 

31653 0 

05*^1 



14,3710 

13244 1 


20EC 


+.8926333307 3-1 


STAR 


Y 



E-l 




7 



4-105636020 


5TM 




2 DEC 


+.4988110001 B-T 


TTM J 


T 




srm^ 8 





5TATr 


rm: 


707534604? B 



7 


T 


TTVTrrz 

14*3713 


2 r0"3'6^ 

010-67 I 

23106 




STM" 7 


Z 


14,3714 

I4TT^1 5 

14.3716 

14.3717 

14*372 0' 



"7T2'2T CT 

■I047)'2"Tr 

“OOZTT-T- 


TUFC 




STM 


Y 


654 77 


7TJEC 




STA-R- 


Z 


14,-72 
14. 3777 
147T723 


T015T"TJ 


71TEC 










GAi’: ASGcMBLf^ RFVISIQN 055 

0«= ."60 P!<OGPAr-1 COMANCHE BY 

NASA 2021113-051 

1 0 : 28 

APR. 1 

,1969 

CHIEFTAN.028 

PAGE 1393 










1 




L STAR TABLES 







USER* 

S PAGE 

NO. 5 

EO S3 














0597 

lA, 3724 

00077 

1 

2 DEC 

+.0078062795 

B-1 

STAR 

5 

Y 



059 7 

14,3725 

36275 

1 









0598 

14,3726 

17777 

0 

2DEC 

+.9998837600 

B-1 

STAR 

5 

Z 



0593 

14.3727 

01417 

1 









059Q 

14,3730 

0767^ 

0 

2DEC 

+.4917678276 

B-1 

STAR 

4 

X 



0599 

14t3731 

21771 

0 









0600 

14*3732 

03416 

1 

2 DEC 

+.2204887125 

0-1 

STAR 

4 

Y 



0600 

14*3733 

07626 

1 









0601 

14,3734 

62413 

0 

20EC 

-.8423473935 

B-1 

STAR 

4 

1 



0601 

14*3735 

57536 

0 









060? 

14,3736 

07510 

1 

20EC 

+.4775639450 

B-1 

STAR 

^ 

X 



060? 

14,3737 

06414 

0 









0603 

14,3740“ 

01673 

1 

20EC 

+.1166004340 

B-1 

STAR 

3 

Y 



06^3 

14,3741 

06065 

1 









060A 

l'+,3 742 

15735 

1 

2 DEC 

+.8708254803 

B-1 

STAR 

3 

Z 



0604 

1 4 ,3743 

31531 

1 





1 




0605 

I4, 3744 

16745 

0 


^.9342640400 

8-1 

star 

2 

X 



0605 

14.3 745 

17555 

1 





1 II 1 III ■ 




0606 

14, 3746 

02615 

1 

2DEC 

+. 1735073142 

8-1 

STAR 

2 

Y 



0606 

14,3747 

13 7T6 

0 









0607 

14,3750 

73010 

1 

2DEC 

-.3115219339 

3-1 

STAR 

2 

Z 



0607 

14,3751 

40311 

0 









0608^ 

14,3752 ^ 

15776 0 

2T)^Tr 

+ • 3748 658918^ 

B-T 

STAR“ 

1 

X 



0o08 

14, 3753 

34660 

0 






^ ^ * ■ ' — 1 . . M 



06 0-'i 

14,3754 

00325“ 

0 

7UEZ ■ 

+.0260879174 B-1 

ST AR 

1 

Y 



0609 

14,3755“ 

26’625 

T 









0610 

14,3756 

07572 

0 

21TE0 

+.4836621670 

B-1 

STAR 

1 

Z 



0610 

— 1 4 

05105 

75 









0611 

1 




69 70 
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L 

AGC BLOCK TWO SELF-CHFCK 

USER'S PAGE NO. 1 

EO S3 



POOOl 

PROGRAM DESCRIPTION 

DATE 20 DECEMBER 1967 

* “S --tf—,::—- — »' - - -.“SBrTT Z — ~~ 3 ^ i ' i i 

A |P> A i i 3 * LJ 


R0003 

PROGRAM NAME - 

SELF-CHECK 

TTO SEXTIUN AGU BLOCK TWTT 

S EL F— CH ECK 


R0005 

MOD NO - 1 


ASSEMBLY SUBROUTINE UTILITYM REV 25 


R0007 

MOO BY - GAUNTT 








R0008 FUNCTIONAL DESCRIPTION 


ROOO^ 


ROOU 


R 0013 

P0014 


ROOIS 


R0024 


R0026 


PROGRAM HAS TWO MAI^i PARTS, THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY 


WITH NO COPE SET# AS 


PART OF THE BACK-UP li^LF LOOP* THE SECOND IS SHOW-RANKSUM WHICH RUNS AS A REGULAR EXECUTIVE JOB WlTH ITS OWN 


START ING VER3^ 

THE PURPOSE 


OF SELF-CHECK IS TO CHECK OUT VARIOUS PARTS OF THE COMPUTER AS OUTLINED BELOW IN THE OP 

ONE AT A TIME. 


TON^ 


THE PURPETSE OF SHOW-BANKSUM IS TO DISPLAY THE WM OF EACH BANK , 


UFSn^IPTION 



THE DTFFFRENf OPTIONS ARE CONTROLf EO BY PUTTING DIFFERENT NUMBERS IN THE SMODE REGISTER (NOUN 271. BELOW IS 

CT)RTrE3T>aNinNG N U MB E R . TN ' 



R002B OCTAL* TO LOAD INTO SMODE. 

R003 7 ERASABLE MEMORY 

rOOTA^ +-1.2.3*6.7.10 everything IN OPTIONS 4 AND 5. 
P0036 ^0 SAME AS +-10 UNTIL AN ERROR IS DETECTED. 

R0037 +0” NO CHECK. "RUTS COMPlTTn^ INTO TFC BACKUP I 



R0n39 

R0041 



E MEMORY 



PTOjE SET GP E AT E P TTON T1T:T 



ETK^rWEET TR" r[JUE“i:nnPT AS TEMP 
CnH75UTER INTO BAG KUP^ITL E 1 007^. 



OTHER PRDGRATFST^ 


ROC 4^2 C7HTTNG 3E0UF NC E 


“RTFHf T TfTXALL S ELE -CHECK KEY IN 

R0044 ~ ■ TTTTXTT nPTTTWTIUMXEP^E " 

R0C47 TO Call SHOW-BANKSOM KTSTTR 

R 0 0 48 V 91 F I) I SPLTn^S ’XIR ST “B ATIK 

-irC04 9 ' V"3 3 E P'PTXXED t mSXrA^ 


Rxoro 


ROOiJl 

R00G3 


ROO 


4 


ROOb'7 

ROCTS^ 


XTT 




SXLT-CFrEXririTnPMALLT CONTINUES TNDEFmTTELY UNLESS THERE I S' m 

COMPUTER I NTO ”B AX KU^ IDLE TOO P , - HPT lUN" NUM B ER S RE START THF OPTION. 

-0 Option PROCXrcSfRO ^T HE l i ne TOLLOWING the line where I He ekkuk was ULihtiE'j. 


TF 50 + OP T I UN NUMBERS PUT 


THE 


EANT5W PROCEEDS UNIIL A fERMlNAIF 


FT. 


XOMPUTFR 



THE FACKUF“XTJrF XtrtIP 


” R0060 TiUTFUT 
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L 

AGC aLOCK TWO SELF-CHECK 


USER’S PAGE 

NO. 

2 

EO S3 




R0061 

SELF-CHECK UPON DETECTING 

AN ERROR LOADS THE SELF-CHECK ALARM 

CONSTANT 101102) INTO 

THE 

FAILREG 

SET AND 



R0063 

TURNS ON THE ALARM LIGHT. THE 0 

PERATGR MAY THEN DISPLAY THE THREE 

FAILREGS BY KEYING IN 

V 05 

N 09 E. 

FOR FURTHER 



R0065 

INFORMATION HE MAY KEY IN V 05 

N 08 E, THE OSKY DISPLAY IN R1 WILL 

BE AODRESS+1 OF WHERE 

THE 

ERROR WAS DETECTED, 



R0067 

IN R2 THE BBCON OF SELF-CHECK, 

AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE 

LAST MAN 



R006^ 

INITIATED FRESH START (SLAPl). 








R0073 

SHOW-BANKSUM STARTING WITH 

BANK 0 DISPLAYS IN PI THE BANK SUM 

(A +-NUMBER EQUAL TO 

THE 

BANK NUMBER), IN R2 



R0075 

THB BANK NUMBER, ANO IN P3 THE 

BUGGER WORD. 








R0076 

ERASABLE INITIALIZATION REQUIRED 




P0077 

ACCOMPLISHED BY FPESH START 



R0678 

SMODF SET TO +0 








POoT9 

DEBRIS 




R0080 

ALL EXITS FROM THE CHECK OF ERASABLE (cRASCHK) RESTORE ORIGINAL CONTENTS TO REGISTERS 

UNDER CHECK. 


PsOOB2 

EXCEPTION TS A RESTART. RESTART THAT OCCURS DURING ERASCHK RESTORES ERASABLE. UNLESS THERE 

IS EVIDENCE TO DOUBT 


R00':4 

E MEMORY, IN WHICH CASE PROGRAM THEN DOES A FRESH START (DOFSTART). 




00 o !? 


TJVTTT^ 




2 ^ 


0686 

REF 

1 



43.2000 


SETLOC 

SELFCHEC 





0087 





43,3234 


BATIK 






■ - — - - — — w- — ^ : = — — — ■ - 1 - - . — ■ - — — ■■ 1 ■ M .M 1 — r. — — - — 

umT" 



T” 





COUNT 

^/SELF 


















(TCTTGf" 

R F F 

~r6~ 

LAST 

T2U4” 

5017 

S B T T X 

EQUALS TTTT 





000 CT" 




LAST 

T2TT4 

jirrs 

S E 1 1 2 

EQUALS 

BTT2 





0 0 ' n” 



LAST 12T)4 

5015^ 

SBTT3 

“EQUAUS 

BTT3 





mrr 


TT 

LAST”TZ1T4 


S B I T 4 

EgDArsr^TT4 





0093 

R FF 

34 

last 

1119 


S 61 T5 

EQUALS 

BITS 





UWJ^ 

REF 

4Z" 

LAST n'61 

ttttz 

THTT6 

■■EWAFST^BT T6 





UU^5~ 

RTF“ 

“45 “ 


1201 

STTTI 

SBlT? 

FQUAU S 

BIT 7 





00^6 

RTF" 

2 A" 

~UKTr 

~TZ7E 

— sTirn — 

STTTB 

EQUALS 

BTTB 





0 0 97 

REF 

”32 

TTLST” 

TDT9” 

5W7 

■ SOTTP 

“EQUALS 

81 T9 





— 0098 

■ RTF“ 

“3T 

TASr 

TTTTZT”"^ 

' STTOS 

TBTTrO” 

■ EQUAL'S" 






OTJW 

qnp- 

34 ■ 

LASr" 

TTIR 

51)06 

SBITl 1 

Equal s 

B I T 1 1 





01 00 

RTF”' 


LAST 

1204 

"6r)D4^ 

S81T12 

F DUAL S 

BI T12 ' 





0101 

K EF 

"4B — 

LAST 

T2TT4 



TOOTT'S" 

B 1 1 1 3 





0102 



"T3“ 

LASI 

13 6^ 

600 2 

S8TTr4 

EQUALS” 

B I T 1 4 





OTDT" 

PEE 

■ 49 

■XTASn^OA ■ 

6001 

S BIT! 5 

“EWAUr 

B1TI5 


















0104 

L r 

7iET~ 

LAST" 

132 5 

5071 

S+ZERl) 

t QU A L S 

ZERO 





0X05“ 

REF 

~^rT 

”CTrST“ 

T5T5 

“5017“ 

" ■ 

EQUALS 

Bi n 





01 no 

T^Tfp 

4Tr 

nrAST' 

1395 

sms 


E QU ALT 

RIT2 





oroT" 



4 ^ 

L A S ! 

136^ 

TT4 

S + 3 

EQUALS 

I H K E b 





ora3“ 

RFf 

19 ■ 

TTAST" 

1 367 

6015 

^ 1r ^ 

TOUATT 

FOUR 





oro9“ 

RFF 

26 

“T AST 

TT3^ 

TXT72 

$TT” 

~FQUALS EIV^ 
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USER'S PAGE NO. 


3 


EO S3 


01 iO 


PEF 39 LAST 1370 


6211 


S + 6 


EQUALS SIX 


0111 
0 1 12 


PFF 
R EF 


11 

13 


LAST 1204 
LAST 1194 


5023 

4373 


S*7 
S3BITS 


EQUALS SEVE N 
EQUALS LOWS 


0113 


PEF 


LAST 1092 


5 03 3 


CNTRCON = 


OC T 50 


00377 
USED IN CNTRCHK 


011 4 
Oil 


43.3234 

43.3235 


00061 0 
01373 1 


FRASCONl OCTAL 
ERASC0N2 OCTAL 


00061 

01373 


0116 


REF 


LAST 1204 


5 0 5 1 


ERASC0N6 = 


0117 


0113 


43.3236 

43.3237 


01461 0 
01773 0 


0CT1400 

01461 


USED IN ERASCTHK 
USED IN ERASCHK 
USED IN ERASCHK 


0119 


REF 


0120 

0121 


R FF 
REF 


19 
4 
6 


LAST 1129 


5054 


LAST 959 
LAST 1204 


^06 2 
4364 


ERASCONB TjCTAL 
ERASC0N4 OCTAL 01773 
SIOBITS EQUALS LOWIO 
SBNK03 equals PRTG6 


OSgP IN ERASCHK 

USED IN EPAStHk 
01777 * 



0122 


43f 3240 


0123 

0124 


43,3241 

43t3242 


00060 

6oorr 

17777 


1 

0 


-MAXAnRS = 
S T X TT “ 
SUPRCON 


HI 5 


Q6Q00* USED IN ROPECHK 
FOR ROPECHK 


S13BI TS 


0125 


0126 

0127 


43,3243 
,3244 


25252 0 
52400 r 


CONC+Si 


OCTTAL 

OCTAr 

OCT A I 
OCTAL 


00060 



17777 


USED rN“ROPECHK 



cQNC+si! orra. 52400 


USED In CVCLSHFT 

USTEO TN XTCLSHFT 


76777 1 FRASCQN5 OCTAL 


0128 

0129 

0130 


REF 

REF 


REF 


DTP 

1 H L. I 


LAST 205 
last 1113 

LAST 579 

last 12oB 

LAST 1204 


5731 
6 06 1 


76777 

00777770 


XWALS' NgG4 
EQUALS NEG3 



FQUAL 
TOTALS NEGDNF 



0133 


R-F 


LAST 1101 


5020 


S-ZEPO 


01 34 
0135 


REF 46 LAST T2 3 5 E3,T40a 


0136 

TOT3T 


REF 

WFF 


LAST 263 


4 


1 A S r r '2 


43.3246 

41.3247 


01371 0 
340 



EBANK=~TSTI 

AmSl ADRES SKEEPl 
0 STTFTnjRT ADRES ^STIT^C'RK 



RETITR'N 





A0138 


A0139 


r SHOULD BE TVT 
GOING FROM SELFCHK TO 
AND PUT IN SKEEPl WHEN GUING 
FROM SHOWSUM lU StLF-XHECK. 


0140 


RTF 


6 TATT Th 


b 


43,3250 3 I3FO"15 — PRERRURS CA' 


EPESnjRE 


IS IT NECESSARY IM KESiUR'b ERASABLE 


^41 

'0X42 


43,3251 




I 


43'“, 3 252 


0 COOT “I" 

T T2 6T~(J 



BTT 


ERRORS 


0143 


f 




oT 


''^4 


R 


ITT45 


ref 


3 

3 



0146 

0TT7 


43,3256 


0 0006 1 

T 13TT“T 
51 « 



TTorr 


EXTEND 
DCA “ 
“TNUFX 
DXCH 



oooO 


RESTORE THE TWO ERASABLE REGISTERS 


DI4b 


P FF 
RET 


2 

7 



757 

U4ST I39"6 



3 50T3TT 



0149 

0 


43,3261 



(TT5I 

TTTT2 




3X44 


P 

V 


rp 


T7 


3 

X 


LAST 
X4TT 
LAST “XIT 





43.3264 

43.3265 
4373T65 


0 0004 0 

3~UCW 2 0 

TU 
55'363 1 

T65 


ERRORT 


TA 
T S 

TNHTNT 


STZT 






Q 


SFAir 




ALMCADR" 
LR COUNT 


SAVE Q“FnR 
FDR DISPLAY WIIH BBANK“ANU ERLUUNI 
KbbP IPACK “OF“NTJMBER OF MALFUNCTIONS 


TCALARM2 TC 


0 1 ‘T 

0X54 


XEF 



3 


XA5T 
XASX 1396 


43T37TT 

43 , 3 2 -773 


TTUT 



565'TXT 

01102 0*“ 

11'362~XT 
T 50 2X 1 SIDLGOP' CA 


ALARMS 


01102 

TMOOb 

S+ZERD 


SbLb-tHbXK '4ALFUNCIIUN INUILAIUR 
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015B REF 6 LAST 1396 43.3272 55»362 0 TS SMODE 

OISQ RFF 5 ^AST 1396 43,3273 Q 3340 0 TC SELFCHK GO TO IDLE LOOP 

0160 rTF 4 LAST 1396 43.3274 0 1357 1 fC SFAIL CONTINUE WITH SELF-CHECK 


0161 

REF 

340 

LAST 

1370 

43 .3275 

10 000 

0 

-ICHK CCS 

A 



0162 

REF 

1 



43 ,3276 

1 3250 

1 

TCF 

PRERRORS 



0163 

REF 

2 

LAST 

1397 

43.3277 

1 3250 

1 

TCF 

PRERRORS 



0164 

REF 

341 

LAST 

13Q7 

43.3300 

10 000 

0 

CCS 

A 



0165 

REF 

3 

LAST 

1397 

43, 3301 

1 32 50 

1 

TCF 

PRFRRORS 



0166 

R E F 

308 

LAST 

1396 

43,3302 

0 0002 

0 

TC 

Q 




0167 43.3303 0 0006 I SMOOECHK EXTEND 

0158 REr 4 LAST 1396 43.3304 23’371 0 OXCH SKEFPl 

0159 ~rTF~ I 43.3305 0 3334 0 TC CHECKNJ CHECK FOR NEW JOB 

0170 RTF 7 LAST 1397 43.3306 11*362 0 CCS SMODE 

Tnn RT'F I 43.3307 0 3314 i Tt " SORT IONS — — 

01^2 RE F r — ~ 43.33 10 0 330? 1 TC SMOdECHK +2 TO BACKUP TDlE LOOP 

orn RTF 2 LAST 1397 43.3311 0 3314 1 TC SOPTIONS 

0174 2 ^GAST 82 43.33 12 2'5’366 0 TNCR SCOUNT 

Q17 S~ ' 5TF S^AST“TT^TT — 43.3313 0 i3 7 T^ TC “SKEEPl ~CmTrNUE~WITH S EL F-CRFCKT 


FOR OPTIONS BELOW NINE. 

ILLEGAL OPTTTIN. GO TO IDLE LOUP. 
FOR OPTIONS BELUW NINL. 


RFF“34^Z" 43 . 1372 SO DOtTl INDEX A 

rnrn — — i 43 . 3173 — 0 332 ^ 1 : re sopttoni 

RLT 6 LAST' I3“9T 43 ,3324 0 13 7T 0 SOPTTOMI TC SKtbPl 

DTTS TIFF T' LAST 1397 435 0 1371 CT 'TOTH’ TTTR2^ TC SKFEPl 

TTTTE RITF n LAST 130‘7 43.3 3TS 0 1371 0 S0PTI0N3 TC SKEFPl 

UITT RLF 1 43.3 32 / — 0 3 341 T' SnPTTW-4“TC 

OtS — R F F 9 LAS T 13 ' T 7 4T7T3n 0 1371 0 S0PTI0N6 TC SKEFPl 

OT^O TFF ID LAST 139 7 4T. 333 2 0 T37T D "SUT>TT DNT^^TX SKhtPl 

TJVn PTF TT LjVST TTT7 — “T3T3333" TTTBTr D SOPTONIO TO"' SKFFTT 


0192 



43.3334 

■'TT 0006 I CHECKNJ 

EXTEND — 




1 - f 1 1 T ~r r" 'T~ r f- T l, i — k i r - 1 | — nTTO ' ' 

01 7 3 “ 


— 7 L ASra 2ZD” 

■ 43.33 35"" 

'23'>TT5Tn 

OXCH 

SbLFKtT 

SAVE KtIUKN 

“AOORbSS 

WHILE TEST iNG NtWJuB 

mr^4 

RFF 

“57! — LAST I2F0“ 

43.3336 

0 4701 0 

TC 

PUS UUMP 

\ IJ 

SbF Ih ANY JUttb 

HAVE HECUME AC 1 IVE» 

"■ TTT05 

"REF 

2 "L7^ ST "ITT 6 

43,333T~ 

032 3rT 

CADR 

ADVAN 






rjr^T — 

kEF 

— 7. LASI 134/ 

43,'-! r4rr 

0 3303 1 SELFCHK 

TC 

S MUUbL HK 


CMAKLtT f 

CUMt IN 

HtK t 












R0197 

SKEEP7 HOLTI'S tOHEST 

iJF IWO AnOTTESSTir BEING CHECKED. 






RTTRB 

SKFtPb HULOS B(X+l). 









R 0 1 9 

S KEEPS HDLTTS'^mn . 









RTTZHTT- 

3KEFP4 7Hrn:tIS TT cFS-NKT^TUFTAirT 

TKTSXTJn^ AND CNF CKN J 

• 





— 


WAS iC+TCF 
"WAS IN:0UT1 
WAS COUNTCHK 


CONTINUE^Wmr SELF-CHECK 


OTTTT 

IHTT 


0173 

OTT^ 


0T3T 


F F T 


4 3 . 3 3T4 
43,3313 


6 S731 T SOPTIONS AT) 




0 0006 I 


EXTEND 


43.3316 


TFT 


T 


CTTST 



4717 

4T7 


33TT 


6 3320 0 

TT 







n 


EF 


1 


43,3321 6 S023 0 


BZMF 

TC 

TFlCnG 
"AIT 


+ 2 


S 



STT 
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L 

&GC BLOCK TWO SELF-CHFCK 

USFR*S PAGE 

NO. 5 

E3 SA 


R0201 

SKEEP3 

HOLDS 

LAST 

ADDRESS BEING CHECKED 

(HIGHEST 

ADDRESS) . 



R0202 

SKFEP2 

CO'JTROLS CHECKING OF NON-SW TTCHABLE ERASABLE MEMORY WITH BANK 

NUMBERS IN EB. 


Pv020A 

ERASCHK 

TAKFS 

APPROXMATELY 7 

SECOMOS 







0205 

PEE 

? 

LAST 

26 3 

43 , 3341 

3 5017 

1 

ERASCHK 

CA 

S+1 



020o 

REF 

3 

LAST 

26 3 

43.3342 

55* 372 

1 


TS 

SKEEP2 



0207 

REF 

A 

LAST 

1396 

43, 3343 

3 5021 

1 

OEBANK 

CA 

S+ZERO 



0208 

R E F 

52 

LAST 

1194 

43,3344 

54 003 

0 


TS 

EBANK 




RFF 

1 



43.3349 

3 3236 

0 


CA 

ERASC0N3 

0 146 1 


0210 

REF 

4 

LAST 

1396 

43,3346 

55*377 

1 


TS 

SKEEP7 

starting ADDRESS 


0211 

REF 

1 



43,3347 

3 5054 

0 


CA 

SlOB I TS 

01777 


0212 

PEF 

3 

LAST 

^ 

43.3350 

55* 373 

0 


TS 

SKEEP3 

LAST ADDRESS CHECKED 


0213 

REF 

1 



43,3351 

0 3371 

1 


TC 

ERASLOOP 




0214 

RFF 

1 



43.3352 

3 5051 

0 

E134567B CA 

FP ASC0N6 

01400 


0215 

REF 

5 

LAST 

1398 

43.3353 

55*377 

1 

TS 

SKFFP7 

STARTING ADDRESS 


0216 

REF 

? 

LAST 

139 8 

43,3354 

3 5054 

0 

CA 

SIORITS 

01777 


0217 

REF 

4 

LAST 

1398 

43, 3“3 55 

55* 3 73 

0 

TS 

SKFcpB 

LAST ADDRESS CHECKED 


0218 

REF 

2 

L ASf 

1398 

43.3356 

0 3371 

1 

TC 

E"' ASLOOP 















0219 

REF 

2 

LAST 

1398 

43,3357 

3 5051 

0 

2EBANK CA 

FRASC0N6 

01400 


0220 

RFF 

6 

LAST 

1398 

4 3 * 3 3 60 

55* 377 

1 

TS 

SKFFP7 

STARTING ADDRESS 


Ol2T 

RFF 

1 



43,3361 

3 3237' 

1 

TX 

ERASCDN4 

01773 


0222 

RFF 

5 

LAST 

1398 

43,3362 

8 5 * 3 73 

TT 

rs 

SKEEP3 

LAST ADDRESS CHECKED 


0223 

R FF 

3 

last 

139 8 

43.3363 

0 3371 

1 

TC 

ERASLOOP 















"0724 

REF 

"4“ 

LAST 

43, 33 6 4 

“5Tr372 

1 

NDEWNK TS“ 

SKEEP2 

+0 


0225 

REF 

1 



43 , 3365 

3 32 34 

1 

CA 

ERASCONl 

00061 


072?> 


7" 

LAST 

139 8 

43,3366 

^5^377' 

~r 

TS 

SKEEP7 

starting ADDRESS 


0227 

FEE 

— r 



"TfT,336r 

3 3235 

0 

rA 

FRA5CUN2 



0228 

RFF 

6 

LA ST 

139 8 

43.FTT0”' 

33*373 

IT 

TS 

5KEEP3 

LAST address checked 



~G77T~ 





■ 43 , 33Tr 

0 0004 0 

EP7SL O0P TNHTfTT 




02 30 


53 

last 

1398 

43,3372 

3 0003 1 

C7[ 

EB ANK 

STORES Cl EBANK J 


0231 

— PTEF 


LAST 

186"“ 

43 .T3T3 ” 

“55 ' 374 r 


SK E F P4 



■ 0ZT2 





43 . JTT^ 

CTTOObni 

EX I END 




023 3 

rEE 

8 

LAST 

1398 " 

43,3375 

5 1377 0 

RID? 

SKEEP7 








4j.3"3 76" 

3 0001 0 

ucx 

0000 



0235 

RFF^ 

4 

TAST“T396“ 

“43,3T7T 

5T»37F“Cr 

DXCH 


STORES CIX) AND ClX+ll IN SKEEP6 AND S. 


0236 

RFF 

Q 

■ O ST 

1398 

43.3400 

3 1377 0 

CA 

SKEEP7 



"TT2Tr 

■ XFF" 

8“ 


T39 6 

43;T40T ■ 

5F*^36n X" 

TS " 

TRTSTORE^ 

IE RESlAHIf KESIUHt L(xJ AND C{X+ll 



R EF 
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T“ 


TC 

LEFT 5 
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L 

^GC 

BLOCK 

TWO 

SELF- 

CHECK 






USER'S PAGE NO. 

10 E3 S4 
















0432 

REF 


LAST 

1401 

43,3675 

54 001 

1 


TS 

L 

BANK NUMBER BEFORE SUPER BANK 


0433 

REF 

14 

LAST 

1402 

43*3^76 

3 137^1 

0 


CA 

SKEEP4 




0^34 

REF 

1 



43.3677 

7 43 73 

0 


MASK 

SeBITS 

= SUPER BANK BITS 



043 S 





43,3700 

0 0006 

1 


EXTE NO 





0436 

REF 

1 



43.3701 

1 3707 

0 


B?.F 

SORT 

BEFORE SUPER BANK 



0437 

REF 

32 

LAST 

1400 

43, 3702 

54 021 

0 


TS 

SR 

SUPER BANK NECESSARY 



0438 

REF 

180 

LAST 

1403 

43,3703 

3 0001 

0 


CA 

L 




0439 

REF 

19 

LAST 

1396 

43,3704 

7 5023 

1 


MASK 

SEVEN 




04 ^lO 

REF 

33 

LAST 

1403 

43, 3705 

6 0021 

1 


AD 

SR 




0441 

RFF 

131 

LAST 

1403 

43,3706 

54 001 

1 


TS 

L 

BANK NUMBER WITH SUPER 

bank 


0442 

REF 

6 

LAST 

1402 

43,3707 

3 1376 

1 

50PT 

CA 

SKEEP6 

♦ 



0443 





43,3710 

0 0006 

1 


EXTEND 





0444 





43,3711 

1 3713 

0 


6ZF 

+ 2 

* ON -0 CONTINUE WITH 

ROPE CHECK. 


0445 

REF 

1 



43 .3712 

0 2773 

0 


TC 

SDISPLAY 

♦ ON +1 GO TO DISPLAY 

OF SUM* 


0446 

RFF 

18 

LAST 

1401 

43,3713 

11*371 

1 


CCS 

SKFEPl 

FORCE SUM TO ABSOLUTE 

VALUE. 


04461 





43,3714 

0 3716 

1 


TC 

+2 




0446? 





43,3^15 

0 3717 

0 


TC 

+ 2 




04463 

R FF 

9 

LASt 

1402 

43,3716 

6 5017 

1 


AD 

S+1 




046 64 

REF 

19' 

LAST 

1403 

43.3717 

55* 371 

T 


TS 

SKBEPl 




044'7^ 

REF 

182 

LAST 

1403 

43,3720 

4 0001 

r" 

0NKCHK 

cs 

L 

= - bank number 



0448 

REF 

20 

LAST 

140 3 

43,37'>l 

6 1371 

0 


AO 

SKFEPl 




0449 

ref 

" ”2 ■ 

TT5T 

1402 

43,3722 

6 7716 

0 


AO 

S-1 




0450 

RFF 

5 

LAST 

1400 

43,3723 

0 3275 

1 


TC 

-ICHK 

CHECK SUM 



0*31 

REF 

2 

LAST 

263 

43, 3724 

0 3635 

1 


TC 

NXTBNK 





(1454 

■RFF 

2 3 



m^rr 





NEW JOB 




0455 





43, 3 7? 5 

66100 

0 

LSTBNKCH 

RBCQN’*^ 


’S' constant, last bank* 






RFF 12 LAST 935 30,2000 


S3ANK= LOWSUPER 
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L 

PHASE TABLE MAINTENANCE 







USER'S PAGE NO. 

1 

EO 

S? 



POOOl 



SUBROUTINE TO 

UPDATE 

THE PROGRAM NUMBER 

DISPLAY 

ON THE DSKY. 























0002 

REF 

2 

LAST 

221 TO 

222: " 

20 

20* 


COUNT 

02/PHASE 























000? 





5354 





BLOCK 

02 






0004 

REF 

2 

LAST 

221 

4000 





SETLOC 

FFTAGl 






0005 





5354 





BANK 








0006 

REF 

310 

LAST 

1401 

5354 

50 

002 

0 

NEWMODEX 

INDEX 

0 

UPDATE MOOREG. ENTRY FC 

)R MODE 

IN 

FIXED. 


0007 





5355 

3 

0000 

1 


CAE 

0 






0008 

REF 

311 

LAST 

1404 

535 6 

24 

002 

0 


I NCR 

0 







0009 

REF 

15 

LAST 

1324 

5357 

5 "5 

•oil 

1 

NEWMODEA 

TS 

MOOREG 

ENTRY FOR MODE IN A. 





0014 





5360 

3 

5363 

1 

MMDSPL AY 

CAE 

+ 3 

DISPLAY major mode. 





0015 

PEF 

31 

LAST 

1317 

5361 

22 

006 

1 

PREBJUMP 

LXCH 

8BANK 

PUTS BBANK IN L 





00 1:- 

REF 

8 

LAST 

1330 

5 36? 

1 

4704 

1 


TCF 

riANKJUMP 

PUTS Q INTO A 





0017 

!^EF 

1 



5363 

20440 

0 


CAOR 

SETUPDSP 







ROOIS 


RETURN TO CALL‘D +3 IP MfJOE = THAT AT CALLER +1. OTHERWISE RETURN TO CALCER +2 


0020 

• 

REF 

312 

LAST 

1404 

5364 

50 002 

0 

CHECKMM INDEX’ 

0 


0021 





5365 

4 0000 

0 

cs 

0 


0022 

RrF 

16 

LAST 

1404 

5366 

6 1011 

IT 


MO DR EG 


0023 





5367 

0 0006' 

1 

EXTEND 



00 24 

PFF 

2 

LAST 

1210 

5370 

1 6 710 

0 

BTF 

Q + 2 


0025 

REF 

3 

LAST 

250 

5 371 

1 6706 

X 

TCT 

~0+T — 

NO MATCH 


D0Z6 

R'FT” 


LATT 

“ROZt 

^TTT^ 



1X0 = 

Q+2 +1 



00? 7 14, 3761 BANK T? 


o 

o 

' 

REF 

1 



lO.’OTiO 




SETLOC PHASETAB 








10, 2440 




BANK 













_ ■ — . . , — _ - » — -■ 1 1 — — II — ■ ■ ■ . ■ _ » . . . - ■ = 



o !z]r— 

1 







COURT ’ TaTTUHASE 















0031 





10,2440 

0 0004 

0 

SETUPOrP- 

INHINT 



00T2 

“RET” 

25 

LATT” 

■ T28 ■■ 


52 OTl 

0 


OXCH XUPTRIXI 

SAVE CALLER-S RETURN 2CAnT 


0033 

TTF“ 

IT 

LAST' 1204 

10,2T42 

“3"T3T1" 

a 


CAF PPIOBO 

EITHER A TASK UR JUB CAN CU^lh TO 


0034 

p rp 

31 

LAST 

1225 

10,2443 

0 5134 



TC NUVAC 

NEW MODE X 


003$ 

s E F 

17 

urrr 

1404 

10 1 1 




ETTSMIC^ MOOREG 



■ 0036“ 

^[FF“ 

1 



10,244 4 

0T4'4T- 

CT" 


2CADR DSPMMJOB 



0036 

REF 

1 



10,2445 

— hd 1 O'? 

1 





0037 

REF 

"26 

L7\ST^ 

14-(T4”" 

rO”t?T4^6“ 

on 

"0 


XDICK RUPTREGl 



0038 





TD. 2447^ 

TT oooTnr” 


■RTUI NT 



OT5T9 

pef 

T?” 

LAST 

'~T2'T— 

“TD7743Tr 

■ T2 0'0"6' 

TT” 


TTXTTR Z 

RETUR N 














0043 

PfF 

"~7~ 

^rsT" 

3 75 

40,3441 



TTSPMMaCTB 

cUUALS OSPMHJR 



























orm 









BLOCK DO 
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PHASE TABLE MAINTENANCE 

USER’S PAGE 

HO* 2 

EO S3 



0042 

REF 3 LAST 1404 4000 SETLOC FFTAGl 





0043 

S372 BANK 
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L 

PHASE TABLE MAINTENANCE 

USER'S PAGE 

NO. 3 EO 

S3 





P0044 

’^HASCHNG IS THE MAIM WAY OF MAKING PHASE CHANGES FOR RESTARTS. 

THERE ARE THREE FORMS OF 

PHASCHNG, KNOWN 

AS 

TYPE 



R0046 

A, TYPE 3t and TYPE C. THEY ARE ALL CALLED AS FOLLOWSt WHERE OCT 

XXXXX CONTAINS THE PHASE INFORMATION, 






A004^^ 


TC 

PHASCHNG 


A0049 


OCT 

XXXXX 



ROO'JO 


R0057 


TYPF'aTS concerned WTTTT'pIXFD PHASe CHANGES* THAT IS. PHASE I NFORMAT lONTHAT IS STORED PERMANENTLY 


THESE 


nPTIONS ARF* WHERE G STANDS FOR A GROUP AND .X FOR THE PHASEt 


P00T3 


ROOSS 


ROOST 


R00S9 


R006? 


ROOS3 


G.O 


RESTART 


G.l 


G*EVEN 


WILL GA"(JSE"ThE last DlSPlAY TO BE REACTIVATED* USED MAINLY \W MTU^NED^ FL 1 (JHT^ 

A nOUBL~E TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKSt AND/OR 


LQNGCALL TO BE RFSTARTED, 


RTsnnrr 



R0065 


R0067 


R006 


u O 


Pxoon 


THIS INFORMATin'M IS PUT INTO THE OCTAL WORD AFTER TC PHASCWG AS FOLLOWS 


TLO OOP PPP PPP GGG 


WHEREOF A CH LETTER OP NLIMBER STATJDS FOR A BIT. THE G:S S TAND“TOR"TT^F GROW » OCT AL I 
OCTAL 0 - 127* 0 : S I^UST BE 0 . IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO 

T~I S' S ET TO 1, OTHERWISE IT IS SeT TO 0 
IT IS SET TO 0, SOME FXAMPLFSi 


If THE P:S T 0R“THF“FFrA‘SE7 

TT 



SIMIARLY I'F OfTFinTHES TO S'FT L0NG6ASE* THEN L IST^SET TO 1. 



A0072 


A0073 


AOOT^f 

A0075 


A0076 


A0077 


A0078 


AOOSG 


A0031 


A0082 


A00S3 


A0084 

AOOBS 



3 A, 


TC 





RHTTS C RT) G 

OOOOl 


TC 


■p 


OCT 


00012 


TC 


PHASCHNG 



T 





TC 

OCT 



20135 


TC 


phaschng 





THIS WILL CAUCF GROUP^T TOBE SET TO 07 
TOKING GROUT 3 INACTIVE 






T'HTS 
CASE OF ^ 



THTC WOULD CAUSE 
~LXST D I SPLAT " 


GROUP 4 ANC TN 



L0CA7 



W THE TWO 
;.6 RESTART 



LONGBASE ATIC UPUM A RfcSf AR I 
3 TO BE' RESTARTED (SINCE 


LONGBA5C“¥7rG SET THTS SINGLE fNikY 

GFnjm:c'Tri^“A- roNGC Aco 


SINCE BOTH TBASE4 AND LONGBASE 
■^rrT^SHDULTT C ONTATM' WrFr”A: TASK 

uoNGCi^nrT 




o 


R 

RC03 0 


R009T 


ROO'^? 


TT. 


FO<T 

RTTOTZ 


TYPT~C^ 
PERMANENT 



nrnrs 


TYPE DF“ PHASCHNG INFURMATTCTT. INSlhAD OF THE INF 





S T OR F S ■ THE' DES IITOT lirSTART INFORHATrON^rTCTr 


1 A B KE'T.OCATT CTNr THE B1 I S ARE AS FOLLOWS. 



TUm AT TOOCX JW GGG 


wfiFTe 

R E B V 




ACH LETTER OR NUTbEP 


T7AT 




B FT R 



STANDS FOR A Bll 

1 .“TF' TT rS“A 


THE G 




FOR THE GROUP, OCTAL 1 - 7^ IF IHL RESIARI IS lU 
TFT^TET T . IF IT ISTA LONGCALL. C"TC~5in ITT 1. ONLY UNE OF 
TCNOREC T MUST TTF 1 ^ AND” 0 MUST ' BT TJ. AGAIN T SlANuS FOR I HF TBASCt 


ROIDR 


A0121 


A0122 

Aom 

A0r24 


I 


ROl2b 

R0127 




— _ — — — ■ 
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L 

PHASE TABLE MAINTENANCE 

USER'S PAGE NO. 

4 

EO S3 




R009S 

AND 

L FOR LONGBASF. THE BITS A AND D ARE CONCERNED WITH THb VARIABLE INFORMATION. IF D IS SET 

1 U L m 

A PRIDRIIY 



ROl 00 

O'? 

DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THF OCTAL 

INFORMATION, IF THIS IS TO BE 

INUlKtCIf IHAI 



ROlO? 

rrr 

THE NAME OF A L0C<\TID1 COMT + INING THE INFORMATION (DELTA TIME 

ONLY), THEN THIS IS GIVEN AS 

THE - 

GENADR Ut 



R010"+ 

THA 

T LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY 

OR DELTA TIME IS TO BE USED, 

THAT 

WHICH I S 



R0106 

At R 

FADY IN THE VARIABLE STORAGE, THEN 0 IS SET TO 0. NEXT THE A BIT IS USED. IF IT IS St 1 lU U 

, THE 

ADOR ESS 


- - — . - __ 


PHASE INFORM AT TON* THAT IS. EITHER 


ROllO 

{ TC PHASCHNG) +2 OR +3. ncppMDifsjG ON 

WHETHER 

0 HAD BEEN 

SET OR not. IF 

A IS SET TO 1. THEN THE ADDRESS THAT 


R0112 

wnuLO BE RESTARTED IS THF 2CADP THAT 

IS READ 

FROM THE NEXT TWO LOCATIONS 

. EXAMPLES, 



« 






Anii4 


AD 

TC 

PHASCHNG 

THIS WOULD CAUSE LOCATION AD +3 TO BE 


Anns 


A 0+1 

OCT 

05023 

RESTARTED BY GROUP THREE WITHA PRIORITY 


A0116 


AO+2 

OCT 

23000 

OF 23. NOTE UPON RETURNING IT WOULD 


AOIT 7 


AD+3 



ALSO GO TO AD+3 


~ - i.- — ■ ■ — — - - ».-■* ^ • • f ^ - — — — - — ' ™ » j 1 

AOllH 

' 

AD 

TC 

PHASCHNG 

GROUP 1 WOULD CAUSE CAUSE LALLLALL \U 


AOll^^ 


AD + 1 

OCT 

27441 

BE STARTED AS A LONGCALl” FROM THE TIME ~ 


A0120 


AD+2 

-GENADR 

OELTIME 

stored in LGNGBASF (LONGBASE was SET) BY 



AD+3 


2CADP CALLCALL 


DFLTIME. 


A 0+4 


A0+ 5 


B3C0N OF THE 2CADR SHOULD CONTAIN THE E 

TO 


BANK OF OEirTI ffF* 

LOCATION AO+5 



-gO T F T HA T IF A V A RTABLF PRl OR ITT'TS 'GWEN FOR A JlJB TTHF 
NEGATIVE* AS A FINDVAC IF THF PRIORITY IS POSITIVE. 


TOFTnin: 


WUT2 


7 j 

o 


R01’?2 




ROl ^4 
150146 
ROITF 


ROl >0 

R. 0 1 4? 


A0148 


A014 J 
A 0 1 '^'T 


TYT^ 



f> PHASCHfT^ 

AMD ALST5 START UP ONt^ FIXETJ 
PMTRY. rHE BTT INFORTTATIUN IS 


IS A COMRInaTIOM of VARIABLE ANTO 

THAT IS EITHER 



FIXED PHASE CHAMGbS. 

G . r np A 


IT WILL START UP 



t 



A JUB AS INDIoATFO 
ENTRY nF“G .FVEN 


FTILLDWST 


Ti;T‘T3AP‘T''>Tr' 



7 


WHERE EACH LETTER OR 
PHASE INF OR MAT TON 
TP^ STTTNDS ONLY 


NlJf^BER STANDS FOR 

■^^2T7 



TT 




GROUP* 




TFfl 5 WILL BE 


TH 


. R Thf Address Of thE location tg be restarted 

rRTATTimTTTTTE kETURN LOCATTON "OT AHPCF 


THE G:S STAND 
“7fNm^ATfT“T STANDS’ 

A JOB. AND IT Bb GIVEM DIRE 


THE P:S FOR THE FIXbU 




R IS GIVEN 


LUNGBASF. U IHl 
bClLY IF GIVEN. 

T~r 


TTTF 


IS TO BE 



PHASCHNG 

S6()4’-5 


TC 

UCT 

ttct rnTOD 
TUTOR AJOBAJITB' 


I BASE IS SE» ANU ARES I AK I CAUSE GROUP T 
ID STAR! — IHE JOR A JOB A JOB T« 1 » H PKIURITY 


3T AND THF FIRST ENTRY 0rT;4bPUi(WE CAN 
ASSUME II IS A TASK SINCE WE SE I TBArUETT” 


A 0+4 
AT5+5 


UPON RETURN FROM PHASCHNG CONTROL WOULD 
G AD+5" 


TO 


A L)+ 1 


TC“ 

nrr 


PmTSCHNn 


AST 



WOULD BE 


T 



UFIJN A RESTART Tfl 
TTI r SI ARIF i J ANU A JUB WITH THtr PRtVlUUSL 
SIlIRhl) PRIURI I Y WOULD BE BbGUN AI AU+2 
BY MEANS OF GROUP 



i 
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L PHASE TABLE MAINTENANCE 

USER* S PAGE NO. 5 

EO S3 





R0153 THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - 

NEGATIVE PRIORITY CAUSES A NOVAC CALLt POSITIVE A 

FINDVAC. 




R0155 

SUMMARY OF BITS 













R0156 

TYPE ^ 

TLO 

OOP 

PPP 

ppp 

GGG 








R0157 

TYPE B 

TLl 

DAP 

ppp 

ppp 

GGG 


R0158 

TYPE C 

TLO 

lAQ 

XXX 

CJW 

GGG 
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PHASE TABLE MAINTENANCE 






USER'S PAGE NO. 6 EO S3 


P0159 

2PHSCHNG IS USFO WHEN OM 

E WISHES TO START UP A 

GROUP OR 

CHANGE A 

GROUP WHILE UNDER THE CONTROL OF A DIFFERENT 

«0161 

GROU^. FOR EXAMPLE. CHAN 

GE THE PHASE OF 

GROUP 

3 WHILE THE PORTION 

OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNe 

R0163 

CAt LS ARE MADE IN THE FOLLOWING MANNER, 






A 01 64 





TC 

2PHSCHNG 


A01&"j 





OCT 

XXXXX 


A 0 1 6 





ncT 

YYYYY 



R0167 

WHERE OCT XXXXX MUST BE 

OF TYPE A AND OCT YYYYY MAY BE ( 

3F EITHER 

TYPE A OR TYPE B OR TYPEC. THERE TS ONE 

R016''^ 

OIPFEPENCE NOTE- IP 

LHNGBASE IS TO 

BE SET 

THIS INFORMATION IS 

GIVEN IN THE OCT YYYYY INFORMATION, IT WILL 

R0171 

3E niSREGAROED IF GIVEN 

WITH 

THE OCT XXXXX INFORMATION. 

A COUPLE 

OF EXAMPLES MAY HELP. 









A0173 




AD 

TC 

2PHSCHNG 

SET TBASEB and IF A RESTART OCCURS START 

AO 174 




A Oi - 1 

OCT 

40083 

THE TWO ENTRIES IN 3.8 TABLE LOCATION 

A0173 




A 0+2 

OCT 

05025 

THIS IS OF TYPE C. SET THE JOB TO BE 

A0176 




An+3 

Eirr 

18000 

TO BE LOCATION AO+4, WITH A PRIORITY TFT 

A0177 




A 0+4 



FOR GROUP 5 PHASE INFORMATION 


dl7H 

RTF T LAST 1404 TO 140 

4: 

14 ?4^ 


COUNT 

02/PHA3T 










0 1 79“ 


5372 

0 0004 0 

2PHSCHNG INHINT 


THE ENTRY FOR A DOUBlE PHASE CHANGE 

0180 

REP 313 “^lAST 1404 ” 

T3T3“ 

50 00? 0 


NDX 

0 


OTTrr" 


5 3 7 4'^ 

3 0000 1 


C7S 

0 


0182 

REF 314 LAST 1409 

5375 

24 002 0 


ncR 

0 


01 31 

R E 1 

■FTTTT 

54 07? 0 


IT 

TEMPP2 



Ol’A 

REF 1 

5377 

7 5023 1 


MTTSK 

nCT7 


01^" 


WITT 

S'DIiad 1 


DOUBLE 



01R6' 

REF 1 

540 1" 

"54 071 C 


TS 

TEMPGZ"" 



01 ^7" 

"XFF ? XASTTTfCT?" 

5402 

3 T707T I 


CA 

TEMPPZ 



REF 1 

5 40 3 

7" TO 72 0" 


“ MAST^ 

OCT 1 7770 

NEED UNLY 1^70» BUT WHY GET A NEW CONST. 

urw 


5404 

0 0006 T' 


EXTEND 



01^0“ 

REP 34 LAST 1395 

5405 

7 5004 1 


WP " 

6 I T 12 


01 ^'1 

■"RFF 3 LAST" 1409 


"li4"072 1 


7<XFI 

T t M P H 2 



urrr 

STT" T AST IJ'^T 


T”500T 1 


M7L5K 

BTTT5 


019 3 

REF ■ 1 

"541TT 

■5^A^T>6 0 


TS 

TEMFSW2" 

INDICATES WHETHER TO Sfc ! IttASE uR NOT 


01*^4 

-TF 107 LAFl rTT9 

5411 

1 5415 0 


417F 

PHASCHNG 

+3 



0195 


54 rz 

D T) 004 0 

“PTOSCHNG INHINT 




PTF“r59 CAST TTTO 

5413 

3 5 0 X "7 T 


UA 

ONE“ 

IND ICATESWc TTPTE FROM A PHASCHNG ENTRY 

0197 

HEF 2 LAST 1409 

S414 

54 066 0 


T 5 

T E M P 5 W 2 










0198 

■■■i-hF 3X5 LAST 1409 

5415 

50 00? 0 


NDX 

Q 


OTW" 


5 4 1 5 

3 0000 1 


CA 

0 


0200"" 

REF XAST 1409 

T4TT 

(TOX 0 


tncr: 

0 


0201 

TTET 1” 

"54“Z0 

54'“065 0 


TS 

TCMPSW 
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L 

PHASt TABLE M A I NT r NAN'G t 



USER* S PAGE 

NO. 7 

EO S3 



0202 

5421 

0 0006 1 

EXTEND 





0203 

REF 1 ^>422 

3 5425 1 

OCA ADRPCHN2 

OFF TO SWITCHED BANK 




0204 

5423 

52 006 0 

OTCB 






0 205 

PEF 

47 

LAST 

1396 

E3,1400 




EBANK= 

TSTl 




0206 

REF 

1 



5 424 

02451 

0 

ADRPCHN2 

2CAnR 

PHSCHNG2 




0206 

REF 

1 



5 42 5 

200 63 

0 






















0207 

REF 

1 



5426 

22 073 

0 

oneortwo 

LXCH 

TEMP8BCN 




0205 

REF 

32 

L A ST 

1404 

5427 

22 006 

1 


LXCH 

BBANK 




0209 

REF 

2 

LAST 

1410 

5430 

22 073 

0 


LXCH 

TEMPBBCN 





0210 

Pcp 

1 



5431 

7 5066 

0 


MASK 

OCT14000 

SEE 

WHAT KIND OF PHASt LHANbt 11 lb 


0211 

<FF 

347 

L AST 

1401 

5432 

10 000 

0 


CCS 

A 




0212 

RFF 

1 



5433 

1 5474 

1 


TCF 

CHECKS 

It 

IS OF TYPE :B: 

= — ■ 1 — ■ — 


021 


R FF 


1 


5434 3 0062 0 


CA 


TFMPP 


0214 


REF 46 LAST 13^S 


5435 7 5011 0 


0215 

0216 




LAST 1410 


54 36 


5-t37 


10 000 0 
1 5461 0 


MASK 


B1T7 





TCF 


GETPRIO 


^ ALITlf^ E TTSE THE QLD 

PRIORITY 


02X7 

0215 



LAST T2T 


5440 50 06 I 0 OLDPRIO NDX 



USE TME OLD PRIORITY (OR □ELTA^TT 


1 


5 44 1 


0219 


C 


E F 


1 


5442 


3 1052 1 
0 70 


CA 

TT 


PHSPROTl 
TEMPER” 


0220 

REF 

2 

LAST 

1410 

5443 

3 0062 0 

CONI 


TEMPP 

SEE IF A 2CAnR IS GIVEN 

0221 

REF 

~TT~ 

"LAST 

1395 

54 A4 

“7 5010 1“ 



BITB 

1 . - — — .1 mi » ™ i. J ■ ■ k < . 

0222 

REF 

349 

last 

1410 

^44 5 

10 OOO 0 


ccrs“ 

A 


0223 

REF 

1 



547+6 

1 5465 1 


TCT 

GETNEWNM 

. 


0'22'4' 

^ REr 

"3X7 - 

TAST 

X2F(F3 -- 

5447 ■ 

‘^'orooz 0“ 


C A 

Q 


022 5 

REF 

1 



S450 

54 063 0 


T S 

T F M P N M 


0226 

K ^ r 

1 



545X 

"T 00176 T“ 


c \ 

BB 







— 545”2~ 

0 0006 1 


E X TEND 


PICK UP USERS SUPEHBANK 

0223 

PFF 

23 

LAST 

1232 

5453 

04 007 1 


“Rim 

SUPtRRNK 


UT29 

R EF 

~~X“ 



54^^4 

~54 TTST 1 * 


T S 

TEMPSB 













0230 

F F 

1 



5455 

3 5460"ir 

T0CnN2 

CA 

COMZ ADR 

BACK !□ SWITCHED BANK 

0231 

REF 

3 

Lsrrr 

1410 

5456 

22 073 0 


Lxnr 

TEMP83C^N 


0232 





f 

“5T TT06 1T“ 


DTCB 




0TT5~ 

REF 

1 



5460 

0 

f6j 

1 

CnN2ADR 

GENA DR 

CON? 













0234 

— RTT^ 

318 

last 

1410 

5461 

50 002 0 

GETPRIO 

NOX 

Q 

DONst Carl if dikeci uh indikEci 

023-5" 





5 4 6'2“ 

T^TJOW X“ 


C A 

0 

LEAVE TFfAT DtCIblUN 1 L’ KESIAKIb 

' 02 3 6" 

TFF 

3T9T' 

XAST“ 

n:4io 

5463 " 

24 002 0 


~TNCTT 

0 

UBTAIN RETURN ADDRESS 

02 3 7 

— 7TT" 

— r~ 



5 7f h 4 

1 544 ? 1 


TTF 

CONI —1 


















5^6 5 

*TrTraTJ6“T 

GETTiEWNK 

EXTEND^ 




. .r . — - - - - - - ■ 1 ■■■ » ^ 
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L 

PHASE TABLE MAIMTENANCE 



USER'S PAGE 

NO. 8 

EO S3 


0239 

RFF 

320 

LAST 

1410 

546 6 

5 0002 

0 


INDEX 

0 

0240 





5467 

3 0001 

0 


DC A 

0 

0241 

PEF 

2 

LAST 

1410 

5470 

52 064 

1 


DXCH 

TEMPNM 

0242 


70 

LAST 

1326 

547 1 

3 5016 

0 


CA 

TWO 

0243 

RFF 

321 

LAST 

141 1 

5472 

26 002 

1 


AOS 

Q OBTAIN RETURN ADDRESS 


0246 

REF 

1 



5473 

1 5455 

1 


TCP 

T0C0N2 












0245 

PEF 

6 

LAST 

708 

5066 



0CT14000 

EQUALS 

PR 1014 

0245 

PEF 

20 

LAST 

1367 

0061 



TEMPG 

EQUALS 

ITEMPl 

024 7 

REF 

25 

LAST 

1367 

0062 



TFMPP 

EQUALS 

ITEMP2 

024R 

RFF 

4 

LAST 

6 8 

0063 



TEMPNM 

EQUALS 

ITEMP3 

024^ 

RFF 

3 

LAST 

68 

0064 



TEMPBB 

EQUALS 

ITEMP4 

0250 

RFF 

2 

LAST 

68 

00 6 5 



TEMPSW 

EQUALS 

itfmfs 

0251 

REF 

3 

LAST 

158 

0066 



TEMPSW2 

EQUALS 

ITFMP6 

0252 

PEF 

27 

LAST 

1404 

007 0 



TEhppr 

EQUALS 

RUPTREGl 

0253 

WF 

6 

LAST 

14P 

0071 



TeMPG2 

FOUALS 

RUPTREG2 “ — _ 

0254 

REF 

5 

LAST 

1105 

0072 



TFMPP2 

EQUALS 

RUPTRFG3 


0255 


V - 

in ST 

1105 

007 3 



TFMP8BCN 

EQUALS RUPTRFG4 

02 56 

R EF 

33 

LAST 

141 0 

0 0 0 6 



BB 

EQUALS 

BBANK 













02 57 





14, 3761 




BANK 

IF 

025 8 

R F F 

2 

LAST 

140 4 

10,2000 




SETLGC PHASETAB 

U25^ 





■"rnTTATi" 




BANK 




RTF 

T" 

" L A ST“ 


!r 3 t i 4 3 6 




"EBTANK^ 

phsnamet 

0251 " 

RTF" 


TTATT T^A TH 

1409: 

— q 



“CUONT 

lO/PHASE 


026? 

RFF 

"2? 

TSFriRiTn 

10, 2451‘ 

"322 073 F" 

PHSCHNG2 LXCH 

TEMPBBCN 





0263 

f^FF 


LAST 140^” 

10 ,24 52 

3 0065 1 ■ 

" CA" 

TEMPSW 





0264 

P.^F 


last 14o9 

10,2453 

7 5023 1 

TOCIT" 

0CT7 





0265 





6 OOOO 1 

DOUBL! 






uzsyr 

R tr~ 

"5 

XAST TAICT ' 

■~TT7TAF5" 

54 ' OFT 1 

TS 

tempo 






0267 

REF 

3 

LAST 1411 

10,2 43 6 

" 3" 0065 1 

CA 

T F H S W 





0Z6B " 

FEF' 

T 

TAST 

IF,2^5T" 

7^5DT2 0 

M71SK 

UCTl 7770 





0260 




1 0 5 '^460 

0 0006 1 

extend 





0270“ 

REF ■ 


“LAST 1409 

10,2 461" 

7 5004^ 


BIT12 





TT27T 

REF 

3 

T A ST 14 rO' 

“rOT24F2" 

54 062 i 

TS 

1 F MP P 






027J~ 

REF” 

zr 

EAST TATT 

m , ■> '+51“” 

3 0065 1 

~X7R 

TE'MPFW ■ ■■ “ ■ " ■■ 




0273 

REF 

15 

n:ASF”F4F“ 

10, 2 464" 

“T“ 4r05“ 0“ 

nssK 

OCT60000 




umr 

REF” 

5“ 

LAST 1411 

1 0 * 2 4 6 5 

56 065 1 

XLH 

TEMPSW 




0275 

“ REF” 

2 

“LAST' 14X0“ 

10,2466 

7 5066‘Tr 

"RASTT 

flCT1400U 




02 76 

PFF" 

350 

TAST 141“0” 

10,2467 “ 

“TO T)TTTr“0 

CCS 

A 















0777" 

■ R7F“ 

~~~T~ 


“70,2470 “ 

“T“'54 EE""!! “ “ ■ 

rc F 

nrMhUK ^ WO 















































^ 1 U. ^ ^ ^ ^ — - — r~ - ^ T| — - « - , ^ m ti — 

m — ^ ^ 



— 
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L 

PHASE TABLE MAINTE^M^tCE 



USER* 

S RAGE 

NO. R 

E3 S3 




0273 

REF 

if 

LAST 

1411 

10.2471 

3 0062 

0 

CA 

TEMPP 

START STORING THE PHASE INFORMATION 

027R 

REF 

6 

LAST 

1411 

10,2472 

50 061 

0 

NOX 

TEMPG 


0280 

REE 

3 

LAST 

204 

10f?473 

54 751 

0 

TS 

phase! -2 



0231 

REF 

3 

LAST 

1409 

10.2474 

10 066 

0 REtnwi 

rxs 

TEMPSW2 

IS IT A PHASCHNG OR A 2PH5CHNG 

0252 

REF 

1 



10,2475 

1 2511 

1 

TCF 

BELnW2 

IT:S a PHASCHNG 












0283 





10 ,2 476 

1 2477 

0 

TCF 

+ 1 

IT;S A 2PHSCHNG 

0284 

i i I 

4 

LAST 

1409 

10.2477 

4 00 72 

0 

cs 

TEMPP2 


0285 

REF 

5 

LAST 

1412 

10,2500 

22 072 

1 

LXCH 

TEMPP2 


02 86 

REF 

2 

LAST 

1409 

10,2501 

50 071 

1 

NDX 

TEMPG2 


02B7 

REF 

5 

LAST 

221 

10,2502 

52 7 5 1 

0 

DXCH 

-PHASE! -2 



0288 

P -- F 

4 

L AST 

1412 

10,2503 

10 066 

0 


CCS 

TENPSW2 



0289 





10,2504 

12 505 

1 


NHOP 


CAN:T get here 


0290 

’’EE 

2 

LAST 

1412 

10,2505 

1 2511 

1 


TCF 

BEL0W2 
















0291 

R F F 

19 

LAST 

1101 

10,2506 

4 0025 

1 


CS 

TIMEl 



0292 

RF*^ 

3 

LAST 

1412 

18.2507 

50 071 

1 


NDX 

TFMPG2 



0293 

REF 

4 

LAST 

39 2 

10.2510 

55*051 

0 


TS 

TBASEl -2 




0294 

REF 

6 

"LAST 

141 1 

10,2511 

10 065 

0 

BcL0W2 

CCS 

TFMPSW 

SEE IF WE SHOULD SEl IbAbt UK LUNbKASt 


0 2 5 

REF 

1 



10,2512 

1 2525 

0 


TCF 

BELnW3 



0296 

REF 

1 



10,2513 

1 2530 

1 


TCF 

BELnW4 

SET NEITHER 















0297 

REF 

20 

LAST 

■r4T2" 

10,2514 

4 0025" 

1 


CS 

TTMET 

SET TBASE to BEGIN WITH 


0293 

REF 

7 

LAST 

1412 

10,2515 

50 061 

0 


NDX 

TEMPG 



0299 

P crc 

3 \ W I 

5 

LX^ 

1412 

10,2516 

55*051 

0 


TS 

TBASFl -2 
















0300 

REF 

7 

LAST 

1412 

10.2517 

3 0065 

1 


"CS 

TFMPSW 

SHALL WE Now SET LGNGBASE 


0301 

KEF 

1 



10,2520 

6 2523 

T" 


AO 

BlTl4CuM 



0 302. 

151 

LAST 

1411 

10,2521 

ro'ooo 

0 


CCS 

A 



0303 





10,2522 

12 523 

0 


noOp 


CANT Get here 


0304 





10, 2523 

17777 

Tr“ 

8IT14C0M 

OOT 

n ' r t 

cant Gh I HERE 


0305 



“ TIAIT ' 

1 41 2 


1 2530 

T“ 


TCF 

B E LDW4 

NO WE NtbU ONLY SET TBASE 















0306 





10,2525“ 

“0 00 06 ' 


"BE LOW 3 

* EXTPTrr 


SET LONGbASE 


0307 

R E F 

29 

L AST 

1330 

10,2526' 


IT" 


"DCT^ 



. 

0 308 

REF 

1 



10*2527 

53* 1 36 

0 


DXCH 

LONGBASE 
















0309 

E F 


LAST 

1412 

10,2530" 

4 00 62 

1 

B'EUnW4 

CS 

TE MPP 

AND S I CJR F fHb eINAX PART (TF THE PHA5F 


0310 

RFr 

8 

LAST 

1412 

10,2531 

50 061 

0 


NOX 

TFmp^ 



0311 

REF 

6 

LAST 

1412 

10*2532 

~S4 750 

1 


TS 

-PHASE! -2 
















0317 

r f 

322 

LAST 

1411 

10,2533 

3 0002 

IT" 


C A 

Q 



0313 

REF 

5 

L/rST 

1411 

i>r,75T^r 

22 073 

0 


“XXOTT 

TEMPFBCN 



^ 't 





1 0 , 2 3 5 

“D "0005“ 1 ■ 


RELTNT 



0315 





10,2536 

52 006 

~w~ 


OTCB 




0 315 

R'ET 

6 

LAST' 

1412 

10*2537 

075“ 0“ 

CONZ 


TEMPBBCN’ 

^ ^ — — — — - — = — ' . — — - - - - ^ 
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L 

PHASE 

TABLE .3A1NTENAMCE 





USER'S PAGE 

NO. 10 

E3 S3 




0317 

R EF 

A LAST 1412 10,2540 

3 0062 

0 

CA 

TEMPP 






031 >3 

REF 

9 LAST 1412 10.2541 

SO 061 

0 

NDX 

TEMPO 






0319 

REF 

4 LAST 1412 10,2542 

54 751 

0 

TS 

PHASEl -2 






0320 

R^F 


LAST 

1410 

10,2543 

3 0070 

0 

CA 

TEMPPR 

0321 

REF 

to 

LAST 

1413 

10.2544 

50 061 

0 

NOX 

TEMPG 

0322 

REF 

2 

LAST 

1410 

10,2545 

55« 05? 

0 

TS 

PHSPRDTl -2 


0323 





10.2546 

0 0006 

1 

EXTEND 


0324 

REF 

3 

1 AST 

141] 

10,2547 

3 0064 

0 

DCA 

TEMPNM 

0325 

RFF 

11 

LAST 

1413 

10,2550 

50 061 

0 

NDX 

TEMPG 

0326 

REF 

4 

LAST 

1411 

10.2351 

53i''435“ 

0 

nxCH 

PHSNAMEl -2 


OT^l r?FF I — — ]^o , ?S52 1 2474 0 TCF BELOW 1 


(y32“g *5474 BLOCK 02 

IT^E 4' L3ST 140T~ 4000 SETLOC FFTAGl 

0320 5474 BANK 


OTTT ¥n:i^ST 1409 n 1411: 66 ’ lOO’J' COUNT 02/PHASF 


RTF 2^5 LAST I4“II "474 7 5004' 1 CHECK 3 MASK 8IT12 ^ SINCE THIS 1$ OF TYPE B, THIS B^TT SHOULD 


UJJ3 

RFF 352~ 

LAST 

T4T^ 

5475 

10 000 

7) 

CCS 

A 


SE HERE IF“WE ARE TO GET A NEW“PR ITiR TTT 


0334 ■ 

“RTF — 

last 

1410 

5 476 

1 54 61 

0 

TCT 

GETPRIO 


IT IS. SO GET NEW PRIOBITT” 

- 













03 3 5 

"RIEF T” 



547 r 

1 5440 

0 

^TC1^ 

OL D P R 1 0 


FT ISNti, THE OLD PKlORITY 
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L 

RESTARTS ROUTINE 



USER'S PAGE NO. 1 EO S3 




0001 


01 .3520 

BANK 01 




0002 

REF 2 LAST 212 

0lt?000 

SETLOC RESTART 




0003 


01 .3520 

BANK 











0004 

REF 5 LAST 1413 

E3. 1436 

FBANK= PHSNAMEl 

GOPROG MUST SWITCH TO THIS EBANK 




0005 


KEF 


I 


COUNT Ol/RSROU 


OOOo 

KEF 

667 

LAST 

1370 

01,3520 

3 0161 

1 

RESTARTS CA 

MPAC +5 

GET GROUP NUMBER -1 

0007 





01,3521 

6 0000 

1 

DOUBLE 


SAVE FOR INDFXING 

0003 

P cF 

1 



01 , 3522 

54 155 

1 

TS 

TEMP2C 



0009 

R FF 

1 



01.3523 

3 3762 

1 

CA 

PHS2CA0R 

SET UP EXIT IN CASE 11 lb AN tVtN 

0010 

P EF 

i 



01 , 3524 

54 157 

0 

TS 

TEMPSWCH 

TABLE PHASE” 


0011 

REF 

1 



01. 3525 

3 3 5 57 

0 

CA 

RTRNCADR 

TO SAVE TIME ASSUME IT WILL htl NtX 1 

00 L 2. 

REF 

1 



01,3526 

54 707 

0 

TS 

GGLOC +2 

GROUP AFTER THIS 


0013 

REF 

1 



01,3527 

3 0154 

1 

CA 

TEMRPHS 


0014 

PEF 

10 

LAST 

1396 

01 ,3530 

7 5051 

1 

MASK 

fJCT1400 


0015 

REF 

353 

LAST 

141 3 

01 , 3531 

10 0 00 

0 

CCS 

A 

IS IT A VARIABLE OR TABLE RESTART 

0016 

RFF 

1 



01,3532 

1 3543 

1 


ITSAVAR 

TT:S ^ VARIABLE RESTART 


0017 

RFF 


LAST 

1414 

01, 3533 

10 154 

() 

GETPART2 CCS 

TEMPPHS 

IS IT AN X.l KESTAKr 

0015 

RFF 

354 

LAST 

141^* 

01,3534 

10 000 

0 

CTTS 

A 


0019 

RFF 

1 



1 , 3 5 3 5 

1 3643 

1 

“TCF 

nrisATBL 

NO, ITS A TABLE RESTART 


o aaQ — LA5T I4ii rnrrr^ir^ ■ 5 pkioia^ it ts an x.i REsTAKtt iherefuke stari 


OOir R F. F ~ 1313 01 , 35 ^ 0 ”' 5 T’ 2 ^ 7 “n FTNTWTCT THE Tri^TC.W RESTART 


0022 

REF 

43 

last 

1410 

E3,1400 




ERANK= 

rsTi 

. . _ . . 1 ^ 1 . -p- ■ 1 ■ — J - ~ ■ J'I'l " -■ ■ ■■ M I I Mi ~g ■ i 


0023 

R EF 

1 



01,3540 

03261 



2CADR 

INITDSP 



002 3 

“HREF 

T 



01,3541 

”20063' 

0 



















0024 

RTF' 

2 



01,3542 

0 3'5'5^ 

TJ~ 


IC 

"RTTTNC ADR 

finished WIIH THIS GKUUP, GFT NEXT UNE 















0025 

RFF 

~Tr“ 

LAST 

1414 

01,3543 

7 0 5 1 

T” 

ITSAVAR 

fWFR 

ncTl400 



0026 

RFF 

355 

■'L A ST 

1414 

01,3544 

10 000 

0 


CCS 

A 



0 0 7 

■ PFF 

1 



“in . 3 545 

1 TSTT 

“ 0 “ 


TCF ITSLIKEB 

YES, IT TS TYPE B 















00?o 





01 ,3546 

0 0006 

1 


EXTEND 


^TORt- THE JOf^ T OR i a^S i ?CAOt* EOR wXIt 


0029 

RTF“ 


r4irnr4r4 

01^35 

5 015 5 

0 


TTOX 

T c HP 2 G 



0030 

KEF 

6 

last 

1414 

01, 3550 

3 1437 

~ir~ 


DC A 

PHSNAMEl 



00 31 

PEF 

2 

L A ST 

1414 

01,3551 

”5T TUB 

1 


”DXnT” 

GOLIC 




0032 

^TF" 

3 

LAST 

14T4“ 

Ol.'STST' 

3 0154' 

~T^ 


CA 

TEMPPHS 

Sbt Ir lHli> 13 A JUdf lA^^f UK A LU^iz^UAL 


0031“ 

^ rc 

1 

LAIT 

1411 


“7 50Z3-nr 


— MASK 

nc T7 



0 0 3'4' 

KrF 

” 1 " 

L A ST 

T7W” 

"m, 3554^ 

72^715 

0 



MINUSZ 



003 5 

rTT" 

356 

L A S T 

1414 

0 ] ,3555 

10 OOO 

~iy~ 


CCS 

A 



' 0036 

RFF' 

1 



“Tyi", 

”147726 

0 


TCF 

I T S L MGC L 

I IS A LLiNbCALL 
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PAGE 
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L 

RESTARTS 

ROUT INF 






USER'S PAGE NO. 2 

E3 S3 




0037 

REF 7 

LAST 301 

01 . 3557 

0 4675 

1 

RTRNCADR TC 

SWPETURN 

CANT GET HERE 




003 3 

REF 1 


OU3 5 60 

1 3562 

] 

TCF 

ITSAWAIT 






0039 

REF 1 


01,3561 

1 3627 

0 

TCF 

ITSAJOB 

ITS A JOB 
















0040 

REF 1 


01 , 3562 

3 3766 

0 

ITSAWAIT CA 

WTLTCAOR 

SET UP WAITLIST CALL 




0041 

V? pp 3 

LAST 1414 

01 ,3563 

54 704 

0 

TS 

GiTLOC -1 






0042 

gpF 3 

LAST 1414 

01 ,3564 

50 155 

0 

NOX 

TEMP2G 

DIRECTLY STORED 




004 i 

RFF 3 

LAST 1413 

01,3565 

3 10 54 

1 

CA 

PHSPRDTl 





0044 

REF 357 

LAST 1414 

01 , 3566 

10 000 

0 

TIMETEST CCS 

A 

IS IT AN INNEDIATE RESTART 




0043 

REF 358 

LAST 1415 

01. * 3 5 6 7 

24 000 

1 

I NCR 

A 

NO* 




0046 

REF 1 


01,3570 

1 3573 

1 

TCF 

FINDTIME 

FIND OUT WHEN IT SHOULD BEGIN 





004'^ 

bEF 1 


01,3571 

1 5500 

0 

TCF 

ITSIMOIR 

STORED INDIRECTLY 





0043 

RFF 1 


01,3572 

1 3612 

0 

TCF 

IMEDIATE 

IT WANTS AN IMMEDIATE RESTART 





R 0 049 

jjf :ic 4: >}ci{t J H I 

S MUST BE 

IN FIXED 

FIXED 4e4t4c4:4i 








0050 



5500 



OLQCK 

02 





0051 

REF 2 

LAST 632 

4000 



SETLX 

FFTAG2 





0052 



5500 



WNK 







0053" 

'>FF 1 





COUNT 

0 2/‘lSR0U 






0 05 4“ 

ITFF 5 

LAST 1415 

5500 

22 706 


ITSTNDIP LXCH 

GO LUC +1 

GET THE CORKcrCT E BANK IN CASt 

1 HIS 

1 s 


0055 

^TFF ? 

TTAST l“4TTr 

5 SOT 

22 006 

T 

EXCTT 

BIT 

SWITCHED ERRASIBLE 


















359 ■ 

LAST r<fr5“ 

S502 

50 000 

1 

FinT 

A 

GET THE TIME iNUIKbCILY 




OO^T" 



5WT 

rmroi 

0 ■ 


1 






1% > - .. . ■■ — - ■ . ■ , 1 













— rnr 3 

LAST 1415 

5 5 04 

22 006 

1 

cxcn 

R B 

RESTORE THE BB AND GUlOC 




O05 4 

Tin= 5^ 

LAm4T5^ 

5 50 5 

22 706 

0 

“LTCTT 

^GOLOC +1 






0060' 

TTFF 2 — 

LAST 1415 


1 3573 


TCF 

F INUTTMF 

FIND OUT WHrN 11 SHOULD BEGIN 





P0U61 

YOU MAY fTETnRlFnnn SWITCRFTT F 

I Y i— r 



















006? 



0 1 ,'3573' 



BANK 

01 





— 006 3 

7-fF 3 

LAST 1414 

01.20i)(T 



S F I L OC 

R b STAPrr 






mu^ OTTTrn TONK 


006T ° 7>EF LAST I^T^f Tn~ ^ 43» € OUNT S ^U lU 

CRJFr: UTVT513 4 UOUU U FINDTIME CCT1^ ” 

OUFT ITFF^ TT3 U^T T«^3 01 1 :ib74 5 A 00 n “ TS C 

— mFH ^ ^ — OTsi — rzrn^ rrrrrvns — bo o to? tftw?; 

OOb^? RFF 1 41 2 ■ 0 1 * y b 4“ 1053 T TB/TSTT 

uurr) rrr7T577 3 aOD6 T EXTEND “ 


MAKE NEGITIVE SINCE TT SUB TRAC TD 

AND SAVE 


gap: 
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10:2B APR, 1 ,1969 
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L 

PsFSTARTS i^nUHNF 

USER'S PAGE 

NO, 3 

E3 53 


0003 


0035 


00 36 


0037 


0071 

RFF 

21 

LAST 

1412 

01,3600 

60 025 

0 

SU 

TI MEl 








007? 

REF 

360 

LAST 

1415 

01,3601 

10 000 

0 

CCS 

A 








0073 





01,3602 

4 0000 

0 

COM 









007^ 

p FF 

4 

LAST 

959 

01,3603 

6 7700 

1 

AO 

nCT37776 








0075 

RFF 

160 

LAST 

1409 

01 , 3604 

6 5017 

1 

AO 

ONE 








0076 

RFF 

184 

LAST 

1415 

01,3605 

^0001 

0 

AD 

L 








0077 

RFF 

361 

LAST 

1416 

01,3606 

10 000 

0 

CCS 

A 








0078 

R F F 

262 

LAST 

1395 

01,3607 

3 5021 

1 

CA 

Z E R ( J 








0070 





01,3610 

1 3612 

0 

tcf 

+ 2 








0080 





01,3611 

1 3612 

0 

TCP 

+ l 






- - 




REF 


r^ST 1414 01,3614 3 3557 0 ITSLIKEB CA 


RTPNCADR 



TYPE B. 

TEMPSwCH 




RFF 


01, 3616 3 3763 0 


CA 


PRT2CA0R 


RFF 


7 LAST 1416 01,3617 54 707 0 


TS 


GOLOC +2 


SET UP EXIT TO GET TABLE PART OF THIS 
VARIABLE TYPE OF PHASE 


LAST 1414 


01,3620 3 0T54 


TFMPPHS 


MARE THE PHASE LOOK RIGHT FOR 
UF 




0090 

0091 
00^»2 
OO-RT 


R r-f 

Wf' 

RFF 


LAST 1415 


7 LAST 1414 


0 1.3623 

01.3624 

01.3625 


8 LAST 1416 


01, 3626 


CFTT 0 06 1 

5 0155 0 

TT^TT^ 

T06" 



NDX 





W(CH 


TFMP2G 

PHSNAITET 

GOLGC 


OBTAIN 


S 2 CADR 


0 0 9 + 


6 

TAST 1416 

01.3627 

*5(3 T55 0" TTS'Ajmr "RUIT 


mw ADO THE PRIORITY AND LET:5 GO 

009S 

RFF 

4 

LA3T 1415 ■ 

01,3630 

3 1054 1 CA 

PHSPRDTl 


00‘'‘6 

'^FF 

9 

LAST 1416 

01 , 3631 

54 704 0 CHKNOVAC TS 

GOLOC -1 

SAVE PRIO UNTIL WE SEE IF ITS 

0097 




01,363T“ 

0 0006 1 FXTFWT 


A FINDVAC OR A NOVAC 

00 TT 

“RFF 

1 


0 1 , 3 tj 3 3 

'6^537 0 BZMF 

I TSNOVAC 



00^9' 

RcF” 



01,3636 

3 3 7 65" 13 CAE 

FVALCAUR 

PU^ll lVt» UK KINUV AU U A L L • 

K" 

o 

o 

- STF— 

“TTT” 

~nrST T4TRT“ 

“Trr,36jF“ 

96 7Tm "XCR 

t;olgc -it 

PICK UP PR 10, 

01 oi 

iTFr" 

"TT" 

LAST 1416 

01,3636 

0 0704 I TC 

GOLUC -1 

AND GH 

' 








■0I0“2 

■RFF 

T~ 


01 » 3 ft 3 

3 JT6T1L irSNOVAU C AF 

miVACAOR 

NEGATIVE , 

0103’ 

RFf 

12 

LAST 1416 

01,3640 

56 7 04 1 XTFi 

Gomc -1 

SET UP NUVAt^ U AL.L f 

0104“ 




01 ,3641 

■T, oono'TJ con 


LURRtiT PRTO, 

0105^ 

R ^ F 

T • f " ' " 

'LAST 14|,6 

~1JI ,~T642“ 

“TT' 0704 T nr 

TSntDC ^TT 

AND Gn 


0106" 

R FF 

45 

LAST 1400 

—01“, 3 64 3“ ■■ 

“94 070^ 1 nSAIBL 

CY^ 

hi NU UUI ih 1 fib KliAbt i:> uuu uk cvcix 

aro7~ 

RFF 


LAST 1416 

“Trr,3644 

“T0 02(T“l “CCS 

CYR 


0108 




01,3 64-Y“ 

1 3646 1 TCF 

+ 1 

I T 5 5 t VLN 

orosT" 

'■'‘FF ■ 

~~ir 


0 1 , 3 6W 

I J74A I TCTF 

I TSEVFN 

. — - - — ■ 1 . „ ■ I ■ I - - ' ■• - ■ — — . ■ ■^_ - ■!. ■ ^ » ■ I 1 


Olio rTiTF 4 last 1 41 6 01,3647 3 3 5 75 

DTTI RFF ^14“ last 1411; 013.3 6 50 54~TDT 0 


R T m rj j m in cast ihis is ihf secuno pari uf a 

ISTTUiTC F 2 TTPFF RESTARI, WF NEED PKUPhK tXlT 


riAP : 

ASSEMB 

LE REVISION 055 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR. 1.1969 CHIEFTAN.028 PAGE 1417 


L 

RESTARTS 

ROUTINE 







USER'S PAGE NO. 4 E3 S3 


0112 

REF 

6 

LAST 1416 

01*355 1 

3 0154 

1 


CA 

TEMPPHS 

SET UP POINTER FOR FINDING OUR PLACE IN 

0113 

REE 

34 

LAST 1403 

01 , 1652 

54 021 

0 


TS 

SR 

THE RESTART TABLES 

0114 

- FF 

35 

LAST 1417 

01,3653 

6 0021 

1 


AD 

SR 


0115 

R EF 

7 

LAST 1416 

01 .3654 

50 15 5 

0 


MDX 

TEMP2G 


011^5 

'-’EF 

1 


01.3655 

6 2001 

1 


AD 

STZETAB +1 


0117 

REF 

1 


01 ,3656 

54 156 

1 


TS 

pointer 



Oils 




01 *3657 

0 0006 

1 

CONTOL2 

EXTEND 


FIND OUT WHAT:S IN THE TABLE 

01 IQ 

P FF 

2 

LAST 1417 

01 , 3660 

5 0156 

0 


NOX 

POINTER 


oi;?o 

REF 

1 


01, 36ol 

3 2002 

1 


DCA 

CADRTAB 

GET THE 2CADR 


0121 

REF 

15 

LAST 1416 

01 * 3662 

22 706 

0 


LXCH 

Gone +1 

STORE THE BB INFORMATION 












01?2 

'^^EF 

36? 

LAST 1416 

01,3663 

10 000 

0 


CCS 

A 

IS IT A JOB OR IS IT TIMED 

0123 

REF 

3 63 

LAST 1417 

01.3664 

24 000 

1 


INCR 

A 

POSITIVE* MUST BE A JOB 

OTZT" 

REF 

1 


01,3665 

1 3740 

0 


TCF 

ITSAJ0B2 



0125 

REF 

3 64 

LAST 1417 

01 ,3666 

24 000 

1 


INCR 

A 

MUST BE EITHER A WAITLIST OR LONGCALL 

0126 

P FF 

16 

LAST 1417 

01 * 3 66 7 

54 7 06 

1 


TS 

GOLOC 

LET-S STORE THE CORRECT CADR 


0127 

REF 

2 

LAST 1415 

01,3670 

3 3766 

0 


CA 

WTLTCADR 

SET UP OUR EXIT TO WAITLIST 

0128 

REF 

I 7 

LAST 1417 

01,3671 

54 704 

0 


TS 

GOLOC -1 



0129 

REF 

18 

last 141? 

01,3672 

3 0706 

0 


CS 

GOLOC +1 

NOW FIND OUT IF I T 15 A T^AITL 1ST CALL 

0130 

REF 

38 

LAST 1395 

01 ,3673 

7 5006 

0 


mask 

BTTIO 


~r)ur 

RTf" 


LTST 1417 

01 *3674 

10 000 

0 


CCS 

A 

FOR THAT MATFER SO SHOULD BE BITS 9. 8 #7* 

A01i2 










6f5f AND LAST But NOT LEAST (PERHAPS NOT 

STHTT- 










“ ' IN IMPORTANCE anyway. 

or 34 

R'FF" 

T 


ill . 5 675 

1 2733 

1 


TCF 

SWTLST 

IT TS A WAITLISI CALL 


013 5 

REF 

- 

LTST“T4TT 

01, 3676 

50' 136 

0 


NDX 

POINTFK 

OBTAIN THE ORIGINAL DELTA f 

TTl^ 

^1- 

1 


01,3677' 

3 2000 0 


XA^ 

PROTT AS 

ADDRESS FOR THIS LONGCALL 


01 M 


r~ 


“irn'3T0Ty“ 

1 5507 



nrx 

ITSLGCLl 

NOW GO GET THE DELTA TIME 


ROIT^ 

this must be in fixed fixed 

















01 3 Q 




5 507 




BLOC K 

02 


o 

o 

— mEF’ 

T~ 

LAST 

4000 




SETLOC 

FFTAG2 


OlAl 




o5UT 




"BANK 




0142 

^TF" 

2" 

LAST 1415 TO 

1415: 

7 



cnuNT 

027KSRUU 













0143 

H t 


rASl^ T41 7 

3507 


0 

TTSLGCLr 

LXCTT 

GTTUnC +T 

Obtain thf correct e bank 

crr44“ 

H E E 

— 2r 

LAST 1415 — 

5510 

22 006 

1 


LXCH 

8 B 


0145 

RFT~' 

Tcr 

X7TST T4T7 

5 5 n 

27“706 

0 


LXCTl 

GDLOC +1 

AND preserve OUR E AND F BANKS 

— — = , - — — - ■ * — — a ■ ■ — - 


U1 46 




J- 

0 00 06 



w ^ t m |A| L-/ 


GE 1 1 Ht DEL 1 A 1 IMt 

rrm^ 

U 14 C 

i ' 

3675“ 

L1\ST 1417-' 

55T3~ 

'"5“TruOD“ 1 “ 


“ND'X 

A 


01 4'’ 




- - 5 1 ^ - 

“ “3 “ 0 071 

0 


DCA 

0 
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RESTARTS ROUTINE 


USER'S PAGE NO 


5 


E3 S3 


01 '+9 


0150 

om 


0152 


RPF 21 LAST 1417 


EE 


-3 LAST 1417 

REF 22 LAST 1418 


S 


I 


5515 22 706 0 


5516 2? 006 1 

5817 2? 706 0 


5520 1 3701 0 


LXCH 


LXCH 

LXCH 


TCP 


GOLOC +1 


BB 

GOLOC +1 


1TSLGCL2 


RESTORE OUR E AND F BANK 
RESTORE THE TASKS E AND F BANKS 
ANO PRESERVE OUR L 


NOW LETfS PROCESS THIS LONGCALL 


R0153 


0154 


01 55 


0156 


YOU MAY RETURN TO SWlTCHbD FIXED ***** 


01.3701 


REF 


4 LAST 1415 


01,2000 


01,3701 


01 


BANK 


SETLX RESTART 


BANK 


015 


R. E 


3 LAST 1415 TO 1417: 


7 0 


113* 


COUNT Ol/RSKOU 


01^8 


EF 


LAST 1234 01,3701 53' 140 I I TSLGCL2 OXCH 


LONGTIME 


015 -^ 
01 SO 


0161 


0152 


0163 


01 64 


P E F 


30 LAST 1412 


OirJTO? 

01.3703 


0 0006 ~I 

4 0025 1 


LAST 1418 


01.3704 

01 .3705 


21'140 1 

0 0006 r 


vr^mo 

DCS 

OAS ■ ^ 

EXTEND 


E TIME LEFT 


TI ME2 

longtime 


REF 


W 


8 


LAST 1412 

last 1418 


01.3706 

01.3707 


3 1136 1 

21 '140 1 


DC A 

Ti 7 r<r 


LOMGBASE 

longtime 


[ 


0165 

R E F 

9 

LAST 

141 8 

or. 3 710 

11* 13? 1 

CCS 

longtime 


FIND 

OUT HOW TH 

IIS SHOULD BE EiESTARTEO 

0166 

REF 

1 



01,3711 

T 3721 1 

TCP 

LONGCLCL 





0167 





01.3712 

1 3714 1 

TCF 

+2 




— 

015 8 

rW“ 

r~ 

LAST 

1415 

0 1 . 3 7 1 3 

1 3607 1 

TCF 

IMEDI ATE 

-3 




0169 

REF 

10 

LAJT 

1413 

01,3714“ 

1 1 ' 1 40 1 

TTS 

LONGT 1 ME 

+ 1 




0170 

REF 

2 

LAST” 

141 8 

“01.3715 

I 3721 1 

TCF 

LONGCL CL 





0171 





01,3716 

13 717 1 

NUUP 



CAN: T 

GET HE8T“ 


0172 

REF 

3 

LAST” 

1418 ■ 

01,3717 

■r"3'607 1 

TCF 

IHEOI ATE 

“3 




0175“ 

~ RbF" 

4 

“LAST 

1413 

01.3720“ 

1 3612 “0 

TCF 

IMEDTATE 






DTTV 



T 


01,3721 31 T764 T LiJMGCLCL CA 


LGCLCADR 


WE wra:‘"Gu lu lungcall 


RTF 21 nST 1418 


ITT, 37 22 TGTTCW'Tl 




OT, mi 0 OOC76 — I EXTEND “ prepAkE UUR EN f RY Ttl LUNGCALL ' 

01 77 T EF n LAST 1418 01,3724 3“ 1 1 4m3 DCS LUNGl I ME 

TuTB ref 24 LAST 1418 01.3/25 0 0704 1 TC GOLOC -1 

0175 ^EF 7 01,37 2“6 3 3766' 0 I 1 SLNGCt CA 'WTLTCADH ~ A S SUMF TT^ W ILL GO T 0 TTATTTiyT^ 

rUGO REF 25 LAST 1418 01,3727 54 7 04 0 GOLOC -1 


0131 ■ 

REF S 

LA5r“I4T7 “ 

“T I . 37 30' 

50 TTE 

0132 

REF 5 

LAST 1416 

01,3731 

4 1054 


NDX 

TEMF2G 





rs 

PhSFPOTI 

GET THE DELTA 1 

r ADDRESS 






iTEF — 7 — LA3T 1437““ nrr r3^T2 


~T5 U7 T 


RTF 


TTSLGCLT 


NOW GE'T JHb DELTAS TIME 


0 1 3 4 



LAST T4m 
LAST 14TB' 


TnTTTT 3 "'4 ^ 37 X 16 ^ 







gtitut: 


4 T 

TT 



THF DBCUN INFOITMAriON 


n 
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01 ^^6 


0187 


01 '^8 


01 89 


0190 

0191 


01 <^’2 


0198 


Ol'H 


019b 


01 


01^7 


019'^ 


01 j 
0200 


UIOT 



18 


0204 


TTTrn 


RESTARTS ROUTINE 


USER'S PAGE NO 


E3 S3 


REF 


4 LAST 1417 


01,373S SO 156 0 


NDX 


POINTER 


GET THE DT AND FIND OUT IF IT WAS STORED 


REF 


LAST 1417 


01 ,8736 8 2000 0 


CA 


PROTTAB 


DIRECTLY DR INDIRECTLY 


KEF 


01,8 787 1 8566 0 


TCP 


TIMETEST 


FIND OUT HOW THE TIME IS STORED 


REF 23 LAST 1413 


01,3740 56 705 0 ITSAJ062 XCH 


GOLOC 


STORE THE CADR 


REF 

REF 


5 

3 


LAST 1419 
LAST 1419 


01,8741 50 156 0 

01,3742 3 2000 0 


NO X 
C A 


POINTER 

PROTTAB 


ADD THE PRIORITY AND LET:5 GO 


REF 


01,3743 1 3631 1 


TCF 


CHKNOVAC 




ILF 


LAST 1416 


01,8744 8 0157 1 TTSEVEN CA 


TE*^PSWCH 


REF 29 LAST 1419 


01,3745 54 707 0 


TS 


GOLOC +2 


REF 


9 LAST 1413 


01,3746 50 155 0 


NT)X 


TEMP2G 


REF 


LAST 1417 


01,3747 3 2000 0 


TA 


SI ZETAB 


K EF 


7 LAST 1417 01,3^50 6 0154 1 


AD 


TEMPPHS 


REF 



8 

o 

r 

6 


LAST 141« 


01,3751 6 0154 1 


AO 


TEMPPHS 


LAST 1419 
LAST 1419 


01,3752 

01,8753 


6 0154 1 
54 156 1 



TF^^PPHS 

POINTER 


R, ~ F 


01 ,8 7Fr4”' I 36 5T r 


ttef 


C0NTBL2 



‘REF 48 LAST 1395 




7 L7rST 1419 



Tre= 8 

35nFF“”3(y 


LAST 14r& 


03T T4TRT 


01,3785 

(TT7T 756 

01,8 

01, 3760 


8 6214 (5 
27L 156T: 


LHSPART2 

ATTS 



FOTNYFIT 


3 8557 0 
54 707 TT 


“LA 


Rl RNCADR 




LAST 1419 


HTTTTbT I 865r"I 



CONTB'L? 



0208' 

^TF“ 

668 




669 


UZTP" 

RTF 

670 


0211 

^ ff" 

67 1 


0212 


Q 


GTTTT- 

■RTF' 

T 


0214 

REF 

9 


last 1414 

r4r^ 



0154 

015 5 


LAST i4r9 


LAST 1419 


0156 

^T5T 


TEMPPHS — EQUALS MP'AT: 

E0UALS“18PAC +1 


C ^ I ^ .c \D 

PDTNTETT E^T)5LS MPAC +?' 


03T 



2Xy5 

W5 


i.fiST 1215 




THMPSWC 1 T' F 0 UAL 5 HPAC +1 
(jniTfC EQUALS VACS + 
■HTN U S 2 ^ 

0CT177 — 


FCrosUS"NEG2 
EQUALS 


SET UP FOR EITHER THE SECOND PART OF THE 
TABLE, OR A RETURN FOR THE NEXT GROUP 


SET UP POINTER FOR OUR 
THE table 



THIS MAY LOOK BAD BUT LET:S SEE YOU 



BETTER IN TIME OR NUMBERROF LOCATIONS 



WHAT IS IN THE TABLE 



FUR 



FTRUFUF 


THE TAHLT 


THIS WILL BE OUR LAST TIME THROUGH THE 
EVEN I ABLE , SU AFTtR I I UET"THe NEXT 




RUDP 

LET:S G 



ENTRY m THE TBL 



n2i3‘" 

REF“ 

—r 



01.8/62 ■■ 

O’V/Sb" 

TT" 

PHSZCADR GENAIlk PriSPA2^T2 






OZTS” 

PEF“ 

~T~ 



01 , 8 763“ 

035^33“ 

1 

PRT2C AUF GENATJR GT?TPAKT2' 






U2T7 

RFT“ 


LAST"r314 

01, ^754"“ 

"05347' 


LGCLCADR GbNATJTT LUNGCALL 






OPTT" 

REF ■■ 

"TT 

LAST- 

mv" 

oi,:-(76S' 

0514/ 

~rr 

FVACCADR GFNAUK FINDVAL 






02 vr~ 

R EF“ 


LAST 

1235' 

01 , i fbh 

05245" 

'T'" 

3m. I CADR GENAOFT'WAl ILIST 






0220 

“ ■?.'FF“ 

*37" 

LAST 

1 404 -- 

01 , 8767“ 

— 05134 

~r~ 

"NI1V7VCATK GFNADR NOVAC 
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■ .M* ^ ■ ~ 



L IMU MODE SWITCHING ROUTINES 



USER'S PAGE 

NO. 1 

EO S3 



0001 

BLOCK 

02 





000? REF 1 ^000 

SETLOC 

FFTAG3 





0003 5521 

BANK 













0004 RcF 1 E3*1471 

FBANK= 

COMMAND 






R0005 FTXEtl-FIXEO i^OtJTINES. 


0006 

REF 

1 







COUNT 

02/IMODE 














0007 

REF 

263 

LAST 

1416 

5521 

3 5021 

1 

ZEROICDU 

CAF 

ZERO 

ZERO ICDU CnUNTEftS. 

OOOR 

HEF 

on 

LAST 

136 5 

5522 

54 032' 

1 


TS 

CDUX 


00 Ov 

RFF 

17 

LAST 

1365 

552 3 

54 033 

0 


TS 

CDUY 


0010 

PEF 

23 

LAST 

1366 

5 5 24 

54 034 

1 


TS 

CDUZ 


0011 

n FF 

3 23 

LAST 

1412 

557T" 

no 0 0 0 2 

IT 


rc 

Q 














0012 

REF 

33 

LAST 

1 39 5 

5007 



SPSCODE 


BIT9 







L 

I MU MODE 

SWITCHING RHUTINr-S 




USER’S PAGE NO. 

2 

E3 S3 













P0013 



iMu Zeroing rjuitine. 



















0014 



11,3776 


BANK 11 






0015 

RFF 

1 

07,2000 


SETLOC HODESW 






0016 



07,2577 


BANK 







00L7 


REF 


1 


COUNT 07/IM0DE 


001 i 


07*7577 0 0004 0 TMIJZERO INHINT 


ROUTINE TO ZERO ICOUS, 


0019 


PEF 41 LAST 339 


07*2600 4 1036 1 


CS 


OSPTAB +110 


0070 

0071 


REF 4 
REF 367 


LAST 184 
LAST 1417 


0022 


RFF 


07,7601 
07*2602 
0?,2603 1 2607 0 


7 5033 0 
10 000 0 


MAS K 
CCS 


BITS4E6 
A 


OONT ZERO CDUS IF IMU IN GIMBAL LOCK AND 
COARSE ALIGN (GIMBAL RUNAWAY PROTECTIONF 


TCF 


IMiJZEROA 


0023 


RFF 38 LAST 1360 


00P4 


002 


RFF 


0092 

REF 

$ 

« -w 

10033 



003^ 

REF 

29 

003 5 

P. E 

7 

0 0 3 3 

R E F 

30 



00 30 


"R h 


TT 


1 

- 44 : 


TOW 




5 


11042" 



crow 


TTFF 


TO4T 

TO45 


T104 


' s 


0046 1 FTET 


TJ04T 

TOW 


VTT 


■43 


TTFF 

2 -FF 


0030 
0050 


RTF 


TOF 


FT 

“5 
^ 1 
"T 


07,2604 0 5650 1 


TC 


ALARM 


0^*2605 


00206 0 


OCT 


00 20 6 


07,2606 1 3547 0 


TCF 


CAGETSTJ +4 


LAST 1421 


07*2607 


I MUZ FRO A TC 


0 3536 1 

DO ALL THE WORK. 


LATT 


1063 


07,2610 4 1321 1 


TO 


CAGETSTJ 


IM0DES33 


last 535 
LAST 1421 


07* 2611 
07,2612 



MAS K 
ADS 


SUPFROtl 

I MonF$33 


43 LAS! f66 


m ,“76T3 4 i370"TJ 



07.?-'i4 

07 ,TOTF 


7 57 71 T 




MASK 

4T1T" 


rMOOFSTTl 

61TS3&4 



LAST 1421 TOTTOIT 4 5033 0 

" 07 . 76lT' TT'TOO'ST 7 : 


TO 


BTTT4TO 


39 LATT 10T7 


07, 76715 (13 7)12 



F5<TEND 

' CRANTZ 


3 LTTST 144 


TTTV274Z1 CITTIFTW: 


NOATTOFF 


TFF IF — LAST ISTO 


07,Z6ZZ 

07 , 26ZT 


3 5013 0 


tAFT 


7nTZo74 


UTIOCTTW 

T 


i:at= 8 T 

EXTEND 



WOR^ 


CHANTZ"” 


LAST 144 


77T7TO5 


FTTST 


rror 

FAST 


TT9F 

T4TT 


07* 26 ZZT 


TO5521 I 
3 50rZ"T 


ZEROTCDU 

BTT4" 



"OTTZTZT 

7^“,T7rr4 

nOTTZTTO 


0 5245“! 


TC 

CAF 

TC WAI TLIFT 

P 8 ANK= C DU INI) ' 


OZ n 4ZW 


IMUZ 


IF sn 


IMMEDIATE FAILURE. 


DISABLE DAP AUTO AND HOLD MODES 
J 3 JJ 5 eQR"TODUTO 


INHIBI1 ICDUFAIL AND IMUFAIL ( TTl X71TO WF 
JUST CAME OUT OF COARSE ALIGN!. 


SEND 7ETO ENCIjDE W IIH CUAKSb ANU EKKUR 
COUNTER 



TURN OFF NU AM LAMP 



mTT“T20 MS TO GIVE AGS AUEyUAlt IImE 
RECEIVE ns PULSE TRAITi: 


TU 


07,7631 



OOFl 


TOFT 

HOFF 


TFF 

’TO 


45 

T4 


0054 


< EF 3 6 8 
7F ~r 


FAST 1421“ 
LAS I 1420 

147T 


07 , 26TZ 4“ TTZrrTT 

7 5007 1 

10 O TOTO 


TTT7ZTOT 
07, 76T4 


crs"“ 


lM0nES30 


S EE IF TMU O PE RA T I N G A f TB ~ ArAR ~M 


TOT 


HTTT 


XC5 




r~ZF4irTj 


',<\p 


ASSEMBLE REVISION 055 OE AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR 


1.1969 CHIEFTAN.028 PAGE 1422 


L 

IMU 

MODE 

SWITCHING 

ROUTINES 






USER'S PAGE NO. 

3 E3 S3 


0055 

REF 

39 

LAST 1421 

07,2636 

0 6650 

1 


TC 

ALARM 



0056 




07,2637 

00210 

JL 


flCT 

210 




0057 




07.2540 

0 0003 

1 

MODEEXIT 

RELINT 

GENERAL MODE-SWITCHING 

EXIT. 

0058 

REF 

8 

LAST 1415 

07,2641 

1 4675 

0 


TCP 

SWRETURN 




0059 

R FF 

1 



07,2642 

0 352-^^ 

1 

TMUZER02 TC 

CAGGTEST 



0061 

R EF 

4 

LAST 

1421 

07, 2643 

0 5521 

1 

TC 

ZEROICDU 

ZERO COUX, CDUY, CDUZ 



0062 

REF 

36 

LAST 

1421 

07,2644 

4 5013 

1 

CS 

BIT5 

REMOVE ZERO DISCRETE. 


0063 





07,2645 

0 0006 

1 

EXTEND 




006 ^ t - 

REF 

41 

L AS T 

1421 

07, 2645 

03 012 

1 

WAND 

CHAN12 




0065 

R F F 

35 

LAST 

139 5 

07,2647 

3 5005 

1 

CAF 

BITll 

WAIT 10 SECS for CTRS TO 

FIND GIMBALS 

0066 

R EF 

4 

LAST 

163 

07.2650 

0 5272 

0 

TC 

VAROELAY 




0067 

P.FF 

2 

LAST 

1422 

07,2651 

0 3524 

1 

IMUZFR03 TC 

r AGETEST 



00o9 

REF 

2 

LAST 

1421 

07,2652 

4 5771 

1 

CS 

BI TS3C4 

REMOVE IMUFAIL AND ICDUFAIL INHIBIT. 

0070 

REF 

46 

L AST 

1421 

07,2653 

7 1320 

0 

MASK 

I MODE S30 



00 71 

REF 

47 

LAST 

1422 

07,2654 

55*320 

0 

TS 

I MODESBO 




0072 

TFT 


Lim^ 

T4n 

07 , 26 5 5 

4 503 5 

~ir 

XS 

S U P E R 0 1 1 

ENABLE DAP AUTO AND HOLD 

MODES 

0073 

REF 

31 

LAST 

1421 

07,2656 

7 1321 

1 

MASK 

I MnnFS33 

BITS FDR GROUND 


007'-^ 

REF 

32 

LAST 

1422 

07,2657' 

'321 

1 

TS 

IMODFS33 















0075 

REF 

40 

LAST 

109 0 

07,2660 

0 4740 

0 

TC 

I BNKC ALL 

SET ISS WARNING IF EItHE^ 

? OF ABOVE AK E 

OOT^ 

R F F 

5 

LAST 

15 B 

07,2661 

14665' 

1 

TTOR 

SETISSW 

present . 



mr? 1 07.2.5A-2 1 5514 0 TTP EmTTTO 


'^AP: ASSI '^RL^ Rf?VISION 055 OF 




i 7 


PROCr^^'-l CnMANCHE BY NASA 2021113-051 


10:28 APR. 


1.1169 CHIEFTAN.028 PAGE 1423 


L 

I MU 

MODE 

SWITCHIMG 

ROUTINES 





USER'S PAGE NO. 4 E3 S3 











^0078 



IMU COARSE 

ALIGN NOD 







007C) 




07 9 266 3 

0 0004 

0 

IMUCHARS INHINT 



0080 

PEE 

3 

LAST 1421 

07 T 2 664 

0 3536 

1 

TC 

CAGETSTJ 


GOBI 

REF 

3 

LAST 137 

07 9 2 66 5 

0 302? 

1 

TC 

SETCOARS 



0082 

^EF 

40 

LAST 1396 

07 t 2666 

3 6211 

0 

CAF 

SIX 


0083 

REF 

54 

LAST 1421 

07,2667 

0 5245 

1 

TC 

WAITLIST 


00B4 

REF 

6 

LAST 1421 

E391474 



EBANK= 

C DU I NO 


00B5 

REF 

1 


07, 2670 

02673 

1 

2CA0R 

cnARs 


003 5 

REF 

1 


07,2671 

16063 

0 





0 0 o 

RFF 

2 

LAST 1421 

07,2672 

1 2640 

0 

TCF 

MODEEX IT 



0087 

9FF 

3 

LAST 1422 

07t?673 

0 3524 

1 

GOARS TC 

CAGETEST 


0088 


44 

LAST 1421 

07. 2674 

3 '5 012 

1 

CAF 

BIT6 

ENABLE ALL THREE ITS CDU ERROR COUNTERS 

0089 




07, 2675 

0 0006 

1 

EXTEND 



0000 

RFF 

42 

LAST 1422 

07,2676 

05 012 

1 

WOR 

CHANIZ 












0011 

P C c 

- t 

71 

LAST 1411 

07*2677 

3 5016 

0 

CAF 

TWO 

SET COU INDIXATGR 

0092 


7 

LAST 1423 

07,2700 

55*474 

0 

CCARSl TS 

CDUI NO 



00«?3‘ 

Rntf" 



O 

" LAST 

“Trr* TTfTi 

^]r7rr^ 

1 

TNDFX 

CWIND 

COMPUTE THETAD - FHETAA IM TTT 

009A 

REF 

21 

LAST 1360 

07.2702 

3 1155 

1 

C A 

THEtAO 

COMPLEMENT FORM 

0095 




07, 2703 

0 0006 

1 

FTTFMT 



QQ IV^ - 

REF 


“LAiSr I42T' 

“TT77T04 

F 147T 

1 

TNDTir 

CDUIND " 


009 7 

R EF 

3o~ 

LAST 1R20 

(y7TTnT5~ 

20 032 

1 

HSU 

CDUX 


0098 




DT72TOF~ 

T) 0006 

1 

EXT E NO 



0090 



LAST 1395 

07,2707 

7 507) 3 

0 

TIP 

TTTrT 

$H 1 FT K 1 GHT 2 

or 00 

RTF 

1^5 

LAST 1 4l 6 

07, 2710 

56 001 

0 

xcn 

L 

ROUND 

0101 





“TTDITOO 

1 

DOUBLE 



— — TJTOT" 

REF 

ZI 

LAST 141 1 

07,2712 

54'0"6r 

1 

TS 

I TEMPI 


0103 




07,2713 

1 2715 

1 

TTF 

+ 2 


0104“" 

RFF 


LAST 1423 

07, 27 IF' 

^FTTOT 

T 

ADS ' 

L 



0 1 0'b ■ " 

RFF 

— nr" 

LAST 1423 

OTTFTTF 

51*474 


INDEX 

CUUI NU 

DIFFERENCE lU BE CUMPUIED 

0106 

^FF 

2 

L TTSF T 4FF 

D7,27IF“ 

“2"3»47T 

T“ 

■ ■ ■ LXCH 

c U M M A M D 


0T0T~ 

^ P FF 

rr“ 

“CAST 1473^ 

OTrZTTT 

IT *^47 4 

0 

CCS 

CTTOTNTF^*''"^^ 


0108 

— FFF 

T" 


TTTTFTTlF 

0 2700 

i 

TC 

CUAKSi 












oroo' 

-p TTTr - 

— TF 

"TAST 14-23 

07,2721 

3 50 15 


CFF 

TWO 

MIN IMUM TlF 4 MS WAIT 

Olio 

FEF 

F" 

LAS ! 1422 

0 7,2 722 

0 5272 

0 

TC 

VARTJtrAY 




GAP 


ASSl-MBLF PcVISTQN 055 OF AGO PP OGRAM COMANCHF BY NASA 2021113-051 


10:28 APR 


1,1969 CHIFFTAN,028 PAGE 1424 


L 


IMU MODE SWITCHING ROUTTMFS 


USER'S page no 


E3 S3 


0111 


0112 

0113 


0114 


RtF 




LAST 1423 
LAST 1423 
LAST 1423 


REF 12 LAST 1423 


07,2723 0 3524 1 C0ARS2 


07.2724 

07.2725 


54 061 1 
5016 0 


07,2726 55*474 0 +3 


TC 



CAGETEST 


ITE MPl 
TWO 


DONT CONTINUE IF CAGED 
SETS TO +0. 


SET CDU INDICATOR 


CDUINO 


0115 

REF 

13 

LAST 

142 4 

07.2727 

51' 47/+ 

1 

INDEX 

CDUIND 


— ^ ■ 1 M ■■ ■ ' ■ . 

0116 

REF 

3 

LAST 

142 3 

07,2730 

11'471 

0 

CCS 

COMMAND 

number of pulses 

REQU I RED 

^ -» 1 w 'VC ” 

0117 

REF 

1 



07,2731 

0 273 5 

1 

TC 

COMPOS 

greater THAN MAX 

ALLOWED 

0118 

RFE 

1 



07,2732 

0 2744 

1 

TC 

NEXTCbU +1 



0119 

REF 

1 



07,2733 

0 3002 

0 

TC 

COMNEC 



0120 

P.EF 

2 

LAST 

1424 

07.2734 

0 2744“ 

D 

TC 

NEXTCDU +1 

- ■ ■ _ — — 

■ m .-m 


0121 


0124 


0125 

0126 


REF 


07,2735 


3624 


COMPOS 


AD 


COMMAX 


X NUMBER OF"PULSES 

MINUS ONE 



LAST 1424 07,2740 



LAST 1424 


07.2741 

07.2742 


51* 474 

55 » 471 

4 3625 


INDEX 


CS 


CDUIND 
C OMMAND 
COMMAX- 


PULSES 


ALLOWED 


0127 

0123 

0129 


0130 


ref 

REF 

TEF 


REF 


16 

T5 


LAST 1424 

LAST 1396 

LAST 1424 
LAST lOTZ 



07.2744 

07.2745 


24~06Tn[T NEXT COD 
6 5020 0 
3T • 47 4~T 


07,2746 54~050“0 


INCH 

AO 



TNOETT 


TE 


NFGO 
CTTUIND“" 
CDUXCMTT 


SET UP COMMAND KEGTSTERT 


OIJI 


0132 


0T3T 


0134 


0TT3 


0136 


ref 16 11^ ST 1 424 074 27-77 0 


REF 


REF 


1 


24 LAST 142 4 


REF 14 TASTT 1 



0T7 


2T5D 


IfTT 



07 , 27^3 
07.2T5 


0 2726 0 


10 061 r 


0T7T7E2 1 3016'T 




TC 


CITS 


TCE 


TCT 



COARSE +3 


ITEMPT 



FTX'DFTTOr 


1513 


SEE IE ANY PULSES 



ODT 


WAIT FDR GIMBALS lU SETTLE 


-DTTT“ TEF 74 L7rST“T477r 

0138 HFF 25 LAST 1424 

0139 PEF 369 “TAST T47 1 

~Cl4D RE F 31 LA ST 142 3 

0141 

D 1 42~" R E F 2 6 LAS r"T427^ 

OR ^ PlF 22 " LAST 1423 

0T44 ref 370 LAST Uz"? 

0145 *^FF “1 

“0146 " E F 1 

0147 REF 2 LAST 1424 


CT72755 3“50i6 0 


07 , 2756“ 

54 0 61 

1 

0^9 2757 

5D 000 

1 

0777T5 

^ ' 00 3 2' 

0 

07,2761 

0 0006 

1 

C7T?T67“ 

"5 ■0Tf6T' 

0 

aT7?T6T~ 

TT* 155^ 

07,2764 

10 000 

TP ' ‘T 1 — 



0 T 77 T ^5 I 2773 T 
or , 7T65 T“7TTnrT 


07,2767 — r"2T7n 


CAF" TWO “GAT fcNU UF CuMMANU, CHtCK lO SEE t HA I 

CHKCO^ — TS I TEMPl GI MBALS' A"RE WITRTN 2 DEGREES OF IHFIAU, 


TNDE3r“llf 



I NOE X ITEMPl 


“ MSU THE! AD 

“CCS A 

TCE TOARSERR 

TC CDR S CHK7 

“TCF COAPSFRR 




O', 


gap: 

ASSEMBLE PT^VISION 055 

HF AGC PK 

OGRAM COMA^lCHE BY NASA 2021113-051 

10:28 APR. 1,1969 CHfEFTAN.028 PAGE 1425 














L 

I MU 

MODE 

SWITCHIMG 

ROUT IiMFS 






USER’S PAGE NO. 6 F3 $3 



0148 

■2EF 

27 

LAST 14?4 

07,2770 

10 061 

1 

C0RSCHK2 

CCS 

ITEMPl 



014*=? 

REF 

1 


07,2771 

1 2 756 

0 


TCF 

CHKCORS 



0180 

RFF 

2 

LAST 1422 

07,2772 

1 3514 

0 


TCF 

ENOIMU 

END OF COARSE ALIGNMENT. 



0151 

REF 

1 


07,2773 

6 3001 

0 

COARStRR 

AO 

COARSTOL 

2 DEGREES. 


0152 




07,2774 

0 0006 

1 


EXTEND 



0153 

«FF 

2 

LAST 1424 

07t2775 

6 2 770 

0 


BZ'IF 

C0RSCHK2 




0154 

REF 

40 

LAST 1422 

07.2776 

0 5650 

1 


TC 

ALARM 

COARSE ALIGN ERROR. 


0155 




07,2777 

00211 

0 


ncT 

211 




0153 

RFF 

2 

LAST 143 

07 f 3000 

1 3522 

0 


TCF 

I MUBAO 




0157 




07,3001 

77511 

1 

COARSTOL 

DEC 

-.01111 

2 DEGREES SCALED AT HALF-REVOLUTIONS 



0 1 5 f". 

REF 

2 

LAST 

142 4 

07,3002 

6 3624 

1 

CHMNEG 

AD 

-COmMaX 



0159 





07,3003 

0 0006 

1 


EXTEND 




0160 

REF 

2 

LAST 

1424 

0 7,3004 

6 3012 

1 


BZMF 

COMZERO 



OTST 





07,30 '. ) 5 

4 0000 

0 


CTJ5I 




0162 

3 EP 

17 

LAST 

1424 

07,3006 

51 *474 

1 


I NOEX 

COD I NO 




REF 

5 

last 

1424 

07.3007 

55« 471 

0 


TS 

COMMAND 



0154 

p-^ 

2“ 

L ATT 

T'424 

07,3010 


0 


CA 

-CHMMAX- 




rfF" 

3 

LAST 

1424 

07,3011 

0 2 743 

0 


TC 

NEXTCDIJ 




0166 

REE 

264 

LAST 

142 0 

or.jmz 

3 5021 

I 

COMZERO 

CAF 




0167 ■ 

^"eF' 

18 

LAST 

1425 

07,3013 

51*474 

1 


I NDE T~ 

CDUINU 



0168 

RFF 

6~ 

LAST 

1425 

07 . 30 14” 

57*471 

TT" 



COMMAN D 



0r6"9” 



LAST 


O f f 3 0 1 5^ 

~D~Z743 

0 


“TC“ 

NEXTCDD 





OTTO' ' 

RFT“ 

7 

~LTST 

1DF6 ■ 

T^7 , 3016 

"T 7707 

0 SENDPUCS 

XAF 

13tl^# 1!> 



oin 





07,3017 

0 0006 

1 


EXTEhiD" 




0ITZ~ 

R FF 

T?” 

LAST 

1 0T2 

"07, 3020 

“05 



“VIUR" 

CHAN14 



“ oir3 

RfcF 

— r~ 



"137,30 217 

3 3675' 

“cr 


TTAF 

60 0 M 5 



0174 

RLE 

T~ 

LAST 

1 42'4 

0"^, 3 02 2 

1 272? 

0 


TCF 

cgaRSz —1 

THEN TG VARDELAY 
















01 75 

P t E 

45 

LASl 

1 4-23 

0/,3023 

3 5012 


C A+ t: C t 

77AF 

XTT6 

ENABLE ALL IHKtt LL’U CKKUK uuutNiCJs:^ 


0176 





"TT7T37TZ4” 

D 0006 

“1“ 


fc X Tend 




0177 

■ RFF’ 

— 

LAST 

T4T3 

0 z', 3025 

0 5 cn"r 



"WR 

CHAN12 



DTTB— 

REF 

63 " 

LAST 

iTn — 

07", 30276"“ 

0 5324 

1 


I c 

1 A SK.L) VhK 

- — ■ ■ ■ ■■ ■■ a y ■■■■■ 




GAP: 

ASSEMBLE REVISION OSS 

OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR. 1,1969 CHIEFTAN.028 PAGE 1426 











L 

I MU 

MODE SWITCHING 

ROUT IMPS 






USER'S PAGE NO. 7 E3 S3 


0179 

REF 

38 LAST 1395 

07,3027 

3 5014 

1 SETCOARS 

CAP 

8IT4 


BYPASS IF ALREADY IN COARSE ALIGN 

oiao 



07t3030 

0 0006 

1 

EXTEND 




oi'-n 

REF 

44 LAST 1425 

07,3031 

02 012 

0 

RAND 

CHAN12 



0182 

RFF 

371 LAST 1424 

07,3032 

10 000 

0 

CCS 

A 



0183 

REF 

324 LAST 1420 

07t 3033 

0 000? 

0 

TC 

Q 




0184 

REF 

46 

LAST 

1425 

07,3034 

^ 5012 

0 

CS 

Hire 

CLEAR ISS ERHOIT COUNTTRS 

0135 





07, 3035 

0 0006 

1 

EXTEND 



Oils 

REF 

45 

LAST 

1426 

07,3036 

03 012 

1 

WAND 

CHAM12 













01 •’7 

REF 

39 

LAST 

1417 

07,3037 

4- 5006 

0 

CS 

BITIO 

KNOCK DOWN GYRO ACTIVITY 

0138 





07,3040 

0 0006 

1 

EXTFND 



0189 

RFF 

13 

LAST 

1425 

07,3041 

03 014 

1 

WAND 

CHAN14 


Ol'-TO 

* S V-. • 

265 

LAST 

1425 

07,3042 

4 5021 

0 

CS 

ZFRO 


0 1 9 1 

REF 

2 

LAST 

152 

07,3043 

54 047 

0 

TS 

GYROCMO 



0192 

R^F 

39 

LAST 

142 6 

07,3n;,4 

3 5014 

1 

CAE 

BIT4 

PUT ISS IN COARSE ALIGN 

0 1 3 





07,3045 

0 0006 

1 

EXTEND 



01 "4 

REF 

46 

LAST 

142 6 

07,3 046 

05 012 

1 

WOR 

CHAN12 



0195 

RFF 

42 

LAST 

1421 

07.3047 

4 1036 

1 

C5 

OSPTAB +110 

TURN ON NO ATT LAMP 

0196 

REF 

1 



07,3050 

7 3072 

0 

MATSK 

0CT40010 


0197 

REF 

43 

last 

1426 

07.3051 

2T»1)T6" 

1 

ADS 

DSP TAB 



0198 

RFF 

33 

LAST 

142 2 


A T3 '2 1 

1 

C s 

I MOOES 33 

UiSABLh DAP AUlU ANU MULU FlUUt^ 

0199 

REF 

47 

LAST 

1426 

07,3053 

7 5012 

0 

MASK 

P IT6 


0200 

RFF 

34 

LAST 

142 6 

07»3054 

27* 321 

1 

ADS 

I MODES 33 













0?0l 


'‘4F ' 

TAST“ 

JUT! 

07, 37155“' 

AnrTTTT 

IT 

CS 

TTfOTTFSTOT 

DISABLE IMUFAIL 

0202 

•?EF 

40 

Last 

1426 

07.3056 

7 5014 

0 


!31T4 


0203 

REF 

49 

lA ST ‘ 

1426 

07.3057 

27*320 

0 

ATTS 

IMODESBO 



0204 

^ff 

37 

L A ST 

1422 

07,3060 

4 5013 


PNDREFDR CS 

RIT5 

K N UL K U f J WN 1 K AL K h L A 1 j 


RFF 


TTTST 

lOIT 

m ,TT ,ST 

7 00 ''5 

TT 

“ MATK 

ft;agwrdi 


02 06” 

TFF~ 

29 

“TAFT 

1426 

0 7 , TO 6 2 

54 0 ^5 

TT 

TS 

FLAGWRDl 



0207 

R r r 

51 

LAST 

1409 

0 7 , 3 06 3 

“4“5^00T 

TT 

■ CS 

BI T15 

KNOCK DOWN FLAG 

0203 

RFF" 

19 

LAST 

r225 

07 . 3064 

7 00 7o 

1 

T^ASK 

FL AGWRDZ 


0209 

REF 

20 

LAST 

1426 

07,3055 

54 076 

1 

TS 

FL AGWR02 













0210 

R r F 


L AST 


07.3066 

4 5003 

0 

CS 

BIT13 

KNOCK Down kefsmmat flag 

0211 

RFF 

4 

LAST 

424 

07. 30o7 

7 0077 

0 

RTTST? 

FL AGWRD3 


021 2 

r PF 

5 

last 

T4Z6 

07,3070 5^ irrr 

0 

“T5 

FOGWRD3 " 













0213” 

R c r 

375“ 

LAST 

1425 

0 T 9 2- 0 H 

0 0002 

0 

TC 

0 













CIZITT 





'7TT,^rrr7T 

zfUOTCTT 

0CT4U0ia TTirr 

“ 4“0 0 1 0 









































































1 iwii m 





__ __ _ mm 


, - — , * - . — * — . . — w— — . - — . ~ • —— — - - — ■ — — — — — 


gap: ASSE'^UBLF REVISION 0^3 OF AGC PROGRAM COMAMCHE BY NASA 2021113-051 


10:28 APR. 1,1969 CHIEFTAN.023 PAGE 1427 


L 


P02 15 


0216 


0217 


02ia 


0219 


0220 


0221 


0222 

0223 


IMU MODE SWITCHING ROUTINES 


USER' S PAGE NO. 


8 


P E F 


^ rp 


REF 




IMU FINE ALIGN MODE SWITCH 


LAST 1423 


47 LAST 1426 


EEF 48 LAST 1426 


LAST 1426 
LAST 1427 


07,3074 0 3536 1 


07,3075 4 5027 0 


07,3076 0 0006 1 


07.3077 03 012 1 


07,3100 4 5012 0 


07.3101 

07.3102 


7 1321 1 
55* 321 1 


07,3073 0 0004 0 T^UFINE INHINT 


TC 


CAGETSTJ 


CS 


BITS4-5 


EXTEND 


WAND 


CHAN12 


CS 


BIT6 


MASK 
TS 


IMGDES33 

IMnDES33 


SEE IF IMU BEING CAGED 


RESET ZERO AND COARSE 


E3 S3 


INSURE DAP AUTO AND HOLD MODES ENABLED 


0224 


REF 


4 LAST 1421 


07,3103 0 3151 1 


TC 


NOATTOFF 


IMU FAIL WAS inhibited DURING THE 


LEAVE 



r 


I 



022'9"“ 

R i' F 


LAST' 

625 

07,3inr 

3 5042 

T ■ 

C7n= 

2 S EC3 









02 10 

REF 

56 

LArr 

I4ZT” 

07,3111 

0 524T 

1 

Tt 

WAITLIST 









0231 

5EF 

20 

LAST 

1427 

E3,1474 



EBANK= 

CDUINO 









023? 

RFr 

1 



07,3112 

031 15 

1 

TUaOr'^ 

IMUFINFO 









0232 

r 'P 

V. *4** * 

r~ 



■ 'or, 2X13^ 

16063 

0 











0 2yi UE F T~LTi<rr O/t'UIA 1 ZiWU ~ TCT MUTrtbXn 

QP 54 RfT 1; L 'iST 07,31 15 0 352A 1 IMUFINFrD It CAGF I tSU Sf E IHAT NL) ONt HAS tAGtU THE IMO. 

11775 3 L AST ■’r42 5 07,5116' T T5T4 d TCF bNDiMU 


GAP 


ASSEMBLE REVISTOM OSS OF AGC PROGRAM CO^^ANCHE BY NASA 2021113-051 


10:28 APR 


1,1959 CHIEFTAN.028 PAGE 1428 


I MU MODE SWITCHING ROUTINES 


USER'S PAGE NO 


E3 S3 


0236 


0237 


REF 

REF 64 LAST 1425 


07,3120 


07.^117 0 3531 0 IFAILOK TC 


5324 


0 


TCF 


CAGETSTQ 


TASKOVER 


ENABLE IMU FIAL UNLESS IMU BEING CAGED 


IT IS 


02 3 8 


02 3 ‘3 
0 2 4 0 


0241 


0242 


R F F 


41 LAST 1426 


REF 48 LAST 1427 


REF 372 LAST 1426 


RFF 65 LAST 1428 


07, ->121 3 5014 1 


07.3122 

07.3123 


0 0006 1 
07 012 0 


07,3124 10 000 0 


07,3125 1 5324 0 


CAF 


EXTE ND 
RAND 


CCS 


TCF 


B1T4 


CHAN12 


A 


TASKOVER 


DONT reset IMU FAIL INHIBIT IF 

has Gone into cOarse align. 


SOMEONE 


0243 


024 4 


0245 


0246 

0247 


0248 


024? 


0200 


0251 


0252 

0253 


0234 


0255 


0256 


'’EF 50 LAST 1426 


07,3126 4 1320 0 


cs 


1M00ES30 



IMUFAIL. 


REF 51 LAST 1426 


07,3127 7 5003 0 


MASK 


BIT13 


REF 51 LAST 1428 


07,3130 27*320 0 


ADS 


TMUDES30 


REF 

RFF 


42 LAST 1428 


07.3131 4 5014 0 


CS 


eiT4 


52 LAST 1428 


07.3132 


1320 


0 PFAIL0K2 MASK 


IMnDES30 


REF 53 LAST 1428 


07,3133 55'320 0 


TS 


IM00ES30 


REF 41 LAST 1422 


07.3134 0 4740 0 


TC 


IBNKCALL 


n 


■•EF 


LAST 1422 


v07, *31^5 


1466S 1 




TISSW 


RET 


66 LAST 1428 


07t3136 I 5324 0 


TCF 


TASKOVER 


2FF 


7 

67 


last 1428 

LAST 1428 


07*3137 1) 3531 0 PFAUnK 

07,3140 I 5324 0 


TT 
TCF 


RFF 


REF 


54 

7^1 


UAFT 1428 

LAST 1427 


07.3141 4 1320 

07.3142 7 5006 0 


REF 55 LAST 1428 


0 T 7 3 14 3 2 7^70 0 


MASK 

AITS' 


02 37 

REF 

37 

LAST 

142 7 

07, 

3144 ^ 

0258 

REF 

52 

last 

142 8 

07, 

3145 ■ 

0259 

“ R FF" 

33 

LAST T428 

0 T f 

3 146 ; 


1321 1 


F3 




nzoir 

026T 


% • r 


ref 


T 


LAST 1426 


(17,3147 FFIT T 



r 3 



TT 


CS 

TCT 




T 1426 


0 2 6 3 


44 ""rA ST T4FB' 


arvTT^i 

"07,31 


3DT2 15 I OFF CF 



0264 


0265 
TOT 6 


REF 52 

RFF 45“ 

R E F ■ 32 6 L A S 7 ”1425 


LAST 1426 

rrsi 



07,3153 

07,31"54 


6 5001 


r 


MASK 

TJ) 




Trr,T155 0 0002 0 




TASKOVER 



BI TIO 



ImOdFSBT 

BI riT ““ 

T M 0 D E 



Bi 1 5 

PFAIL0K2 


THE ISS WARNING LIGHT MAY COME ON NOW 
THAr THE TNHIB IT HAS SEEN REMOVED. 


FITABLF FTP 




TO 


PIP AT 


TTCT400TTT 


SUBROUTINE T(T TURN OFF NO"AiT LAMP 



+ 110 



ITSPT71H +TTD" 

n 



gap: 

ASSEMBLE REVISION 055 

OF ARC PROGRAM CO 


ANCHE 

BY NASA 2021113-051 

10:2B APR. 1,1969 CHIEFTAN.028 PAGE 1429 













L 

t MU 

MOOE 

SWITCHING 

ROUT INFS 






USER'S PAGE NO. 10 E3 S3 


Pd267 



ROUITNES TO I'lITIATE 

AND TERMINATE 

PROGRAM USE 

OF THE PIPAS. 

NO IMUSTALL REQUIRED IN EITHER CASE. 


0 2 7 2 

REF 

2 66 

LAST 

1426 

07, 3156 

4 5021 

0 

PIPUSE CS 

ZFRU 


0273 

REF 

12 

1 AST 

83 4 

07* 11!57 

54 037 

1 


TS 

PI PAX 


0274 

REF 

3 

LAST 

43 7 

07p3160 

54 040 

1 


TS 

PT PAY 


0275 

REF 

6 

LAST 

834 

07,3161 

54 041 

0 


TS 

PTPAZ 



02752 

RfF 

3 

LAST 

1428 

07.3162 

0 3531 

0 

PIPUSEl TC 

CAGETSTO 

DO NOT ENABLE PTPA FAIL IF IMU IS CAGED 

02754 

PEP 

9 

LAST 

1422 

07,3163 

1 4675 

0 


TCF 

SWRFTURN 



02756 





07,3164 

0 0004 

0 


INHINT 



0276 

3FF 

78 

LAST 

1395 

07,3165 

4 5017 

0 


CS 

aiTi 

IF PIPA FAILS FROM NOW ON (UNTIL 

0277 

REF 

56 

LAST 

1423 

07, 3166 

7 1 320 

0 


MASK 

I MODE530 

PIPFREE), light ISS WARNING. 

0273 

REF 

57 

LAST 

1429 

07,3167 

55*320 

0 


TS 

I mooE$30 



02 ro 

SFF 

DHTT 

1 42 8" ■ 

07,3170 

0 4740 

0 

P I P 

FRFF2 TC 

TBNKCALL 

ISS WARNING MIGHT COME ON NOW. 

0280 

REF 

7 

LAST 

1428 

07,m171 

14665 

1 


CADR 

SETISSW 

(OR GO OFF ON PIPFREE). 













■ 0281 

F F 

4 

LAST 

1427 

07.31 72 

1 2640 

0 


TCT 

TIODEEX 1 1 



0?1T2 0 7,31 73 0 0004 0 PIPFREE INHINT PROGRAM DONE WITH PIPAS. DONT L I G 

0283 RlF 58 LAST 1A29 07,3174 4 1320 0 I ^OOt S30 ISS WARNING. — 

0234 REF '^9 last '1T2~9 07,31 78 7 5017 0 MASK BITl 

0785 ref t9 last 1429 07,3176 27* 320 0 2fnS IM0DES30 


R17F 42 — TTTST — T^ZB TJTVTl 77 ^ 5 0X16~~75 A5K ffTTIO l h PIP FATTIim, Du PROG AlSRM AND RESET 

0287 i^EF 373 LAST 1428 OTTTZOO lO 06o 0 CITS A ISS WARNING. 

U7“33 TFT 5^ T AST 1479 07 , 3701 T 2640 D‘ iCF “^MUijchX 1 I 


U7^ 1 

IFF zn last 1425““ 

07,3202 

0 5650 

T 

nr 

A L A v 




U7^ 


■ 07,3701 

rnmT 

0 

UCT 

'7T7 





0291 


07,3204 

0 0004 

15 

rNRTNT 






I 
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L IMU MrjOE SWITCHING ROUTI-'iriS 

USER'S PAGE 

NO. 1 1 

E3 S3 



P0293 THE FOLLnwiNCT ROMTINR TOROUFS THE I R'l GS ACCORDING TO DOUBLE PREC IS ION ^INPUTS IN THE SIX REGISTERS 

R0293 BEGINNING AT THE ECA'DR~^' R 1 VIMG IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS~ 16 PULSES^TTPS CPU COUNTS). THE 

R0297 UNSENT PORTION OF THE COMMAND IS LEFT INT4CT IN THE INPUT COMMAND REGISTERS. 


0299 



E3 » 1400 


EBANK= 

1400 

VARIABLE. ACTUALLY. 



0300 

REF 672 

LAST 1419 

07,3206 

54 161 0 

IMUPULSE TS 

MPAC +5 

SAVE ARRIVING ECADR. 


0301 

9FF 5 

LAST 1427 

0'',3207 

0 3536 1 

TC 

CAGETST J 

PONT PROCEED IF IMU BEING CAGED. 



030 2 

RFF 3 

LAST 445 

07.3210 

11'304 0 

CCS 

LGYRXT 

SEE IF GYROS BUSY. 


030 3 

R EF 1 


07,3211 

0 3252 1 

TC 

GYRQBUSY 

SLEEP. 



030*^ 

RFF 673 

LAST 1430 

07.3212 

54 156 1 

TS 

MPAC +2 



0305 

REF 49 

LAST 1427 

07,3213 

3 5012 1 

CAF 

BI T6 

ENABLE” THE POWER SUPPLY. 


0306 



07,3214 

0 0006 1 

EXTEND 




0307 

o c p 1 ^ 

LAST 1426 

07,3215 

05 014 1 

WOR 

CHAN14 




0308 

REF 20 

LAST 1395 

07,3216 

'3 5 015 0 

CAF 

FOUR 



0310 

2EF 57 

LAST 1427 

07,3217 

0 524'^ 1 

GWAKE2 TC 

WAITLIST 

(IF A JOB WAS PUT^O S^LeEP, THE POWER 


0311 

REF 21 

LAST 1427 

F3 . 1474 


EBANk= 

^DUINO 

SUPPLY IS LEFT ON BY THE WAKING JOB). 


0312 

REF I 


07, 3220 

03 2 70 1 

2CADR 

STRTGYRO 



0 312 

REF 1 


07. 3221 

16063 0 














0313 

REF 674 

LAST 1430 

07,3222 

3 0161 1 

C A 

MPAC +S 

SET UP EBANK, SAVING CALL£R*S EBANK FOR 


031 

RFF 59 

LAST 1399 

07,3223 

56 003 1 

XCH 

EBANK 

RESTORATION ON RETURN. 


0315 

R EF ■6 7“5' 

LAST 1430 

07.322^ 

56 161 1 

XCH 

MPAC +5 



0316 

REF 4 

LAST 1430 

07,3225 

55*304 0 

TS 

LGYRO 

RESERVES GYROS. 


0317 

- qx-p 

LAST 1395 

— 07,3256' 

■7 '"43'73 0 


LOWS 



0313 

■^EF 28 


07,3227" 

^54^ 0"61 1 

TS 

I tempi 












0319 

8 EF 75 

LAST r4?4' 

" 07 ,^3? 3D " 

3 5016 0 

“X7\T^ 

TWO 

FORCE SIGM AGREEMENT ON INPUIS. 


0320 

REF 676 

LAST 14571 

6T".32'3T 

~57r i 5T cr 

GYPcnnsp.FTs 

MPAC +3 



0321 



— 07,3232 

6 0000 1 

DOUBLE 




0322 


LAST r4Trr 

07 , 323T 

■ 6' 0"06Tnr“ 

60 

I TEMP I 



0323 

■'RFT^“67T“ 

LAST 143a^ 

07,3234^ 

5‘4 160 1 

TS^ 

MPAC +4 



0324 



— 07,3535" 

0 0006 1 

EXTEND 




0325 

REF 374 

TaST ’Pr2"9 

■"Trr,37X6 

S OITCrO T 


A 



05 26 



~07 • 3 2 3T 

“7" T40r 0" 

' ora 

1 400 



032? 

PEF 678 

LAST 1430 

0T7T2W 

"■52 153 1' 

DXCH 

MPAC 




rr“ 

UATT 1330 

" 0A,T24T 

0 7226 0 

TC 

T ' A Of R t fc 




9FF 96T9" 

T“2rST 14W 

07r52'42“ 

r5^ 77 

DXCTH 

MPAC 



03 30 

-EF 680 

LAST 143 0 

07 , 374"3 " 

50 160 0 

I NDE X 

M P AC +4 



0 3 31“ 



0 7 ,"3 2 4 4 

-53:17^01 I” 

IIXUH 

“iTTcnr 












0332 

RFF 681 ■■■ 

LAST 

07,3245 ■ 

"■■r0T57'0'" 

V# 

] 1 ^ 



imT’ 

REF 1 


0'7,'3246"^ 

■^^^2 31 0 

TCP 

ryRnAGRE 












UJJTT 

r V L F 682 

LAST 1430 

07. 3247" 

3 0161 1 

CA 

MPAC +5 

KESIGRE CALLER'S EBANK. 


0 f 3 5 

RTFF^ '67r" 

'rA"m4T0 

07,3750 

54 003 0 

T^T’ 

E BANK 





P FF ~ 6^ 

1 AST 14 79 

' 07,3251 

“T 2^40 0^ 

Tcr 

MODFEyiT 
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L 

I MU MODE SWITCHING ROUT INFS 




USER’S PAGE 

NO. IZ 

E3 S3 













P0337 

ROUTINES TO ALLOW TORQUING 6Y ONLY 

ONE JOB 

AT A TIME. 









0338 





07,3252 

0 0006 

1 

GYROBUSY 

EXTEND 


SAVE RETURN 2FCA0R. 

0339 

R zF 

20 

LAST 

U90 

07,3253 

3 0134 

1 


OCA 

BUF2 


03A0 

REF 

6 3 3 

LAST 

1430 

07,3254 

52 155 

1 


DXCH 

MPAC 


0341 

f < E F 

_ 



07,3255 

3 3267 

1 

RFGSLEEP 

CAE 

LGWAKE 


0342 

REF 


LAST 

1325 

07.3256 

1 5175 

0 


TCF 

JOBSLEEP 



0343 

REF 

5 

LAST 

1430 

07,3257 

11 '304 

0 

GWAKE 

CCS 

LGYRO 

WHEN AWAKENED, SEE IF GYRUS STILL BUSY. 

0344 

REF 

1 



07,3260 

1 3255 

1 


TCF 

RFGSLEEP 

IF SO. SLEEP SOME MORE. 


0 345 

REF 

684 

LAST 

143 1 

07,3261 

54 156 

1 


TS 

MPAC +2 


0346 





07,326? 

0 0006 

1 


EXTEND 



0347 

REF 

686 

LAST 

1431 

07.3263 

3 0155 

0 


OCA 

MPAC 

— 

03 4 3 

PEF 

21 

LAST 

1431 

07,3264 

52 134 

0 


DXCH 

0UF2 

RESTORE SWRETURN INFO. 

0349 

P FF 

■V ' 

162 

LAST 

1416 

07,3265 

3 5017 

1 


CAF 

ONE 


OT515 

RFF 

1 



07.3266 

1 3217 

1 


TCF 

GWAKF2 


■ — . ^ — . ■ ■■ — -" * ! »■“ m ■ 

0351 

REF 

1 



07,3267 

17257 

1 

LGWAKE 

CAOR 

GWAKE 

- - — — 
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IMU MODE SWITCHING ROUTINES 


USER'S PAGE NO. 13 


E3 S3 


P0352 


GYRO-TORQUING WAITLIST TASKS 


0353 

R b; F 

1 



07,3270 

4 3511 

0 

STRTGYRC 

cs 

GDESELCT DE-SELECT LAST GYRO* 



035^ 





07,3271 

0 0006 

1 


EXTEND 




0355 

RbF 

15 

LAST 

1430 

07,3272 

03 014 

1 


WAND 

CHAN14 




0356 

REF 

6 

LASt 

1427 

07,3273 

0 3524 

1 


TC 

CAGETEST 




0357 

REF 

6 

LAST 

1431 

07,3274 

3 1304 

1 

STRTGYR2 

CA 

LGYRO jump on phase COUNTER IN 

BITS 13-14. 


0353 





07,3275 

0 0006 

1 


EXTEND 


--m — 1^ - ■- -■ — — ■ — . 


0359 

REF 

43 

LAST 

1428 

07,3276 

7 5014 

0 


MR 

BI T4 



0360 

R F F 

3 75 

LAST 

1430 

07,3277 

50 000 

1 


INDEX 

A 



0361 





07*3300 

1 3301 

1 


TCF 

+ 1 



0362 

REF 

1 



07,3301 

0 3316 

0 


tc 

GSELECT =0. DO Y GYRO. 



0363 





07,3302 

0^02 

1 


ncT 

00202 




03 64 

REF 

2 

LAST 

1 43 2 

07.3303 

0 3316 

0 


TC 

GSELECT =1* DO Z GYRO* 



0365 





07,3304 

0 03 02' 

0 


OCT 

00302 
















0366 

REF 

3 

LAST 

1432 

07,3305 

0 3314 

1 


TC 

GSELECT -2 =2* DDK GYRO. 



0367 





O'?, 33 06 

001 00 

0 


OCT 

00100 
















0360 

RFF 

26T 

TKTT 

1429 

07,3307 


1 



ZFRO =T. done 



0 36 9 

RFF 

7 

LAST 

143 2 

07.3310 

5 5 » 3 OA 

0 


TS 

LGYPO 

■ ~ — JUT . ■ -1 -■ - 


o 

o 

f 

REF 

2 

LAST 

T43T 

07, 3311 

3 3267 

1 


CAF 

LGWAkt WAKE A POSSIBLE SLEEPING 

JOB. 


0 3 y 1 

REF 

6 

LAST 

132 5 

07,3312 

C 52 0 1 

1 


TC 

JOBWAKE 




wvn. 

REF 

— ^ 

y 

LAST 

1427 

07,33"13 

1 3115 


“TTORTTrr 

TCF 

IMUFINFD DO NOT RESET POWER SUPPLY 
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L IMi| MODE SWITCHING ROUTINES USER'S PAGE NO. 14 E3 S3 


037 3 

R t:F 

21 

LAST 

1430 

^ \ 

rfT : 

o 

4 5015 

1 

-2 CS 

FOUR 

SPECIAL ENTRY TO REGRESS LGYRO FOR X. 


03 74 

5BF 

8 

LAST 

1432 

07,3315 

27* 304 

0 

ADS 

LGYRO 




0375 

REF 

327 

LAST 

142 3 

07,3316 

50 002 

0 

GSELECT INDEX 

Q 

SELECT GYRO. 


0376 





07.3317 

3 0000 

1 

CAF 

0 

PACKED WORD CONTAINS GYRO SELECT BITS 


0377 

REF 

4 

L AST 

1411 

07,3320 

54 064 

1 

TS 

ITEMP4 

AND INCRF'MENT TO LGYRO. 


0378 

REF 

20 

LAST 

1403 

07,3321 

7 5023 

1 

MASK 

SEVEN 



0379 


53 

LAST 

1428 

07,3322 

6 5003 

1 

AO 

BIT13 



0380 

P FF 

9 

LAST 

1433 

07,3323 

27*304 

0 

ADS 

LGYRO 



0381 

REF 

61 

LAST 

1430 

07,3324 

54 003 

0 

TS 

EBANK 



03“2 

5EF 

15 

LAST 

1430 

07,3325 

7 4373 

0 

MASK 

LOWS 



0383 

REF 

30 

LAST 

1430 

07,3326 

54 061 

1 

TS 

ITFMPl 




0354 

REF 

21 

LAST 

1433 

07,332 7 

4 5023 

1 

CS 

SEVEN 



03 85 

REF 

5 

LAST 

1433 

07,3330 

7 0064 

1 

MA SK 

TTEMP4 



03 86 

REF 

6 

LAST 

1433 

07,3331 

64 064 

1 

TS 

ITPMP4 




0387 





07.333? 

0 0006 

1 

EXTEND 

MOVE OP COMMAND TO RUPTREGS FOR TESTING. 


0383 

R EF 

31 

LAST 

1433 

07,3333 

5 0061 

0 

INDEX 

ITFMPl 



0389 





07.3334 

3 1401 

0 

OUi 

1400 



03 90 

RFF 

28 

LAST 

1411 

07,3335 

52 071 

0 

DXCH 

RUPTREGl 















“OWI 

REF" 

2 9 

TEATT 

T431 

07,3336 

T O OTm " 

CCS 

RUPTRE G1 



03 92 

rFf 

1 



07.3337 

1 3352 

1 

TCP 

MAJ + 



07-43 





07,3340 

1 3342 

7) 

TOP 

+ 2 



0394 

RcF 

1 



0/, 3341 

1 3472" 

1 

TCP 

M A J— 




039'3 

REF 

"T 

TXST^4I1 

07, 3342 ■ 

■TD~071 


1X5 

RUPTREG2 



UTJTr~ 

^ PF 

1 



07,3343' 

T TT4 T 0 

TCP 

MTn+ ~ 




REI- 

— r“ 



07,3344 

1 32 74 

1 

TCT 

STRTGYR2 



— 

P EF 

1 



07.3345 ■ 

“T 3467 

TT 

■ TC F 

PITTF 



0399 

"”RFF" 

2“' 

LATST" 

T4T3^ 

ITT, 334 6~ 

1 3274 

1 

TXF 

— STRTGYR2 
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L 

1 9U 

MOOE 

SWITCHING 

ROUTINES 






USER'S PAGE NO. 15 E3 S3 


0400 

pep 

1 


07,3347 

6 3403 

0 

MIN+ 

AD 

-GYROMIN 

SMALL POSITIVE COMMAND. SEE IF AT LEAST 

0401 




07,3350 

0 0006 

1 


EXTEND 


16 GYRO PULSEJ^^ 

0402 


3 

(.AST 1433 

07,3351 

6 32 74 

0 


BZMF 

STRTGYR2 



040^ 




07*3352 

0 0006 

1 

MAJ + 

EXTEND 


DEFINITE POSITIVE OUTPUT. 

0404 

REF 

1 


07.3353 

3 3 513 

0 


OCA 

GYROFRAC 


OAO'^ 

RFF 

30 

LAST 1433 

07, 3754 

20 071 

0 


DAS 

RUPTKEGi 



0406 

REF 

7 

LAST 1433 

07,3355 

3 0064 

0 


CA 

ITFMP4 

SELECT POSITIVE TOROUING FOR THIS GYRO. 

0407 




07,3355 

0 0006 

1 


EXTEND 



0408 

REF 

16 

LAST 1432 

07,3357 

05 014 

1 


WOR 

CHAN14 



0409 

REF 

10 

LAST 1419 

07,3350 

3 6043 

0 


CAF 

LOW? 

LEAVE NUMBER OF POSSIBLE 8192 AUGMENTS 

0410 

REF 

3 

LAST 1433 

07^ 3361 

7 0071 

0 


MASK 

RUPTREG2 

TO INITIAL COMMAND IN MAJOR PART OF LONG 

0411 

REF 

Q 

LAST 1434 

07,3362 

56 071 

1 


XCH 

PUPTREG2 

TERM STORAGE AND TRUNCATED FRACTION 

0412 




07*3363 

0 0006 

1 

GMFRGE 

EXTEND 


IN MINOR PART. THE MAJOR PART WILL BE 

0410 

KEF 

28 

LAST 1410 

07*3364 

7 5010 

1 


MP 

BT T8 

COUNTED DOWN TO ZERO I!^ THE COURSE OF 

0414 

»• FF 

26 

LAST 1411 

07,3365 

54 062 

1 


TS 

ITEMP2 

PUTTING OUT THE ENTIRF COMMAND. 

0415 

RFF 

31 

LAST 1434 

07.3366 

3 0070 

0 


CA 

P^UPTRFG1 


0415 




07*3367 

0 0006 

1 


EXTEND 



0417 

p^f" 

35“ 

LAST 1421 

07,7370 

7 5007 

1 


MP 

B1T9 


0411 

R PF 

32 

LAST 1434 

0 7*3371 

54 070 

1 


TS 

RUPTREGl 


0419 

PEF 

lf<7 

LAST 1423 

07,3372 

3 0001 

0 


CA 

L 


0420 




0 7, 3 3 "77 

0 0006 

1 


EXTEND 



0421 

REF 

74 

LAST 1395 

07* 3374 

7 50 02 

1 


MP 

ei T14 


0422 

rff 

27 

LAST 1434 

07,3375 

26 062 

1 


AOS 

ITEMD2 

INITIAL command. 


0423 




0 7,33 76' 

0 0006" 

"IT 


EXTEND 


SEE IF MOKE THAN UNb PULSfc IKAIN NtbUtU 

0424 

RFF 

33 

LAST 1434 

Of, 3377 

3 0071 

1 


DC A 

RUPTftEGl 

(MORE THAN 16383 PLfLSES). 

0423 

REF 

1 


07,3400 

6 7716 

0 


AD 

MINUSl 


0426 

REF 

376 

LAST 1432 

07.3401 

TT5 000 

0 


CCS 

A 


D47r 

REF 



07,3402 

1 T42'Er 

0 


TTF 

“UUNCrGYPO 


0420 




07,3403 

776 01 

0 

-CYkCiMlN 

□ CT 

'“176 

M AY 8t AUJUSIEU lO SPtLlbY MINI Mlj M C M D 





— (n;3W4“ 

1 3410 

0 


TXT 

+ 4 



0430 

REF 

'■ 75 “ 

LAST 1434‘ 

07,3405 

~T~^TmT 

TT 


CSF 

RIT14 

■ 

0431 

REF* 

28 

LAST 1434 

07,3406 

“76“ 06 2 

1 


TAOS 

TTFMP2 


04T2 


263 

L AST T4T2 


“ T“507r 

1 


CAT 

ZERO 



nf74T3 

~ T<EF 

32 

L“AST r43ir 

(TTTWrO” 

“5crTr6i 

"nr 


INDEX 

1 TEMPI 


0434 




07*'T4TT“ 

53'401 



DXCFl 

14071 

- - - - . - 
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10:28 APR 
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L 


IMU MOOF SWITCHING ROUTINES 


USER'S PAGE NO 


16 


E3 


0435 


PFF 


0436 

0437 


RFF 


29 


LAST 1434 


07t3412 3 0062 0 


CA 


ITFMP2 


ENTIRE COMMAND 


LAST 1426 


07, 3413 
07, 3hI 4 


54 047 0 
0 0006 1 


LASTSEG 


TS 
EXTEND 


GYROCMO 


0433 


REF 43 LAST 1429 


07,3415 7 5006 0 


MP 


8IT10 


0439 
04 4 0 




LAST 1419 
LAST 1430 


07t3416 
07, 3417 


6 6214 0 
0 5245 1 



THREE 
WAITLIST 


WAITLIST DT 

TRUNCATION AND PHASE UNCERTAINTIES 


0441 


REF 2? LAST 1430 


F3tl474 


EBANK= CDUINO 


0442 

0442 


REF 


2 LAST 1430 


07.3420 

07.3421 


03270 1 
16063 0 


2CADR STRTGYRO 


044 ^ 
0449 


RFF 44 LAST 1435 


07*3422 

07*3423 


3 5006 I 
0 0006 1 


GYROEXIT CAF 

EXTEND 


BITIO 


0450 


RFF 17 LAST 


1434 


07,3424 05 014 1 


WOR 


CHAN14 


0451 


REF 68 LAST 1428 


07*3425 1 5324 0 


TCF 


TASKOVER 


0437 

0457 

0454 


33 LAST 1434 


07, 3426 50 061 0 LONGGYRH INDEX ITEMPi 


F F 


LAST 1434 
"LAST 143 5 


07,3427 

07*3430 

07,3431 


53'401 1 

3 5002 0 


DXC H 
CAF 


1400 
BIT14 


INITIAL COMMAND OUT PLUS N AUGMENTS OF 
8192. INITIAL COMMAND IS AT LEAST 8192 


6 0062 0 


ITFM02 
GY"ROCMD 



TJ47T 



,3433 0 0006 


TTUGl 


EXTFTm 


04^8 

0459 


ITFF 


0460 


LAST 14T5^ 

LAST 1396 
L AST 143 5 


LA7T 1435 


046 2 
TT467 






T)T,3434 

07.3435 

07.3436 
L3, 1474 

07.3437 
07,3 44T)“ 
■QT , 3 44T 


0 

6 7714 1 

5246 1 


ETT 
NF.G3 
WAITLIST 

m 


GET W Arm ST DT TO TTMT 

7\LM0ST aOT 



0344? 0 
16063 IT 


GYRO FT 






UTTST r437 07,34^42 0771524 71 HT92AUG TC 


CAGETFST 


04641 RTF 44 LAST 1432 


04647 

0464 3 

04644 


"47 


G464^ 



TT4^ 

0457 



T 14Z3 


DTST 


07,3443 3 

07,5444 
7T7T445 
0 7 , 344^ 


5714 


I 



ST 1425" 
LAST 1433 


TFF 


■D46T 


RFF 


T4 

34 : 


LAST T4TT 


r433' 

1434 


I7V5T 

051 


Q- / , 344T 

77434517 

07,3451 
1)743457 
0 4 345 3 


0 0TJ76 

02 012""a 

10 000' "0 

7 T5 

V/ 


OF 

EXIT NTT 


CHANYZ 




U46T 



T5 05T "r43 5 


747TT 

747T 


07 , 3454 
0373455 


50 061“0 


TND5X IirMT^T 


SEE IF 



LAST ATJG 





TTFT 


T 


07 , 3457 ; 1 3462 a 


CCS 

TCF 


140TT 

4UG7 


MORE It) COTE 


17773457 


B I T 14 


0475 

RTF 5 L A S 'I 143 5 

» ^ » w ' 

07734571 

26 04 7“D 

ACS 

17 YK ULr n u 



i. L-p- 1 - 

0 7,Kf6T' 

1 3 4T4 I 

TCF 

L AS i SFG +1 

-- — — ■ " ■ 
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L 

IMiJ MODE SWITCHING ROUT I NFS 

USER»S PAGE 

NO. 17 

E3 S3 



OA75 

REE 

36 

L AST 

1435 

07, T4'62 

50 061 

0 AUG2 

INDEX 

ITEMPl 

0476 





07,3463 

55*400 

0 

TS 

1400 

0477 

REF 

78 

LAST 

1435 

07.3464 

3 5002 

0 

CAF 

BIT14 

0478 

P.EF 

6 

I.AST 

1435 

07,3465 

26 047 

0 

AOS 

GYROCMO 

0479 

REF 

1 



07,3466 

1 34 33 

1 

TCF 

AUG3 COMPUTE OT. 






* -•- 




GAP: 
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L 

I MU 

MODE 

SWITCHING 

ROUTINES 







USER 

»S PAGE NO. 18 E3 S3 
















04^0 

REF 

2 

LAST 143^ 

07.3467 

6 

3403 

0 

MIN- 

AO 

-GYROMIN 

POSSIBLE 

NEGATIVE OUTPUT. 


0^81 




07.3470 

0 

0006 

1 


EXTEND 





o 

00 

REF 

u 

s 

LAST 1434 

07,3471 

6 

3274 

0 


R7MF 

STRTGYR2 


















0433 




07.3472 

0 

0006 

1 

MAJ- 

EXTEND 


DEFINITE 

NEGATIVE OUTPUT. 


04 84 

REF 

Z 

LAST 1434 

07, 3473 

4 

3313 

1 


DCS 

GYROFR AC 




04 33 

RFF 

34 

LAST 1434 

07,3474 

20 

071 

0 


DAS 

RUPTREGl 





0486 

n CC 

A f . I 

B 

LAST 

1434 

07^3475 

3 0064 

0 

CA 

ITEMP4 

SELECT negative 

TOROUING FOP THIS GYRO. 

0487 

REF 

36 

LAST 

1434 

07,3476 

6 5007 

0 

AD 

BIT9 



0488 





07,3477 

0 0006 

1 

extend 




04 3 P 

REF 


LAST 

143 5 

07, 3500 

05 014 

1 

WOR 

CHAia4 




0490 

REF 

35 

LAST 

1437 

07,3501 

4 00 70 

1 

cs 

RUPTREGl 

SET UP RUPTREGS 

TO FALL INTO GMERGE. 

0491 

REF 

36 

LAST 

1437 

07.3502 

54 070 

1 

TS 

RUPTREGl 

ALL NUMBERS PUT 

INTO GYROCMD ARE 

04 92 

REF 

10 

LAST 

1434 

07, 3503 

H 0071 

0 

CS 

PUPTREG2 

POSITIVE - 8IT9 

OF CHAN 14 0 1 T ERMINES 

0493 

Rc F 

11 

LAST 

1434 

07,3504 

7 6043 

1 

MASK 

LOW' 

The s 1 gn of the 

COMMAND. 

0494 





07.3505 

4 0000 

0 

COM 




0495 

'■< EF 

11 

LAST 

1437 

07, 3506 

56 071 

1 

XCH 

RUPTREG2 



0495 





07»3 50T' 

4 0000 

0 

COM 




04’^7 

^ CF 

1 



07,35 10 

1 33 S3 

0 

TCF 

GMERGE 















049 3 





07,3511 

01700 

1 

GHESELCT OCT 

TTETO 

TURN OFF SELtCl ANU ACIIVIIY Birb. 


0499 





07,3512 

■ 00000 

IT" 

gyrofrac 2 dec 

.215 B -21 



04 9 





D7VT5TT" 

Tro034 

0 
















— , — — — .1 — — — - - - ... -I 
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L 


IMU MODE SWITCHING ROUTINES 


USER’S PAGE NO 


19 


E3 S3 


P05 00 


MODE' SWITCHING ROUT IMES CGMF“HEPE WHFN ACTION COMPLETE. 


0 501 


0502 


050"^ 


0504 


0505 


05 05 


0507 


0503 


0511 


051 
0513 


onr 


07,3514 0 0006 1 FNDIMU 


XTEND 


MODE IS BAD IF CAGE HAS OCCUR 


OR IF 


REF 33 LAST 1220 


07.3515 00 011 1 


READ 


D5ALH0UT 


ISS WARNING IS ON. 


REF 
REF 


30 

378 


LAST 1429 
L^ST 1435 


07.3516 

07.3517 


7 5017 0 
10 000 0 


^^AS K 
CCS 


BITl 
A 


KFF 


LAST 1435 


07.3520 1 3522 0 


TCP 


IMU8AD 



LAST 588 


07,3521 1 3550 0 I MUGOOD TCF 


gcTooeN 


I 


= 0 


RFF 2 69 LAST 14334 07,3522 3 5oTl 1 



"CTIF 


Twm 


c c 


i; 




LAST 538 


07.3523 1 3545 1 


TCF 


BADEMO 


I NATE iironrouE 






LAST 1438 


LAST 1438 

LAST 1433 


07,3526 


07,3527 

07,3530 


1 352? 0 

0 0002 0 



A 

I M U 3 AO 


THRECTLY. 

WITH C(A) - +0. 


O C p 

- \ ♦ r 



LAST 143 8 




RFF 6^2 



“07.3536^ 4 TJ7Tr IT C ATGETS TJ TTG 



0520 

057T 


05 2 2 


REF 52 

T 

2 F LAST 143R 


LAST 1438 



07,3537 

. 3 5 41T 



7 

TO 


5012 

“OOF 


0 


DT , 3T41 0 Ooo 


0 

TV 


3TW 

rOF" 

TC 


FTTTr 


TT 


TF DURING TiCiD E SW 1 1 C H 1 N 1 I 1 At I Z ATIuTT “ 
IT IS FDUND THAT THE IMU IS BEING CAGED# 

-0 TO”INDICATE“OPERATIW 



XTJMPUETE BUT F7TILED. RETURN iMMbUiATELY 


0573" 


0524^ 

0325 


'RPT^TTT 


1 A^ST “r4^ 


0 N 35 42 



REF 


T 


OST 

L As T 



ITT7T543 


4" 523 ZTU 

~T 



r4TTT 


67 , 3 54"4 — 


XT 

~T^~ 

“TCF 


ZTRTT 

T MTJC A DR 
MOOEEXIT 


ID SWRETURN 





I 
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L 

I MU MODE SWITCHING ROUTINES 



U SE R 

•S PAGE NO. 20 

E3 S3 




P0526 

GENERALIZED MODE SWITCHIN 

G TERMINATION 

. ENTER AT GOODENO FOR 

SUCCESSFUL 

COMf>LETION OF AN I/O 

OPERATION 



R0529 

OR AT PAOENO FOR A N UNSUCCESSFUL 

ONE. CIA) OR 

ARRIVAL =0 FOR IMU, 1 

FOR OPTICS. 






0530 

REF 

12 

LAST 

143 7 

07*3545 

56 07l 

0 

BADENO 

TS 

RUPTREG2 

DEVICE INDEX. 







0531 

P.EF 


LAST 

143 8 

07,3546 

4 50 21 

0 


CS 

ZERO 

FOR FAILURE. 







0532 

REF 

4 

LAST 

1638 

07*3547 

1 3552 

1 


TCF 

GOODENO +2 









0533 

REF 

13 

LAST 

1439 

07, 3550 

56 0 71 

0 

GOODENO 

TS 

RUPTREG2 








0534 

REF 

163 

LAST 

1631 

07,3551 

6 5017 

0 


CS 

ONE 

FOR SUCCESS. 









“6 Cast ' 14lT^ Q7t33S2 34 072 0 TS RUPTREG3 

14 LAST 1439 07,3333 5F“om INDEX RUPTREG2 SEE IF USI NG PROGRAM ASLEEP^ 

5 LAST 243 07,3334 11'322 1 CTS MODCCAOR 

“ 07^3335" I 353T~ 1 ~ TCF +2 ~ YES - WAKE IT UP* 

~J 07,3553 1 3567 I TCP ENDMODE IF 0, PROGRAM NOT IN YET. 


05i^0 RFF 272 LAST 1430 07# 35^37 3 5021 1 ^ CAP ZERO WAKE SLEEPING PROGRCT. 

0';41 r? LAST 1439 07TTS60 SO 071 1 INDEX RUPTREG2 I3Z^!IZZZZZ]^^^ZII^^ 

05^2 R"EF 6 LAST 1439 07,3561 57'322 0 XCH MODECADR 

05:73 Rl?F 7 LAST 1432 07.356 2 0~5'2Or 1 TC JOBWAKE ” 


0S44 !TET= 7 LAST 1479 07,3563 6 00 72 0 CS RUPTPEG3 ADVANCE" LOC IF 

■ 0545 TTF F 23 LAST 132S 07,3566 SITITS^ IT INDEX LOCCTR 

■ 0 566 TeF 62 LAST 1220 07.3565 2f) 1 66 0 AOS iTiC 


n5T7 TTEF 69 ITAST^lTTgE 07 , 3556^ T'~5T27, d tCF TASKLIVER 

U^ZTS FTEF 8 — I ASI 163 5 0'-’. 356 f T‘00 72 1 bNUMUUF CA RUPl RLOi -O INOlCAIES UPtKAllUN COmpLeIe bill 

OU 49 j-f, las t — 1637 777.3570 50 071 1 TNiTEX RUPTREG 2 UNSULLESSEUl - -1 INDICAIES CUMPLblh ANU" 

( 5 i ^(5 RTF 7 — LAST 1630 07,35TI — 55» 322 1 TS^ MOOECADft SUCLESSI-UL. 

n55T RTT — 70 LAS T 1630 0777572 r7>3'?6 0 TXT T AS5.UVtR ~~ 


05 15 REF 

0536 

0537 REF 
05 ^ 3 

053-; REF 
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L 

I MU MODE SWITCHING ROUTINES 

USER'S PAGE 

NO. 21 

E3 S3 


P05^Z GENERAL STALLING ROUTlNt. US ING PROGRAMS COMEHtRE TO" WAIT FOR I/O COMPLETION. 


R055A- 

PROGRAM DESCRIPTION " DATE- 21 FEB 1967 





R0555 

■ “ LOG SECTION IMU MODE SWITCHING 





R0556 

MOO 3Y- R.MELANSON TO ADD OOCIJMENTAT ION ASSEMBLY SUNOISK REV. 82 






R055T 

FUNCTIONAL DESCRIPTION- 





R 055 8 

TO DELAY FURTHER EXECUTION OF THE CALLING ROUTINE UNTIL ITS SELECTED 





R0559 

I /n FUNCTION IS CO^PL'^Tfc.THF FOLLOWING CHECKS ON THE CALLING RnUTINE:S 





ROSSO 

MFIDECAOR ARE MADE AND ACTED UPON, 





R0561 

1) +0 INDICATES INCOMPLETE I/O (IPER AT ION. C ALL T NG ROUTINE IS PUT TO 





R0562 

SLEEP, 





R0563 

2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP 

— ■■ ■ — 




9055=+ 

CALL AND RETURNS TO CALLING ROUTINE AT L+3 





R0565 

3) -0 INDICATES COMPLETED I/''^ WITH FAILURE. STALL CLEARS MOOECADR 





R0566 

AND RETUPvNS TO CALLING ROUTirgE AT L + 2. 





R0567 

4J VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF 





R05o8 

SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM 





R0569 

RESTART WHICH IN TURN CL^^ARS ALL MODEC-AnR REGISTERS. 











P0570 

CALLING SEOUFNCE- 





R0571 

L TC BANKCALL 





R0S72 

L+1 CADR (ONE OF 5 STALL A'ODfTESSES I.E. TMtJSTALT.TTPTSTALL. P ADSTALL. 





R 05 7 3 

AOTSTALL.GP ATTSTALL* 






"R 0 5^7 4 

Nflp-MAL - E X I T m 0 E - 





R0S75 

TCP JOBSLEEP OR TCF MODEXIT 






R 05777“ 

ALAP.M OTT^BnRT exit MODE- 





R0577 

TC ABORT 






■ ~w(rrr^~' 

OUTPLtr- 





R0579 

MnDECADR= CADR IF JOBSLEEP 





RO'5^ 

M'“lDFCA0R=+0 IF I/O CtirnTTETi- 





RT)T^r 

BUF2=L+3 if I/O CnvpLrTE AND GOOD. 





R0SI2 

Bl)F2=L+2 if I/u COMPI FTF but FAILED. 











R,057r3 

' ERA S aBL^ T NI T I AL I Z at I ON- 





R0584 

ai)F2 contains RETURN APURFSS PLUS l.tL + 2j 





^ R 0"5'85 " 

"Bl)'^2 + l CONTAINS FBANX VALWDF CALLING“RDUTINE. 





9 0536 ‘ 

MTTDEC4DR OF CALLING Rd IT T ME 'CONT AI NS +0.-ri-0 DR CADR PETURN ADDRESS. 











^051^'7“ 

OEBR I S- 





R'D5Jd“ 

■ r.lTPTPGG?^ AND CALL TMG~'’atJTINE"'MnDECADR . 






05 5 

■RTF 164 LAST I4'3D D7.35T3 T ‘5^017 T" AfJISTALL CAP UMt aiji . 





C> 5 9 0 

— PTF 1 0 /, ?T74' D'BSOO' r TC SI ALL 






0W[ 

lITF” 76 ' CAST 1430 D7,35T5 3 TDIEr 0 RADS TALL CAF TWU 





U^' 

? LAST 1440 0 7 . 1 5 76' ■ I-~3TG0 0 TCP 'ST'Al.L 



















» e- 
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L 

I MU 

MOO 6 

SWITCHING R'' 

IIJTINES 






USER'S PAGE NO. 22 E3 

S3 














0593 

RFF 

1 



07,3573 



OPTSTALL 

EQUALS 

AOTSTALL 




0594 

RFF 

273 

LAST 

1439 

07,3577 

3 5021 

i 

I MUSTALL 

CAP 

ZERO 

IMU, 















0595 





07,3600 

0 0004 

0 

STALL 

INHINt 




05 96 


17 

L AST 

1439 

07, 3601 

54 071 

0 


TS 

RUPTREG2 

SAVE DEVICE INDEX. 


0597 

9EF 

38? 

LAST 

1438 

07,3602 

50 000 

1 


INOEX 

A 

SEE IF OPERATION COMPLETE, 


0598 

9EF 

3 

LAST 

1439 

07,3603 

11*322 

1 


CCS 

MODECAOR 



0599 

RFF 

1 



07, 3604 

1 3622 

0 


TCF 

MODABORT 

ALLOWABLE STATES ARE +0. -1, AND 

-0. 

0600 

REF 

1 



07,3605 

1 3616 

1 


TCF 

MGDESLP 

OPERATION INCOMPLETE, 


0601 

REF 

1 



07,3606 

1 3612 

0 


TCF 

MODEGOOD 

COMPLETE AND GOOD IF = -1. 














T — -x — — ' 

0602 

K F F 

13 

LAST 

1441 

07,3o07 

50 071 

1 

MG2 

INDEX 

RUPTREG2 

complete And failed if -o. reset 

TO +0* 

0603 

REF 

9 

LAST 

1441 

07,3610 

55 • 322 

1 


TS 

MOOECAOR 

RETURN TO CALLER. 


0604 

RFP 

~ 

LAST 

143 8 

07,3611 

1 2640 

0 


TCF 

MnOEEXIT 
















06^ 

RFF 

3 8 3 

LAST 

1441 

07.3612 

10 000 

0 

MGDEOnOD 

T^S 

A 

Make sure initial state “i. 


0606 

EF 

7 

( w 

LAST 

1441 

07,3613 

1 3622 

0 


TCF 

MODABORT 
















0607 

REF 

?? 

LAST 

1431 

O'' . 3 6 1 4 

24 133 

”0“ 


INCR 

"WFS 

IF SO, INCREMENT RETURN ADDRESS 

AND 

06 0^ 

PEF 

1 



0'',3615 

1 3607 

1 


TCF 

MG2 

RETURN IMMEDIATELY, SETTING CADR 

= +0, 


0609’ ■ 

Rt-F 

5^ 

L'"^ 776 

07,3616 

“(y“47Tl 

1 

TCTOOFSLF' 

TC 

ITAKECADR 

CALL SWl ICHAbLt hlAtU LifMLT# 



0610 

REF 


LAST 

1441 

07,3617 

50 071 

1 


INOEX 

PUPTRFG2 



0611 

R E l~ 

“TO 

LAST 

144 1 

07,3620' 

55*322 




mqdeCAOR 



UFr2~ 

RFF" 

6 

LTtFT" 

T4TI 

~(rn JF2 \ 

T7 5 1 75 

0 


TCF 

JOBSLE EP 
















0615' ■ 

REF 

TO LAST 

1340 

07, 

0 57Zr 

TT 

"MDDABORT TL 

p 0 n nTTor 

TWO PKOGJ^AMS using SAHc UEVlCfc# 


0614 





07,0623 

oizirr 

0 


TTCT^ 

1210 

, ^ » 1 ■ ■ — — . . 1 ■ 



i 
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TMU MODE SWITCHING ROUTINES 


USER^S PAGE NO. 23 


E3 S3 


P061 5 


CONSTANTS FOR MODE SWITCHING ROUTINES 


OolfS REF 4 LAST 1040 5771 BITS3G4 = 0CT14 

0517 7 LAST 1396 5033 BTTS4&6 ^ OC T 50 

^18 P£r 4 LAST 165 5027 BITS4-5 EQUALS BTTS4C5 

0615 RrF 29 LAST 1434 5010 IMUSEFLG EQUALS BITS 


0620 07,3624 ”77500 1 -COMMAX DEC -191 


ur>''} 




f 7 . J U "T 

f 1 ^ ' 


w ^ f f r 1 .Mk 






0621 




07,362=^ 

774 77 

0 

-COMMAX- 

Dfe 

-192 




0622 




07 ,3526 

00074 

1 

600MS 

DEC 

60 




06 23 

P Fp 

3 

LAST 424 

07,3073 



IMUFTIM20 


IMUFTNE 




0624 

pep 

4 

LAST 418 

07,3627 

3 1325 

1 

GOMANUR 

CA 

ATTCADR 

IS KALCMANU 

FREE 


0625 




07, 3630 

0 0006 

1 


EXTEND 





0626 




07,3631 

1 3 634 

1 


B7_F 

4” 3 

















0627 

RFF 

li 

LAST 1441 

07,3 632~~ 

1) 6 721 

"0“ 


TC 

poooon 

V 

NO 



0623 




07,3653 

01210 

0 


QCT 

1 210 

2 TRYING TO 

USE SAME DEVICE 

- ^ — - ^ 


INTERPRETER SWITCH 7. 


062 9 


07,3634 


0630 


REF 23 LAST 1441 


0632 


PEE 


LAST 144? 


^n,3 63 5 
07,3636 


0 0006 I 

or5 


+ 3 


eXTEND 




5 3 ’ 3 7E 


1 

n 


ncA 

T5XC1H 


BUF2 



SAVE FI MAU 'RETURN FOK^KT^UCMAN? 


?J613 LAST 1411 07,363 1 ’ T‘0006 1 CS RTBANK 

06W PFF 22^ "last 1433 P7 r??.4T5 7 5023'1 MASK^ SEVEN 

06TS RFF 6 LAST 14A2 07,3641 27*326 6 ADS ATTCADR +1 


0642 

”R EF 

2 8 

LAST 1218 

07.3642 

^ ”016 7 

1 

CA 

“PR'inFfTY 


0643 

REF 

5 

c. 

LAST 202 

07,3643 

7 7674 

1 

MASK 

PPI037 


0644 

REF 

2 

LAST 418 

07,3644 

55'3?7 

1 

”TS 

ATTPRIO 

SAVE users PHIO 











0645 2 

RFF 

1 


07,3645 

3 365) 

0 

Caf 

KALEBCON 

SET E8ANK FOR KALCMAN3 

06453 

REF 

63 

LAST 1435 

07 ,3646 

54 003 

0 

TS" 

6 BANK 


0 6 V 5 4 

RER^ ■ 

-5-9- 

LAST' 1397 

"073 "4Tm 

0 

TC 

P OST JUMP 


0645 5 

REF 

1 


07,3650 

44000 

1 

CADft ■ 

K ALCMAN3 


0645 6" 

””Rrr“ 

T6“ 

T71ST 4TT“ 

07,3651" 

" T13T6r” 

IT 

KALEBCON ECADk 

BCDD 

, ^ — ... ... . . — — - ^ — — , , - - „ ■ , ^ 




^ 9 
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L 

I MU MODE SWITCHING ROUTINES 

USER'S PAGE 

NO. 24 

E3 S3 



P 0646 

PROGRAM DESCRIPTION 





R 0647 

TMH STATUS CHECK ROUTTNE R02 (SUBROUTINE UTILITY) 





R064« 

f-IGD NO - 1 





R064P 

MOD BY “ N.BRGDEUP 





R0650 

FUNCTIONAL DESCRIPTION 





R0651 






P0652 

TO CHECK WHETHER I MU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN 





R0653 

ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE 





R06‘"i4 

PROGRAM IF THE IM'J IS OFF OR NOT ALIGNED TO AN ORIENTATION KNOWN BY THE 





R66'i5 

CMC. CALLED THROUGH BANKCAl L 





R0656 

CALLING SEQUENCE- 





P0657 






R06SB 

L TC BANKCALL 





R066'P 

L+1 CAOR ROPBOTH 





R0660 

SUBROUTINES CALLED 






R0-S61 


R0662 VARALARM 



R0663 

FLAGIJP 





R0664 

NORMAL EXIT MODES 





R0665 






P06o6 

AT L+2 OF CALLING SEQUENCE 





P0667 

ALARM OR ABORT EXIT MODES 





R0668 

GHTOPOnH* WITH ALARM 





R0673 

ERASABLE I NIT I All 2 AT I OM REQUIRED 





R0674 






— 

N'.)NE 





— c^M76 

DEBRIS 





mm 


!' 


R0678 ■ 

central^ 

-A,O.L ■ 








UhT^ 




34 , 3763 



BWK 

34 


_ — . , ■ ■ J — III ■ » 1— '■ - " — — - -■■■ 1- W ■ . - ■ ~ ■ - - - - , 


— PTF 

T 


07 1 7000“ 



STTTDC 

FO? 



On 81 




Q7,’3b62 



BTINK' 




06f52 

TFT 

T" 





COUNT 

04/R 0 2 


C OUNT ^ 












06B3 





U()U6s 1 

DEC 51 

DEC 

5 1 



06 84 

REF 

54 

LAST 1433 

07,3653' 

3 5003 1 

R 02 BOTH 

CAP 

BI T13 



06B5“ 

FTfFF 

33 

XAST~TT98 

“OTG 3654 

/ 00 6/ 0 



STATE +3 


— - ^ ^ = = 1 ■ - . .. . ■ ■ » . ■. M • 1 

Ob 

RTT“ 

^TR4 

T.A5T TAAT 

0 7.3 65F" 

"TIF O OT 0 


TXF^ 

A 



06 '■ i' 

— RTF 

T~ 

LAS 1 — rsi — 

07,3656 

0 36 5'7' 0 ■ 


TC 

R 0 2 7 E K U 


1 E Rtj I MUS 

^ ^ *i . , - 1 M 1- III 1 ■ iiMi ■■ " ^ M — — J ^ -1— -j — V - 

06 33 


— 63— 

“LAST 143 3 — 

— 07. 365T 

“3“1320 1 


un 

I PRUDES 3U 



06 80 

— RFF 

— 37^ 

LAST 143/ 

07,366(r 

f bOO/ 1 


maSk 

6 I TO 


IS iSS INM IALIZEO 

0690 




U I, 3661 ■ 

0 0006 1 


EXTENT! 




0610 




(■)7,36"57 ” 

~rTr56A 1 


"BTF 

+2 



Ob7Z“ 

— RTF 

— 45“ 

LAST 1435 

0 f j “i 6 6 3 

4 5014 0 


c s 

B I T 4 


SEND 1 MU ALAKM CLIDE 2 lU 

0693 

P FF 

1 


07 f ? 6F4" 

6 3672~1~ 


AD 

□CT220 


SEND REFSMM ALARM 

0694 

RFF 

4“ 

tATI 9QXr 

07. 3665“ 

■ 0 5T6A I 


TC 

V ARAL ARM 




OTT'^ 

TFF 

TT 

LAST TOO — 

■ 07.3666" 

“Tr'4106 T“ 


TCT 

UUTUKUUH 





I 
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L 

IMt) 

MODE 

SWITCHING 

ROUT INtS 






USER'S PAGE 

N0« 25 E3 S3 















0700 

REF 

5 3 

LAST 1360 

07.3667 

0 5546 

0 

R02ZER0 

TC 

UPFLAG 




0701 


4 

LAST 427 

07,2670 

00007 

0 


ACRES 

I MUSE 




0702 

R cF 

10 

LAST 1420 

07,3671 

1 4675 

0 


TCP 

SViRETURN 




0702 5 




07, 3672 

00220 

1 

nCT220 

ncT 

270 



■ ■ ■ - — 















4 

H 
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L 

I MU MODE SWITCHING ROUTINES 

USER'S PAGE NO. 26 E3 S3 








D0703 

PROGRAM OESCRIPTION P06 10FEB67 





R070^ 

TRANSFER THE ISS/CMC FROM THE OPERATE TO THE STANDBY CONDITION. 





S0705 

THE NORMAL CONDITION OF READINESS OF THE GNCS WHEN NOT IN USE IS 

STANDBY. IN THIS CONDITION THE IMU 



R0707 

HEATER POWER IS ON. THE IMU OPERATE POWER IS OFF. THE COMPUTER POWER IS ON. THF OPTICS POWER IS OFF. THE 



R0707 

CMC STANDBY ON THE MAIN AND LEB OISKYS IS ON. 





RO'^l 0 

CALLING SEOUENCE: 




R071 1 

ASTRONAUT PP^QUFST THROUGH OSKY V37E 06E. 





R0712 

SUBROUTINES CALLED: 




RO''13 

GOPFRFT 




R0716 

BANKCALL 




R0719 

FLAGDOWN 
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1 I MU MOnF SWITCHING ROUTINES 

USER'S PAGE 

NO. 27 

E3 S3 


PC810 

PRFSTAND 

PREPARES 1 

FOR STA'MORY 

BY SNAPSHOTTING 

THE 

SCALER AND TIMEl 

TIME2 



R0811 

THF 

nw 

5 BITS OF 

FHE SCALFR 

ARE INSPECTED TO 

INSURE C0*1PATAaiLITY 




90312 

B t T W 

FEN 

THE SCALER 

PEALUNG AND THF TIMEl TIME2 

READING. 






0312 5 

9FF 

1 


?6f 2000 




SETLOC 

P05P06 




0R12 6 




26,3660 




BANK 


















0813 

REF 

3 

LAST 208 

1150 




EBANK= 

TIME2SAV 




on 14 

P^EF 

1 






COUNTS 

$$/P06 

















oai4S 

9FF 

56 

LAST 1444 

26,3660 

0 5546 

0 P06 


TC 

UPFLAG 

SET NODOVS? BIT 



0 8146 

REF 

3 

LAST 1314 

26, 1661 

00054 

0 


AORES 

NnOQFLAG 





0815 




26,366? 

0 0004 

0 PRESTAND 

INHINT 





0 816 




26, 366'3“ 

0 o6o '6" " 

1 


EXTEND 





0817 

REF 

31 

LAST 1418 

26,3664 

3 0025 

0 


OCA 

TIME? 

SNAPSHOT tlMElTIME? 



0818 

REF 

4 

LAST 1446 

26,3665 

53*151 

1 


nxcH 

TIMF2SAV 




0810 

REF 

1 


26,3666 

0 3717 

0 


TC 

SCALPREP 




0820 

REF 

1 


26, 3667 

0 3662 

0 


TC 

PRESTAND 

T1,T2, SCALER NOT COMPATIBLE 



0821 

REF 

686 

LAST 1431 

26,3670 

52 155 

1 


DXCH 

m^ac 

T1.T2 and scaler 0\C 



0822 

REF 

1 


2 6,3 6 7 1 

53* 153 

0 


DXCH 

SCALSAVE 

STORE SCALER 



0823 




26,3672 

0 0004 

0 


INHINT 





0324 

rTT” 

244 

LAST 1066 

26,3673 

0 4662 

1 


TC 

BANKCALL 




0825 

REF 

3 

LAST 154 

26.3674 

17060 

1 


CADP 

RNOREFDR 

REFSMM, drift, TRACK FLAGS DOVLN 




0826 

REF 

60 

last 1 3 ITT 

76776 75 

' 0 

T 


TC 

DOWNFLAG 




0827 

REF 

5“ 

LAST 1444 

26,3676 

00007 

0 


AORES 

IMUSE 

IMUSE DOWN 



08771 

RFF 

61 

LAST 1 44 6 

26,3677 

0 5560 

1 


TC 

DOWNFLAG 




08272 

R EF 


LAST BT9 

26 , aTOTT 

00010 

0 


AORES 

”RRT5V Z FI G 

RNDV2FLG DOWN 




0828 

REF 

36 

LAST 1422 

26,3701 

3 5005 

1 


CAT 

BTTll 




0829 




26,3707“ 

”TrOT5T6 

1 


EXTEND" 





0830 

REF 

14 

LAST 1098 

26,3703 

05 01 3 

0 



CHAN13 

SET STANDBY FNABLF BIT 




“'0831 

"“EFF^ 

roT 

“TXST~r4W 

■ 77^ , JTO^ 

” 0 54'l?”n 


Ti: 

PHASCHNG 

btl KtblAKl 1U KU6IANU WMtN blATNUOT 



0832 




26,3705 

070^4 

0 


OCT 

07024 




0333 




76,3706 

?ouno 

0 


OCT 

20000 




083 3 5 

REF 

2“ 

LAST 1446 

1 1 57' 




tbamk:= 

SC AL5 A VF 




0834 

REF 

1 


26,3707 

03737 

1 


2CA0R 

POSTANT) 




083^+ 

XET' 

r 


?F73Tlu 

5407>7 

1 







0HT5“ 

RFF“ 

1 


?A, '371 1 

3 5036 1 


CAF 

DCT62 




0 33 6 

RFF 

245 

LAST 1446 

26,3712 

“OTTrSTT" 

T 


TC 

BaNKCaLL 




0 33 IT' 

RTF” 

W~ 

LAST 782 

2 6 , 3 7 1. 3 

“'7T1545 

0 


CAOTT 

GOPERFl 




15(53^ 




76,T714 

1 3711 

“I 


TCF 

-3 




083 ' 




26,3715 

1 3711 

1 


F 

— 4 




0840 




26,'rrr6- 

~r 3TTT' 

T 


TCT 

-5 

















08805 

“TEF- 

9 

LAST 1066' 

5TT7F“ 


ocTvr 


EQUALS 

. 5 5 F C 

DEC 50 — Ut^l 62 




R 0 8 4 1 

’■'THF' 

LTilF 

‘E”-B1TS'TTF" 

THE SC'iL T. 

R E A O'S rfronO -FOR THF 

FIRST INTERVAL AFTER A 
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L 

IMtj MODE SWITCHING ROUTIME 

S 


USER’S PAGE 

NO. 28 

E 2 S 3 




R 0842 

Tl INCREMENT. IF SCALPREP 

DETECTS THIS INTERVAL THE 

T 1 ,T 2 AND SCALER 






R 0843 

DATA ARE NOT COMPATABLE AN 

0 RETURN IS TO L +1 FOR ANOTHER READING OF THE 






R 0844 

DATA. OTHERWISE, THE RETHR 

N IS TO L +2 TO PROCEED. ROUTINE ALSO PREPARES 






R 0845 

THE SCALER READING FOR COMPUTATION OF THE INCREMENT 

TO UPDATE T 1 T 2 . (THE 






R 084 S 

10 MS RTT (BIT 6 ) OF THE SCALER IS INCREMENTED 5 MS 

OUT OF PHASE FROM 






R 0847 

Tl.) ADDITION OF 5 MS (BIT 

5 ) TO THE SCALER READING 

HAS THE EFFECT OF 






R 0848 

ADJUSTING BIT 6 I THE SCa 

LER TO BE IN PHASE WITH BIT 1 OF Tl. THE LOW 5 






R 0849 

BITS OF THE SCALER READ INC, 

ARE THEN SET TO ZERO. TO 

TRUNCATE THE SCALER 






R 0850 

DATA TO 10 MS. RESULTS ARE 

STORED IN MPAC, + 1 . 








08 S 1 

085 ? 


REF 687 LAST 1666 


2 b . ?71 7 
26 , H 720 


0 0006 

22 156 


SCALPREP EXTE ND 

OXCH 


MPAC 


0853 


REF 


3 LAST 631 


26,3721 0 6556 1 


TC 


FINETIME ♦! 


0856 


0855 


REF 688 LAST 1667 


26.3722 

26. 3723 




0 OOP: 
5 ? 155 


RELI NT 
DXCH 


MPAC 


0 B 5 & 


0857 

035 8 


RFE 39 LAST 1428 

^ LAST 1434 
LAST 1441 


26*3724 3 5013 0 


CA 


BITS 


ADD 5 MS TO THE SCALER READING. 



138 

274 


26 » 3725 

26, 3726 


54 OQI 1 
3 5021 1 




085 9 


RFF 689 LAST 1447 


26,3727 20 155 1 


DAS 


MPAC 


0860 

0061 


0 36 



LAST 362 
LAST 1447 
691 LAST 144 T 



26.3730 

26.3731 

26.3732 


4 43 62 0 
7 0155 1 


56 155 0 


MASK 


LOWS 

MPAC 

MPAC 


+ 1 
+T 


SET LDW ~5 BITS OF (SCALER+ 5 MS 1 TP 
AND STORE RESULTS IN MPAC,+ 1 . 


I ER □ 


MASK 


CUWT 



ruw 



FOR THE 



VJ < ‘ O 3 

A 0864 


H.JP " 


w T ^ 1 ^ 




■ - ..■■■■ 




A 0 865 









(NOW = 00000 , SINCE BIT 5 ADDED). 



0 866 

k E F 3 8 5 

L AST- 

1443 ' 

26 ,TT 3 ^ 

10 000 

n 

CCS 

A 

IS IT 1 ST INTERVAX. AFTER Tl INCREMENT 



0 86 ' 7 “ 

RFF 692 

LAST" 

1 44 7 

~~Ib7TnT~ 

24 156 

T) 

rronr" 

MPAC +2 

NO 



0368 

RTHF 

UAST” 

- T 475 .T " 

2 b, 57 T 5 “ 

0 0156 

0 

— nrc 

MPAC +2 

YES 

- 






rosttf 


POSTANi'r'PECnVERS TT'^iC AFTER STANDBY .THF“ SCALER IS SNAPSHOTTED A 
TIM E T TTMF 2 ' " ' C TTDT^TER f'^'SET TTTlTkO., THF LOW 5 BITS OF THE SCAtTF 




10872 


HvI^T^CT EnrTD~THS^HR E C OM P A TAB TUTTY BETWEEN' 
CLEARrKl'O’ OF THE TIME CUU’ 3 TER. IT TH^N 


COMPUTES 



AND THE 
:F IN SCALER 


■R7J8TT 


TTUEST i I N DPI" AND ADO’S" TOT S TH THE pR tV I OU^TT SNAPSHOT! E U VALUES 1IF~ 
r“TTMrZ~lLHirT^LACES THrS^OTEH' riHh INIU the TlMEl” TIME2 



Cr8T5 ITEF 


T 


COUNT* $$/PD 5 


I 


D’HTtT" 

— irFF” 

3 / 

LAsi rzpir^ 

26,3 M f 

4 5005 

~ir~ 

PUS (AND — TS 

B 1 Ui 

RECOVER I IMF AF 1 EH SIANUBY. 

OH f f 




f 60 

0 0006 

1 

EXIbNir 



0873 

RET“ 


L A 5 T 'T 445 

26 .Bf 61 

03 013 

3 T“ 

WAND 

XHANl 3 — — 

CLEAR STANDBY ENABLE Hll 






26,3747 

0 0006 " 

15 “ 

aL T ^ ^ 1 JL I V * 



0880 ' 


775 - 

— LTTST T 44 T 

“F 6 TTT 43 -“ 

"3 5 IT 2 Tr 

nr 

”C 7 r” 

ZERiT" 


08 ST" 


“TTASr ■FfRfT 

7673744 

■ 54 'TJUr 

“T“ 

nn 

T 


OB 5 2 " 

REF" 

— 57 “ 

LAST 1666 ■ 

26,3745 

5 ? "O'ZT 

T" 

DXC H 

Tl ME 2 

CLEAR llMEillMt 2 

0'8 33 ” 

RTTF” 


— LAST 166"6 

■ 34737463 " 

TT JTTLT 

“TT" 


SC ALPKt P 

STUKb SCALER IN MPAC, MrAC +1 

0834 ” 

REF” 

■ — -2 

TA ST ”1444 

26 , 3767 — 

ir 374 Z 

0 “ 

TC 

PDSTAND +3 


OSTP?" 




26 , ' 5 '/' 5 ’ii — 

0 0006 " 

“T” 

FX 1 END" 


Tlf IZ ANU 5 >LALtK UK 

CTFH 77 ~ 

RFF 

' 3 

LAST~Ti 66 T 5 “ 

2 *^ , 3 7 : 5 1 

61 ' 1153 

or- 

"DCS 

SC ALSAVF 


0837 


674 

■” T:A 4 F 1447 

“2473737 

30 1-55 

ir 

DAT 

MPAC 

FORM or DIFFERENCE XF POTTST MD 
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■fuVlVN 




0883 


0889 


0890 

0891 


089? 


0893 


089^ 


0398 

0396 


0897 


0898 

0899 


0 900 


0903 


IM!.I MOOf^ SWITCHING ROUTINGS 


REF 


LAST 1435 


26 • 3 


3 5006 1 


REF 


R.FF 276 
REF 695“ LAST 144 7 


26,3756 


156 


REF 12 LAST 1430 


26,3757 0 7226 0 


REF 696 LAST 1448 


26, 3760 10 154 0 


i?FF 


26.3761 0 3766 0 


REF 


LAST 1448 


26. 3762 

26. 3763 


3766 0 
3764 1 


REF 47 "LAST 1448 


26.3764 3 5006 1 


REF 697 LAST 1448 


26.3765 

26.3766 


26 154 
0 0006 


TT^ 


29 






MPAC 



TC 


CCS 


TPAGREE 

MPAC 


TC 


PnSTCOM 



PnSTCOM 



zw 


BITIO 


POSTCQM 


ADS 
EXTEND 


MPAC 


REF 


LAST 1446 


76 7 


1151 


DCA 


TTME2SAV 


0904 
09045 


REF 699 LAST 1443 

LAST 1447 
LAST 1446 


26,3772 








26. 3773 

26.3774 


20 025 1 
0 5560 1 



09046 REF 


4 LAST 1446 


26,3775 


00054 0 


TIMET 
DOWNFLAG 
ADRFS NGOOFL A<5 



NEFDED FOR TP AGREE 
MAKE DP 0 IFF AGREE 


IF DP DIFF NET +. NO SCALEP OVERFLOW 


"girrwFFN pw^i^cr^pyr TtmPBY. 

IF DP OIFF NET SCALER OVERFLOWED. 


Too 


BIT 10 TO HIGH OIFF 



C(MPAC.+1) IS MAGNITUDE OF DELTA SCALER. 
PRESTANOBY TIMEITIMEZ 



D3CT~UPDATET^ 
LEAR NODOFLAG 



WTTR 


0905 


REF 74 LAST 1443 


26.3776 0 4106 1 


rz 


GOTOPOOH 












>« • 


— — — — ^ 
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L 

KEYRUPT, UPRUPT 


USER'S PAGE 

NO. 1 EO S3 


0001 

14.3761 

BANK 14 



0002 

REF 1 07,2000 

SETLOC KEYRUPT 



0003 

07,3673 

BANK 



0004 

REF 1 

COUNT=«' $$/KEYUP 




0005 

REF 

25 

LAST 

1232 

07, 3673 

54 016 

1 

KFYRilPTl 

TS 

BANKRUPT 


0006 

REF 

332 

LAST 

1438 

07,3674 

56 002 

0 


XCH 

0 


0007 

REF 

20 

LAST 

1232 

07.3675 

54 012 

0 


TS 

QRUPT 


0008 

RFF 

2 

LAST 

356 

07, 3^76 

0 4414 

1 


TC 

LOOSAMPT 

TIME IS SNATCHED IN RUPT FOR NOUN 65. 

0009 

REF 

11 

LAST 

1 44 7 

07, 3677 

3 4362 

1 


CAF 

L0W5 


0010 





07.3700 

0 0006 

1 


EXTEND 



0011 

REF 

2" 

LAST 

190 

07,3701 

02 015 

1 


RAND 

MNKEYIN 

CHECK IF KEYS 5M-1M ON 

0012 

REF 

h 

LAST 

1411 

07.3702 

54 073 

1 

KFYCOM 

TS 

RUPTRFG4 


0013 

REF 

11 

LAST 

698 

07.3703 

4 0101 

0 


CS 

EL AGW9D5 


0014 

RFF 

53 

LAST 

142.8 

07,3704 

7 5001 

1 


MASK 

BIT15 


0015 

RFF 

12 

LAST 

1449 

07, 3705 

26 101 

0 


AOS 

FLAGWRD5 














00l6 

LL 

UJ 


LAST 

1204 

07,3706“ 

3 4371 

0 

ACCEPTUP 

CAF 

CHRPRin 

(NOTE: RUPTREG4 = KEYTEMPIJ 

0017 

R b; F 

33 

LAST 

1419 

07,3707 

0 5134 

1 


TC 

NOVAC 


0018 

RFF 

66 

LAST 

376 

0777 




EBANK= 

■OyPtOUNt 


0019 

RFF 

1 



07, 3710 

02000 

0 


2CADR 

CHAPIN 


0019 

R t F 

1 



0/,3Vll 

601T1T 

1 





OOTTy— 

REF“ 

f 

TTTTT 

1449 

0 T • T ], Z 

3 0073 

TT 


CA 

RUPTR EG4 


0021 


24 

LAST 

143^ 

OT.iT’n 

50 G6A 

0 


INDEX 

LOCCTR 


0022 ■ 

RFF 

'TW 

TXSJ- 

1443“ 

— 07.3714 

54 154 



TS 

MPAC 

LEAVE 5 BIT KEY CDE IN MPAC EUR CHAKIN 

0023 ■ 



XirST 1099 ■ 

" OTt-TTIF* 

0^33T 

“T” 


TC 

RESUME 
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L KEYRUPTt UPPUPT 

USER'S PAGE 

NO. 2 

EO S3 


P00?4 UPRUPT PROGRAM 





0025 

REF 

26 

LAST 1449 

07,3716 

54 016 

1 

UPPUPT 

TS 

BANKRUPT 


0026 

Q rjr 

333 

LAST 1449 

07,^717 

56 002 

0 


XCH 

0 


0027 

PEF 

21 

LAST 1449 

07,3720 

54 01? 

0 


TS 

QRUPT 


0023 

REF 

3 

LAST 1-149 

07, 3721 

0 4414 

1 


TC 

LODSAMPT 

TIME IS SNATCHED IN RUPT FOR NOUN 65. 

0029 

REF 

277 

LAST 144P 

07,3722 

3 5021 

1 


CAF 

ZERO 


0030 

REF 

2 

LAST 19? 

07,3723 

56 045 

0 


XCH 

INLINK 


0031 

Rl-F 

2 

LAST 132 

07. 3724 

54 0 73 

1 


TS 

KLYTEMPl 


0032 

REF 

34 

LAST 1395 

07 , ^ 7 2 5 

3 5015 

0 


CAF 

BIT3 


00 3 3 




07, 3726 

0 0 006 

1 


EXTITNIT 


(BIT 3 OF CHANNEL 11) 

0034 

REF 

34 

LAST 1438 

07, 3727 

05 011 

1 


WOR 

DSALMCUT 


0035 

REF 

12 

LAST 1449 

07,3730 

3 43 62 

1 

UPRPTl 

CAF 

Tow? 

TEST FOR TRIPLE CHAR REDUNDANCY 

00 36 

RFF 

3 

LAST 1450 

07,3731 

7 0073 

i 


MASK 

KEYTEMPl 

L0W5 OF WORD 

0037 

R fc: 

4 

LAST 1450 

07.3732 

5o 079 

0 


XCH 

KFYTEMPl 

LOWS INTO KEYTEMPl 

0033 




07,3733 

0 0006 

1 


EXTEND 



0039 

REF 

48 

LAST 1443 

07,3734 

7 5006 

0 


' MfT 

BITIO 

SHIFT RIGHT 5 

00 40 

P FF 

1 


07.3^35 

54 734 

0 


TS 

KEYTEMP2 


0041 

REF 

13 

LAS T 1450 

07,3736 

7 4362 

0 



LOWS 

MIO 5 

0042 

ITeT" 

1 


07,3737 

6 3773 1 


AD 

HI 10 


004 3 

REF 

1 


07,3740 

0 3770 

1 


TC 

UPTEST 

, _ — ■ — ■ ■ - — - ■ - -- ... II ■ - 

0044 

REF 

40 

XASr 1450 

07,9741 

3 5006 

1 


CAF ■" 

BITIO 


0045 




07, 3 74X 

0 0006 

X“ 


EXTEND 



0046 

RFF 

2 

LAST l-iSO 

07, 3743 

7 0734 

0 


MP 

KEYTEMP2 

SHIFT RIGHT 5 

0047 

r^f 

14 

last 1450 

517,3 744 

■ 7X36X 

0 


“MASK 

TOWT 

HIGH 5 

0043 




T7X3 74y 

"4"X50a* 

0 


COM 



0 04 3 

KEF 

? 

LAST 1450 

07, 3 746 

0 3770 

1 


TC 

UPTEST 



0TT533 


■“T 


— or, 3 747* 

■ X 3776 

X" 

UPOK 

CTS^ 

bLKLUOt 

L fJ LI t lb bU UtJ« 11“ LUUt “ 'tKKLtK Ktbtl'* 

0031 

REF 

5 

LAST 1450 

07, 0 50 

6 007*5 

0 


AD 

KEYTEMPl 

CLEAR UPLOCKFLISET SIT4 OF FLAGWRO? = 0) 

003^' 




07 , 3751 

“XXW6- 

"1 


EXTEND 


XXCnUF DOES NUT = »ERRUR KFSEI", "ACCEPT 

0053 

" R il F 

“r“ 


0T7T757" 

1 TTS^or 

x~ 


“'FZF 

CLUPLOCIT 

CODE ONLY IF UPLOCKFL IS CLEAR (—0). 












00"^ 4 

- TTpp 

*46“ 

X;AFTX^44T~ 

— DXTT5X 

3 5014 

X“ 


C Ah 

t5 1 1 4 

TEST UPLOCKFL FOR 0 OR 1. 

005 5 

RT- F' 


LAST *F2T* 

07,3754 

^ 0103 

nr“ 


MASK 

FLAGWRD7 


0056 

wet- 

3 86 

last 1447“ 

— (jTTTTTT 

10 000 

0 


(XS 

A 


005? 

“RFF" 

4'’ 

LAST "144*7“ 

07, 375X 

0 *5333 



TC 

RESUME 

UPLOCKFL = 1 

0058^ 

“ RFF 

] 


(T7 ,3757 

0* '37^4 

0 


XC 

■ AXTTET'TUP^ 

UPLOCKFL = 0 



"■R^EF 

47 

LAST 1450“ 

“ 07, 3 760 

X^5T)T4* 

Tl'- 

CTUXDCITXS" 

BIT4 

CLtAR UPLUUM"L btl t311^ Uf* 

OObTP 

RFF 

70 

1 ATI — [*450“ 

— 07*, "3761 

7 OUTTX 


MASK 

FLAGWRD7 

FL AGWKU f ~ 0 ) 

00^1 

— 

'21" ■ 

last K50'" 

— 07,3762 

54 103 



TS 

F* L DY 




RFF 

7"* 

LAST 1450 

“OTTTTFT 

0 3706 

0 


~rc 

ACCtPTUP 



A00b3 










LODE 15 T^AD 

0064 

RFF“ 

Z7“ 

TffSI 145U 

07TT7W 

4 0103 

X“ 


! (TS 

h L A G W K D 

LUCK UUl FUKIHER UPLINK ACTIVITY 

0TT6'5“ 

'’■ E F 

4^7“ 

XASXTXJO— 

0 ^,3/66 

— r‘50T4 

0 


MASK 

B T 1 4 

rSY^ SETTING UPLOCKFL = 11 UNTIL 

0066 

RTF- 


LAST 145'0"' 

— rrmTFF 

— 26 103 

X“ 


ADS 

FLAGWHO ( 

■ EKKUK KEbtr* lb bENI VIA UPLINK. 

006 J 

iRFF^ 

*50“ 

LAST 1450 

^TTTTFT 

D~533T 

X“ 


IC 

K b S UM t 


006'^~ 

RFF" 

tt 

X AST r45U“ 

07,3770 

6~ OOTT 

"TT 

UPTEST 

"XD 

KEYTEMPl 
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L 

KfiYKUPT 

, tIPRUPT 





USER’S PAGE 

NO^ 3 

EO S3 





00/0 

REF 387 

LAST 1430 07.37/1 

10 000 

0 

CCS 

A 







0071 

RFF 1 

07,3772 

0 3764 

1 

TC 

TMFAIL2 







0072 


07, 3773 

77740 

1 HIIO 

OCT 

77740 







007 7 

REF 2 

LAST 1451 07.3774 

0 3764 

1 

TC 

TMFAIL2 







0 0 74 

REF 334 

LAST 1450 07,3775 

0 0002 

0 

TC 

Q 




















OO?'^ 


07*3776 

00022 

1 ELRCOOE 

OCT 

22 




















R0076 

' UPLINK 

ACTIVITY LIGHT* IS TURNED OFF 

BY 









R0077 


l. VRRFLOSP 











R0073 


2. ERROR RESET 











P 007 


3. UPDATE PROGR 

AM(P27) ENTERED BY 

V70, V71 

,V72,AND V73. 








R0060 - 

fj 0 5?n THF RECEPTI'''N OF A I3AO CUDtn.S CCC FAILURFl LOCKS OUT FURTHER UPLTNK ACTIVITY BY 3’FTTING BlT4 dF FLAGWROf = TT. 

R0083 'rTTT3~TMiTrC ATI'nN WILL BE TRANSFFR'R'Er) TO THE CftOUND BY THE nrjWNLINK WHICH DOWNnNICS CT-L FLAGWORDS. 

SOOSS WHrN UPLINK ACTIVITY IS LOCKED OUT .IT CAM DF ALLOWED WHEN THE GROUND UPLINKS AND 'ERROR RESET* CODE. 

fioOH7 (t T r s R 'eUnWETTOFr THAT THE ■'ER'lTCrT! LIShfrPFSET'* COOF IS PR'ECEFOEO BY 16 Bits The FIRST GF WHICH IS I FULLUWhO ' 

BT T?' ZEROES. THT^~~WTX^FirP^TTraTT=~TXT]^7WFOaS RITS'FFFDM rNnrm^^ HAVE BTEI^ LhFT OVEPTFROW THL ciklGINAlT 

ROO'H FAILURE) ~ ~ ~ ~ 

TTTTOTT 'JPTTNK ACTIVITY TS ALSO A1 roWED (UNLOCXFUT DURING FRESH START WHtN TFESH STAR I SETS BlT^i OF FLAGWRD7 = 0» 
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L 

DISPLAY 

INTERFACE RO'JTINES USER'S PAGE 

NO. 1 

EO S3 


ROOOl 

DISPLAYS CAN 3E CLASSIFIED INTO THE FOLLOWING CATEGORIES- 








R0002 

1. • 

PRIORITY DISPLAYS- DISPLAYS NHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY 

THESE DISPLAYS ARE SENT 

P0004 


OUT UNDER CRITICAL ALARM CONDITIONS. 



ROOOS 

?. 

EXTENDED VFRH DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED 

VERB (MARK) 

DISPLAYS. 

R0007 

3. 

normal DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT 

DURING THE 

NORMAL 

R0009 


SEQUENCE OF EVENTS- 



ROOIO 


Misc. DISPLAYS- ALL DISPLAYTnOT HANDLED BY THE DISPLAY InT^RFACERODTIWES. 

INCLUDE SUCH DISPLAYS AS 

R0012 


MM DISPLAYS AND SPFCIAL PURPOSE DISPLAYS HANDLED BY PINBALL. 






1 1 11 — -■» ■ I ■ ■ ■ ■■ M ■ 1 1 . u- 



ROOl 3 

5. 

ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY. 



R0014 

THE FOLLOWING TERMS APS nScD TO 0ESCRI3E THF STATUS OF DISPLAYS- 




ROOln 

1 , 

ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR 

A RESPONSE 

OR 

R0017 


(2) WAITING FIRST IN LINS FOR THE ASTRONAUT TO FINISH USING THE OSKY OR (3) BEING 

; DISPLAYED 

ON THE DSKY 

R0019 


BUT MOT WAITING FOR A RESPONSE. 



R0020 

2. 

INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS I NTERRUPTEDBY A DISPLAY OF 

HIGHER PRIORITY, 

R0022 


(2)' RFEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIOHIT 

Y DISPLAY 

R0024 


WAS ALREADY GOI’lG. (3)^EEN IMTERRUPTFD BY THE ASTRONAUT TCALXED A PTNBRANCH XUNDTTTON, STTTC 

E THIS TYPE 

R0026 


OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINIS 

.HED but still 

R002P 


HAS IN^O SAVED EnR-^TFSTAkT PURPOSES. 





P00P9 

OISPLAV 

' PRIOR I TIES WUPK AS FOLLOWS- 








R0030 

INTERRUPTS- 



ROn31 

1 . 

THE ASTROn-ATIT can interrupt any DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. 


_ . .. _ -- . LJ ^ 1 ^ j m ^ ^ ■ ■ I Ml ■ - ■ - • • 

RO033 

2. 

internal DISPLAYTTA'N^i^T BE SENT OUT WHETF THF A'STP“DHA1JT IS USING THE USKY. 



R003S 

3. 

PP’rORT tv DISPLAY S"lNTrRROPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPUNG ANUIHtK 

ROOJT 


PRIORITY DISPLAY WTLITTAUSE A NITB OPT UNLESS BIT14 IS SET FOR THE LINUS HUUilNE. 



muTT 

4." 

A MARK DISPLAY INTERRUPTS AMY NORMAL DISPLAY. 



R0040 

5. 

A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES TT; 




P0041 

n RO 

rTrF"ir«iTiNG oi'splays-' 



ROO^+2 

1. 

ASTRONAUT EXTERNAL USE 



P 0043 


PRTORTTY 



R C 


INTERRUPTED MARK 



R0045 

4, 

INTERRUPTED NORMAL 





5“. 

MARK TO 30 RETTIIFSTOD (SEE DESCRr'PTIGN OF ENDMARK) 



R0047 

6, 

MARK WATTING 





mRmi WAITING 
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L DISPLAY INTERFACE ROUTINES " ~ USER*S PAGE NO, 2 EO S3 

p 0 049 THE OISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERF ACE BETWEEN THE USER AND PINBALL* THE 

R0051 "FOLLOVTinG SlTATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY OISPLAYS (A OFSCRIPTION OF MAPK ROUTINES 
RQ033 NILL FOLLOW LATER): 

P0054 n ALL ROUTINES THAT END IN P HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN 

R0056 IS TO THE USERS CALL CAOR +4, FOR THE ONLY NON FLASHING IMMEDIATE RETURN DIS PLAY (GODSPR) THIS RETURI^ 

R005T IS TO THE USERS CALLING LOG +r. 

R0059 2. ALLROUTINES NOT ENDING IN R "DO NOT DO AN IMMEDIATE RETURN TO THE USER. 

p 0 d'sl Y. AM ROUTINES THAT END IM R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY. 

P0063 Y, ALL ROUTINES MOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE OISPLAYS A PART OF THE 

RQ055 USERS JOB 

R00n6 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL, 

roost 6 . to" RESTART A OIS^^LAY THE USER WML GENERALLY USE A PHASE OF ONE WITH DE SIRFD RESTART GROUP (SET 

P006^ DESCRI PTION OF RESTARTS). 

P0070 Tm ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESP ONSES. A TERMINATE (V34) BPANCHE 

POO 7 2 TO THE US^RS CALL CADR A PROCE^^ CVBBI BRANCRES TO THE USERS CALL CADR -*■2. AN ENTER OR RECYCLE" 

T0074 (V32l SRANCH»^S T^^ THE USERS C~ArL CADR +3 ~ 

■roots 3, AM ROUTINE'^MUST 3E USED UNDER EXECUTIVE CONTROLT 

RW76°~Aro^SirRIPTlQN OF each ROUT^LNE WiTH an EXAMPLE FOLLOWS: " 

ROOT? (vlD S^“rs nSED TfT OISPI-AY^TaT VTFB N0UN"~ARRI VING In a. no return IS made^^ the user 

P 0 079 1. GODSP IS NOT RESTARTABLE 

f(00'‘0 2Y1\ V^P"B“ PXS T F with GODSP ALWAYS TURNS ON THE FLASH. 

CAF vx )(wn 

A003? ~~ ^ BANKCALL 

A 0 "O'-n ladr~° ^ 

A00«4 ■ - VXXNYY 

RODRS T;rjDSPR~Tsrnn- same ast otjosp riNiTr x FruR~N is to 

T^OTTcT^ C7n= ^ VXXNYY 

AOQRT" TC ^ BANKCALL" 

^Q - Q -qr^ — — tiwehiate return of goost^u 

p OaO Tl GMF LAS H^ DTyPrXYS A FLASHING VERB NOUN WITH NO IMML’JiAlb kcTUkn iO ThE USER. 3 Ps*^T(JKNS ARE POSSIBLE FROM 

PTIU^ ~mF~X3T1^U NU. '^"AliUVb). ~~ 

I 

^ fj Q ,^3 — CTfF VXXNYY VXX NYY WILL Bfc A 1-LASHIN& VERB NOUN 

fl 0 y 4 A ~ ^ A LL 

— ^ — TERMINHTt RETURN 

A009T" ~ ~ ~ • » • » • • HRllChEO kfclURN 

— — ENTER UR RbLYCLt KbI 

p- n n^n nnPFP'FI T<^ F>tnT R F D W T in ~n FS T RTtr THFCKTTST^ AL rrE~~TM A . GOPERFT WTttrOISPCAT THIS VALUf^lN R1 BY MEANS OF A 
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L 

ni SPLAY INTERFACE ROUT INFS 



USER'S PAGE NO. 3 EO S3 


- — - — - - - — ■ ■■ — — — ■ J 1 ,,.— ,.r — 

Roior 

VOl N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( 

V50 

N25) IS THEN OISPLAYEO. NO IMMEDIATE RETURN IS MADE TO 


ROIO'^ 

USER (SEE NO. 7 ABOVE). 






R0104 

GnPERFl BLANKS KEGIST-RS R2 AND R3 






A0105 


CAF 

OCTXX 

CODE FOR CHECKLIST VALUE XX 


A 01 06 


TC 

BANKCALL 



Aon? 


CAOR 

GOPERFl 



A0108 


• • # 

9 m 0 

TERMINATE RETURN 


AOIO'^ 


« * * 

9mm 

PROCEED RETURN 


AOllO 


# « * 

m 9 9 

ENTEF RETURN 



Roin 

G0PERF2 IS ENTERED WITH A VARIABLE NOUN AND VOl 

( voo 

FOR NIO OR NllJ 

IN A. G0PERF2 WILL FIRST DISPLAY THE 


R0113 

REQUESTED NOUN BY MEANS OF A VOINYY OR A VOONYY, 

PLEASE PERFORM ON NOUN (V50 NYY ) THEN BECOMES A FLASH[NG 


ROllS 

OISPLAV. NO I«<MFDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 




R0116 

GOOERE? DOES NOT BLANK ANY REGISTERS 









— ■ * J ' ■ — . -1 - 1 ■ ■ ■ ^^11 • -3— J ■’ i A. ’V * » IK W ^ 


AOi 17 


CAF 

VXXNYY 

VARIABLE NOUN YY. XX=00 OR 01. 


A0118 


TC 

“B^NKCALl 



A0119 


CADR 

GnPERF2 



A0120 


m m m 

9 9 9 

TERMINATE RETURN 


A0121 


m • m 

9 9 9 

PROCEED RETURN 


A0122 


• • # 

9 9 9 

ENTER RETURN 


— = — -- --- -- ---_ — - ^ — - - — T T 1 T g II ■■ - M ■ ■ ■ M ■ mm ' ■ ^ gi^ 

R0123 

GaPERF3' IS USED FOR' A PlEASE PERFORM ON A PROGRAM NUMBER. IMF DESIRF 

D PROGRAM NO. IS ENTERED IN A. bUPEKhJ 


R0125 

DISPLAYS THE NO. PY MEANS OF A V06 N07 PQLLOWED 

BY A 

FLASHING V50 NOT 

FOR A PLEASE RERFORM. NO IMMEDIATE RETURN 


ROUT 

IS ^’ADE TO THE USER (SEE NO. 7 ABOVE). 






R0128 

G0PFPF3 BLANKS REGISTERS R2 AND R3 















A0129 


"CAF^' 

0 ECXX 

RtQUE ST 

PERFORM ON PXX 



A0130 


IT 

BANKCALL 





A0131 


■ ’ CAW 

GOP ERF 3 





AcrrT2~ 


9 9 9 

9 9 9 

TERMINATE RETURN 



A0 133 


9 9 9 

9 9 9 

f i . VJV# 

RETURN 



A 01 34 


9 9 9 

9 9 9 

ENTER RETURN 











R0135 

G0OERF4 IS USED FOR A '^LEASE PERF^B^ 

^ ON AM OPTION. THE DESIRED OPTION 

ISENTERED 

IN A AND ST UB ED IN UPllUNl. 




R 0 1^7 r-n p4 ATS~fn: MEANS "'OT V(JWa6 FOLLOWtU BY^ ^ FO^STTTT^T; V50W6 FOf^ A PLEASE F'FRFOTm, TTO 



R'OT^^r " T MM^'DI ATE^ f 

‘ W- 1 r * > 

TvT n; MADr'TO THE TJSFTTTFFE 

r Nn.~7 AFOVtT. 







AO 1 ^0 



XT AF 

TTCTXX 

REQUEST PEHPURM UN URf lUIN XX 




' A 0141 



nrr 

BANKCALL 





A014? 



CADR 

G0PERF4 





AO 143 



• ♦ « 

9 9 9 

TERMINATE RETURN 




— A 0144 



9 9 9 

9 9 9 

FTLOCeED keturtj 




A0133 



... 

9 9 9 

EN T EK KE T U Kf'! 




GAP: ASSEMBLE REVISION 055 OE AGC RPnGRAM COMANCHE BY NASA 20211.13-051 


10:28 APR. 1,1069 CHIEFTAN.028 PAGE 1455 


DISPLAY INTERFACE ROUTINES 


USER'S PAGE NO. 


EO S3 


R01V5 


Aurro 


AO 182 

A(T183 


A 01^4 

AOl j5 


A01H6 


TTOIcT 


R01^7 

GODSPRET IS USED TO DISPLAY A V^RB NOUN ARRIVING IN A 

WITH A RETURN TO 

THE USER AFTER THE DISPLAY HAS BEEN SENT 

R0149 

OUT. 




A0150 

■ ' " CAP 

VXXNYY 


A0151 

TC 

BANKCALL 


A0152 

CADR 

GODSPRET 






A0153 

• • • 

m m m 

RETURN To USER 


R0154 

■rTEGOOSP is I.J3ED Tr DISPLAY A VERB NOUN ARRIVING IN A. 

REGOOSP IS THE 

SAME AS GODSP ONLY REGODSP REPLACES ANY 

R 0 1 56 

ACTIVE NORMAL DISPLAY IP ONE WAS ACTIVE. 




AOl 57 

CAP 

VXXNYY 


A0158 

TC 

BANKCALL 


AOl 

^ CADR 

RFGODSP 



R0160 

REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES 

ANY ACTIVE NORMAL 

DISPLAY IF ONE WAS ACTIVE. 


A0162 

CAF 

VXXNYY 

VXX NYY WILL BE A PLASHING VERB NUUIM 

A0163 

TC 

BANKCALL 


A016A 

_ 

REFLASH 


A0165 

• • • 

m m m 

TERMINATE RETURN 

A01A6 

m m m 

m m m 

PROCEED RETURN 

A0167 

• # • 

m m m 

ENTER RETURN 





R0168 

GUFL ASHR I S "5AMF“A5 GOPL AS'R ONEY ATJ IMMcDlATTr RETURN 

TS MADE TO THE US 

ERS CALL CAUH +4. 


A 0 ITCT" 

— — 

VXXNYY 


AOl 71 

■ ■ ~ TC 

BANKCALL 


Kmrr 

— CADR 

GUFLASHR 


A0173 

« m m 

... 

TERMINAIt HblURN 

AOnV 

• mm 

• « « 

PROCbtU return 

IT 

1 

o 

m m m 

m m m 

ENTER OR recycle RETURN 


A'OlTo 

■ ■ . - - — »■ w— .-t ■' ~ I I I — » -> ■ 

m m m 

m m m 

IMMElJlAIE KttUKN hKUn bUhLA^MK 


ROrTT 

^PtFmR' TS THE SAMF TTS" GO o ERF T "ONLY T5TJPERFIR HAS AN 

TMMbUlAIt RETURN 

TUUSERS CALL CAUK +4. 


GOPEPFl'^ SLANK.S 'RtCISTEkS R2“AM]TT 



XAF 


TJCDOC 



R-CHECfaT 



XXT 



BANKCALL 

CAUR GUPbRElR 



IbkMlNAlE RETURN 
ROCbEU REIURN 

bNIER RETimN 



HEIURN bPUM GUPbRblK 


TS^ THF“ G JP'ERF Z'TJRL Y ' AN I MM E D I AT E R cTUPIT^T'S mADE TO USERS CALL CADR ^ * 
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L 

OTSPL AY 

INTEPFACF RODTI )ES 



USER'S PAGE 

NO* 5 fcO S3 





R0189 

GGPFRF2P 

DOES NflT BLANK AMY REGISTERS 


















A0190 



CAF 

VXXNYY 

VARIABLE NOUN YY 

REQUESTED. XX=00 OR 01 




A0191 



TC 

BANKCALL 






A0197 



CAOR 

GnPERF2R 






A0193 



• « « 

m ^ • 

TERMINATE RETURN 





A0194 



• * « 

m m m 

PROCEED RETURN 





A0195 



• • • 

* « « 

ENTER RETURN 






A0196 



• • • 

« • • 

IMMEDIATE RETURN 

HERE ERUM GUPERE2K 





R0197 

GnPERFBR 

IS THE SAME AS G0PFRF3 ONLY AN IMMEDIATE RETURN 

IS MADE 

TO USERS CALL CAOR +4. 






R0199 

GnPERF3R 

BLANKS REGISTERS R2 AND R3 









A0200 



CAF 

PROGXX 

PERFORM PROrjRAM 

XX 




A 0201 



TC 

3ANKCALL 






A0202 



1 

o: 

< 

G0PERF3R 






A0203 



m 

• « • 

TERMINATE RETURN 

■ ■ w m i ^ — I M II ' o m »■ !!"■ m -m ■ W ' 1 * 





A0204 



m m m 

• ■ • 

PROCEED return 





A0205 



• • • 

• # # 

ENTER RETURN 






R0?07 




np;RF4R IS THE SAM;= AS G0PFRF4 TTfTLY AN IMMEDIATE RETORFi IS MADE 



CALL CARR +4 


A0209 
A 02 10 
AO 2 1 1 
A0212 
A021? 
A 0 21 4 


riF riCTxl? REQUEST PERFORM ON OPTlONXX 

TC JANKCALL 

CTTDR OTil^RF4R 

TTT ... ' TERMINATE RETURTl 

771 m PRnCPED RETURN 

771 ENTER RETURN^ " 



IMHbUlAlb RETURN lU 


00216 OnPEPF^R BLANKS REGISTK'- K3 


^02 IT R EFLASRR I S THE SffFIE“A7 REFLASH LINLY AN TNHED I ATE TTETORfT T5 MAUb III 1 Hh USERS rALL CAUR +4. 


A'CTRl ■ 


A0221 

A022? 

TO773 

A0274 


TTAF T/XXNYY VXX NYY WILL HE A FUASHTNi; VEKO NOUN 

TC BTlTTKCiai: ~ 


CTOR REFLASHR 




AO 22 5 

- ■ - - - 

— 

% m m m m m 

IMMEDIATE RETURN TO' USER 





■ R0223 

— REGODSPR^X 


E SAME' AS :;'EGOOSP T3NLY A RETURN IIMMEDIATEI rS MAO^ 

TO THE USER* 
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L DISPLAY INTERFACE ROUTINES 



USER’S PAGE 

NO^ 6 

EO S3 


A0223 

CAF 

VXXNYY 




A022R 

TC 

BANKCALL 




A0?30 

CADR 

REGODSPR 










A0231 

• • • 

# • • 

IMMEDIATE RETURN 

TO USER 



!i 





GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APR* 17 X 96^5 CHIEFTAN .028 PAGE lA -58 


n I s PL AY INTERFACE ROUTTM'tS 


USER'S PAGE NO. 


E a ST 


P 0232 


GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER 


R 023 A 


AQ 2 35 
A 0236 


r 70 X 0 SP = GOMARK 


A 023 T 


OF 

TC 


CAOR 


VXXNYY 
BANKCALL 


GOMARK 


YXXNYY CUNTSINS VERB ASTU NOUN 


OTHER 



VERBS USE CADR GOXDSP 


R 023 R 


GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER- 


R 0239 GOXnSPR = GOMARKR 




A 0240 



CAP 

VXXNYY 




A 0241 



TC 

BANKCALL 




^ 02 42 



CAD 7 

GOMARKR 

OTHFR EXTENDED VERBS USE CAOR GOXDSPR 







* • • 

9 m* 

IMMEDIATE RETURN OF GUMAKKK 




^0244 

GO^ARKF DISPLAYS A 

Flashing mark vf ;«6 

noun WITH f^miTiMFDT^F RETURN 

TO THE USER- 3 RETURNS ARE POSSIBLE EKOm 



R 0246 

TH- astrona I f t (Sr r 

NT) . 7 A a 0 ) . 







R 0747 

GGxOSf>F =■■ SlIMARKF 







A 0 ? A 8 


A 0249 

A 0250 


■CTF“ 

TC 

CTOR 


VYXNYY — 

13A N KFAIX 
TrOWPXf=~ 


FLASHING 



CAOR GOXDSFF 


A 0251 

A 0252 


TERMINATE Rf 

TRW 



R 02 54 



THR 


OMARKF ONIV 



MAUF^O THE O^ETT CALL CAnTr~-F 4 


R 02 b 6 


GQXOSPFR = GOMABK 



A 02 57 ' 

A 0258 
ATJ 2 F 9 ' 
A 02 qO 
A 0261 
A0262 


CTAF VTTXNYY FLASHTTSTG MARK VERB NOUN 

TT: BANKCALL 

CADR — “UOT^ARKFR OTHFRT ETC » ENDbU VtKBS USE CAUK bUXUSPFR 

tt:; rr; termimatf^rteturn 

TTT rr; proceed return 

TTT rr; enter ur recycle RbTUFfX "^ ~ 


IMMEDIAIE RE I URN TO I HE USER 


m2 


R 0265 

RUZSX 


R 0270 


FO^ARRT rS' US ED" FOTr"A 
RFTUTN Is MAOE- 


LEASE PERFOPM UN A MARTK REQUEST WITH TTNXT l ASTRONAUT RETURN TU THE USEf 
T HE DtSTPrO HARK PLEASb PERFORM VERB AND D ESIRED NOUN ISEMTERED IN A- GUMAKki ki^ K 2 » 



UP MARX PEJECT'UK AN ENIER 


YT^TTTfTT^ ^LEASE PFRFIJRM. THFASIkuNAUi k^ILL RESPOND WITH 
CnVLY ASIRUNAUT PFSF 0 N 5 F IHAT WILL COME BALK TO THE USER. 


A 0 ' 2 T 7 


ATTZTT 


CAP 

TC” 


V 5 XN YT 
BANKCALL 


X — 1 * 2 * 3*4 


Y= NOUN 


I 
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L 

DISPLAY 

INTERFACE ROUTINES 

USER'S PAGE 

NO. 8 

EO S 3 












A 0274 



CADR GOMARKl 







A 027 r- 



9 mm 9 9 m 

ENTER RETURN 














P 02 76 

IF 

BLANKING 

DESIRED ON NON P ROOTINtSt NOTIFY DISPLAYER, 







R 0277 

GOMARKIR IS THF 

SAME AS A GOMARKl ONLY AN IMMEDIATE RETURN IS MADE 

TO THE USERS CALL CADR + 2 . 




A 0279 



CAF V 5 XNYY 

X=l, 2 , 3,4 YY 

= NOUN 




A 0280 



TC BANKCALL 






A 02 ai 



CADR GOMARKIR 






“ “ 

A 0282 



9 9 9 9 9 9 

ASTRONAUT ENTER 

RETURN 




A 0283 



9 9 9 9 9 9 

IMMEDIATE RETURN 

TO USER 






R02R4 

GnMARK2 IS 

THE SAME AS GOMARKl ONLY 3 

RETURNS ARE MADE 

TO THE USER 

FROM THE ASTRONAUT. 

— ■ ■ 1 ■ MP - ■ ^1- — - — > ^ — 



A0286 



■ ^ CAF 

V5XNYY 

X=lt2, 3,4 YY=NOUN 



5o:>?7 



TC 

iTSRKCALL 




A02o^ 



CADR 

G0MARK2 




A02S9 



• • • 

9 9 9 

— SC~Mr"HrT' 1 ML V 1 " * “ ■ •“ * - II — - 



A0290 



• • • 

9 9 9 

PROCEED RETURN 



A0291 



9 9m 

9 9 9 

ENTER RETURN 



P 0292 

GOM ARK R .i 

THE same as GGmarkir only 

3 ASTRONAUT RETURNS ARE MADE 

TO THE USER. 











A 02-^4 



fTSF 

V5XNYV 

X —0 flf2»3t4 yY — NOU N 



A0295 



■ ' TC 

R ANKCALL 




A0296 



cTTorr 

GOMARK?!^ 








9 9 m 

9 9 9 

TERMINATt HfclUKN 



A079'{r“ 



9 9 9 

9 9 9 

HKUCfcbU RETURN 



A 02“^^ 



9 9 9 

9 9 9 

ENTER RETURN 




TOTJDU 


IMMbUlAfh RETURN TO THF US^R 


H0303' 




1A^K3 IS U5L1) f-IJR A PLt:i\5E PtRFIlPM ON 4 ^(ARK RtgUhSi W 

VcHB \m NOUM hN t bRlr l) IN A. GUMAkKj UISPL' JSY'TTTT 



ktM05 


'VbXMYY hUK A PI t ASb ' P tw vnv . GUMARK3 



IKUNAUI RETURNS TO 



BY MfcAMS :iV- A V06NYY FllLLUHtD BY A hLAbHlNb 
USER WITH NO TMHbDlAIfc RETURN7 



— A03()7 

— — — — 

V5XNTr “ 

X=l. 2VTT4 YY=NOOTg"' 






AUTDT 

— TC 

B ANKC ALL 







— A0309 ■ 

__ — CADR 

GUM ARK 3 






. 

— A031U 

• • • 

9 9 9 

K t K -M 1 N AT E K b 1 U K N 






A 0311 

• • • 

9 9 9 

PROCEED KtIUKN 






— A0312'” 

9 9 9 

9 9 9 

ENTER RETURN 















Pv0 3T.3 

— GnMAKK4“T5 — (TTF SAME AS GOMAKKIT ‘.)NLY R2 7AN0 P3^ TV RE BLANKED ANU Kl IS 

DISPLAYED IN OCIAL. 







A0315 



v^xnyy 

A — 1 TT^iM lJU iV 



■ 1 - 

- 


A 0 3 1 6 

YC 

b A N KC all 








— — CADK 

GUM A KK4 








AO 3 18“ 

• • • 

9 9 9 

TERMTNAIE KbIUKN 





— - 

7V0319' — 

• • • 

9 9 9 

rRuUcED RrTuRN 
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L 

DISPLAY INTERFACE ROUTINES 

USER*S PAGE 

NO. 

9 EO S3 




A0320 

• • « m m 9 

ENTER RETURN 






R03?l 

EXOSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN 

MADE TO THE USER AFTER THE 

DISPLAY HAS BEEN 



«03?3 

SENT OUT. 







A 03? 4 

CAF VXXNYY 






AO 3? 5 

TC BANKCALL 






A 0326 

CAOR EXDSPRET 







A 03.? 7 

« • • • • • 

RETURN TO USER 






^^0323 

KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN 

IS MADE TO THE USER 

AFTER 

THE MARK DISPLAYS 



P0330 

HAVE BEEN CLEANED OUT. 







A0331 

TC BANKCALL 






A033? 

CADR KLEENEX 













A0333 

• • « 9 9 9 

RETURN TO USEP 













MaTK'BRTN T3 ‘A“‘SP7:TTTl PURPOSE ROOTINE FOR TAVTTO JOB VAC AITFTIS 

(SEE DESCRIPTION DE 

MARKBRAN 0ELOWJ. 




A0336 


TC 



A033‘' 


CADR MARKBRAN 


A0338 


A0339 


A03A0 


R03A1 


R0343 


A034A 

AOSAb' 


R0346 


R0 348 


R 03 4 9 



rF’WARX'irrsTJtisY not ax:ti ve 


(GOOO RETURN TO IMMEDIATf RETURN LOG Oe 


LAST FLASHING MARK R RDOT TUET 


pinBRnEh REEStABL I SHPS T Ihl LAS T ACTIV) ^ FLASHING DISPLAY; IF THERE IS NO ACTIVE FLASHING DISPLAY, THh USKY lb 

IS SETr“ro ' ' 


BLANK FD AND 




TC 

CArjfr 


POST JUMP 


PPIDOSP IS USSO AS A priority DISPLAY. 
T HE“ as TP. On AITT I SEE NO. 7 ABOV-;). 


TT 



LL DISPLAY A fiiiPLASH TYPE DISPLAY WITH THREE POSSIBLE returns i-kun 


THE .Main purpose OE PPIOOSP is to replace the PR 



WITH A DISPLAY OP HIGHER PRIORITY AMU lU 


R 03 51 

oROVtOE A MEANS 

FUR RESTORING THE OLO" DISPLAY WHEN THE 

PRIORITYTJTSPUST 




IS ^TRSPOMDED TH” 

BY the ASTRONAUT. 





30353 

THE FOITWER" 

^SPLAY IS RE^TTTR'ET) Txy ATsT AOTmATrC BRANCTTTO WAKE UF THE DISPLAY THAI WAS INItKKUHltU BY 1 Mt 


R0355 

PR in DTS PXTLY. 











A 0355" 


CAF 

"nrXXNYY “““ 

vXXNYY WILL BE A FLASHING VcRB NOUN 




TC 

BAN KC ALL 



A0353 


CTOR 

PHinDSP 



A0'3F<?‘ 


• • • 

• • • 

TbKMlNAIt KhlUkN 


A0360 


9 9 9 

9 9 9 

PROCEtO return 
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L DISPLAY INTERFACE ROUTIMFS 


USER'S PAGE 

NO* 10 

EO S3 


A0361 

• • • m • m 

ENTER OR RECYCLE 

RETURN 



R0362 PRIOOSPR IS THE SAME AS PRIOOSPONLY AN IMMEDIATE RETURN IS MADE 

TO THE USERS CALL CAOR 

+4« 



A 03 34 





CAE 

VXXNYY 

VXXNYY WILL BE A 

FLASHING 

VERB NOUN 


A036S 





TC 

BANKCALL 





A 03 66 





CADR 

PR TODSPR 





A0367 





m m m 

m m m 

TERMINATE REfURN 




A0368 





• • # 

• mm 

PROCEED RETUP^N 




A0369 





m m m 

• mm 

ENTER OR RECYCLE 

RETURN 




A 03 70 





m m m 

m m • 

IMMEDIATE RETURN 















R0371 

PRI QLAKM 

DOES A 

V0 5N09 P'- 

I onsPR. 







R0372 

CLEANOS® 

CLEANS 

OUT ALL N 

ORBal displays (ACTIVE 

AND INACTIVE). A RETURN 

IS MADE TO THE USER AFTER 

NORMAL 


R0374 

DISPLAYS 

ARE CLEANED OUT. 









A0375 





TC 

BANKCALL 





A0376 





CAOR 

CLEANDSP 






A 03 77 





• • - 

• • • 

RETURN TO USER 
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L DISPLAY INTERFACE ROUTINES 


USER • 

S PAGE 

NO. 11 

EO S3 







P0378 GENERAL INFORMATION 






R0379 







R03fi0 ' ALARM TR ABORT FX IT MODES — 


A0381 


PRIOBORT TC 

ABORT 




A0382 


OCT 

1S02 





R0383 

PRI030RT 

IS BRANCEO TO WHEN (~I) A NORMAL DISPLAY IS R 

EOUESTED 

AND ANOTHER 

NORMAL DISPLAY IS ALREADY ACTIVE 


R03'’P 

(REFLASH 

AND REGOnSP '\R E E PT IONS ) OR (2) A PRIORITY 

DISPLAY 

IS REQUESTED 

WHEN ANOTHER PRIORITY DISPLAY tS 


R03 8T 

ALREADY 

ACTIVE (A PRIORITY WITH LINUS BITIA IS AN EXCEPTION!. 






P0388 

■^RASABLE IMITIALIZATIOiM PEQUIRED — 






R0389 

ACCOMPLISHED BY FOhSH START- 1. FLAGWR04 

(USED EXCLUSIVELY BY DISPLAY INTERFACE RUUTINESI 




R03=>1 

2. NVSAVE = 

NORMAL VERB AND NOUN REGISTER. 




R0393 

3. pbANKTEM 

= normal inactive flagworD( also contains normals EBANKI. 











R039S 

S'. R TSAVir^ 

MARKBRAN CONTROL WORD 




R0396 

47 RESTREG = 

PRIORITY 30 AND SOPEITBANK 3. 




R0398 

OUTPUT — 






RO'399 

Nv/TKORD = FR T 0 V EITF TmO NOUN 





R0400 

NVWORD +1(MARKNV) = MARK VERB AND NOUN 





R0401 

NVWOPD +2(NVS4Vc) = NORMAL V-^RB AND NOUN 





RD4t)2 DSPPLG(e6AMkSAV) = PkIO FLAGwCl?lD (TNCLUOIMCi EBANK) 

RO403 rTTPFLT, +1 (MARKEB'AN) = MARK FLATTSTORT) TTRCrLUDING' EB'ARKT 

ITSPTL G + R LEB ANK T EM r h-ttohm AL TLA GWORD 1 TNCLTfUTG ^EBA'NKT 


TTTZfDT” CADRELSH *= Ti'UU USERS CALL CAllR +i LOCATTON 

13TFfT>,i CSDRFLSH +1 ( MARKFLSH) = MARK USERS CALL CADB +1 LOCAflTn 

ROVot CAdRFlSH +2(TeMAFL5H) = MORMAL USERS CALFTAUR +1 LnCATKJN 


rOA OB P RIOTIM E" = T TME FACH "FTTITr RfcOUES T FI TTST^ STNT OUT 


R 0409 

nPTTnNl = DFSIRFD OPTION FROM G 0 PERF 4 




R 0410 

FLAGNR 04 '= BIT INFO FOP CONTROL OB' ALL UT SPLAY 'RTJDTI NFS 




nm n " 

■ “DSPrEMT =~R 1 INFO FOR ASTRONAUT FROM PERFORM DI S PL AYS ( NUKMAL ) 



RG 41 ? 

— SUBRriUT INFS USED — NVSUiU Fi AGUPt FI AGOOW^N^ ENDOFJOBt BLANKSUB. ABORT, JOBWAKEt JGBSLEEPf PINDVAL, PPiULHNb, 

RTI 4 T 4 

JAMTERM, NVSUBUSY t FLASHni}, FNDTDLFt CHANGlt BANKJUMP, MAKECADK, NUVAL» 



Fra 4 r> 

debris — (STOKED INTO! 




■■ ■ ■ M ■ MM ■ a mim « ^ % V # “■ ■ ■ m n ■ ■ ■ ■ 1 ■ H 1 1 ■ 

R 0416 

~~TEMFnPARY 1 bMPHK AP [ES- Aj ~QV L , "WATT + 2 , MPAC + mpaC: 

+ ^t f^PAC + 5 f MPAC "^t> f K UP I Ktb^t 

KUPl KtbJf 

b T L f 

R 1 J 4 T 8 ” 

FBANK, RUPTRLGA, LW, BANKSFT, MODE, MPAC, MPAC +1 

4 « PACPKPG 



R 042 0 

ERASABES'ISHAREO ANO lISFCi WITH OTHER PROGRAM'S) CAORSITTP".' 

D LIST* LOC* DSPIEMl* UPT lUNl 




- - ~ R 04 ZZ 

' ERA'SABLESTUSED ONLY HY DISPLAY ROUTTNES)- NVWn'^ n , + 1 , + 2 1 

DSPPLGf + 1 » + 2 f LADKPLSH, + I t+xf t 

PKIUI IMtlf 

AbWK f 
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L DISPLAY TNITeRFACe ROUTIN'^*; 

IISER'S PAGE 

NO. 12 

EO S3 


R0424 RISAVE. MARK2PAC. 



R0425 

DEBRIS — (USED BUT NOT STORED 

INTO)- NOUNREGt VERBREG, LOCCTR, MONSAVEl 



R0426 

FLAGWORD DESCRIPTIONS — 




R0427 

FLAGWR04- SEE OFSCRIPTION 

UNOFR LOG SECTION ERASABLE ASSIGNMENTS 




PQ428 nSPFLGf DSPFLG-Ht DSPFRG ^2- 

R0429 

R0430 BITS r BLANK R1 

R0431 ? BLANK R2 

R0432 3 BLANK R3 

R0433 4 FLASHING DISPLAY BEOUESTED 

R0434 5" PERFORM DISPLAY REQUESTED 

R043 5 6 ^XOSPRFT GODSPRFT 

c'0436 7 PRIO DISPLAY 

R0417 8 DEC NARi^ PERFriPM 

^ 043S 9 EBAMK 

R04T^ 10 EBANK 

P0440 IT F BANK 

R0441 12 V^<^PASTE 

13 2ND PXP'T OF PEKFDPN 

-^0443 — r5~]rBFL7VSH OR REf)(< BEFLASH OR REPO 

R0444 15 — - MARK REQUEST 

■rD445 restart I NTG 0 J SPLAYS — 


R 0'4"46 rules for THr: OSKY nPERAtiiP 


R0447 

R0449 


■>0451 


RT54F3 


R 0454 


R0455' 
R 0 4'5F 


R 0460 

R04'62 


I 


P RDCFFU'AWD' TFRNINAI b SERVF TTS PFSPONSES FD KEQUtSlS hUR 

AS there is any RFDUpST awaiting operator RFSRONSL. any 

RTS SET “TTTAT ^ EQTJFST4 



( FLASHING 'V/N)4 l\5 LONG 




WTH PRTKTETD ANIT TERM I NAT E T □ R “THT S RTAS ON . 

tHF Astronaut MUST respond tn a priority display 

FOR'npFRTrrnR 

D T S PL AY S ENT OUT • 1 



S PON ST 

EED OR TERMTNATb'WILL SERVE AT 

KILL AN OPERATOR IN! T I ATETT MONITOR 






n UE" TD TTMF IT TAKES TO GFT 

T AGAIN AND AGAIN UNTIE 


THE ASTRONAU 


THAN 5 SECS FROM THE TIME THE MISSION 

ASTRONAUT WOULD TEE THIS DISPLAY FUR LESS ITNE ' 

THE PRIORITY DTTFOT 



TOO SOON 




ACCUMULA T ED 5 SECS FROM T IME 1 H E F IRS r ' PRIOR i T V niSPLAY WAS SfcNI 
~nVT . T HE SAME 5 SEC, DET AT WILL TJCCDR AT 163.84 TECS HK IN ANY rtULllPLE OF ThAI" ITMF OUh lU pkuukAM 


P04T4 


CONST DFR AXIOM. 




R0465 — 

3T 

KEY RE'CEASE BUI'RIM- 


-- T T r* f T fci 1 1 c r* — “ ' 


R046'5 


~~m — IF IHt KEY RELEASE LIGHT TS DW, IT SIMPl 

.Y KtLEASES THE KEYbOARu AND DISPLAY FOR 

INfbHNAL Uhb* 


R045T 


3) rF~THF KEY R r L FA S F XTGFTr XT' OFFmmnT" 

SUf'lt HirUiJtSl hUK U^tKAlUK Ktr^KUfv^fr irLA^niiNv-^ v / »m i lo 


K 04 f U 


awaiting RESPUNTE FHEM 11 RE-fcS I ABL I SHbS I Hfc DISPLAYS THAT UKlblNALLY Ktuutbitu Kt :iKurN^>tr . 


R0472 


-rr AN OPERATUK MAN IS XRFKrFnRFR^O Rb-tSI ABl 

.ISH HUI CDNUlllUN IA| 15 fclNCUUlN I c tU * A 

5CI..UINU ur 55 1 ufM ur 


'■ TT 0475 


KEY PBXXASb BUI ION MAY tft MbCESSARY. 




P04 /p 

4. 

IT IS IMPORTANI 10 ANSWER ALL REQUESTS FOR 

OPERATOR KESPUNSE. 

— n M ^ nTT“ ^1 t r^~~ C Jl HI c nfvi C 


R0A76 

T. 

11 IS ALWAYS L-OOU ^RXCIlLb 10 TERMINATE AN 

extendll? verb before asking fop another 

UNc UK !Mt bAMt UNt 


R04T3 


OVER AGAIN. ' 










— a -.. . T ■ ■ ■ a.- ll■lll ■ ■ 

9 0479^ 

— SPTCTAT 

■■ CON S I n E R AX TTT*IS^ - 


- - 
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L 

1) I SPL AY 

INTERFACE ROUTINES 

USER'S 

PAGE NO. 13 


EO S3 





R04«0 

1. 

MPAC +2 SAVED ONLY IN MARK DISPLAYS 








R04S1 

2. 

GODSP ( P.) f REGODSPt R) tGOMARK (R ) ALWAYS TURN ON THE FLASH IF ENTERED 

WITH A PASTE VERB REQUEST 

• 





R0483 

3. 

ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSPIRI. REGOOSP(R) 








P0434 

4. 

ALL EXTENDED VE^BS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH 
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0 1TS5 


LAS! 14"8T 





rmsT 

Tovrrsz' 

10 , 37 - 5-4 


— USERPRIO EQUALS 

GTNTTTS 

2014-4 I FOTTnoCT GCT ' 2 0144 

tTZ 4-?4-"0 MlARTCaCT“ nCT 



PR T O 
nAKK 



M p , 




I 
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ASSEMBLE 1 
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L 

DISPLAY 

INTERFACE ROUTIMES 






USER'S PAGE 

NO. 33 EO S3 



1264 




10,3755 

11254 

1 


OCT 

11254 

NORM 




1265 




10,3756 

74 704 

1 

I DLESLEP 

OCT 

74704 




1266 




10,3757 

67777 

1 

nCT67777 

OCT 

67777 




1267 

REF 14 

LAST 

93 5 

5526 



LINUS 

EQUALS 

eLANKET 




1263 

PEF 721 

LAST 

1483 

0154 



FACEREG 

EQUALS 

MPAC 


1 _ 1 -| -g — 


126<^ 

R.EF 722 

LAST 

1484 

0155 



PLAYTEMl 

EQUALS 

MPAC +l 




1 2 70 

PEF 723 

LAST 

1484 

0157 



PLAYTEM3 

EQUALS 

MPAC +3 




1271 

RFF 724 

LAST 

1484 

0160 



PLAYTeM4 

EQUALS 

MPAC +4 




1273 




10.3760 

40420 

0 

nCT40420 

OCT 

40420 




1274 

RFF 3 

LAST 

1472 

lOt 376 1 

02770 

0 

MAKEGEN 

GENADP 

MAKEPLAY 




1275 




10,3762 

10200 

1 

0CT10200 

OCT 

10200 




1276 




10,3763 

30200 

0 

V97NOO 

VN 

09700 

PASTE FOP V97 OR 

V99 


12761 




10,3764 

20100 

1 

nCT20100 

OCT 

20100 




12762 




10,3765 

24030 

1 

CLOCKCON 

OCT 

24030 

FLASH. PERFORM. 

V99 OR V97 PASTE, PEFLASH 



I' 
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L SFrVICE ROUTINES 

USER* S 

PAGE 

NO. I 

EO S3 



0037 




7722 




BLOCK 

3 



003R 

lEF 

9 

t 

LAST 1225 

600 0 




SETLOC 

FFTAG6 



0039 




7722 




BANK 




0040 

RFF 

\ 






COUNT 

037FLAG 




004 3 

REF 

195 

LAST 1478 

1122 

54 001 

1 

UPENT2 

TS 

L 

WHICH FLAGWORD IS IT 


0044 

RFF 

4 

LAST 1414 

11?2> 

7 5023 

1 


MASK 

OCT7 



0045 

REF 

196 

LAST 1485 

112^ 

56 001 

0 


XCH 

L 

SAVE IN L FOR INDEXING 



0046 

REF 

3 

LAST 1396 

7725 

7 5731 

0 


MASK 

nCT77770 

OBTAIN THE BIT INFORMATION 


0047 




7726 

0 0004 

0 


INHINT 


PREVENT INTtRUPTS 


0048 

REF 

37 

LAST 1436 

7727 

54 061 

1 


TS 

ITEMPl 

STGRF THE BIT INFORMATION TEMPORARIALY 



0049 

REF 

197 

LAST 1485 

7730 

50 001 

0 


NOX 

L 



0050 

o c c 

r\ . . t 

12 

LAST 1022 

7731 

4 0074 

0 


cs 

FLAGWRDO 



0051 

REF 


LAST 1485 

77 32 

7 0061 

1 


MASK 

ITEMPl 



0052 

REF 

I9B 

LAST 1485 

7733 

50 001 

0 


NOX 

L 



0053 


13 

LAST IA.85 

773 4 

26 074 

0 


ADS 

FL AGWROO 



0054 




7735 

0 0003 

1 


RELINT 


RELEASE INTERUPT INHIBIT 



0055 

R !Z r 

344 

LAST 1481 

7 736 

24 002 

0 


I NC R 

Q 

OBTAIN THE CORRECT RETURN AUUKESS 


o 

o 

P ‘-F 

345 

LAST 1485 

7737 

0 0002 

0 


TC 

0 

return 














0059 

REF 

199 

LAST 1485 

7740 

54 001 

1 

0nWNENT2 

TS 

L 

WHICH FLAGWORU IS iT 


01760 

REF 

3 LAST 1485 

7741 

7 5 02 3 

I 



OCT? 



■■006T" 

REF 

200 

■“LAST 14fr5 

7742 

36'3T0 1 

0 


^ X CTT 

L 

SAVE IN L FOR INDEXING 














006^Z“' 

REF 

4 

LASI 1485 

f 

r sT’-rr 

TT 


MASK 

TJCTTTTTTT" 

nBIAIN THE Bl 1 I N FLIRM AT 1 uN 


0063 ■■■ 






■0 ■ 


"XETM- 


START 10 PROCESS THE INFORMATION 














0064 




J-7I^ 

0 0004 

0 


TNHFNT 


PKEVEN1 INTERUPTS 


0TT?r5 

rr F 

20 1 

LAST 1485 

— — 7 745“ 

“30 001 

TT" 



L 



0066 

^ fF 

14 

LAST 1485 

rriti 

7 0074 

0 


mask 

FLAGWROO 



0067 ■ 

REF 

TOZ" 



■ 50 ■■001“ 

0 


"NUX 

L 



01566 

RFF 

r5" 

LASI 1485 

TT51 

- 34 -37435^ 


3S “ 

FL AGWKOO 



0060“ 




7752 

0 0003 

IT 


RE L I NT 


RELEASE IN^EKUPI INHIBIT 



OOTT! 

ITFF 

346 

LTTST' T4:8S 

7T53~ 

Z4~DrT2 

0 


nr NCR 

Q 

UBIAIN IME LUKKELl KtIUKN 


0071“ 

— rrr 

T^T" 

LAST I4ttb 

1 

0 O 002 

0 


TC 

Q 

RETURN 



nor? 

— RTT* 

24 

LASI 14? 6 

5023"- 



nCT7 

EUUALS 

SEVEN 



0073 




1 0 t 3 766 




BANK 

10 

__ — ^ — . — _ — 
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L 

SFRVICP ROUTINES 

USER'S PAGE 

NO> 2 

EO 53 

1 


0 0074 

nz 




0075 

IJPFLAG ANO DOWNFLAG AFF ENTIRELY GENERAL 

FLAG SETTING ANO CLEARING SUBROUTINES. USING THEM. WHETHER OR 



P0077 

NOr IN INTERRUPT? ONE MAY SET OR CLtAR ANY SINGLE? NAMED BIT IN ANY ERASABLE RFGISTER» SUBJECT OF COURSE TO 



R0079 

FRANK SETTING. A "NAMED” BIT? AS THE WORD 

IS USED HERE? IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY IHE YUL 



R0081 

ASSEMBLER. 





R0082 

AT PRESENT THE ONLY NAMED BITS ARE THOSE 

IN THE FLAGWORDS. ASSEMBLER CHANGES WILL MAKE 11 PUSSIBLE (U 



R008A 

NAME ANY BIT IN FRASABL'" MEMORY. 





R0035 

CALLING SEQUENCES A-F AS FOLLOWS:- 




^ ■ — T - ■ - I. — m t ■ ■ ■ T ■ -* ' 

00 8 6 

TC UPFLAG 

TC DOWNFLAG 



R00.?7 

ADRFS NAME OF FLAG 

ADRES NAME OF FLAG 




R008 8 


RFTURN TS 

TO THE 

L or. ATI ON 

FOLLOWING 

THE ”ADRES" ABOUT .58 MS 

AFTER THE "TC". 







ROOOd 


UPON 

RETURN A CONTAINS TH 

E CURRENT 

FLAGWPO SFTTING. 





















0091 





5 546 


BLOCK 02 







0002 

RFF 

5 

LAST 

141 3 

4000 


SETLOC FFTAGl 







0093 





5 54 6 


BANK 







0094 

REF 

1 





CUDNr^ Tt/FLAG 








0095 

LEF 

348 

LAST 

1485 

5546 

3 000? 0 

UPFLAG CA 0 







0096 

RFF 

1 



5547 

0 5564 0 

m DEBrr 







0097 





5550 

^ 0000 0“ 

COM 

+I 15 - BITT 






0098 





5551 

0 0006 1 

EXTEND 







0099 

REF 

15 

last 

TT3I 

5 552 

04 001 1 

RiTF LCHAN 

SET BiT 






Oloo 


3 9 

LAST 

14B"5 

55 53 

50 061 0 

COMFLAG" INDEX I TEMPI 







0101 

RFF 

16 

LAST 

1485 

5 554 

54 0 ^4 0 

TG FLAGWRDD 







010? 

- pr^ 


last 

i4n 


T7 TO3 T " 

LXCT TTTWPT 







“oro3 





5^56 

CTTTiJTJB" T" 

■ RELINI 







0104 

REF 

203 

LAST 

1485 

5 5 57 

0 0001 0 

TC C 



































0105 

K EF 

1F+9 

LA^ 

I48 6 

5 ^'6 o' ■ 

3 000? 0 ■ 

DOWNFLAG CA 0 







0106 

REF 

2 

L AST 

148^ 

T561" 

“ (T 556^4 0 

T C 0 c B I T 







0107 

♦J C C 

♦ " '-, -1 

2W4 

LAST 

1 48^ 

5“ 6 2 

■'7 0001 1 

■ ' MASK L 

RESET BIT 






0108 

RFF 

1 



5 5 c' 3 

1 5553 0 

TCT COMFLAG 








(JTSt ftEP 176 l4ST 14TI TW? 5 '501.7 1 DtP. I i Rtl CPTE 

CTTTO S56S 0^ (KR" 0 INHINT 

(Jin STTF LASr TZTS^t; ^ O TS TTEMPJ- 

um TTFE 4 — las t ll<j 7 5^ 3 502S 0 CA CTm 

(jm RTf ATT ^ ITTST' 14^5 5TTD ‘ 34 051 1 TS^ 1 I tMPi 

0TT4 ^FF / LAST 34¥5 F57T STTUSn TArTtX TTFWT 

nTT3 '5371 — ? ' 7 7 77'"n CA Cr“^T 

tjriT '^‘=f 20S LXST 1AB6 vTTT 001 T TS C 

ITTTT TFF'^? LA5T'T4FiT SF7A 1 bOZl 1 TA TTFTD 


GET OE BITS 


DEC15 


ADRES 
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L 

SERVICE 

ROUTINES 






USER'S PAGE 

NO. 3 

EO S3 



Oils 



5575 

0 0006 

1 

EXTEND 






0119 

REF 41 

LAST 1486 

5576 

10 061 

1 

DV 

ITEMPl 

A = FLAGWRO, L = 

(15 - BIT) 



0120 

REF 42 

LAST 1487 

5577 

52 062 

1 

DXCH 

ITFMPI 





0121 

REF A3 

LAST 1487 

56 00 

50 061 

0 

INDEX 

ITEMPl 





0122 

REF 17 

LAST 1486 

5601 

3 0074 

1 

CA 

FLAGWRDO 





0123 

REF 206 

LAST 1486 

5602 

54 001 

1 

TS 

L 

CURRENT STATE 




0124 

REF 31 

LAST 1435 

56 03 

50 “062 

0 

INDEX 

I TEMP2 





01 26 

RFF 56 

LAST 1466 

5604 

4 5001 

1 

CS 

BIT15 

-(15 - BIT) 




012o 

REF 350 

LAST 1486 

5605 

0 0002 

0 

TC 

Q 
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P0127 


R0129 


AOIMO 


A0131 


A0132 


0133 


0134 


0135 


R0136 


0137 


013ft 


0139 


0144 

Ol4!> 


0144 


0147 


SERVICE ROUTINES 


USER'S PAGE NO. 


EO S3 


DELAYjnB- A GENERAL ROUTINE TO DELAY A JOB A SPEC I F IC AMOUNT OF TIME BEFORE PICKING UP AGAIN. 


ENTRANCE REQUIREMENTS.. 


CAF 


DT 


DELAY JOB FOR OT CENTISECS 


TC 
CAOR 


6ANKCALL 

DEL AYJOB 


06.3770 


FANK 


(76 


REF 


00,2000 


SETLOC OLAYJOB 


00.3732 


BANK 


MUST R EM A IN TFI BANK 0 


REF 


COUNT OO/OFLAY 


00,3732 0 0004 0 DELAYJOB INHINT 


REF 351 LAST 1487 


00,3733 54 002 1 


TS 


0 


STORE DELAY DT IN 0 FOR DLY -1 IN 


RFF 


I 


00,3740 

00,3741 



0 0006 I 

1 374'5 15 


0K20ELAY 




E F 3 8 LAST 1488 



REF 


00,3743 


rmjTtj T 

T~ ^7 35 T 


TX¥ 




UELLTTDfs- 


NO, TRY NEXT DELAYLOC 


0143 



U 



0140 


TV0TI744 - 0 

00,3745 



( 'D'y I 
01104 0 



B A 1 LOUT 


TiO AVAILABLE TOCS AVATLARLE 



TT(T4 


0140 

REF 

1 



00,3734 

3 6214 

0 


CAF 

DFLAYNUM 

WAITLIST 


0141 

ft EF 

3 7 

LAST 

1437 

o 

o 

1 

54 070 

1 

DELLOOP 

TS 

RUPTREGl 




0142 

REF 

414 

LAST 

143 2 

00,3736 

50 000 

1 


TTIUFX 

; T 




0143 

REF 

T~ 

LAST 

19 2 

00,3737 

3 1141 

1 


Ta 

DELAYLOC 

IS 

THIS DELAYLOC AVAILABLE 



01 30 
0151 




OFF 
REF 

TT pp 

RTF' 


1 

5 




7 4 


00 , 37^ ?T7n56~0 OKR D FL AY XIA 

00,'3T4T F4“F61 1 




SET WAITLIST-IMMEDIATE RETURN 


TZ 

39 


L1\S 

IA7 


rare 

u 



00,3 75 0 3 0004 “IT 

00,3 751 6 W70 CT 


or 

■AIT 


FBANK 


RIJPTR 



SlUHF BBANK F OP, 1 ASK CALF 


0154 


rFF^TcTT — LA5T 14F7 00,3751? 54 OOT I' 



0155 


c*EF 


0156 


FeF 


2 LAST 1224 


00",3TT3 

00,3754 


3 37 6T' T 

T 


1 


ZWF~ 



ITT 


WTlKbCAl) 

0LY2"-T 


5TUR 


FUR TASK CAUL 


DLY IS IN WAITLT5T ROUriNE 


0157 FFF 7 ~X7 rS1^ ^ 7 3 00 ,FT55 U~ ^ ni 1 I CGFTCAirTC T^AKECTHTR GET CAULERS FCADR 

^0T5B REF 'W LAST 1458 00,3 /56 50 “OTO o INDEX KUPTRETT 

0r5 0 R F F ~5 LAS1^4~3n 0(r,3T5T ~55n~4r~0 IS OFL'AYLUC S AVF ~D£l AY"CATmS"~ 

OIFO kFF““8 FAST' r4T4“ OTT, TTFO 0 51/5 I TZ "" JUBSLEEP ° 


^nFT 

UlbZ 

UITo 


rEF 2'91 last 1456 00,T75T 3 5021 1 WAKF^ 070= TTFU 

36 DTST' T4TZ 00, V/62 ^0 006 1 — “ INDEX BBANK 

RFF 7 L A5T~F4F5 00 , 3 753' 57* 141 I XCF DEL AYUOC MAKE UELAYLFC AVATUgBIF 
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L 

SERVICE 

ROUTINES 







USER'S PAGE 

NO. 5 

EO S3 




0164 

REF 

13 

LAST 1475 

00.3764 

0 5201 

1 


TC 

JOBWAKE 





















0165 

? P F 

71 

LAST 1439 

0073765 

0 5324 

~T~ 


TC 

TASKOVFR 







0166 

REF 

1 


00.3766 

03753 

0 

TCSLEEP 

fjENAOR 

TCGETCAD -2 






0167 

REF 

1 


00.3767 

037 61 

1 

WAKECAO 

GENADR 

WAKER 




















= — 
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L SERVICE ROUTINES USER’S PAGE NO." 6 EO S3 


P0169 GENTP ANt A BLOCK TRANSFER ROUTINE* 


R0170 

WRITTEN BY 0. GYLES 




R0171 

MOD 1 BY KERNAN 


UTILITYM REV 17 11/18/67 



R01722 

MOD 2 BY 

SCHULENBERC. 

(REMOVE 

p ELI NT) SKIPPER 

REV 4 2/28/68 











R0173 


THIS RnOtfME 

IS USFFULL FOR TRAnSFERING 

N CONSECOTIVF ERASABLE OR FIXED QUANTITIES TO SONE OlHEH N 


R01^5 

CONSECUTIVE ERASABLE LOCATinNC. IF BOTH BLOCKS 

OF DATA ARE IN SWITCHABLE E8ANKS, THEY MUST BE IN THE SAME ONE. 



ROUT 


GENTRAN IS CALLABLE 

IN A JOB AS WELL AS 

A RUPT. THE CALLING 

SEQUENCE rej 



A0170 




I 

CA N-1 

# OF QUANTITIES MINUS ONE. 


A0180 




I +1 

TO GENTRAN 

IN FIXED-FIXED. 


AOIBI 




I +2 

ADRES L 

STARTING ADRES OF DATA TO BE MOVED. 


A0182 




I +3 

ADRES M 

STTTRTING AORES of duplication BLOCK. 


AOl 93 




I +4 


RETURNS HERE. 



R0184 


GENtRAN TAKES' 

2 5 MCT 

•S 17(30 MiCROSFCONDSI PER ITEM + 5 MCT’S 

(60 MICSl FOR ENTERING AND EXIflNG. 










P,01S6 


A, L ANO ITEMPl A'^E 

NOT PRESERVED. 












0187 



■ bOET" 

BLOCK 02 



0108 

-PE 2 

LAST 1445 

4000 


SETLHC FFTAG4 



0109 



5 606 


BANK 




0100 

RFF 4'+ 

LAST 1487 

0061 


EBANK= ITEMPl 




01'^ 1 

REF 1 




^nrUNT^i' St /TRAN 











0^192 



3606 

0 0004 0“ G^ENTPWr 

I NH I NT 



OTT? 

REF 

TAST 

5 6D'T 

74 (rern. 

T S I T E '*1 P 1 

SAVE N"*l. 


019^f 

RFF 352 

LAST 149S 

5610 

5(3 0C)2 "O 

I NOE X — !3 

C(Q1 = ADRES L. 


mw5 





6 0000 i 

__^T^ ?y~” ' 

A DR fcS (L + N “ 1). 


— urr^ 

“ ^ RTET^' 4T5~” 

LAST 1488 

5612 

30 000 1 

INDEX" A 



0197 



— 5 6 IT" 

3 0000 1 

C A " T) 

C( ABOVE ) . 


0198* 

REF 208 

TTST 1 48 R' 


54 0 01 ■ I' 

T5‘ ~T 

Save data® 


- 


LAST 1490 

5615 

“3 0061 0 

C A I P 1 



0200 

RFF 353 

LAST 149'0 

— 5 6 re" 

50 002 0 

INDEX Q 



0201 




6‘OT)X)rO^ 

”XD 1 

ADRES (M + N - 1). 


TTZT)^ 

^FF 4T?r' 


■5^2 0” 

“50 000 1 

I ND fc X A 



0203 



— 5621 

22 OOO 1 

LXGH (5 

STUFF IT. 




R E F 4 7 

LAST 1490 

57727^ 

10 051 T” ' 

“TCS ITEMPl 

LUOP UNT IL N— I = 0. 


0205 

— TTFF r4~ 

TITIST ~K3T. 

5^X 

T' 5607 1 

TCP' ■ “GENTRAN 'TT' 



0207 

REF 4“ 

L-AST 1404 

56T4'" 

1 6710 0 

TCF Q+2 

reIURn to CALLEK. 

— ' — — — — 







gap: 

ASSEMBLE ; 

REVISION 055 OF 

AGC PROGRAM COMANCHE BY 

NASA 2021113-051 

10:28 APR. Ifl969 

CHIEFTAN.028 PAGE 1491 




L 

SERVICE 

ROUTINES 




USER'S PAGE 

NO. 7 EO S3 




P0203 

B5rjFF 

ZERO BIT 5 OF 

EXTVBACT, WHICH IS SET BY 

TESTXACT 

• 
















Roaop 



MAY BE USED' AS MEPOEH BY ANY EXTENDED 

VERB WHICH HAS OONE 

TESTXACT 















0211 

P FF 

1 



COUNT* 

$4/EXTVB 






0212 

PEF 

4*^ 

LAST 1478 

5625 4 5013 1 B50FF 

CS 

RIT5 





0213 

LL 

LL 

21 

LAST 1465 

5626 7 1044 1 

MASK 

EXTVBACT 





021^ 

kff 

2 2 

LAST 1491 

=627 55*044 1 

TS 

EXTVBACT 





0215 

PEF 

114 

LAST 1482 

5630 0 5217 0 

TC 

EN DOF JOB 
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1.1969 CHIEFTANi.028 


SiEPVICE ROUTINES 


US6R*S PAGE NO 


8 


EO 


P0215 


SUBROUTINES TO TURN OFF AND TURN ON TRACKER FAIL LIGHT. 



0217 


0218 

0217 


0220 


0221 
0221 !5 


0222 


0223 


0224 


0225 


(TE? 



LAST 1428 


REF 57 LAST 1487 


REF 

RFF 



LAST 1492 
LAST 383 


02216 ref 47 LAST 1410 


02217 REF 38 LAST 1492 


REF 354 LAST 1490 


PFF 


48 LAST 1492 


0226 


REF 


2 LAST 1492 


0227 


REF 49 LAST 1492 


02 2 3 


REF 


5631 0 0004 0 TRFAILOF INHINT 



5635 
5 6 3 6 


4 7704 I 

7 1036 1 


MASK 


5634 6 5001 0 

55*036 1 
4 1331 0 


AO 



5637 7 5011 0 


5640 27*331 0 


MASK 

'KUS 


5641 0 0003 1 REO 


RELINT 


5642 0 0002 0 


TC 


5643' 0 0004 0 TRFAILQN INHINT 


DC T 40 2 00 
OSPTAB +110 


31T15 

DSPTAR + I1D 
nPTMOOES 


BTT7 

optmodES 


Q 


TURN OFF TRACKER L I GHT 


TO INSURE THAT OCOU FAIL WILL GO 

IN ADDITION TO 


AGAIN IE IT WAS 

TRACKER FAIL. 


T)M 


5644 4 1036 1 


5645 7 7704 1 


5646 


5b47 


27*036 1 

T3641 0 


AOS 

TCF 


OSPTAB +110 
OCT4O200 
OSPTAB +TTO 


TURN CIN 



^E 0 



gap: 
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L 

^LARM AND ABORT 

USER'S PAGE 

NO. 1 EO S3 




ROOOl 

THE FOLLOWING 

SUBROUTINE MAY BE CALLED TO DISPLAY A MON-ABORTIVE ALARM 

CONDITION 

. IT HAY BE CALLED 



R0003 

'HTHER IN INT'^RRUPT OR 

UNDER EXECUTIVE CONTROL. 












R0a04 

CALLING SEQUENCE IS AS FOLLOWS: 






R0005 



TC 

ALARM 





R0006 



OCT 






R0007 






(RETURNS HERE) 



0008 





5650 


BLOCK 02 


0009 

REP 

1 



4000 


SETLOC FFTAG7 


0010 





5650 


BANK 











0011 

REF 

8 

LAST 

389 

0375 


EBANK= FAILRcG 



0012 

REF 1 





COUNT 

02/ALARM 







ROOn 

ALARM TURNS ON 

THE PROGRAM ALARM LIGHT, 

BUT DOES NOT DISPLAY. 






• 

0014 




5650 

0 0004 0 

ALARM INHINT 








0015 

R h F 3 53 

LAST 

1492 

56 51 

3 000? 0 

CA 

Q 






0016 

r FF 4 

LAST 

1396 

5652 

55*363 1 

AL ARM2 TS 

ALMCADR 






■ --QOYT 

R E E J57r 

LAITT 



50 002 0 

INDEX 

Q 






0018 




5654 

3 0000 1 

CA 

0 







ref 209 

LAST^ 

1490 

5655“ 

54 001 1 

BGRTENT TS 

L 







UU70 

ITET TT 

L^ST 

T48e 

565 6 

3 0006 1 

PPIQF^NT CA 

BBANK 






0 0 0 2 




5657 

0 0006 1 

+1 EXTEND 







00'>04" 

REF “TTT 

LAST 

1472 

5660“ 

04 007 1 

RTTR 

SUPbRBNK 

ADD SUPhk BITS* 





mn 

rEF 5~ 

LA'ST" 

T7F52 

5-45T 

5S«364 0 

■ IS 

almcaDp +1 
















« 



orrzr ' 


LAST 

1 49T 

5 & <2 

3 0002 0 

LARMENT CA 


STORE RETURN FOR 

ALARM 




UU73 — 

"TTF ZTA" 

LAST™ 

1490 

566 3 

54 I)6l 1 

rs 

I T FMP 1 







DTT23ir 

■REF 45" 

“TTAST 

1483 ■■ 

5 '364 

3 0164 T 

U A 

XUC 






00233 

1 TFF — r 



5 665^ 

54 057 1 

TS 

LOCALAK^I 






aoRjzr 

K t F 15 

LAST 

T4F3 

5 666 

^^3 OT65-0 

“CA 

B ANKS h 1 






00236 ■ 

b F 1 



~T3BT 

54 060 0 

TS 

BANKA LR^ 







0024 — 

RFF T 

“TTVST" 

TW3 

56TO" 

10 313 T 

"TlTKF^ATTrrTnrS 

F AlLKhG 

IS AiNTlMlNC 1 IM 1-AlLKb^ 




0025 

^ T n !z t— 

’ 'v ‘ 4- 



STTTT 

— 1 5674 0 

i C F 

C hkF A I L 2 

Ytzb !KT fMtAI Ktb 





mzs — 

"itef — nr 

LASl" 



56 7 7^ 

22 3 /5 0 

L XC H 

F A I L R b G 






0027 

REF r 



36TT 

1 5706 1 

t C F 

PRGGLARM 

1 uRN ALARM LIGHT 

ON FOR FIRST ALARM 

















UU7E — 

“^TFF — rr 

LA'ST- 

T403 

56 /4 

10 376 1 

CHKFAILZ CCS 

FAIL Kb (7 ■**! 






0079 

TEFF t 



■5"675‘ 

1 5700 T 

TCTF 

FAILS 






0030 

^RE^F T2 

'LAST 

1493 

5676 

— 22 376 TT 

Lxch " 

FA I LR EG +1 






V-/ ^ i 

1 V W 1 1 



3S77~ 

J* f J, X X 





















0032 

“TITF" 13“ 

"LAST 

1W3 

3 TOO 

^n3TT“T 

"T=irR3 XA 

FAILREG +2 

- 

-- 
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L 

ALARM AMO 

ABORT 





USER'S PAGE NO. 2 

EO S3 
















0033 

REF 

37 

L '^ST 

1231 

5701 

7 4777 

0 

MASK 

POSMAX 




0034 

REF 

417 

LAST 

1490 

5702 

10 000 

0 

CCS 

A 




0035 

REF 

1 



5703 

1 5715 

0 

TCF 

MULTFAIL 




0036 

R EF 

14 

LAST 

1493 

5704 

22 377 

1 

LXCH 

FAILREG +2 




0037 

REF 

2 

LAST 

1493 

5705 

1 5711 

1 

TCF 

MULTEXIT 





0 03 3 

REF 

50 

LAST 

1492 

5706 

4 1036 

1 PROGLARM 

CS 

OSPTAB <-110 




0039 

REF 

2 

LAST 

1469 

5707 

7 7765 

0 

MASK 

QCT40400 




0040 

REF 

5i 

lAST 

1494 

5710 

27*036 

1 

ADS 

DSRTAR +110 

















0041 

REF 

49 

LAST 

1493 

57! 1 

56 061 

15 mulTEXIT 

XCH 

itempi obtain "Return address in a 




00 4? 





5712 

0 0003 

1 

PELINT 





0043 

REF 

418 

LAST 

14*^4 

5713 

50 000 

1 

INDEX 

A 




0044 





5714 

0 0001 

0 

TC 

1 

















0045 

REF 

210 

LAST 

1493 

5715 

3 00 01 

0 MULTFATL 

CA 

L 




0046 

bPp 

5B 

LAST 

1492 

5716 

6 5001 

0 

AO 

Q I T 1 5 




0047 

rW 

15 

LAST 

1494 

5717 

54 3 77 

0 

TS 

FAILREG +2 



■ ^ ... d , , fi 1 =r= 














o 

o 

00 

REF 


last 

1494 

5720 

1 571T 

1 

TCF 

MULTEXIT 





R004 9 

p R r □ L Aprr 

DISPLAYS V05N0^ VTTr 

WrOTST^ 

^ UITR 3 RETURNS TO 

THE USER FROM THE ASTRONAUT AT CALL LUC +l,+2f 

+ 3 ANU 



ROObl 

KW~ 

rRMFOTATF' 

RTTORTT 

To THE USER AT CALL TOC 

' ^ ♦ 1 i t«. 

POLL OW S » 




A005P 








“irsF 

OCTXX ALARM CODE 




A0053 








TC 

BANKCALL 


— 



A 00^54 


(^AUK 


KK 1 ULAKM 



O 5 


A0056 


A0057 

A0038 


7^0039 


rr 



• « • 


PHASCHNG 

XTT 


ASTRONAUT RETURN 

TWMTDT ATF RETURN TO USfcK, RESTAl^T 

PR 10 D I SPLAT 



T5Ty^r 


KFF ? OST 14^ 


0062 


10,3766 

IU7 


BANK 




ru 

DISPLAYS 


rOTT 



a(T6T 


R E F 


lzrB3 


b 



CWNT I 


0064 

0065 


■CRJ66^ 

Tm6T 

TTOTT^ 


WWJ 



LA3T 


ro t JTE^ 

iTT 



D 000 4 TT 

001 1 





IN DISPLAY ~RUUTINE'S“BANK 

SAVE alat.^t:utjb 


V? 


» V L. 


TTFF 


PTF 


24 

6 

TT 


LAST" 1 442 
LA 

LAST 1494 


J 0,J77O 3 0133 ■ 0 



TU6TT7T 

10,3772 3 0TT4' T 

10, 3773” 


7"^ 

» # 


T^r 


0 5657 0 

7746/ 1 


2STC 



BUHZ 

“TSUBOiDT? 


2 CADR OF TR10LA2M TTSHH 



F^nTTF/m^ 

-ircro 


* LbAVtt TVLONF 
DDNT MOVE 


00 W" 

RFF” 

7 LAST 

"inrs 1. . 3 / 7 T~ 

3 5050 

1 






OTTTr" 


“T ~ ‘ 

■ TO' 737 T 7 r 

1 2726 

T 


TC F 

"PR lOOS'PR”' 

= ^ . - - 

- — 



I 



gap: 

ASSEMBLE REVISION 055 OF AOC PROGRAM COMANCHE BY NASA 2021113-051 

10:28 APR« !» 

1969 

CHIEFTAN.028 

PAGE 1495 









t 

ALARM AND A90RT 

USER’S 

PAGE 

NO, 3 

EO S3 





f 


0074 

■ I- ■ — ■ 


5721 




BLOCK 

02 



0075 

REF 1 


6000 




SETLOC 

FFTAG13 



0076 



77‘=^5 




BANK 





0077 

REF 2 

LAST 1493 TO 

1494: 

41 41^ 


COUNT 

02/ALARM 




0078 



7755 

0 0004 

0 

BAILOUT 

INHINT 




0079 

REF 358 

LAST 1493 

7756 

3 0002 

0 


CA 

0 



00 '-".0 

REF 7 

LAST 1494 

7 7 57 

55' 363 

1 


TS 

ALMCADR 














00801 

RFF 246 

LAST 1446 

7760 

0 4662 

1 


TC 

SAMKCALL 



00802 

PFF 2 

LAST 186 

7761 

40000 

0 


CAOR 

VACSSTOR 




OOPl 

REF 8 

LAST 1495 

776? 

51*363 

0 


INDEX 

ALMCADR 



0082 



7763 

3 0000 

1 


CAF 

0 



00^3 

"VF r 


7764 

0 5655 

1 


TC 

BOPTENT 



0084 



7765“ 

40400 

1 

f3CT40400 

nCT 

40400 




00845 



7766 

0 0004 

0 


INHINT 




0085 

REF 80 

LAST 14 V’ 

7 7 67 

3 5016 

0 

WHIMPER 

CA 

TWO 



00851 

REF 17 

LAST 1404 

7770 

6 0005 

1 


AO 

1 



00352 

RFF 1 


7 771 

54 017 

0 


TS 

BRIJPT 



^ ' 00853 



1712 

5 0017 

1 


RESUME' 




00854 

■rEF 6T 

LAST 1465 

1113 

0 4701 

"0“ 


TC 

c»OSTJUMP 

RESUME SFnOS CONtkOl 

. HERE 

oo85zn: 


■ LAST 2€ty 

7774 

12651 

“cr“ 



ENEMA 














008543" 

■VFF ?" 

LAST 1495 

4000 




SETEIX" 

FF T AG7 



0085 45“ 



“ 5771” 









00S5A6" 



5721 

0 0004 

7} 

POODOO 

INHINT 




003547 

RGF 359 

— LAST 14^ 

5722 


0 ■ 


"X“/r 

0 



OOP54B 

TTFr — g — CAs:r Tzns 

5723 

55 ■■ 3 63 



TS 

'TVOTCSDR 




“ 00854V 

PFF ■24T 

— C7.ST~rT95 

5 7 24“ 

■ XT 4’6^ 

V “ 


“TC ' 

CANKUTTLV 



0085 5 

“PIEF T 

LAST 1491> 

5T2Tr 

40000 

7T” 


“XAOP. 

VAC5S lUR 

STORE EKASABLFS FUK 

DEBUGGING PURPOSES* 


HtF nr CTTST 5TZ5 ^1' ibi U I NDtX ALMOaUk 

ooi^kg ft kT77“ 3 0 0 cnn c af^ ^ o 

OO^'bbf lllrk 2 LAS T U'ab srns — 0 5i.S5 1 A3nf<T2 IT BORTENl 


0 0 P, 5 4R 



P7?,l 


u f 


00yi>61 REF 


"T" 

2^ 


KFF i.yrsT 


— rw" 

1450“' 


T 



>JT7 

5T^ 


T7JJ 

T“3Trr7 


r 

T 


r 


T 


TTTCTT 

r34 10 mro 


0 


DCT77770 


UCT 

nr 


TTTTXi 


»1ASK 


V37FLkTT 

(-LAGWRD7 

— 


OOSbb'i ktl- 


T 


57T5 0 7 766 I 


TT 


WHlMPtR -1 


DONT HOVt 


IS AVbkAGh G OIT 


YfeS. DGNII 0U"P(!1!L1(JU. DG UAILIJU! 


ocnr rrm '67 — fast 1 477 5736 u ix ouwnflag 
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L 

ALARM AND ABORT 


USER'S PAGE 

NO. 4 

EO S3 


0089 

REF 5 LAST 1349 

5741 00236 0 AORES REINTFLG 





00*^0 

REF 

63 

LAST 

1495 

5742 

0 5560 

1 


TC 

OnWNFLAG 


00° 1 

REF 

5 

LAST 

144 8 

5743 

00054 

0 


AORFS 

NODOFLAG 



0092 

REF 

248 

LAST 

149 5 

5 744 

0 4662 

1 


TC 

BANKC ALL 


0093 

n 

Tl 

9 

C- 

LAST 

184 

5745 

1 2 501 

0 


CADR 

MR.KLEAN 


0094 

REF 

2 

LAST 

1495 

5746 

0 7767 

0 


TC 

WHI MPER 



0095 





57V7 

0 0004 

0 

CCSHOLE 

INHINT 



0096 

REF 

360 

LAST 

149 S 

5750 

3 0002 

0 


CA 

Q 


0097 

PEF 

11 

LAST 

1495 

5751 

55*363 

1 


TS 

ALMCAOR 


0098 

REF 

2 49 

LAST 

1496 

5752 

0 466? 

1 


TC 

BAMKCALL 


0090 

PEF 

4 

LAST 

1495 

5753 

40000 

0 


CADR 

VAC5ST0R 


0100 

P.EF 

] 



57 54 

3 5756 

0 


CA 

0CT1103 


0101 

REF 

1 



5755 

0 5730 

0 


TC 

ABORT 2 


01 OR 





5756 

0 1103 

1 

0CT1103 

OCT 

1103 


0103 





5757 

0 0004 

0 

CURTAINS 

INHINT 


^ ^ ^ r-_— • M L < Mil 1^— » » ■ ■ . — ■ ■ ■ ■ . — ! ■ ~ ~ ' 

0104 

RFF 

361 

LAST 

1496 

5 760 

3 OOOF 

0 


CA 

Q 


010b 

"RTF 

9 

k ^ 

TAST 

13 ^“6 

5761 

0 565? 

15 


TC 

ALARM? 


0106 





5 7 52 

0021/ 

0 

0CT217 

“nrr 

00217 


oroT 

REF 


LAST 

1496 

5T5T 

"Or 1363 

IT 


TC 

ALMCADR ■ RET 

TO USER 


0103 

REF 

115 

LAST 

14'9l 

5217 



DOALARM 

EQUALS 

ENOOFJOB 


R0109 

CALL ING 

SL-QUE 

NCf~FOR“ 

V aralarm 









AOllO 






CAF 

{ ALARM) 






AOlll 






TC “ 

VARALARM 







R0112 

vaRAlarm 

TURNS ON PPxOGRAM ALARM LICTT 

BUT DOES MOT DISPLAY 






0113 



576“4“ 

0 0004“ 

XT 

V ARAL ARM INHINT 




















0114 

— REF 2T2‘" 

LAST 



54 OCT 

T~ 

T S 

L 

SAVE USERS ALARM CUUb 


















crT5~ 

“■RTF 3CT 

TA ST 1-496 " 

5T6F" 

3 0 0 07 

TJ- 

' CA 

g 

$AvE USERS 0 





0116 

rtf n 

LAST 1496 

5T67 

55* 3 63 

1 

TS 

ALMC ADR 



















OllT” 

■RTF 2 

L ATST TW4 ~ 

■ TTTO'- 

0 '5^56 

I 

TC 

■PTaOENT 






— 0113 



5/71 

o 

o 

o 

T~ 

0CTl4 OCT 

14 

DONT MOVE 



















RFF 14 

LAST 1496 

577? 

TrT363" 

TT” 


“Al.'MCADR 

REIUKN fo USER 






0120“ 

RFP 8 

LAST^rWR ■ 




‘ EOUALS 

BAILOUT 

i|c:9c4c TEMPORARY UNllL AbUKI LALLb UU I 
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tJPOATE PROGRAM 


USER'S PAGE NO. 


EO S3 


ROOOl 


PROGRAM NAM 


P27 


R0002 


WRITTEN BY: 


KTLROY/ OE WOLE 


R0003 


MOD NO; 


R0004 

R0005 


MOD b y: 

date: 


KILROY 
01DEC67 


R0006 


LOG SECTION: 


UPDATE PROGRAM. 


R0007 


FUNCT. DESCR: 


P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA 


^0003 

R0009 


INSERTIONS REQUESTED BY THE GROUND VIA UPLINK. 
TH!= P27 PROGRAM WILL ACCEPT UPDATES 


ROOlO 


ONLY DURING POO FOR THE LM. AND ONLY DURING POOt 
P02» Al’D FRESH START FOR THE C~SM 


ROOT 2 


CALLING SEO: 



AM IS TNITIATEO by uplink ENTRY OF VERBS 70. 71. 72 AND 73 


P 00 1 4 


SUBROUTINES 


TOOTS 


TESTXACT, ^4EWM00EXf NEWMQOEX +3, GOXDSPFr SANKCALL, FINDVAC, INTPRETi INTSTALL, TPAGREE» 
T NT W A'K'FCrrTN'Of-X T , PUS TJU^ , FALTONt NEWPH ASE. PHASCHNG ~ 





TC FALTON FDLCDWEf) BT TC ENDExT 


ROOIT 

R0020 


FSTAirr 



rWO* ¥A^Y^5r. 


TT 



R0077 


FTTOTT 


RU025 

R0T)T7 


ACTIVITY LIGHT 
V70tV/I tY72 


ATEITTF LA G T N VFR^^I ONTWHICTI TST^C AWEID BTHW ^XIUW/AST RLINAUI 'S VbKlhl CATluN OF UPTITl 
ending a V33E WHEN V21N02 IS FLASHINGI— - 

PRb-P27 MUUt IS RESIGRED. COAST 
TFT. nJUST~A5 TF A V T4E 


Tjm 







TFtr AND UPLrW 
UATA LOADSrr 


P0029 


TJU31 


LL HAVE TO BE COMPLETELY RtStNT BY ustK. 

... TFL A G~ TT I VERS rnT TrffHFAT "WTTATF W T HE SPE C lFiE P ERASABLES “IS BEING PER FORFEIT 

FR U T ECTED AGA I N S I R EET 7\RTS ^ 



I? aOT7 

K003~ 


rrEBRTsr;' 


UP3UFF 

UPVERB 


"C >OT)T^^ TEFP SI UR AGE EUR 'ADDKtSSES "ATTa LUNitwTS. 

TTT '0/ERB NU'^BER MINORS ^OD Ib.O. hUK f d f UPVbHB = fZ\) - 70D ^T2T 


ROOBF 


UPOLDMOD 11) 


ROOTTF 

TTOOTB 


CUMPNUMF'dT 


FOR MAJOR MODE INTbRRUPibn BY P2/. 
rar^NUIMBTrR” 0 E CUMPONENIS Tn^BETT 



R 0039 


UPC HUNT 

TTPTTW 


m 


TT7 


ACTUAL' numb ER UF XTTMPONENT 
SCRAICH, BUI 



TYED 




R0042 


ENTirr: 


UbSCRIPTION 


R0043^ 


R0tr45 


V TO ^ X XXXXFXX9CXXE (LlEUiEE I I ME ) NLREMENT}“ 9DUBL E 
rS ADDED T O TE P H EM. SUBTP ACTEETdFnM 



TATT T 1 M E I NC R EM ENT . OOCXTX XXXXJT. 

) , S U BT R ACT ED EFUM 





LEM SIAfE VbCIUK IlMbllblLbM) 
EU AT 2(2BT; 
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L 

UPBATF PROGRAM 


USER* 

S PAGE 

NO. 2 

EQ S3 










ROOSO 

V7iei I EA'XAAE 

(CO'JTIGUOUS BLOCK UPOATt) 1 1-2 OCTAL COMPONENTS. XXXXX. 






R0051 

XXXXXF 

ARE LGADED INTO ERASABLE STARTING AT ECADR. AAAA. 






R0052 

XXXXXF 

IT IS .GF. 3 .AND. .LE. 20D*, 






R0053 


AND (AAAA + 11 - B) DOES NOT PRODUCE AM ADDRESS IN THE 






R0054 

9 NFXT BANK 







R0055 

• 

SCALING IS SAME AS INTERNAL REGISTERS. 














R00S6 

V72f^IIF 

( SCATTER UPDAT'^I (II-1I/2 Of' TAL COMPONENTS . XXXXX. ARt 






P0057 

AAAAFXXXXXE 

LOADED INTO ERASABLE LGCATIONS, AAAA. 






R0058 

AAAAFXXXXXF 

II IS .G-. 3 .AND. -LF. IPOt AND MUST Pi: ODD. 






R0060 

* 

SCALING IS SAME AS INTERNAL REGISTERS. 








PX061 

V73EXXXXXeXXXXXE (OCTAL CLOCK INCREMENT) 

DOUBLE PRECISION OCTAL TIME 






R0062 

INCREMENT XXXXX XXXXX* 

IS ADDED TO THE AGC CLOCK. IN 






R0063 

CENTISECONDS SCALED AT 

(2)28. 






R0064 

THIS LOAD IS THE (^CTAL 

EQUIVALENT OF V55. 






R0065 

OUTPUT: IN ADDITION 

WThE afCOVE REGISTEI^ TKADS. ALL UPDATES 



R0066 

' COMPLEMENT" 

BIT3 "OF FLAGW0RD7. 









RXOFT^ 

ADDITIONAL MOTES: VERB /It 

JUST "DE FTTFir ATOVE WILL ”FE USED TO PERFORM 

r BUT NOT L IMIIeO TU IHfc BULL OWING TJFOATES — 



20069 

Tr CSM7LM "STATE VECTTiTUPDATE 



ROOT? 

■■ ~ 2.XFFFM^AT 

UPDATE 





THE POLL OWING COmFNTS DELINEATE EACH SPECIAL UPUAfb— 



Pt mT5 



WOTS 

R0080 




Kooa^ 


1. XW/LN STATE VECTaR“TJ^DATFrALL"D?^TA tlMiRltS IN fJCTAXT 



VTIt 


AAAAE' 


R0090 

TOUW 


TOO^ 


R0006 

ROUTS 


XXXXXFXXXXXE 

XXXXXEXXXXXF 



XXXXXFXXXXXU 


DATA DtFINITTLWT 


SCALE FAC I (IRS: 


coNTiGaros sincK update' 


mj rTB E F ' 1 F XT* M PC 3 N E NT S 



VtClUR UPDATT 



laXXXEXXXXTF" 

XXXXXFXXXXXE^ 

XXXXXFXXXXXc” 


ECADP, OT 

5TATF VECTIP TDE^T IFTFET OOOOl TTTR CSM* ^ z' /76^FnP. LEM - EAR TH XP HERF~ UF INhLUtNCE SC ALT NO 

TOR IF W”- X UNAF "^SEHERE'^QF INFLUENCE SCALING 


OOU02 FOR 



X POSITION 

Y PGSITl'ON 







I VELOCTTT” 


TIME FPHM agc clock i-m 

V b f’XTS XFXTGTLAL 



SI Art VbCIUK IS READY lU Bb bTORED 


R0144 

F0T4F 



7T~ 
FNTPTi^F: 


TTT r A UT Tia TA ENIRIFS IN 0 CTAL T 
ATTT DEFINI 71 HNS: 


SCALE FAC 105^ S! 
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L 

UPDATF PROGRAM 



USER'S PAGE 

NO. 3 

EQ S3 



'^x0147 

V7l F 

CONTIGUOUS BLOCK UPDATE VERB 





R0146 

24E 

NUMBER OF COMPONENTS FOR REFSMMAT UPDATE 





ROl^O 

AAAAE 

“ECADP“ OF 'REFSMMAT* 





R0152 

XXXXXEXXXXXE 

ROW 1 COLUMN 

1 

2<-l) 




ROl 64 

XXXXXEXXXXXE 

ROW 1 column 

2 

2(-l) 




R0156 

XXXXXEXXXXXE 

ROW 1 column 

3 

2(-l) 




R0158 

XXXXXEXXXXXF 

ROW 2 COLUMN 

1 

2(-l) 




ROl/SO 

XXXXXEXXXXXE 

ROW 2 COLUMN 

2 

2<-l) 




R016? 

XXXXX'^XXXXXE 

ROW 2 COLUMN 

3 

2(-l) 




R0164 

XXXXXEXXXXXE 

ROW 3 COLUMN 

1 

2(-l) 




ROIoq 

XXXXXEXXXXXE 

ROW 3 COLUMN 

2 

2(-l) 




R0169 

XXXXXFXXXXXF 

o.OW 3 COLUMN 

_ 

2(-l) 




R0170 

V33E 

VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE 

STORED. 





cm WTVvm TO'ii? ui 

0172 4 LA!^T 549 4^.>rt00 SgTLnC PXTVER3S 

0173 ^3, 3726 BANK 


OlT^f 13 LAST 7B7 


E5ANK= TEPHEM 


iJlTS BTf I ~ COWnT~fT7T7T 

ITTT^ ITEF 1 43^3 726 ~~T 3021 1 V70UPDAT CAT tJP70 COMES HERE ON V70b' 

Wm iTFF 2 last 236 6-3.3727 1 3735 1 TUF V7 3LIPDAT -i-l 


0173 ■ 

reT 

1 

43* 3 7 30 

3 SD17'1 V71UP0AT CAF 

UP71 

COMES HFRE OM V71E 



0179 ■ 

P,EF 

3 

LAST IT'5’5 4T, 5731 

1 3736 V TCF 

V73UPDAT +T 


1 ^ ^ 

— 


THW 

R EF 

I 


43TTTT2— 

- 3 — 5313" 


V7ZUPTIAT CIF 

UP72 

COMES HERTTIN V72E ■ 

01 81 

FFF 


LAST- 

TTT3 43,3 7TT~ 

~TT7155 

T 

TCT 

irTTOPtlAT +1 






















01.32' 

cE 

1 


47,3 734 ■■ 

3 6214 

u ■ 

V73UPDAT CAF 

UP 7 M 

COMES HtKh UN V /3 e 

.1^ ^ ^ ^ ^ ^ ^ 1 ^ ^ V r t i > r* ^ — 

0183“ 

TEF~ 



• 

u 

ll 

34 33T 

IT 

^1 IS 

UPVtRBbV 

bAVt UPVtKb UNIIL 1 } * Uf\ lU t' C I 











013 4 

RTF" 

i / ■■ 

LAST- 

~ZB1 43,3 Ut, ■ 

"O' '2073 

T” 

nc 

TTSTXSn 

GRAB UISPLAY If available* UIMtHWlbc 

A01R5 









TUKN^UFL kA f OK ERROR* ON ANU TbKMlNAitJUB 


0 n o“ 

FT” 

18“ 

LAST” 

1404 43, 375/ 

3 1011 

ir^ 

CIV 

MODREG 

CHECK IF UHUA! t ALLUWt'J 

““ uTwr 




,T7TI 

aOTTOo 

1 

EXTENTJ 


PlKSl CHECK FUK MODREG = +0* “0 

in 31 




43*3741 

37-^41 

0 

bz f 

+ 2 

(+0 = POO* —0 = FRESH START! 

0 1 IT 

RTF” 

— r~ 


4^,3 /42 

0 3753 

0 

I c 

CKMDMiJPt 

NUW check FUK PRUGKAM WHICH CAN Bt 

A 0 r9T)“ 









INlERRUPTED BY P27. 











0 ITT“ 

REF” 

19 

LASr 

1499 4373733“ 

31'U11 

TT" 

CffE 

MUDREG 

UPUAit ALLuWtu. 

— A fc » IT' t -y*-- «- -■■■ '• - - — - - ■ — ' — 

0X^3“ 

"^FF“ 

9 

TA ST 

r? 4T, 3744 

5Tmri”3r 

T S 

U POL 0^00 

S A V F C U R R E N 1 M A J u K hu t 
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L 

UPOATF PROGRAM 






USER'S PAGE NO. 4 E3 S4 



0193 

REF 

2 LAST 1499 

43,3745 

30 331 

0 

CAE 

UPVERBSV 

SET UPVERB TO INDICATE TO P27 


0194 

REF 

2 LAST 72 

43,3746 

5A 302 

1 

TS 

UPVFR3 

WHICH EXTENDED VERB CALLED IT. 












0195 

RFF 

177 LAST 1436 

43.3747 

3~5017 

T 

CT^F 

DNE 



0196 

RFF 

2 LAST 72 

43,3750 

54 3 03 

0 

TS 

“UF^COUNT 

INITIALIZE UPCGUNT TO 1 



0197 

RFF 

62 LAST 1495 

43.3751 

0 4701 

0 

TO 

POSTJUMP 

LEAVE EXTENDED VERB BANK AND 


OlOn 

RFF 

1 

43,375? 

57373 

1 

CADR 

IJPPAftT? 

GO TO OPDATE PROGRAM! P27r BANK, 



0199 

REF 

13 

LAST 

1449 

43,3753 

4 0101 

T) 

CKMDMORE 


FLAGWR05 


0200 

REF 

31 

LAST 

1476 

43*3754 

7 5010 

1 


MASK 

BIT8 

CHECK IF COMPUTER IS LGC 

0201 

REF 

420 

LAST 

149 5 

43,3755 

10 000 

0 


XC3 

A 

IS COMPUTER LGC OR AGC 

0202 

REF 

1 



43,3756 

1 3 764 

0 

DPERL EM 


UPERROR 

ERROR- IT'S THE LEM + MODE NOT POO, 

0203 

REF 

81 

LAST 

1495 

43* 3'757 

4 5016 

1 


cs 

TWO 


0204 

REF 

20 

LAST 

1499 

43*3760 

7 1011 

1 


MASK 

MODREG 


0205 

REF 

421 

LAST 

1500 

43*3761 

10 000 

0 


CCS 

A 


0 2 06 

REF 

2 

LAST 

1500 

43.3762 

1 3764 

0 

UPERCMC 

TUF 

UPERROR 

ERROR- IT'S THE CMC AND MODE IS NOT 

A0207 











POO UR P02, 

0203 

REF 

~JbT 

LAST 

1496 

43*3763 

0 00T>2 

0 


TC 

0 

^LXnW UPDATE TO PROCEbO 


0209 

RFF 


rs!rr 

1500 

43*3764 

“ “D~ XTOT" 

“0^ 

UPERRW' 

1 

TXrSTJUMP 

TURN ON 'OPERATOW ERROR* LIGHT 

0219 

R F F 

r 



43,3765 

5T754' 

0“ 


CADR 

UPERROUT 

+2 GO TO COMMON UPDATE PROGRAM EXIT 


02101 

RfF 

13 

TXST 

1403 





mJ jrt |\J wf 

^ * W ^ V_jP 1 f 


0211 


T94“ 

LA'ST 

1488 




UFTO 

EQUALS ZERO 


0212 

REF 

178 

LAST 

1500 

5019 



UP71 

EQUALS 

ONE 


0213 

R 5 F 


LAST 

1 5 00 ™ 

571X6“ 



UP? 2 

EQUALS 

TWO 


nrnf 



~TA3’rT4^ 

“62T4 



UP73 

EQUALS 

THREE 



OZIT 

— 

- 

'1X771 75 T 


BANK 

04 





0216 

REF 

? LAST 1331 

27,7000 


SETLOC 

UPDATE2 





Q2TT 



2 7 i 33 73 


BANK 







0213 

■ RFF 

“X 



COUNTS 

S$ZP27 






jj2Ti 2 7 ,3 3 7? UPPART2 EQUALS UPDATE PRUGKAM - ‘PART "Z 


0220^ 

“T5F“XDX 

“XAST 14X6 

“7T7TT73 

0 5412“ 

0 

TC 

HHA'SCHHU 


ORX ULD MODE 


0221“ 




“TT7T3T4" 

777025“ 

1 

7TCT 

0702 6 

AND nnWATUTST ATID EX I T TK R E 

START OCCURS, 


0222 




“T771T75“ 

30000 

1 

OCT 

3CRT0U 

PRIORITY SAME AS CHRPRIO 



02 2 3 

R F F 7 

“TAST“ 

T77 

xnrxr 



XH7VNK= 

U PBUF F 




' 02ZX“ 

X 



~2T^T3T6" 

“Q17T)4“ 

X 

2CADE' 

UPTTUT +X 




0224 

— klt- r 



“277XTTT" 

55X50“ 



















0225 

— KEF“lT5r 


JL — " ^ 

27*3400“ 

■T”5X)XT” 

~T~ 

CAE 

‘Jr 




0225 

— FT^E W 

LAST" 

T0T7 — 

27*3401 

54 332 

1 

T S 

DNLSTCOO 

Dow NL 1ST 















02 77 

XE F 1 3r 

LAST 

800 

27,3402' 

■ 0 BISX 

D 

jxr^ 

NEW MOO EX 

Sei majuk mud*- =■ 27 
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L 

UPDATE PROGRAM 







U$ER*S PAGE NO. 5 E3 53 


022H 





27,3403 

00033 

1 

DEC 

27 



0229 

REF 

3 

LAST 

1500 

27,3404 

50 302 

0 

INDEX 

UPVERB 

BRANCH DEPENDING ON WHETHER THE UPDATE 

0230 





27.3405 

1 3406 

1 

TCF 

+ 1 

VERB REQUIRES A FIXED OR VARIABLE NUMBER 

0231 





27,3406 

1 3411 

1 

TCF 

+ 3 

V70 FIXED- (OF COMPONENTS- 

0232 

2 E F 

1 



27,3407 

1 3414 

1 

TCF 

OHWELLl 

V7l VARIABLE - GO GET NO. OF COMPONENTS 

0233 


2 

LAST 

1501 

27,3410 

1 3414 

1 

TCF 

OHWELLl 

V72 VARIABLE - GO GET NO. OF COMPONENTS 

0234 

REF 

83 

LAST 

1500 

27,3411 

3 5016 

0 

CA 

TWO 

V73 (AND V70> FIXED 

0235 

PEF 

4 

LAST 

177 

27,3412 

54 3 00 

0 

TS 

compnumb 

SET NUMBER OF COMPONENTS TO 2- 

0235 

9EF 

1 



27,3413 

1 3437 

0 

TCF 

0HWELL2 

GO GET THE TWO UPDATE COMPONENTS 


0237 

R c F 

1 



27,3414 

3 3507 

0 

OHWELLl CAP 

AOIJPBUFF 

♦ REQUEST USER TO SEND NUMBER ^ 

0233 

P^F 

725 

LAST 

14B4 

27,3415 

54 156 

1 

TS 

MPAC +2 

* OF COMPONENTS P ARAMETER ( 1 1 ) . 

0239 

REF 

1 



27,3416 

3 3510 

0 

+2 CTtF 

UPLOADNV 


02^0 

REF 

2 50 

LAST 

1496 

27, 341 7 

0 4662 

1 

TC 

8ANKCALL 

DISPLAY A FLASHING V21N01 

02-fl 

RTF' 

IV " 

LASr" 

632 

27.3420 

20561 

X“ 

CTOR 

G OX 0 S PT 

TO REQUEST II. 

■ ■ ■ I— - ■ ■ » ■ M 1 1. ■ — — — ■ .m. ■ ■ — ■ ■ ■ 1 

0242 

— RTF 

1 



27,3421 

1 3704 

IF 

TCT 

UP0Mt4 

V 34 terminate UPDATE (P27 I tlETUPN 

0243 

RFF 

3 

L^ST 

1501 

27,3422 

1 3416 

0 

TCF 

OHWFLLl +2 


0 244 

REF 

1 



27.3-,?3 

0 3500 

1 

TC 

CK4y32 

data op V32 RETURN 

0245 

RFF 

49 

LAST 

1395 

27,3424 

4 5016 

1 


BIT2 


0246 

REF" 

8 

LAST 

1500 

27.3425 

6 0304 

0 

AO 

UPBUFF 

IS IKNUMBER OF COMPONENTS PARAMETER) 

0247 





27,3426 

0 0006 

1 

EXTEND 


-XE- 3 AND -LF- 2 0D- 

024B ■ 

RR!- 


L AST~ 

1501 

27,3427 

6 3416' 

1 

“ — BTRF 

OHWELLl +2 


0249 

P c j- 

9 

LAST 

1501 

27,3430 

4 0304 

1 

CT^ 

UPBUFF 


Q25J)- 

R E F 




27,3431 

6 4 T77r 

“F 

AO 

UP21 


0231 





XT. 34 37 

0 0506^ 

X 

■EXTBNir 



0'2'5'2“ 

— PHTT 

5 

LAST” 

1501 

27.343T" 

6 3 416 

1 

WTW 

OHWELLl 


0253 

“FEF 

TIT^ 

UTfST" 

150T“ 

2 T f 3434 

30 37)4 

TF 


UPBUFF 


0254 

'RE F ' 

5— 

XA^T 

1501“ 

27. 3435“ 

54 3 00 

XT 

TS 

CUMPfVJUMB 

SAVE I I IN LUMPNUMb 



“ 025/1 

XFF" 

T 

LAS 1 

ISCTOT' 

27,3 43 6 

~74 

“3X3rX“ 


TNCT 

UPLUUNT 

INCREMENT CUUMI OF CUMHUNtNlS RECEIVE'D. 

0Z5B""' 

REF 




77. 3 43X'“ 



0 

DHFELLZ 

C AF 

ADUPBF Ml 

calculate loc at iun ( ecaort in UPBUFF 

UT^ 

REF 

— zr~ 

LAST 1501 

27,3440 

“5“ 

^?TJT 

~r 


"Tni 

UPC HUNT 

WHERE NEXI COMPONENl SHOULD 6h SlUKEO- 

OTXD 

XcF* 

^776” 

LAS* 

1501 

2 7. 3^X1 


1 

+ 2 

“TS" 

MPTfC +? 

PLACE ECAOR INTO R3- 

0 261 


7 

TTtST 

■ 1501 

2 1, 5442“ 

3 

3510 

0 

F 3 

C AF 

UPLOAUTTV" 

(CK4V32 RETURNS HERE IF v32 fcNLUUNiEKEUi 

U7E2 


25T"" 

TTTTr 

150 l'“ 

27,3443 

0 

4662 

i 


TC 

BANKCTXT 

Display a flashing vzinui 

Cr2X3 

RfX 

- T5~ 

LAST 

1501 

2 / . 3444 

' 2 05 61 

"X" 


cadr 

GnXDSFF 

!U KEUUfcSl IJA 1 A - 

0264 

-TiTTCr 

1 • 1 

“7 — 

LAST 

1 5 0T“ 

— 2 1 ,3445 

X" 

XTTTX 

XT 


TCF 

UP0UT4 

V34 TERMINATE UPDATE(P27l RETURN- 

rrzE5 — 

XXF 

T~ 

LAST 

1501 " 

27,3446 

"T“ 


nr 


“TTF 

imWtLLZ '^ 5 

V 3 3 P H UC E t U K b 1 UK N 

0766 

TTEK 

2 

r“\ 1 

■ 1501 ■ 

2 / .344 7 

vr 

T5'00' 

~r 


1C 

C K 4V 32 

DATA OR V32 RETURN 

0757“ 

PXF 

■ ■ 5“ 

TAST 

1 50 i 

2 7,34Fa 

X 

0303" 

XI 


xs 

UPC HUNT 

FTAVE WE FINISHED RECEIVING ALL 

07XB 

XXF 

6” 

T71ST 

150 r“ 

2 / ,345T' 

6 

0'3O0 

1 


“xcn 

COMPNIJMB 

IHt DATA Wt EXPEL ftU- 

— 07o9 





27. T457“ 

tr 

0006 

nr 


EXTEND" 



0270 





27,3453 


34F5 

"ir 


RZMT 


YES*^ GO TU vEKirlCMllUN bbwUtNLr: 

TTTT7. 

"RTF' 



LAST 

15Ui 

2 ',3464 

"T“ 

3436 

n“ 


! C F 

' H W cl. L 2 — I 

NU— KhUUESl A’JDIIIIINAL DA* A- 
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r UP DAT P PROGRAM USER'S PAGE NO# h E3 $3 


R0273 VERIFY SEQUFMCE 


0274 

REF 

1 



27.3455 

3 

3506 

1 

UPVER IFY 

CAF 

AOUPTE'^P 

PLACE ECADR WHERE COMPONENT NO. INDEX 

0275 

o cp 

» \ i» 1 

727 

LAST 

1501 

27,3456 

54 

156 

1 


TS 

MPAC +2 

IS TO BE STORED INTO R3. 

0276 

RE<= 

1 



27,3457 

3 

3511 

1 


CAF 

UPVRFYNV 

(CK4V32 RETURNS HERE IF V32 ENCOUNTERED) 

0277 

REF 

252 

LAST 

1501 

27,3460 

0 

4662 

1 


TC 

BANKCALL 

DISPLAY A FLASHING V21N02 TO REQUEST 

027fl 

REF 

16 

LAST 

1501 

27,3461 

20561 

1 


CADR 

GOXDSPF 

DATA CORRECTION OR VERIFICATION. 

0279 

REF 

3 

LAST 

1501 

27.3462 

1 

3704 

0 


TCF 

UP0ur4 

V34 TERMINATE □Pl)AtE"( P27 1 RETURN 

0230 

REF 

1 



27,3463 

1 

3512 

0 


TCP 

UPSTORE 

V33 DATA SENT IS GOOD. GO STORE IT. 

0281 

REF 

3 

LAST 

1501 

27,3464 

0 

3500 

1 


TC 

CK4V32 

COMPONENT NO. INDEX OR V32 RETURN 

0 28 2 

PEF 

2 

LAST 

72 

27,3465 

3 

0330 

1 


CA 

UPTEWP 

DOES THE COMPONENT NO, INDEX JUST SENT 

02 33 





27 , 3466 

0 

0006 

1 


EXTEND 


SPECIFY A LEGAL COMPONENT NUMBER? 

02 8'+ 

RFF 

2 

L AST 

1501 

27,3467 

6 

3455 

0 


BZMF 

UPVFRI FY 

NO, IT IS NOT POSITIVE N0N7ER0 

0285 

» EF 

3 

LAST 

1502 

?7,3470 

4 

03 30 

0 


CS 

UPTEMP 


0283 

REF 

7 

L AST 

150 1 

27,3471 

6 

0300 

1 


AO 

COMPNUMB 


02 3^ 

RFF 

82 

LAST 

1465 

27,3472 

6 

5017 

1 


AO 

BTTl 


0270 





27, 3473 

0 

0006 

1 


EXTEND 



0291 

7 E F 


LAST 

1502 

27,3474 

6 

345 5 

0 


8 7HF 

UPVER IFY 

NO 

0272 

REF 

2 

LAST 

1501 

27.3475 

3 

3654 

0 


CAF 

AOUPBFMl 

YES- BASED ON THE COMPONENT NO. INDEX 

02 73 

RFF 

4 

LAST 

1502 

2 ’^, 3476 

6 

0330 

1 


AD 

UPTEMP 

CALCULATE THE ECADR (JF LOCATION IN 

0294 

REF 

4 

LAST 

1501 

27,3477 

1 

3441 

1 


TCF 

0HWFLL2 •*■2 

UPBUFF WHICH USER WANTS TO CHANGE. 















R PF 

2 

LAST 

“TWO” 

27.3704 




U POUT 4 

EOOTALS' 

UP OUT +1 

COMES HERE ON V34 TO TERMINATE UPDATE 


R029rS 


‘CHECK FUP VERB 32 SEQUENCE 


0?T7 

- -QCf- 

T28'" 


"T5132“ 

2775^00 

4 0154 0 

CK4V3T 

X3 

"MFAC 

ON DATA R'ETURN FROM 'GOXDSPF* 



079^ 

“RTEF 

55 

LAST 

1477 

— 27,3501 

7 5012 0 


MASK 

inrs 

ON T>ATA RETURN FROM "G0X05P”& THE CON- 



0299 

REF 

422 

LAST 

1500 

27,3502 

10 000 0 


TITS 

A 

TENTS OF MPAC = VERB. SO TEST FOR V32. 



03 00 

i^FF 

364 

LAST 

1500 

2T,'3W3 

"0 0002 TT 


TC 

Q 

1T*S NOT A V32, IT*S DATA. PROCEED. 



"■ OTor 

“ RFE 

3W 


1502 

27, 350 4 

“511 “ao2^7r 


INDEX' 

Q 




0302 





27,3505 

7*7771 0 


TC 

0 "* 6 

V32 ENCOUNTFRED — GO BACK AND GET DATA 




OTDT 

RFF^ 


LAST" 

~TS02 

27, T506 

0U33 □ T 

ADUPTEMP 

ADRES 

UPTEMP 

AOIjKbb5 UE ItMH blUKAGt I-IJK UUKK CU I I UIN:> 



0306 

FF 

11 

LAST 

1501 

27,3507 

00304 9 

ADUPBUFF 

AO RES 

UF* Bt -J F F 

ADDRESS OF UPDATE DATA STORAGE BUFFER 



03 07 





7T. 5 510 ' ■ 

~mjui i 

UPUTTAONV 

VN 

2101 


T m r 







2777311 

“D5’2TT2“ 1 

“TJFVRFYNV 

V^' 

rni2 

VERB Z1 NOUN 02 



0309 

REF 

3 

LAST 

1204 

43 76 


UP21 

— 

“Rin 

DEC 2l = MAX NO OF COMPONENTS +l 



0312 1 

“RbF" 

2 3 

~UKsr 

~IW7 



UPDTPHAS “FQUAUS P I VE 

















8 0818 



PRE- 

b 1 U K lT 

AND FAN TTT 

APPRnc>Rl id 

1 j ^ Lj ^ Vrf 1 1 

SEQUENCE 

















0 314 





■ "77, 3"5T2 


■ IIPSTORT 

EWALS 


GROON 0 HAS VtKIFltD UPDATE* STORE DATA* 
















0'3T5“ 





2 7 , 3 '3 1 2 

U 0 0 04“7r 


TNHINT 






0316 

REF“ 

25 

LAST 

1495“ 

— 27,3513' 

30 103 0 


XM 

FLAGWROr 

INVERT VERIELAGIBl I 3 UP hLAGWHUfJ PJ 



03 n 



LAST 

1 4 '75' 

77, WITT 

56 001 T 


“XCET 

L 

INOTT ATE“Tn THE GKUUNUlVIA DOWNLINK I 



0318 ■ 

7EF 

W" 

‘TTAST 

'r4giar 

2T,TTPT~ 

WoO 15 T) 


t;af 

B 1 T3 

that IHE V33 (which THE GROUND SENT TOT 


— 



— 
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L 

UPDATE 

PROGRAM 






USER'S PAGE NO. 7 E3 S3 





031^ 




?7,851 5 

0 0006 

1 

EXTEND 


VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY 




03?0 

KEF 

16 

LAST I486 

Zl, ^51'' 

o 

o 

0 

KXOR 

LCHAN 

RECEIVED BY THE UPDATE PROGRAM 




03?1 

OFF 

26 

LAST 150? 

27t3520 

5A 103 

1 

TS 

FIAGWR07 


















0322 

KEF 

1 OS 

LAST 1500 

?''.3 52 1 

0 5412 

0 

TC 

PHASCHNG 

SET RESTART GROUP 6 TO REDO THE UPDATE 




0323 




27,3522 

040 2 6 


OCT 

04026 

DATA STORE IF A RESTART OCCURS. 




032-^+ 




?7,?.5?3 

0 0004 

0 

INHIMT 


(BECAUSE PHASCHNG DIO A RELINT) 





032 3 

REF 

84 

LAST 

1501 

27*3524 

4 5015 

1 


CS 

TWQ 

GO TO UPFNDVAC IF INSTALL IS REOUlKbD, 


0326 

REF 

4 

LAST 

1501 

27,3525 

6 0302 

0 


AD 

UPVERB 

THAT IS, IF IT'S A V70 - V72. 


0327 





27*3526 

0 0 0 06 

1 


EXTEND 


GO TO UPEND73 IF IT'S A V73. 


0323 

REF 

1 



27,3527 

6 3536 

1 


BZMF 

UPFNDVAC 




R0330 



VERB 

73 BRANCH 



















% 


0331 





27*3530 

0 0006 

1 

UPEND73 

EXTEND 


V r3~PfcRPMRM OP OCTAL AGC CLOCK INCREMENT 


033 2 

REF 

12 

LAST 

1502 

27,3531 

3 0305 

1 


OCA 

UPBUFF 



0333 

KFF 

13 

LAST 

1503 

27,3532 

52 315 

1 


DXCH 

UPRUFF +80 



0334 

REF 

1 



27,3533 

0 3561 

d 


TC 

T I MEDIDL 



033 5 

: F F 

1 3 

LAST 

778 

27,3534 ' 

0 4400 

1 


TC 

FALTQN 

ERROR— TURN ON ^OPERATOR ERROR* LIGHT 


0336 

E F 

3 

LAST 

1502 

27,3535 

0 3704 

1 


TC 

UPOUT +1 

GO TO COMMON UPDATE PROGRAM EXIT 















033? 

KFF 

T 

“LA5T" 

1449 

27 * 3 53 6 

"T ■43 71 

0 

UFFNWAX 

CAF 

C PR I 0 

(USE EXTtNUtU VERB PRIORITY) 


0338 

peE 

33 

LAST 

1478 

27,3537 

0 5147 

0 


TC 

FINDVAC 

GET VAC AREA FOR ’CALL IN^ stALL* 




REF 


LAST 

14<?G 

E3. 1 706 




“FBAW^ 

TTmrM 

\ 



0340 

P'EF' 

1 



27.3540 

DTF4T 

0 


2CA0R 

U F J 

(note: this wilt ALSO SET fBaNK FUK 

- - — 

0340~ 

REF' ■■ 

— T 



— 27,3541 

56063 

1 






rmr 

“TTFT' 

1 1 6 

LAST” 

14T6“ 

' 27,3542 

nor- 5 2 IT" 

TT 


"TC 

EfvIDOF JUB 

•TbPHEM* UPUAlt BY V70) 



0342“ 

^EF“ 

T47r 

LAST” 

1 3'6 T" 

— 27/3543 

0 6006 

1 

UPJOB 

nx 

I NTPKFT 

THIS CnULU nt A SI Alt VtLlUK UHUAlt — 51J 


034’ T-“ 





— 2T, 3 54T" 

77 6Z4 

4” 


CALL 


WAIT(PUF JOB TO SLtbPl IF OKHIT INMnlJ 


0344 

'RTF” 


LAST 

1329 

27. TS'AX 

27442“ a 



I NT STALL 

IS TN PROGRESS — OR — GRAB Ul AND RETURN 


A 0345 











To UPWAKE IF DI IS NOT IN PROGRtSS. 















0346 





2T7 J^4 6 

77776“ 

“T” 

TJRWAKB' 

TXTT 




— — ■■ ■ — ^ — . ■ ■ > — ■ i ■—1 ■■ ^ m — — 

034 r 

KFF 

106 

t4Sr 15 03 

2 ',3 54T” 

TrS4I2“ 

or 


^TCT 

PHASCHNG 

RtSIAKI RWU 1 fcU 1 IbKUUP OJ 


■ '0 T4 8”" 





27,355D 04026 

TF 


nxT 

04X2 S 




0 -i 50 

— TTET” 


“TAXr 

~prrs 

7 /,3 551' 

U 5546 

” 0 ” 




it 1 irj I tOK A 1 l UN KCifMKI Dll 


03TI 

— RFF” 

6 

— CTTST' 

■T4T6“ 

Z7TTT57” 

002 3FTr 


“ATTKES 

K E 1 N 1 F Lb 



036T“ 





27* '35 53" 

0 0004" 

TT 


INHINT 




0355 





' 27. 35’>4 



“UFFAFTT” 

EQUALS 




_ x-.-a -- gm ' ■ - ^11- 













0356 “ 

“RTF" 

5" 

— LAST" 

1 5'0'i” 

27,3 554' 

50 302 

TT 


INDETT' 

UPVERB 

branch IU I Ht APPROPK 1 '3 1 h UFUAlt VFRB 


0357' ■ 





27*35 5T 

1 3556 

TT 


“TXF 

F 1 

RUUllNb lU ACTUALXY PbRFORM I Hh UPUAI t 

- _ ■' J ■■ ■ - ■ — ^ . ^ ' - --- - - 


0358 “ 

— FFF” 




8556 

■“1 3 TIT 

TT 


1 C F 

UPENUTO 

V / 0 


0350 

— TEFF" 

T 



2/ *3557 

1 3674" 

TT 


TCF 

U P t N f J 

V F 1 

. ■ ■ 


0 3 6 0 

— RTF” 

r 



" 2/, 3560 

T 37r5X 

TT 


T C F 

UPFND72' 

V7 2 





GAP: ASScMPLE R'-VISTON OS5 OF AGC PROGRAM COi^ANCHE BY NASA ;?0?III3-Q51 


10:28 APR* 1.1969 CHItFTAN.028 


ORHATE PROGRAM 


USER'S PAGE NO. 


E3 S3 



R0361 


ROUTINE TO INCREMENT C LOG K ( T I ME7» T I ME 1 ) W I TH CONTENTS OF OP WORD AT UP8UFF 


0363 


27.3561 0 0006 1 TIMEOIDL EXTFMD 


0364 


P FF 


LAST 1502 


27,3562 22 330 1 


OXCH 


UPTEMP 


0365 
0 365 


RFF 295 LAST 1500 


27.3563 

27.3564 


3 5021 1 
22 007 0 



ZERO 


SAVE 0 FOR RETURN 

ZEftO AND SAVE TIME2.TIME1 


0367 


REF 34 LAST 1443 


27,3565 52 025 1 


DXCH 


TI MF2 


0368 


REF 14 LAST 1503 


27.3566 52 327 0 


DXCH 


UPBIIFF +18D 


STORE In case Of^OVFRFLOW 


0369 


REF 


1 


27,3567 3 5022 1 


CAF 


UPOTPHAS 


DO 


0370 

0371 


PFF 214 LAST 1502 


27.3570 

27.3571 


54 001 1 

4 0000 0 


TS 
COM 


A 

OLIICK 


03711 REF 


LAST 696 


27,3572 52 765 1 


DXCH 


-PHASE6 


PHASCHNG 


0372 


27,3573 0 0004 0 TIMEDIOR INHINT 



PICK UP INCREMENTERI AND ZERO 
IT IN CASE OF RESTARTS) AND 

STORE'TT 


INTO MPAC FOR TPAGREE 


03 73 
0379 


EF 16 LAST 1504 


27.3501 

27,3602 


0 0006 T 

3 0327 1 


0330 


0331 
038 2 


REF 731 LAST 1504 


lEF 


27,3603 20 1 55 1 


EXT EIHIT 

OCA 

MI 


IJf>BUFF +180 


FORM SUFT IN MPAC 


0383 


03 34 


REF 297 LAST 1504 
^FF n LAST 1504 


27.3604 0 0006 1 

27.3605 1 3614 0 

27,3506 3 5021 1 



EXTEND 
BZF DELTATOK 

5F 


TEST FOR nVERFLTlW 



0385 


n c 


EF 35 LAST 1504 



DOT VALUE OF CLUCK 


27,3610 20 025 1 


DAS 


TI ME2 


RATOR FrRDR 



LFF“"T07 L3 



T5D3 


0337 


ZT; 3 6T T 
27,361 


T T 5412 Jy 
04026 1 



PHASCHNG 
40 


RESTART POJThCO GROUP 6> 



OTTO 




UJCST T5a4 


2 7,3613 “OOr33D T 


UPTEMP 


em 


I ^ 


m 


0389 


0390 


PEF 
R Fl^ 32 


14 L 




OIT 1504 


2Tr3Fr4 

^ f 



0891 


REF 36 LAST 1504 


27,3616 20 025 1 


Cr7226“ 0“ TrE r T A TO K TC 

DXCfl 

daS 



r 


STiT 52 155 T 




INCREMENT TTMF2.TIMtl 


11312 




0393 


LAST 1504 27.361 / 

27,3620 


T054T2 0 

O4026 1 


TC 



RESTART “PRDTECr IGK uUp ^ 



04026 


02 


jZj 


03 95" 


fef 


8 LAST 1504 


771 3-6 ?r irwo^’o’ 

27,3622 50 330 1 


TNHTTIT 

INDEX 


U P T ETTR 



WAY FOR RESIARl PRUTECllJPTT 


27 , 3673 nmumny 


TZ 


T 


NORMAL“TTETTmr 



71 RRATvIOT 


0402 

0 4 03 









14^75 


TTTToTTT jry 

2 7.36 



T — UPEND7T 





CITE 

T 


U':^BUFF“+T 


SET EBANnC 


mu 











gap: 

ASSEM^^LE REVISION! OS5 OF AGC PROGRAM COMANJCHE BY NASA 202111 3-051 

10:28 APR. 1. 

1969 

CHIEFTAN.028 

PAGE 1505 







L 

UPOATE PROGRAM 

USER’S 

PAGE 

N0« 9 

E3 S3 


040^t 

REF 17 

LAST 

1435 

27,3626 

7 4373 

0 

MASK 

LOWS 

CALCULATE 

0405 

REF 9 

LAST 

1504 

27.3527 

54 330 

0 

TS 

UPTFMP 

S-REG VALUE OF RECEIVING AREA 


0406 

'^EF 5 

LAST 

1435 

Z7,it>36 

6 7714 

1 

AO 

NEG3 

IN THE PROCESS OF 

0407 

8 

LAST 

1502 

27,3631 

6 0300 

1 

AO 

C0MPNUM8 

PERFORMING 

0403 




27,3632 

0 0006 

1 

EXTEND 


THIS UPDATE 

0409 

PEF 1 



27,3633 

1 3641 

0 

B7F 

ST0RLP71 

WILL WE 

0410 

REF 39 

LAST 

1467 

27,3634 

7 5007 

1 

MASK 

BIT9 

OVERFLOW 

041 1 

PEr 423 

LAST 

1502 

27,3635 

10 000 

0 

CCS 

A 

INTO THE NEXT EBANK..,. 

0412 

PEF 2 

LAST 

1500 

27 , 3636 

1 3752 

0 

TCF 

UPERROUT 

YES 


0413 

REF 6 

LAST 

1505 

27,3637 

3 7714 

1 

CA 

NEG3 

NO- CALCULATE NUMBER OF 

0414 

PPF 9 

LAST 

1505 

27,3640 

6 0300 

1 

AO 

COMPNUMB 

WORDS TO BE STORED MINUS ONE 

0415 

7EF 733 

LAST 

1504 

27,3641 

54 154 

0 

ST0PLP71 TS 

MPAC 

SAVE NO. OF WORDS REMAINING MINUS ONE 

0416 

REF 424 

LAST 

1506 

27, 3642 

50 000 

1 

INDEX 

A 

TAKE NEXT UPDATE WORD FROM 

0417 

H E F 1 9 

LAST 

1504 

27,3643 

3 0306 

1 

CA 

1 JP 8 UFF +2 

UPBUFF AND 

0413 

REF 215 

LAST 

1504 

27,3644 

54 001 

1 

TS 

L 

SAVE IT IN L 

041 ^ 

REF 734 

LAST 

1505 

27,3645 

3 0154 

1 

CA 

MPAC 

CALCULATE NEXT 

042 0 

F F 10 

LAST 

150 5 

27,3646 

6 0330 

1 

AD 

“UPTFMP 

RECEIVING ADDRESS 

0421 

REF 425 

LAST 

150 5 

2T;3647 

50 000 

1 

INDEX 

A 


0422 




F3,1400 



EBANK= 

1400 


0423 ■ 




27 , 3650 

23*400 

1 

LXCH 

14G0 

UPDATE THE REGISTER BY CONTENTS OF L 

0(424 

“■RTF ll' 

LAST 1503 

1 - 3,1 706 



Fbanjk= 

tfphem 



REF 735 

LAST 

1505 

27,365 1 

10 154" 

"0“ 

CCS 

MPAC 

ARE THERE ANY WORDS LEFT TO BE STORED 


p F F 2 

LAST 

T5F5 

27,3652 

1 3641 

0 

TCF 

“ ST0RLR71 

YFS 

04rr 

■RTF 4“ 

LAST 

~T5m 

27,3663“ 

1 3703 

1 

TCF 

UPOUT 

NO— THEN EXIT UPDATE PKUGRAM^ 

04T"^ 

PEF 20 

LAST 

150 5 

27, ‘.>54 

00303 

1 

AoUPeFMl ADRES 

UPBOFF'^T 

SAME AS ADUPBUPE BUT LESS 1 1 DLJIM ■ I MUVEI 



REF 5 

L7STT 

1505 

“27,365F- 

■ 1 3703 

T 

TCF 

UPOUT 

NO- CXIT UPDATbiHERt WHEN COMPNUMB = 3) 



“ — R0430 


A/ERF 

~TZ~ W A” 

vf’ H 
















0431 ■■ 

“ 35777 : gr 

LAST 

15o2 

27, 36 56“ 

3 5017 

1 

UPEND72 CAF 

R I T 1 

HAVE AN ODD NU* UP COMPUNhN I S 

7^432 

PTF TO" 

LXST' 

150 5 

27, 36 5 7' 

7 03 00" 


WASTK 

TTCWNIIMB 

BEEN ScNT FiJK A V f ^ UPUATF««« 

0433““ 

— p E F "9!f 2 6" 

“TATST 

1575^ 

27, 16'6Tr 

10 000 


^^^^7X5 

A 


0434 ■ 




"TTTT^Fr 

1 3663" 

0 

TCF 

+2 

YES 


REF 3 

TTLST 

T5TTT' 

2T,36"62' 

“ T 3T3Z“0' 

rcT 

UPERRUUI 

ekkuK— Should Be Out) NU« OF COMPONENTS 

t 

RFF 50 

T'ASl 1501 ~ 

^7,36'6F 

4 50 1 6 





0457"” 

”5rFF — rr 

uzTS'r 

T5TJ5 — 

27,3“o6'7r 

6 03 0'’) 

1 

ATj 

CU MP NUMB 


0453 

REF T35^ 

L A ST“ 

150 5 

2/, 3665 

54 1 5'+ 

"TF 

“Ll)LIJUP72 TS" 

7TP71C “ 

NOW PtKEUKM THE UPDATF 

0454 

Pth APT" 

LAST 

T50‘5 

“27,7446 50 OOTJ 

1 

“ ■ I NOF X" 

A 


045 6 

"”TrF — TT 

LAST" 

1505 

27.T6'6r 

30 if)’’ 

T" 

CAE 

U P B U ^ F +1 

PICK Up NbXl UPUAFh WORD 

045o 

““RTF “423" 

■ LAST 


2 7. 36 ;0' 

22 000 

~ir 

LXGF 

A 


0457 

^ liF 

L“ATrr 

I F03 

2T , 3 6 / 1 

— 10 “ITZf 

0 

CCS" 

MPAC 

SET Pointer to ecaorimust bc lcsi 

045 V“ 

PrF r3H 

LAST 

T5T75 — 

27. i6 77' 

54 154 

0 

T S 

MPAC 


04:5’9 

— REF 479“ 

— LTTTT 

1505 

2 /, 36 7 3 

50 000 

1 

“ I INDEX" 

A 


0460' 

RFF Z7~ 

“LAST" 

1505 

27, 3674 

30 


CAE 

“UP PUFF TT 

PICK UB NEXT EuADR Or KEG lU BE UPUAiEU 

04bl 

6ir 

LAS I" 

] 504 — 

7 7.36 75" 

54 "UOR" 

0 

IS 

t B A N K 

SET EBANK 

0457 

E F IB 

L AST 

1505 

2 7, 3 676- 

— 7 4T77' 

TT” 


L >TW 8 

ISOLATE RELATIVE ADDRESS 

a46T 


TA'ST 1505- 

27,3677' 

— 50 000 

1 -^ 

1 NOEX 

A 



II 


















gap: 

ASSEMBLE 

REVISION 05*5 OF AGC PROGRAM COMANCHE BY NASA 2021 1131-051 

10:28 APR. 1,196-? 

CHIEFTAN.028 

PAGE 1506 







If M * P ■■ ^ i 1 . i 


L 

IJPOATE 

PPnOGRAM 

USER'S PAGE 

iTa; TO 

E3 SS 



0464 





F3t1400 



EBANK= 

1400 




0465 





27,3700 

23*400 

1 

LXCH 

1400 

UPDATE 

THE RFGTSTEP “BY CONTENTS OF L 


046 5 

E F 

16 

LAST 

1505 

E3 • 1 706 



EBANK= 

TEPHEM 

1 




0A67 

kEF 

739 

LAST 

1505 

27,3701 

10 154 

0 


MPAC 


THROUGH THF V72 UPDATE... 


046 B 

REF 

1 



27.3702 

1 3665 

0 


LOLnOP72 





-? 0469 


NORMAL FINl 

SH'OF "p?:r 










047U 




2 7 . '3 703 



UPOUT 

EOUALS 





0471 

REF 1 



27,3703 

0 2671 

0 


tc 

TNTWAKEU 

R £ L F A S F 

GRAB UP UKBTjAl INTEGkATIuN 


0472 

FFF 3 

LAST 

1499 

27,3704 

0 

u) 

0 

0 

+ 1 

CAE 

U90LDMOO 

RESTORE 

PRIOR P27 MODE 


0473 

REF 14 

LAST 

1500 

27,3705 

0 5357 

0 


TC 

NFWMODEX +3 




04 7 4 

ocp 093 

LAST 

1504 

27,3706 

3 5021 

1 


CAF 

ZERO 




0475 

REF 9 

LAST 

15 00 

27,3707 

54 33? 

1 


TS 

ONLSTCnO 




0476 

REF 3 

LAST 

593 

27,3710 

0 3757 

1 


TC 

UPACTOFF 

TURN OFF 

•UPLfNR activity* LIGHT 




0477 





27,3711 

0 0006 

1 

EXTEND 


KILL GROUP 6 . 




0478 

7 EF 

17 

LAST 

1424 

27,371 2 

3 5021 

1 

OCA 

NEGO 





0^79 

RE r 

4 

LAST 

1504 

27 . A 7 13 

37 T 55 ^ 

1 

DXTH' 

-c>HASE 6 






0480 

r'EF 

34 

CATT 


— 27,3714 

0 55 T 4 “ 

” 0 “ 

— - Tr. 

TNOEXT 

EXTENDED VERB EX I I 



















R 0481 



V^RR 

70 P,R 

A NC R ’ 










0432 





27,3716 

0 0006 


UPEMD 70 EXTEND 


V 70 DOES THE FOLLOWING WITH DP DELTA 

. . • »!■ !■ ■ ■ ■■ ■ ■ ■ ■ ■■ ■ - ■ !■■■>■■ .... * _ 1 H ^ — 




048 3 

REF 

2 3 

LAST 

1505 

27,3716 

4 0305 

0 

“ DCS 

UPBOFf 

Time in uprufp 




04 34 


24 

LATT 

150 b 

TTTTTTT 

5 2 315 ' 

T“ 

' 

UPbUFF +80 





0485 

R F F 

2 

LAST 

1 503 

27, 3720 

0 3561 

" 0 “ 

TC 

TTMEDIOL 

decrement agc cluck 


















04 35 

PR> 


LAST 

T 50 i 5 r 

27 T 3 TZr 

" TT“ 3 TyZ 

T 

TC 

UPETRTTOT 

ERRUR WHILT DECREMENTING rtOCK — EXIT 


















04 HT ' 


TT~ 

UAsr 

150 6 " 

FTVTTD'^ 



EB 7 VNK= 

TfcPHESI ■ 

% 





04^8 





2 7 1 

a 0006 


EXTENTT 






0439 

REF 

25 

LAST 

1506 

27 , 3723 

4 03 05 

TT 

[TUS 

UPSUFF 

COPY DECREMENTEKS FOR 




0490 

'^EF 

26 

LAST 

TS'O'S' 

ZTiTTl^ 

52 317 

0 

TTXC H ' 

Tjorur-F +100 

RESTART PROTECTION 




0491 





2 T f 3 T ? ^ 

0 0006 

1 

FXTFMO 






0492 

REF 

27 

LAST 

1 506 

27.3726 

4 0305 

0 

DCS 

IJ P B L! F F 





0493 

“in=F ■ 

2 T“ ' 


1506 

TJTTTTT 

52 321 

“TT 

nxcH 

UPBUFF + 12 D 




- . — 1 11^ — ■» — - JIIMIIM 1- — LJ. . 


0494 


10 ' 9 "" 

"orsT 

1504 

— 27,3 730 

0 5412 


TC 

PHA 5 CHNG 

RESTAKI PKFJ 1 FC 1 IGKUUR 51 




049 5 





7 T, 3 T 3 T’ 

04075 ' 

T 

OCT 

04026 



















04 '-^ 6 

R FT ■ 

299 

LAST 

T^TTF- 

27,3732 

— 3 5021 

nr 

CAF 






0497 ■ 





27 ,"T 71 T 

'72 007 

nr 

ZL 






“ 0493 “ 

n ^ P 


~OrST' 1506 

2 ^ . 3 7 X 4 ^ 

— 52 317 

nr 

DXCFI' 

UPBUFF ^TUT) 

UtCKbMbNT CSM STATE VECTOR TIME 






3 “ 

LAST 

— rnr 

27,3735 

2 i» b'nr 

1 

Das 

T F T C S M 



















0500 “ 

0 r p 

* ' 1 1 


l_AST'T 5 Cr?r 

> 7 , 37 X 6 " 

3 ~W 2 T“ 

“ 1 “ 

CAF 

■ ZFRf) 

_ — ----- -I-. ..1 ■ ■ — 




I 


GAP 


ASSEMRL^z REVISION 055 OF PROGRAM CGMANCHF BY NASA 20211XG-051 


10:28 APR 


1.1^69 CHIEFTAN.028 PAGE 1507 


L 


UPDATE PROGRAM 


USER'S PAGE NO 


11 


E3 S3 


I! 


0501 





27,3737 

22 007 

0 

ZL 




0502 

REF 

30 

LAST 

1506 

27^3 7''40 

52 321 

0 

OXCH 

(JPBUFF +120 

DECREMENT LEM STATE VECTOR TIME 


0505 

REF 

3 

LAST 

36 

27,3741 

“2 r’» 643 

0 

DAS 

TETLFM 















0 504 

REF 

301 

LAST 

1506 

27,3742 

3 5021 

1 

CAF 

ZERO 



0505 





27,37*^3 

22 007 

0 

ZL 




0506 

P FF 

31 

LAST 

1507 

27,3744 

52 305 

0 

OXCH 

IJPBUFF 



05 07 

R t F 

13 

LAST 

1506. 

27, 3745 

21 *710 

1 

OAS 

TFPHFM +1 

increment TP TEPHEM 


0503 

REF 

10 

LAST 

1507 

27,3746 

27* 706 

0 

ADS 

TEPHEM 

— * 




0509 


110 

LAST 

1506 

27,3747 

0 5412 

0 

TC 

PHASCHNG 

RESTART PROTECTCGROUP 61 


0510 





27,^750 

04026 

1 

OCT 

04026 















0511 

2 cF 

32 

LAST 

1507 

0304 



E6ANK= 

UPBIJFF 



1 

0512 


6 

LAST 

1505 

27,^751 

0 3703 

0 

TO 

TIP OUT 

GO TO STANDARD UPDATE PKUGKAM tX I 1 















R0513 



ERROR 

SFO'UFNlin 








0514 

REF 

14 

LAST 

1503 

27,3752 

0 44 00 

1 

UPERROUT TC 

FALTilN 

TURN ON *0PFKAT0R ERRORS LIGHI 


OTTS 

REF 

T" 

LAST 

1507 

“T7TT7W“ 

1 3703 

1 

TOT 

upuy^ 

GO TO COMMON UPDATE^PROGRA M EXTT 



(J5T? 


~TT~ 

last 

1507 

27,3754 

0 44 00 

"1 

+2 TC 

FALTON 

TURN ON 'nPFRATUR fcPRUK* LIGHJ 


0517 

■rFF' 

4 

last 1506 

27,3 75 5'^ 

0' 37S7 

1 

TC "■ 

UPACTOFF 

TURN DFh*UPLINK ACT! V I TY* L I GFfT 


0513 

ITFF 


L A smro o " 

ZTTTTSb 

rr 5 534 



ENDEX 1 

EJn'FWUbO VERB EXIT 


A 0519 










I THE '^UPPOSF OF UPERKUUI +2 EXIT IS 


A 0 5TD“" 










TU PkUVlOE AN ERROR EXIT WHICH DUES NOT 


AU521 










RESET ANY restart GROUPS) 

% 


A 0 5 Z 2 














R052:i 



riJPACTOFF : 

IS A ROUTINE TU 

TURN 

OFF UPLINK ACIlVilT LlbHI UN 

ALL EXIIS ERUM UPUAlb KKUGK A!''!! P2 f 1 • 



0525 

REF" 

40 

LAST 

T5IT2 

"7T • TVS~r~~ 

4 5015 1" 

TJPACTMFF C5 

BTT3 



0527 






0 0006 


EXTEND 


TURN UVl UNLINK ACTIVITY L 1 GH I 


052 3' 

~FF” 

~3E 

J W 

“T4TE 

‘ 2 7,3 761 

03 on 

~ir 

mm 

DSALUnUT 

(bi! 3 OF Channel id 


0530' 

♦ i I 1 

• ^ L 1 

“TSE’ " 

T AST 1502 

2 7,3 76 2' ■ 

“D 0002 

”0 

TC 

U 




1 


GAP; ASSEMBLE REVISION’ 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 


10:28 APP. 1»1069 CHIEFTAN.029 PAGE 1508 


RTB OP COOES 


USER’S PAGE NO 


EO S3 


0001 


22*3B10 


BANK 22 




0002 

REF 1 

22, 2000 


SETLOC RT3C00ES 




0003 


22,3^10 


BANK 



. 


\ 


0004 REF 13 I ^ST 1359 E5.1T13 EBANK^ XMB 

0005 REF 1 COUNTS $S/RTB 


R0006 


inAD TIMF2. TIMEl INTO MPAC: 


I 


000 


0008 


0009 


ROOIO 

R0012 


0016 

0017 


0018 


0019 

0020 


00 21 


0022 


002 3 


002 4 


0025 


0026 


0027 


R 0040 


22f3510 0 0006 1 LQADTIME EXTEND 


REF 37 LAST 1504 


22t3511 3 0025 0 


OCA 


TIME2 


REF 


LAST 1124 


22*3512 1 6024 0 


TCF 


5LOAD2 


DP 


CONVERT THE SINGLE PRTCT SIGN 2*S COMPL EMENT NUMBER ARRIVING IN MPACI SC ALED IN HALF-REVOLUTIONS} TO A 
1»S COMPLEMENT NUMBER SCALED IN VOLUTI ONS. 


RFF 

PEE 


REF 


740 

302 


26 


RFF 743 


LAST 1506 
LAST 1507 


22*3513 

22*3514 


10 154 
3 5021 


0 

1 


22.3515 1 3520 1 


REF 25 LAST 1207 


22*3516 13 517 Q 

22,3517 4 5002 1 


CDULOGIC CCS 

CAF 
TGF" 

N G OP 

cs 


ZERO 


+ 3 


HALF 


EF 741 LAST 1508 


2 0 54 1 T^T 


1T 




REF 303 LAST 1508 


22*3521 3 5021 1 


CAF 


ZERO 


RFF 742 LAST 1508 


2P.:'i5 22 56 154 1 


XCTT 


MPAC 


3 5 23 



LAST 1508 


REF 68 L 


LAST 1508 

TJW7 


22* 3524 
22*3525 


0 0006 1 
7 5002 1 
20 


^XTEND 
MP 


HALF 



727 




t 




TITF 


UAWTG 


MODE I'S AL 



^E'AD^THE FIPS INTO WAr;”77TTH013T CHANGING TfTEMT 


0041 



22, 3527 

0 O004 0 

RSADP IPS 

INHl’W'T 





0042 

REF 13 

■ L ASr 142 9 

22*3530" 

“5 0037 TT 


XTS" 

PI PAX 




0043 

!? 0 T 7 4 AT 

LAST 1508 

22,353T 

54 154‘0 


"TS 

MPAC 




0044 

F F 4 

LAST 1429 

22*3532 

3 0040 0 


C A 

PT PAY “ 




0045 

PFF 745 

LAST 1508 

22*'*533' 

■54 I5T CT” 


TS 

MPAC +3 




0 O^o 

P F F 7 

LA3T' 1429 "" 

■ 22.5534 

3 OTr4i i 


TTA 

P I P AZ 




0047 



22,3535 

0 0003 1 


RELINT 





004"^ 

■FEF"74^ 

LAST 1503 

22*3536 

54 "TFl T)— 


TS 

MPAC +5 





0049 

0^50 

mm 

0052 


RFF 304 — last 'HOT 227T5T7 3 5 02rT 

WWf ^747“ LAST T507: 22 * 3540" 54 155 T 

REF 748 LAST 1508 77,3 541 54^50 T 

REF" t49 LAST 1508 22* 3542 54 1 62 0 


CTTF ZERO 


rs MPT^r +1 


“TS ^P7ar~>*4 



mm 



R0054 


FfTRin 



77,3543 1 

IGN agreement 


70 TT VECMOTJE TCF 


VMODE 


O055 


OST 


1504^ 


TrT77FTr FGTOGREE TC 


TPAGFEF 






IIai 





1^ 


** * 










^%t 0 k 





atPi A<;qFMRi p kFVT^rnN osr rip Anr PP,nr,p,AM ^nMAi^lr■HP ry 1 ni..?a .APR^ 1 >1969 — r.HTEFTAN.^aZfl PAGF 1 Sns 

j ^TR HP rnnF<; USFR » PAGF no, 2 E 5 S 3 


ons/s RFF 69 LAST isaa ??« ^5 45 1 6,0 3Q Q Tf.F DAN/IG ■ 

pnns7 rnNiv/FQT tmp hp i t <; rnMPi fmfmt am^i f stai fd tm RFvniiiTTnNS rn a <;TMf;iFPR ft triton ?■ <; roMPi fmfnt angle 

P QQ59 SCALED IN HAL F-RF Vrif I TT T QNS 


nnsn pff } q r 576 n i STn7<; IL 1 Tn?.SUR 

0061 RFF 4ns \ AST 1508 22>3547 3 5Q21 ] CAE ZERO 

0067 PFF 7S0 LAST 150R ??,355Q 54 155 1 IS M£AC-±1 

n06R RFF 6 IA«;T 1167 77.1661 I 6077 0 IL1£ NEWMOaE 


RQ064 on 1ST02S ON A VFCTQR OF ANGLES: 


0 066 

R FF 

2 

1 AST 

1 500 

72.3552 

0 3576 

0 V1.ST02S 

TC 

IT02SUB 

ANSWER ARRIVES TN A AND MPAC. 


















0 Oo 6' 

RFF 

751 

1 AST 

1 609 

77.3553 

52 167 

0 

OXCH 

MPAC +5 





0 067 

P FF 

752 

LAST 

1509 

72.3554 

52 155 

1 

OXCH.. 

MPAC 





V ■ 'x 1 

0068 

REF 

3 

. Ww i t r — : 

LAST 

1509 

22. 3555 

0 3576 

0 

TC 

1TQ2SUB 





QOb-j 

n c c 
^ 

— ^ - 

^53 

LAST. 

1 509 


54 156 

J 

TS 

MPAC *? 






0070 

REF 

754 

LAST 

1509 

22.3557 

52 160 

1 

DXCH 

MPAC -«-3 



007 1 

RFF 

755 

1 AST 

1 509 

77.3560 

52 155 

1 

QXCH. 

MPAC 



0072 

REF 

4 

LAST 

1 509 

72.3561 

0 3576 

0 

TC 

1TG2SU8 



0073 

R CF 

766 

1 AST 

1 509 

22.3562 

54 155 

1 

TS 

MPAC +1 




0074 

REF 

757 

LAST 

1509 

22.3563 

3 0161 

1 

C A 

MPAC +5 



0075 

RFF 

753 

LAST 

1509 

22.3564 

54 154 

0 

TS 

MPAC 


^ ' ■ — -fcl 1 - - * ' — - ■ jm. ^ .g ■ 


0076 

REF 

180 

LAST 

1500 

22,3565 

3 5017 

1 

TPMODE CAF 

ONE 


MODE IS TP. 

0077 

REE 

6 

LAST 

150P 

22.3566 

1 6027 

0 

TCF 

NFWMODE 


— — = - ■- - - 


R00Y3 


V1ST02S FGK 2 COMPHNEMT VECTOR* USED BY RR. 



003 3 

008 
003 3 


00 8 


00 . 


3 O 


0090 


0091 


0008 


REF 

REF 
REF 216 



LAST 1509 
LAST 1509 
LAST 1505 


22t3571 

22^3572 



155 


OXCH 


M^AC 


0 3576 0 
54 001 1 


1TQ2SUB 
L 



22.3577 20 001 1 


DDOUBL 


REF 431 LAST 1505 


22,3600 


REF 181 LAST 1509 



2?r3601 


TO 000 0 
6 5017 1 


22.3602 1 3604 1 



REF 763 LAST 150 


^2.3604 54 154 0 


MPAC 


AND SKIP ON OVERFLOW* 



r. AQZ A ^ p Q 

FWTRinNJ ORS 

OF Af;r PI 

POOR AM rOMAMCHF RY 

NASA 2QJ?1 113-051 

lQr28 APR. 1*1969 CH1FFTAN.Q28 

PAGF 1 S1Q 






1 

? T R 

HP r.nn^f; 





USER'S PAGE NO. 3 

E5 S3 








i^1*- "nr* - 











nnQ4 

R FF 

RiS7 

1 ART 1 S07 

?? ,960S 

0 0007 0 

TC 

Q 

1 




















n n Q ^ 

RFF 


1 ART 1 RDQ 


50 QDO 1 

INDFX 

_A 

nVFRFI nw IJNCnRRFCT AND IN MSU. 






00^6 

R FF 

R 

1 AST 1P0 7 

?7,3607 

3 5000 1 

CAF 

LIMITS 







0097 

- - ‘ * 

RFF 

76^ 

LAST 1S09 

77.9610 

26 154 0 

ADS 

MPAC 







onoR 

R FF 

97>R 

1 AST 1 SI 0 

?7 . 1 

0 0002 0 

TC 

Q 






















n A D • 

AcccwDi p DP\/r«:TnM 

OF Anr PpnoRAM rnMANrHF 

RY NASA 20 21 1 1 3-051 

in:2A APR- 1.iq6q_ CHTFFTAN- 

n?R PAGE 1511 




1 

QTR 

np rnnFR 









USER’S PARE NO. k 

E5 S3 


- - ^1 1 » ■■ 4 ^ » t Mi fc — .. — ^ ^ ■ -— — ■ ■ — — ■"" "-- — _____ 


p n n Q 



QIIRRHUTT WF 

TO TNFRFMFNT milR 










1 ^ L Ji J J 

010? 

9 FF 

1 



2 2 . 3 o 1 ? 

3 3625 

n 

INCRCDUS 

CAF 

L DC THETA 





i \ ^ 

1 

R FF 

^ 

1 ?7 

t ART 

1 770 

22-351 3 

54- 130 

1 



TS 

RtJF 

PIAr.F ADRFSITHFTAI IN BUF. 




0 1 0 4 

RFF 

765 

\ A6T 

1 51 0 

22,3614 

30 1 54 

1 



CAE 

MPAC 

INCREMENT IN IS COMPL.. . . 




ni HR 

L^Jk 1 

P FF 

1 



22- 361 5 

0 3626 

0 



TC 

CPU INC 






0 1 0 6 

p F p 

1 2 R 

1 AST 

1511 

22.3616 

24 130 

0 



INCi 

BUF 





01 07 

» -I fc^i I 

RFF 

766 

LAST 

1511 

22.3617 30 157 

1 



CAE 

MPAC +3_ 





0 1 o;i 

1 X j — 1 

P «=F 

? 

J ART 

1 51 1 

72 . 3620 

0 3626 

0 



TC 

rniiTAir. 





















0109 

RFF 129 

1 AST 


22.3621 

24 130 

0 



INC a 

BUF 





^ — 

0 1 1 n 

R FF 

767 

1 ART 

1511 

22.3622 

30 1 61 

1 



CAE_ 

MPAf. +5 





01 1 1 

RFF 

3 

1 AST 

1 51 1 

22.3623 

0 3626 

0 



TC 

COUINC __ 





^ ^ — 
















nil? 

PFF 

1 



?2-3624 

1 3 543 

1 



TCF 

yPCMODF 






011^ 

RFF 

23 

1 AST 

1424 

??.3625 

01155 

1 

LOCTHETA 

ADRES 

THETAO 






ROl 14 



TH? FOLLOWIMG POOTTNF INCREMENTS IN 2S 

COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY 

THE IS COMPL. 



P 01 16 

OllAKiTI TY 

FnUNO 

IN TFM2. THIS 

MAY BE USED 

TO 

I NCREMENT 

DESIRED IMIJ 

AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL. 



ROl 1 P. 

f-i-n 

UNFOUAL TO 

-0) 

QUANTITY^ 

MAY 3E CAL LED _■ 

BY BANKCALL/SWCALL. 






0119 

REF 

6 

LAST 

1366 

22. 1626 

54 142 

1 

cnuiNC 

TS 

TEM2 

IS COMPL. QUANT. ARRIVES IN 

ACC. STORE IT 



0120 

P FF 

130 

1 AST 

1511 

22,3627 

50 130 

Q 



INDEX 

BUF 





0121 





22.3630 

10 000 

0 



CCS 

0 

CHANGE 2S COMPL. ANGLE<IN 

BUF) INTO IS 



01 ^2 

R’^F 

182 

LAST 

1509 

22,3631 

6 5017 

1 



AO 

ON E 





012? 





22.3632 

1 3636 

0 



TCF 

3-4 





0124 

REF 

183 

LAST 

1511 

22.3633 

6 5017 

1 



AD 

ONE 





0129 

REF 

184 

LAST 

1511 

22,3634 

6 5017 

1 



AO 

ONE 

OVERFLOW HERE IF 2S COMPL. 

IS 180 DEG. 



0126 



01Z7 

PEF 

7 

LAST 

1511 

22.3636 

6 01 42 

0 

AD 

TEM2 

SULT MOVES FROM 2ND TO 30 QUAD. (OR BACK! 


01 /9 

REF 

433 

LAST 

1510 

22.3637 

10 000 

0 

CCS 

A 

BACK TO 2S COMPL. 


0130 

PEF 

IH5 

LAST 

1511 

22.3640 

6 5017 

1 

AO 

ONE 



0131 





22.3641 

1 3643 

1 

TCF 

+ 2 



0132 





22-3642 

4 0000 

0 

COM 




0133 

OFF 

8~ 

LAST 

1511 

22.3643 

54 142 

1 

TS 

TEM2 

STORE 14B1T QUANTITY WITH PRESENT SIGN 


0134 





22,3644 

1 3650 

0 

TCF 

+A 



0135 

RFF 

434 

LAST 

1511 

22,2645 

50 00“^ 

1 

INDEX 

A 

SIGN. 


0137 

E E F 

9 

LAST 

1510 

22.3646 

3 5000 

1 

CAF 

LIMITS 

FIX IT. BY ADDING IN 37777 OR 40000 


013 8 

REF 

G 

LAST 

1511 

22,3647 

6 0142 

0 

AD 

TEM2 




0139 

RFF 

131 

LAST 

1511 

22.3650 

50 130 

0 

INDEX 

BUF 



0140 





22.3651 

54 000 

0 

TS 

0 

STORE NEW ANGLE IN 2S COMPLEMENT. 


0141 

REF 

3 69 

LAST 

1510 

22.3652 

0 0002 

0 

TC 

Q 




r A o • 

A Q <; P AIR 1 (= 1 

0P\/Ic;tnf\i OFF 

np Acr PRnoPAM rnMAwrHF py mara 707i i i 3-n 5 1 

ini2A APR* 1.1969 rHIFFTAM.nPft PAXIR 

151? 




1 

0 TP 


nnnF<; 




USER'S PAGE NO. 5 E.S....S.3. 




" - — ^ 

- - * * -* 










PHI 4"^ 



RTP. rn THROUF r,Y?nR, 

FXCFPT FOR THE CALL TO 1 MJJ SX ALL • EC ADR^ 

OF COMMANDS ARRIVES IN Xl», - - - 







I ^ A ■ n -Tf ■ — 








ni 44 

a PF 

41 

1 ART 1 37 P 

7 2, 36 5 3 

50 1 20 1 PUl.RFTMU TNOF-X 

FT XI nr 

ADDRFSS OF GYRO COMMANDS SHPlil 0 BF 

IN XI 



m 4S 

R FF 

QP 

1 ART 1 376 

22.3654 

3 0046 0 CA 

XI 





kiX rx .^ . . 

n 1 4^^ 

- V 1- 1 — 

RFF 

253 

( ART 1502 

22.3655 

0 4662 1 TO 

RANKCALL 





ni 47 

^ ^ * * 

RFF 

7 

1 ART 75P 

72.3656 

17206 0 CADR 

IMlJPlJLSF 





01 4H 

RFF 


1 ART ] 509 

22.3657 

1 6030 0 TCF 

DANZIG 





X. T 1 > — 


■ ■■ 1 mi W 












r^AP; A<;sPMPt F f.-PVT^THM HF Af^T Pi;:nr;PAM rnMAMf-HF RY NiA<;A 

io:?a APR- 1 .iqaq 

rHTFFTAlM*n7R 

pa<;f isia 









1 RTB np rniiF<; 

USFR'S PA&E. 

NO. 6 

■ £3 S3 

^ r ^ ■ =-- - ^ 


pm 4Q 

F AT H 

PnUTTMF TAk^F<: 

A 3y3 MATPTY STHRF 

n 

TN nnufyj 

= PPPr.lStON IN A FlXFfl AREA OF ERASABI E 

MEMORY AND RFPI ACES IT . 


1 V/ X ^ ^ 

? n 1 F, 1 

W TTM 

TWF 

T P A M <; P ^ ! R F 

MATRIX- TP 

A MS PI iisr-s 

1 nCAT I DNS XNR4-0.41 THROUGH XNB-H 60. 17D AND TPJ 

^NSP2 USES LOCATIONS 


A Li L J y — 

o m F ^ 

YMRl^O-4.1 TUP nilOH YMRl + lAH-^ 170^ F ATf-t 

MATRIX IS 

STOPFO 

RY ROM 5- 




m S4 

R FF 

1 4 

1 AST 

1 50 8 

2? . 3660 

02713 0 

XNRFrt 

FCADR 

XNB 



L/ X 

m FF 

» L- « 

P FF 

— X -T 

F 

1 K^l 

2ft7 

22.3661 

02554 

1 _ 

XMRl F_B 

Ff-AQR, 

XMftl 




m FA 

Q FF 

1 S 

1 AST 

1 51 3 

F5. 1 71 3 




EBANJC 

= XNB 




f) 1 ^4 

R FF 

1 



22.3662 

3 3660 

1 

TRAMSPl 

CAP 

XNBEB 



ni AS 

* 

Q FF 

X 

AO 

! AST 

1 505 

22.3663 

54 003 

0 


TS 

ESANK 



LI JL \J J 

ni AA 

> . 1—1 

R FF 

U. 

1 A 

1 AST 

1 51 3 

22. 3664 

5 3 • 7 1 6 

1 


nXFH 

XNR ■t-2 



m A7 

R FF 

1 7 

1 AST 

1513 

2 2 « ^665 

53* 722 

0 


DXCH 

XNB +b 



-w X LJ 1 

m AR 

1 1> 1 

R FF 

1 ft 

1 AST 

1513 

P ? • ^ ^ 

53*716 1 


DXCI-L 

XNB +2 




0169 

R Ef 

19 

LAST 

1513 

27.3667 

53*720 

1 


DXCH 

XNB +4 



0170 

R FF 

A 

LAST 

1513 

22.3670 

53 '730 

0 


DXCH 

XNB ■H2D 



0171 

— i.^- * - - — 

R FF 

'C — 

21 

I*E-JL3_3«t — 1 

\ AST 

1 51 3 

22.36 71 

5 3 * 72Q 

1 


0 XC H 

XNB ±A 





0172 

RFF 

22 

LAST 

1513 

22.3<S72 

53*726 

1 


DXCH 

XNB +100 



0 17R 

R FF 

23 

! AST 

1513 

27.3673 

53* 732 

1 


DXCH 

XNB +14D 



0174 

R F F 

2 4 

L AST 

1513 

22.3674 

53*726 

1 

* 

DXCH 

XNB +10D 



01 7S 

RFF 

71 

1 AST 

1 51 2 

- — - — - 

22.3673 

1 6030 

0 


TCP 

DANZIG 





m 7A 

RFF 

A 

LAST 

1513 

E5. 155^1 




E8ANK 

= XMBl 




0177 

RFF 

1 



22t3676 

3 3661 

0 

TRANSP2 

CAP 

XNBIEB 



01 7B 

K FF 

70 

LAST 

1513 

22.3677 

54 003 

0 


TS 

EBANK 



0180 

RFF 

7 

LAST 


22.3700 

53*557 

0 


DXCH- 

XNBl +2 



0181 

* ^ * — 

RFF 

* 

8 

LAST 

1513 

22.3701 

53*563 

1 


DXCH 

XNBl +6 



01 R? 

P CP 

V t 1 


LAST 

1513 

22.370? 

53*557 

0 


DXCH 

XNBl +2 





0188 

RFF 

10 

LAST 

1513 

22.3703 

5.3* 561 

0 


nxcH 

XNBl +4 



0184 

REF 

11 

LAST 

1513 

22.3704 

53*571 

1 


DXCH 

XNBl +120 



0185 

RFF 

12 

1 AST 

1 51.3 

22,3705 

53*561 

0 


DXCH 

XNBl +4 
















0186 

■; F F 

13 

LAST 

1513 

22,3706 

53* 567 

0 


DXCH 

XNBl +10D 



0187 

REF 

14 

LAST 

1513 

22.3707 

53*573 

0 


DXCH 

XNBl +14D 


. . 

0183 

REF 

1 5 

LAST 

1513 

22,3710 

53*567 

0 


DXCH 

XNBl +100 



0191 

RFF 

72 

LAST 

1513 

22,3711 

1 6030 

0 


TCP 

OANZIG 


- 

















r,^ot a<c:pmri p spy/TcrinNi nr A^r pr<:nr;KAM r n M a m r mp ry NiA ^ A 7Ci?^ i i R-ns i 

in;7ft APR. 1 .1 

r.HrFFTflN -028 

PAgP 1 814 




1 RTrt PP r,noF8 

_ _ USER'S PAGE 

_m. i_-_ 

E5 S3 





p m Q ? 


THE SllRRnUTTNF STGNMPAC SETS CCMPAG, MPAC +1J TQ SIGN(MPAC). 




R m 

_EQiv- T H I S > 

OMI Y THF rONTFIMTS OF MPAC ARE EXAMINED. ALSO +0__Y.ItLDS POSMAX AND -0_ yL£LD_S_NESMAX._ . 




1 ■ ^ - \m !■ € t m = 






ft m 

ENTRY MAY 

RE BY EITHER (JF THF FFIM OWING: - 




‘ ^ ^ IL ‘ " 






R niQs 

1 * 

ITMTT THF ST7F HE MPAC ON INTERPRETIVE OVERFinW: 




ft m Q7 

FNTRY : 

ROVR 




R 0 1 9 


SIGNMPAC - 










P 0199 

? . 

r.ENFFATE IN MPAC THF SIGNUM FUNCTION OF MPAC: - - 




_ — — 1 — 1 . €. — 

R o?no 

FNTRY : 

DTR - 




R n^ni 


SIGNMPAC _ 





R OPOP 

TN FTTHFR 

r.A8F. RFT 1 I 2 N 18 TO THF NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. 





n ?04 2?. 3712 0 0006 1 SIGMMPAC F XTEND 

npns RFF 2 I AST 3SO 22.3713 3 4777 1 QCA DP QSMM 

n?n4 QPF 743 I AST 131 1 27.3 714 3? 13S 1 DXCH M.PAC 

0707 RFF 435 LAST 1511 22 .3715 10 000 0 CHS. & 

0208 RFF 30fe FA ST 1509 22.3716 3 5021 L DP MQDE tAE lEMQ 

0200 PFF 4 I A.ST 1 509 27.3717 1 60 23 1 I£E SL QAD 2 ..tZ 

0210 2Zj_3.IZCL 1 3721 1 TCF +1 

021 1 22.3721 0 0006 1 EXTEND 

0212 RFF 3 lAST 1 514 22.3722 4 4777 0 DCS DPQ SM AX 

0213 RFF 5 LAST 1514 22.3723 1 60 24 0 ICf S10AD2 



R 0 ? 1 4 

. - - . 1 ■■ 

RTR 

OP CODE NORMUNIT IS L 

IKF INTE 

RPRETIVE INSTRUCTION UNLIT, EXCEPT 

THAT 

IT CAN BE DEPENDED ON NOT TO 

BLOW 




P, 0216 

UP 

when 

THF VECTOR BF 

IMG UNITI7En IS 

VERY SMALL — IT 

WILL BLOW UP WHEN 

ALL 

COMPONENTS ARE 

ZERO. IF NORMUNIT 




L r fai A Jiz. 

R021^ 

JL S 

USED 

AND THE UPPER 

ORDER HALVES OF 

ALL COMPONENTS 

ARE ZERO, THE MAGNITUDE 

RETURNED IN 36D WILL BE TOO 

LARGE 




R 07 ? 0 

, .m - 

P Y 

f\ FACTOR OF 

2(13) 

AND THE 

SQUARED 

MAGNITUDE RETURNED AT 340 WILL BE 

TOO BIG BY 6 FACTOR 

OF 2(26). 




i— M g ■ 11 ^ . ■ ■ * * « 1 1 1 -1 ■ --E »■ LI. ^ - 


0222 

REF 

186 

LAST 

1511 

22,3724 

3 5017 

1 NORMUNXl CAP 

ONE 








027? 1 

RFF 

1 



? P.3725 

1 3777 

1 TCF 

NORMUNIT +1 








02222 

REF 

30 7 

LAST 

1514 

22.3726 

3 5021 

1 NORMUNIT CAF 

ZERO 








02223 

PEE 

42 

LAST 

151 2 

22.3727 

6 0120 

1 AD 

FIXLOC 








07774 

REF 

769 

LAST 

1514 

22.3730 

54 156 

1 TS 

MPAC +2 








02225 

R-F 

254 

LAST 

1512 

22,3731 

0 4662 

1 TC 

BANKCALL 

GET 

SIGN AGREEMENT 

IN ALL COMPONENTS 




072R 

- - . - 

REF 

3 

LAST 

1175 

22.3732 

01010 

1 CADR 

VECAGREE 








0774 

^FF 

770 

L AST 

1514 

77,3733 

10 1 54 

0 CCS 

MPAC 








0225 

REF 

1 



22.3734 

1 3770 

0 TCF 

NOSHIFT 








0276 





22,3735 

1 3737 

0 TCP 

+ 2 








077? 

RFF 

7 

LAST 

1514 
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27,2000 
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05-9059 
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1 0.9000 

20^ 
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766 

P53 

23.2000 

3L 

PI 1 FOUR 


01.9001 

912 

r ADRTAB 

05. 9057 

1 75 

EMRFNDO? 

10,9000 

2R 

PHASETAB 

15,2000 

29 

FTRYOAP 

23.2000 

31 

P2QS2 



919 

w • ' 1 — r~>. 1^ 

1 .7 SPOT 

05 .70 57 

1 7ft 

GMFNTRO? 

1 0,9000 

28 

P60S4 

1 5 f 2000 

29 

P5QS 

23.2000 

ai RENDGULD 


01 - 907 1 

- , X. Cm 

91 9 

9 ^ 9 «;pnT 

0*^.7057 

1 7Q 

rMPr;99n2 

1 0.9000. 

28 

■^XTMARKI 

1 5.7QQQ 

ZS_ 

SS2/3 

23.2000 

3J_ 

R3ni DC 


0 1. 907 1 

91 3 

9 SPOT 

05.7057 

173 

rMr.sTAn3 

10,2555 

1483 

Gnxnsp 

16,2000 

738 

P54 

23,2461 

ail 

3QQK£r 


*^**^ ^* * — 

0 1 . 9S43 

1 1 Q9 

sw/ 

05 . 7057 

1 75 

rMRFNnn3 


1483 

GOXnSPF 

15.3750 

1092 

1/16A1 

24.2QQil 

31 

CSIPR0G7 


04 . 9000 

9 7 

^ ^ * — 

r OM If 51 

05-7057 

1 7ft 

r MFNITRO 3 

1 nl9575 

1 483 

GDXnSPR 

1 S.37S3 

1 09? 

-VMT/180 

24.2000 

ll_ 

1 flAnOAP 


04 . 9 ono 

27 

rsT /roHi 

05.7057 

1 79 

rKPG970 3 

10,9600 

1483 

GQXDSPFR., 

13.^375A. 1Q92 

BUFLIM 

24,2000 

31 

P40S 


\-J I f ^ w 

04 . 9000 

^ * 

9 7 

I MllC Al 1 

05.7061 

173 

rMr.STA04 

10.3979 

1483 

GOAGIN 

1 6 •2000 

29 

P40S1 

25.2000 

31 

CDHTAGl 


04. 9000 

*— * 

9 7 

T NTPR FT9 

0 5. 7061 

1 75 

r.MRFMnOA 

10.3312 

14H3_ 

GOPI AY 

16,2000 

3Q_ 

nAPROLI 

25.2QQQ 

31 

RFFNTRY 


04 • 9000 

? 1 

PI NBALL4 


178 

CMFNTR04 

1 1,2000 

28 

ORBITAL 



P23S1 

26.2000 

31 

EPHFM 


04,2000 

*- * 

27 

VFRB37 

05,7061 

1 80 

CMPG2204 


28 

0R8ITAL1 

16.2000 

30 

P50S2 

26.2000 

31 

INTPPETl 


04. 9000 

9ft 

F /PROG 

05. 7063 

1 73 

rMrsTAn5 

1 1,2000 

29 

CSI PR0G5 

16.2000 

30 

RTF2 

26.2000 

31 

PLANTIN 


04, 2000 

28 

MIDDGIM 

05.2063 

176 

r viRENno5 

11,2000 

29 

INTItilXl 

16.3257 

960 

TVCADDR 

26.2000 

3L_ 

P05P06 


V T 1. fa V V — 

04, 9000 

4m Sj 

2 8 

STBLEOR R 

05,7072 

■ - - mg 

173 

CMCSTA0 6 

1 1,2000 

29 

IMTVEL 

17,^000^ 

30 

DAPS4 

26.2000 

31 

P60S 


04,201 1 

me — w, 

365 

MflORDUTB 

05.7079 

^ — 

1 76 

CMRFND06 

1 1.2000 

29 _ 

S52/2 

17,2000 

30 

DAPS5 

26.2000 

1L_ 

P60S1 


04, 9416 

906 

FCAOPMMl 

05,207? 

180 

CMPG2206 

11.3755 

13 53 

DOLIARTER 

17.2000 

30 

DAPS 7 

26,2000 

31 

P60S2 


04,2457 

— 

207 

PRFNIMl 

05,2075 

^ 

173 

CMCSTA07 

11.3755 

1353 

POSl/4 

17.2000 

30 

P50S3 

26.2000 

31 

P60S3 


04.9590 

4»* * 

90 8 

FPRFMMl 

05.9075 

^ , Jr, -mI ^ - — - 

176 

r MRFNnOT 

1 1 .3763 

34 

3/4L0wnp 

17.3711. 

1 06 2 

FNOSLECT 

26.2000 

3i 

REENTRYl 


04,^521 

903 

ONL ADMMl 

05,2075 

178 

CMFNTR07 

1 1.3773 

1353 

2/3 

20,2000 

30 

OAPSl 

26.2000 

31 

26P50S 


0 4, >5 57 

34 

LriUNIT7 

05,2075 

180 

CMPG2207 

12,2000 

29 

CONICS 

20.2000 

30 

DAPS2 

26.2642 

802 

SERVCAD2 


0 4.3561 

34 

i HUNT TY 

05.71 07 

170 

^0 - ** — 

NOMONl ST 

12,2000 

29 

CSI/CDH2 

20.2000 

30 

0APS6 

26.3145 

881 

LATSLOPE 


04 , 35 6 3 

— ^ « 

34 

LODPHALF 

05.2107 

1 73 

CMCSTAOL 

12,2000 

29 

CSI PROGZ 

20,2000 

30 

MANUSTUF 

26.3312 

881 

Q7MIN 


04,3563 

^ * 

34 

LnUMI TX 

05,2143 

175 

CMRENODL 

12,2000 

29 

MCiDCHG2 

20.2000 

30 

R36CM 

26,3324 

34 

HIDPl/4 


04, 3563 

1206 

H A L F n P 

05,7907 

170 

DPDNLIST 

13,2000 

29 

COHTAGS 

2 0 » 2000 

30 

VAC5L0C 

26.3324 

880 

VMIN 


04, 3563 

i23P 

DPI/? 

05,2207 
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CMENTRDL 

13,2000 

29 

E/PROGl 

21.2000 

30 

0APS3 

26.3324 

881 

FOURTH 


04,3563 

1 251 

IBl 

os , 2266 

179 

CMPG220L 

13,2000 

29 

INTI NIT 

21.2000 

30 

KALCM0N3 

26,3324 

1388 

TFFl/4 


04,3565 

34 

L06ZFRnS 

05,2651 
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ROPPOGZ 

13,2000 

29 
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21.2000 

30 
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26.3326 

34 
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04,3565 
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1206 
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29 
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30 
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34 
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30 
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7 7. > nno 

07 

94057 

00.7000 

07 

1 nWSUPFR 

02,7000 

32 

RTE 

3fe.70QQ 

33 

P17S 

40.3600 

389 

FNDPTNSl 

77.7000 

0? 

P6055 

00.7000 
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P20S1 


32 

TFSTLEAD 
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RTEl 

41.2000 

34 
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n 0 0 r) 
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6PFr.TAI HR MDMFXT^TFNT MFMHRY 

24.2000 

TQ. 

24,3767 

RF.SFRVFD SWITCHABLE FIXED ME.MQRY 



X4j 



2A. 3.17 0 

_iri. 

24.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 




0 0 A 0 

AYATl AR! f- FRA'^ART F MFMDRY _ 

75.2000 

ID- 

25.3776 

RFSFRVFD SWTTCHARIF FIXFD MEMORY 


0061 

U 

1377 

RFSFRVFO FRA.SABt F NIFMDRY 




AVAI LABLE SWMCHA9LE . FIXED MEMORY 






26,2000 


2 7*3765 

RESERVED SWITCHABLE FIXED MEMORY 


F ^ • 1 400 

TO 

F3 . 1 774 

RF6FRVFn SWITCHARI F FRASABLF MPMORY 

27,3766 

in 

27.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


F^. 1776 

T( J 

F3. 1777 

AVAILABLE SWITCHABLE ERASABLE MEMORY 

30.2000 

TO 

30,3752 

RESERVED SWITCHABLE FIXED MEMORY 


r4«1400 

TO 

F 4.1560 

RFSFRVFD SWTTCHABLE ERASABLE MEMORY 

30.3753 

TO 

30. 3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


F4. 1661 

l-LJi 

TO 

F4. 1 777 

AVATIARIF SWITCHARLF FRASABLF MEMORY 

31,2000 

JLiL 

31.3763 

RESERVED SWITCHABLE FIXED MEMORY 


F 6 • 1 400 

TO 


RFSERVEO SWITCHABLE ERASABLE MEMORY 

31.3764 

TO . 

31.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


F 6 • 1 6 6^ 

. --1 

in 

F6 . 1777 

AVAILABLE SWTTCHAOLF ERASABLE MEMORY 

32.2000 

TO 

32.3772 

RESERVED SWITCHABLE FIXED MEMORY 


F 6. 1 400 

-1 

TO 

F 6 • 1 640 

RFSFRVFfl SWTTCHABTF FRASABLE MEMORY 

32.3773 

TO 32.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


F 6 • 16 41 

TO 

F6* 1 777 

AVAILABLE SWITCHABLE ERASABLE MEMORY 

33.2000 

TO 

34. 3765 

RESERVED SWITCHABLE FIXED MEMORY 


F 7 . 1 400 

I jiad. 

TO 


RESERVED SWITCHABLE ERASABLE MEMORY 

34* 3 766 

TO 

34.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


F 7 - 1 U7 6 

■ ^ 

TiJ 

F7. 1 777 

AVATIARIF SWTTf.HABlF FPASARIF MFMORY 

35*2000^ 

TO 

35,3772. 

RESERVED SWITCHABLE FIXED MEMORY 


n j y 1 ij 




35.3773 

TO 

35.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


4000 

TO 

6775 

RESFRVFO FIXED MEMORY 

36. 2000 

TO 

?>b,3n^ 

RESERVED SWITCHABLE FIXED MEMORY 


6776 

TO 

6777 

AVAILABI F FTXFD MFMORY 

36,3775 

TO 

36.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


6 000 

in 

7777 

RESCPVPD Fixe) MFMORY 

37* 2000 

TO 

37.3775 

RESERVED SWITCHABLE FIXED MEMORY 




« I J T , ^ 


37*3776 

TO 

37,3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


00. 7000 

in 

00*377? 

RFSrRVFD SWITCHABLE FTXi-D MfcMORY 

40.2Q0Q_ 

TCI 

40 , 3 772_ 

RESERVED SWITCHABLE FIXED MEMORY 


00*^773 

1 L J 

00*3777 

AVAILABLE SWITCHABLE FIXPD MEMORY 

40.3773 

TO 

W.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


0 1 • 7000 

■ Vr 

in 

01.3772 

RESERVED SWJTCHAELE FIXED MEMORY 

41,2000 

TO 

42,3774 

RESERVED SWITCHABLE FIXED MEMORY 


0 1, “177^ 

in 

01 * 37 77 

AVAflARlF SWITCHABLE FIXED MEMORY 

42,3775 

_JIL 

42 * 37 77 

AVAILABLE SWITCHABLE FIXED MEMORY 






43.2000 

TO 

43.3770 

RESERVED SWITCHABLE FIXED MEMORY 


02* ?000 

TU 

03.3777 

SPFCIAL OR NONEXISTENT MEMORY 

43.377 1 

TO 

43, 3777 

AVAILABLE SWITCHABLE FIXED MEMORY 











04 f 7000 

TO 

04.3761 

RESERVED SWITCHABLE FIXED MEMORY 

44.2000 

TO 

57,3777 

SPECIAL OR NONEXISTENT MEMORY 


04,7762 

TO 

04.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






06 . 7000 

TO 

06*377? 

RF.SFP.VFn SWITCHD3LE FIXED MFMORY 

60*2000 

TO 

67. 3777 

AVAILABLE SWITCHABLE FIXED MEMORY 


06*3773 

TO 

06.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






07. 7000 

TO 

14.3763 

RESERVED SWITCHABLE FIXED MEMORY 

70.2000 

TQ 

73, 3777 

SPECIAL OR NONEXISTENT MEMORY 


14*3 764 

T n 

14*3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






1 5 • ?0 00 

T7 

1 5*3357 

RESERVED SWITCHABLE FIXED MEMORY 






15. H760 

TO 

15.3777 

AVAILABLE SWITCHABLE FIXED MFMORY 






16*2000 

to' 

16.3722 

RESERVED SWITCHABLE FIXED MEMORY 






16. 3723 

in 

16,3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






17.7000 

TO 

17.3741 

RESERVED SWITCHABLE FIXED M«=MORY 






17. 3742 

rn 

1 7.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






20.7000 

TO 

20. 374? 

RESERVED SWITCHABLE FIXED MEMORY 






20. 3743 

T 0 

20. 3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






7 1 « 7000 

TO 

21.3767 

RESERVED SV'TTCHABLE FIXED MEMORY 






2 1 . 3770 

TO 

21.3777 

AVAILABLE SWITCHABLE FIXED MEMORY 






22.2000 

TO 

23.3774 

RESERVED SWITCHABLE FIXCO MEMORY 






2 3 , 3JI5_ 

TO 

23.3777 

AVAILABLE SWITCHABI.E FIXED MEMORY 
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, PRnr;BAM rnMANCHF rv nara ;>n?ni'^-osi i o; 

APR. I.IQAQ 

1 SQl 







• 

_ — - T • 

RfUlTT NF 

: COUNT DATA FOR ROUTT NF*^ 

i A^T RFArH; TOTAL: CLLMUL 

RQUTINF: COUNT DATA 

FOR ROUTINERS, 

1 AST RFArH; TOTAI ICUMUL 




a£E 0 LAST ID 

27; 0 0 Q_ 

n4/R5^ RFF _L 

LAST 246 TO 

247; 26 26 4543 



flANK<;ilM &££_ 1 I A.1T 77 TO lail 65 65 h5 f)4/V^7 B££ 2 LAST 20Q TO 209: 223 Mi2 ^946 

nn/nF-i AY rff i i a<;t lAftfi th lAqri: as ns/ni t<;t a££ i i a 5T i7n Tn i rm 226 226 5172 


00/ inter 

RFF 

2 

LAST 

1152 

LTO 

1 102 : 

99 70 

98 6 

1081 

05/nPR0G 

R£F 

1 

L AST 

1096 

JXL 

1103: 

173 

173 

5345 



01 /FXFC 

8FF 

1 

1 AST 

1211 

TO 

L2L2ni 

^ _ 2.72. 

:2TZ _ 

13 53 

05/MASP 

RFF 

1 

LAST 

953_ 

Tn 

95S: 

91_ 

9E 

5436 


0 1 /tntfr 

RFF 

_ .1 

1 AST 

1192 

TO 

1200; 

157 

157 . 

1 510 

05 /START 

REF 

1 

LAST 

183 

JIL 

194: 

j4ia^ 

43.Q 



01 /RSROU 

RFF 

3 

LAST 

141 R 

TO 

1420:. 

55 

168 

1678 

06/IC0MP 

REF. 

1 


237 

-iii_ 

315: 

247 

247- 

6113 


m /RRTAR 

RFF 

1 

1 AST 

712 

TO 

771: 

249 

749 

1 9Z7 

n6/T4RPT 

REE 

_2_ 

1 AST 

1 34 

Tn 

166: 

6RQ 

69 Q 

6803 



01 /WAIT 

RFF 

2 

LAST 

1734 

TO 

123ii.; 

31 

17 Q 

2097 

07/1M10F 

REF 

1 LAST 

1421-. 

jn 

1443; 

555 

555 

7358 


0//AI ARM 

RFF 

O 

j ^ 

J AST_ 

1 4Qc^ 

TO 

1499: 

51 

99. 

2196 

07 /KFYIIP 

RFF 

1 

LAST 

1449 

JXl 

1465; 

6fl 

6.3- 

7426 


07/RANK 

RFF 

1 

1 AST 

1 1 03 

TO 

1107: 

76 

76 

2Z7Z 

07/PIN 

REF 


LAST 

382 

TO 

382: 

1_ 

16_ 

74,42 


02/C0MST 

RFF 



43 1_ 


434: 

L8 

_ _18 

2290 

Q7/SXTf^K 

REF 

1 

LAST 

222 

TO 

234: 

287 

287 

7729 



0 2 /os PI A 

REF 

1 

LAST 

1465 

TO 1465; 

1 Li_ 

16 

2306 

07/XANG 

REF 

1 

LAST 

553 

TO 

559: 

46 

46 

7775 


02/FXFC 

REF 

2 

LAST 

1220 

TO 1223: 

6 

65 

2371 

lO/OSPLA 

REF 

2 LAST 

1494 

J0_ 

1495: 


660 

8435 


07/r XTVR 

RFF 

1 

1 AST 

1491 

TO 

1 49H : 

19 

19 

2390 

lO/GFQM 

REF 

1 LAST 

2 89 

TO 

291 : 


-35 

8470 


02/Fr.0NS 

RFF 

1 

LAST 

1200 

TO 

1.202: 

62 

62 

2452_ 

10/PHASE 

REF 

7 

LAST 

1411 

TQ.. 

1413: 

66 

75 

8545 























07/FI AO 

RFF 


LAST 

1436 

TO 

1488: 

37 

32 

2484 

lO/SXT 

REF 

2 

J.AST 

167 

TO 

163: 

26 

42 

3 5_8J 


02/l'in0E 

RFF 

1 

LAST 

1420 

TO 

1421: 

5 

.5 

2489 

lO/SXTMK 

REF 

1 

LAST 

2 34 

TO 

236: 

28 

28 

8615 


02/tNTER 

REF 

1 

LAST 

1207 

TO 

1208: 

32 

32 

2 521 

10/S62. 3 

REF 

1 

LAST 

818 

TO 

822; 

34 

34 

8649 


02/PHASE 

R E F 

4 

LAST 

1413 

JILL 

1414: 

4 

1Q4 

2623 

1Q/T4ZR1 , 

RFF 

2 LAST 

168 

TO 

170; 

49 

89 

8738 



02/PIN 

REF 

& 

LAST 

382 

TO 

3 85: 

37 

246 

2871 

1 1 /INI TV 

REF 

1 

LAST 

487 

TO 

493: 

174 

174 

8912 


o7/pon 

REF 

1 

LAST 

194 

TO 



.. 4_. 


1 1 /OR BIT 

REF . 

1 

LAST 

1334 

TO 

1355: 

816 

816 

9728 


02/P20 

REF 

1 

LAST 

632 

TO 

632: 

0 

0 

2875 

11/SR521 

REF 

1 

LAST 

775 

TO 

780: 

156 

156 

9884 


02/2SP0U 

R EF 

2 

LAST 

1417 

TO 

1418: 

10 

17 

2392 

12/CnNIC 

REF 

3 

LAST 

129 2 

TO 

1305; 

491 

970 

10354 



02/RUPTS 

»R E F 

1 

LAST 

Ijl 

TO 

13 3: 

58 

58 

2950 

13/INTIN 

REF 

2 

LAST 

1313 

TO 

1327; 

467 

497 

11351 


02/TRAN 

REF 

1 

LAST 

1490 

Tl! 

1491 : 

15 

15 

2965 

13/LT-LG 

RFF 

1 

LAST 

1236 

TO 

1243: 

159 

159 

11510 


02/T4RPT 

RFF 

1 LAST 

133 

T'J 

134: 

12 

J.Z_ 

._2977 

13/P07 

REF 

1 

LAST 

420 

TO 

42 2 : 

27 

27 

11537 


02/V37 

REF 

1 

LAST 

197 

TO 

197 : 

2 

2 

2979 

13/P76 

REF 

1 

LAST 

511 

TO 

515; 

96 

96 

11633 



02/yA IT 

REF 

2 

LAST 

1232 

jn 

1234: 

24 

82 

3061 

13/S52.2 

REF 

1 

LAST 

774 

TO 

775: 

26 

26 

11659 


03/nAPFM 

RFF 

1 

LAST 

1065 

TO 

1065: 

6 

6 

3067 

14/ICOMS 

REF 

1 

LAST 

1206 

TO 

1207: 

19 

19 

11678 


03/rCnNS 

REF 

1 

LAST 

1202 

T fj 

12 05: 

32 

32 

3099 

14/INCOR 

REF 

1 

LAST 

1260 

TO 

1277: 

51 

51 

1 1729 


03/FLA0 

REF 

1 

LAST 

1435 

TO 

i486: 

27 

27 

3126 

14/INFLT 

REF 

1 

LAST 

763 

TO 

766: 

39 

39 

11768 



03/INTEP 

REF 

2 

LAST 

1 11 9 

TO 

1152*. 

732 

937 

4063 

14/PICAP 

REF 

1 

LAST 

752 

TO 

756; 

127 

127 

11895 

P 

OA/CONIC 

REF 

3 

LAST 

1305 

TP 

1313; 

16 

109 

4172 

14/P5153 

REF 

1 

LAST 

766 

TO 

772: 

165 

16 5 

12060 


04/tXTVB 

REF 

1 

LAST 

247 

TO 

?Ali 

13 

13 

4185 

14/R50 

REF 

2 

LAST 

761 

TO 

763: 

75 

119 

12179 


04/ 'll OG 

REF 

1 

LAST 

493 

TO 

4 9 6: 

61 

61 

4246 

14/R51 

REF 

1 

LAST 

756 

TO 

759; 

114 

114 

12293 



04/P00 

REF 

2 

LAST 

200 

TO 

200 : 

15 

24 

4270 

14 1^R33 

REF 

1 

LAST 

772 

TO 

774: 

63 

63 

12356 


04/P07 

REF 

1 

LAST 

427 

TO 

42;? : 

5 

5 

4275 

14/STARS 

REF 

1 

LAST 

1389 

TO 

1395: 

223 

223 

12579 


04/f’3379 

R E ^ 

1. 

LAST 

52 6 

TO 

3 3 S ! 

225 

225 

4500 

14/S50 

REF 

1 

LAST 

749 

TO 

752; 

90 

90 

12669 


04/R02 

REF 

1 

LAST 

1443 

Til 

1 46 : 

1 / 

17 

4517 

15/nADEN 

REF 

3 

LAST 

1070 

TO 

1096: 

65 5 

721 

13390 



fi A P r A ^ 

Pi^ii^ir DPv/TQTriM nss of 

Aor PR nos AM CnMAMCME 

RY NASA 

70 71 11 ft-05^1 

lDi78 APR- 

1 .1969 



PAOF 159? 




















RntniMP; rniiMT rata 

FFIR RniITTNF'R 

1 AST 

RFAf.H: 

TOTAL: 

CUMUL 

RHU tint; count data for ROUTINE'S 

LAST 

reach; 

total; 

CUMUL 


1 S/ P SP 

R FF 

1 

1 ART 

7ft ft T n 

744 : 

715 

715 

13605 

„^4j< PAD 

R££ 

2 LAST 

693 

TO 

■ 710; 

527 

482 2 QZ6rL 

..».. . 1 ^ ■** g t J £Lm 

1 s/p s ? 

14 ^ i 

RFF 

Jb — 

1 

1 ART 

744 

T- 

749: 

140 

140 

13745 

24/£4J_ . 

REP 

1 LAST 

688 

TO 

691: 

106 

106 

20366 

1 S/PSS 

R FF 

1 

1 A RT 

7RQ 

T( 1 

760: 

27 

27 

13777 

24/P47 

RFF 

1 LAST 

691 

Tn 

693; 

5ii_ 

58 

20424 

4 Ai i ■J 

1 

P FF 

1 

1 ART 

7ftn 

TO 

78 1: 

18 

18 13790 

24/R03 

REF . 

1 LAST 

253 

TO 

■ 254: 

50 

50 

20474 

^ ^ ^ ^ 1 ^ fc.. ■ -k ■"■ k*— ■ « ** ; * ■ ■ — — — ^ . - 

1 s / c ni ! 

RFF 

I 

1 ART 

Qftq 

TO 

999 : 

27ft 

778 

14063 

24/S40.1 „ 

RFF 

I 1 AST 

712 


714; 

67 

61 

20541 

1 S / ^ R T 

RFF 

1 

1 ART 

958 

TO 

967 : 

90 

90 


24/S40.2._ 

REF _ 

1 LAST 


_I0__ 

717; 

117 

117 

20658 

■ * J . 1 I \ 1 

1 fi/U s 

t ^ 1- 1 

RFF 

— — 

1 

1 ART 

761 

TO 

786: 

117 

117 

14275 

24/TVNG 

REE 

1 LAST 

_jri5 

TO 

735: 

4 


20662 

1 A /CAR . 1 

P cc 

1 

1 

1 A RT 

7 1 n 

Tn 

717: 

91 

91 

14366 

75/ENTRY 

RFF 

2 LAST 

853 

JT1_ 

879: 

844 

102Ql 

21682 


1 S/S40- 8 

p u u 

* V t 1 

1 

1 ART 

719 

T' ' 

7'n: 

87 

37 

14453 

26/ENTRJL. 

REF 

2 LAST 

879 

J0_ 

863; 

111 

152 

21834 

1 A / Q 40- R 

^ ^ ■ 

RFF 

■ tm 

1 

1 ART 

7 7 ft 

TD 

19^1 

ft5 

85 

1 45ftft 

76/TPHFM 

RTF 

1 LAST 

786 

TQ 

789; 

71^ 

LL 

21905 

1 s/Tvnx 

P F 

i 

L ART 

946 

TO 

9 53: 

144 

144 

14682 

26/LURQT.. 

ae£ 

1 LAST 

i2Aa_ 

TJ3_ 

1252; 

204 

204 

22109 

J — L-Lt 1 — » \J /* 

1 ^, / A R _ 1 ^ 

*- : _ 

P FF 

1 

1 ART 

776 

TO 

777 : 

f r” 

6o 

65 

14747 

_ 2(>/PQ5 

REF 

1 LA5T.. 

1447 

TO 

1449: 

32 

32 

22141 


1 7 /O A P J S 

RFF 

1 1 ART 

10 39 

TO 

1 0 S 3 • 

6 79 



26/P06 

REF _ 

1 LAST 

144.^ 

_XL1_ 

1447; 

42„ 

47 

22188 

L 1 r w 1-2 

1 7/^40- ft 

» ■ - : 1 |if 1 ii 1 

RFF 

1 

LAST 

771 

TO 

721 : 

10 

10 15386 

26/P61 

REF 

1 LAST 

7 8 '1 

JIL. 

792J_ 

61 

61 

22249 

X * i ^ I a iJ 

1 7 / 4 0 - 1 ft 

■ ^ ' 

r?FF 

. . Ak 

1 

4m fl Wff I 

t ART 

727 

TL* 

7 79: 

ft 

a 

j 

15394 

26/P62 

R££ 

1 LAST 

792 

TO 

795; 

52_ 

57 

22306 

pn / HA P civl 

RFF 

1 

1 ART 

1 066 

TO 

1070 : 

86 

86 

15480 

26/P63 

REF 

1 IA5J 

795 

TO 

797: 

22 

22 

22328 


?n/ jAPS 

P FF 

1 

\ ART 

962 

TO 

981 : 

489 

A-89 

15 969 

76/P64 ... 

REF 

1 LAST 

797 

TQ 

798: 

6 

6 

22334 

Lm.\j 1 ^ ^ t 

2 0/ . 1 

RFF 

1 

LAST 

5 02 

TO 

505 : 

126 

126 

16095 

26/P65 

REF 

1 LAST 

793 

TO 

799: 

27 

27 

22361 

2 0 / S T h K 

... y ^ * 

RcF 

fe 

1 

LAST 

■^7 ^ 

981 

TO 

989: 

73 

73 

16168 

26/P66 

REF 

1 LAST 

799 

TO 

800: 

4 

4 

22365 

7 0 / ft4n- s 

RFF 

1 

^ - 

LAST 

729 

TF| 

731 : 

70 

70 

16233 

26/P67 

REF 

1 LAST 

- aQo_ 

JLIL 

803; 

36 

36 

22401 




















20/S40- 8 

REF 

1 

1 AST 

771 

TO 

72 3: 


32 

16270 

26/S61.1 

REF 

t LAST 

803 

TO 

tt i 

or 

o 

oc 

69 

69 

22470 

20/ S41 - P 

RFF 

■| 

1 A ST 

731 

Tn 

7ft 5 : 

1 49 

149 

1 6419 

26/S61.2 

REF 

1 LAST 

soa. 

JLH. 

813: 

179 

179 

2 26 49 

71 / DAPAM 

REF 

X 

1 

LAST 

1075 

TO 

1 0 37: 

333 

333 

16752 

27/INTIN 

REF 

1 LAST 

1332 

TO 

1334: 

54 

54 

22703 

^ X / 1-/-“ 1- t3 • ^ 

7 l/HAPMS 

- ^ \ jg' 1. — ■^-_-. — 

RFF 

1 

LAST 

999 

TO 

1002: 

36 

35 

16787 

27/P27 

REF 

1 LAST 

1500 

TO 

1508: 

248 

248 

22951 



** 

















7 1/')APRC 

RFF 

1 

LAST 

1002 

TO 

1025; 

611 

61 1 

17398 

27/R60 

REF 

1 LAST 

390 

TO 

3^4: 

86 

86 

23037 

21/RCSUP 

R FF 

1 

LAST 

7ft 5 

TO 

738; 

9 P 

: 

22 

17420 

27/P62 

REF 

1 LAST 

398 

TO 

399: 

11 

11 

23048 

7 7 / i P F X 

REF 

] 

LAST 

1037 

TO 

1039: 

33 

33 

17453 

27/TFF 

REF 

1 LAST 

1376 

TO 

1389; 

268 

268 

23316 

22/KALC 

REF 

4 

LAST 

414 

TO 

420: 

1 79 

713 

18166 

27/VECPT 

REF 

1 LAST 

394 

TO 

398: 

130 

130 

23446 




















7 7 /P FRAP 

RFF 

1 

! AST 

496 

TO 

502: 

78 

78 

18244 

30/P22 

REF 

1 LAST 

565 

TO 

570; 

202 

202 

23648 

27/RTB 

RFF 

1 

LAST 

1508 

TO 

16 03 : 

206 

206 

18450 

31/Pft7 

REF 

1 LAST 

890 

TO 

899: 

374 

374 

24022 

2 2/S41* 1 

RFF 

1 

LAST 

717 

TO 

7 19: 

14 

14 

18464 

3 1 / R 3 1 

RFF 

1 LAST 

505 

TO 

511; 

213 

218 

24240 

2 ft /AFOM 

RFF 


1 AST 

791 

TO 

2 97: 

109 

218 

18582 

31/S23 

REF 

1 LAST 

619 

TO 

632 : 

593 

59 3 

24833 

^ Y W ..k^. 1 .^1 T t J -k ■ ■■ ■ ^ 

2 3/1 CONS 

REF 

1 

LAST 

1205 

TO 

1206: 

16 

16 

136 98 

32/P30 

REF 

2 LAST 

646 

70,. 

652: 

72 

186 

25019 

2ft/T^lFLT 

RFF 

1 1 a<;t 

1355 

TO 

1 365: 

186 

186 18884 

32/RTt 

REF 

2 LAST 

904 

TO 

t • 

876 

994 

26013 

7 3/PQWFL 

PEP 

1 

LAST 

1365 

TO 

1376; 

li"7 

187 

19071 

ft3/C0MST 

REF 

2 LAST 

439 

TO 

442: 

161 

475 

26488 

23/R30 

REF 

1 

LAST 

515 

TO 

522 : 

221 

221 

19292 

33/PG3 

REE 

1 LAST 

450 

TO 

452; 

60 

60 

26548 


^3/ SR 30S 

REF 

1 

L AST 

522 

TO 

'3 26: 

62 

62 

19354 

33/POl 

REF 

1 

LAST 

442 

TO 

444 : 

47 

47 26595 


23/STTKF 

RFF 

1 

LAST 

549 

T i 

551 : 

6 1 

61 

19415 

33/P02 

REF 

3 

LAST 

454 

TO 

457; 

40 

331 26926 

— - - TTmW T trn—m • ■ 

2 3/ ^ OSUB 

RFF 

1 

LAST 

576 

T'l 

579: 

55 

55 

19470 

33/P03 

REF 

3 

LAST 

453 

TQ 

454; 

18 

124 27050 


24/ P2 1 

^ ' 

REF 

1 

LAST 

457 

T'l 

463: 

1 0 8 

109 

19578 

34/COMST 

RFF 

1 

LAST 

452 

TO 

452: 

26 

26 27076 













, < 





... - 





ac<;pMRi p hf &r,r prix^ram r■^MA^JrMF Rv NASA 


» , 1QI=.Q 


PAHP 1‘^q^ 


r;AP 


iniPA APR- 


knilTTNF; r.niINT OATA FOR ROUTINF*?; 1 AST R FACH: TOTAL :Cili<Ul 


ROUTFNF; count data for RnilTlNF»S I A.ST RFACHlinTALtCUMUL 


:^4/r.R.sfei 


E_EF. 


I 1 ART qR? Tn qqR 


Zll 


?3L 273Q7 


34/CSI 


REF 


^4/P1 1 


REF 


1 I.ART 463 TO 
7 I ART R44 Tn 5- 4 9 1 


f.7? 


laa 


67? 7797 9 

406 PARRR 


34/R?? 


REF 1 LAST 579 TO 5S2 



500 2B885 


T4/R6R 


REF 


'i5/rNTIN 


35/LUnRB 


^5/R1 7 


55/P30 __ 
T5/P3?7? 


35/P3373 

35/P34 


35/P3474 


35/P3575 


35/S30S 
3 6/Tr)CnR 


36/Pll 


REF 


REE_ 


REF 


REF 


£££ 



P£E 


RFF 


R£F 


KE£ 


REF 


KE£ 


1 I ART 61 7 TO 61. 9 1 


itl 


* 


1 FAST 1327. TQ .3 

1 LA.RT 598 TO 617; 

1 I ART 559 TO 5 5?; 


1 64 


774 


25 


1 LAST 636 TO 652 


1 I ART 65? Tn 658; 


52 

23. 


8? 30021 


39 30170 


1 LAST 
1 LAST 



TO 663: 


635 TO 636; 


2-LL 

31 




30262 


36/TPT 


RFF 


37/CMRAT 


REE 


37/P7f) 


REE 


37/R?l 


REE 


1 

LAST 


TQ 

_55a:- 

322 

1 

LAST 

883 

TO 

89Q; 

195 

1 

1 AST 


TO 

565: 

SO 

1. 

LAST 

572 

TQ 

574; 

52 


322 31687 
195 31882 
80 3196? 


57 32019 


28926 

37/R57 

- RRF . 

1 

LAST 

570 

TQ 

57?; 

53. 

29090 

37/R61 

REF 

1 

LAST 

574. 

TO 

576: 

38. 

29R6A 

37/SERV 

REF 

1 

LAST 

822 

TO 

844: 

375 

29939 

4n/FyTVR 

RFF 

_L 

-L^S.T_ 

63? 

TQ 

615.; - 

100 


53 3707? 


38 32110 


375 32485 
inn 37585 


40/PIN 


REE 


41 /PIN 


R££ 


10 LAST 

8 I ART 


388 TO 390; 


54 


385 Tn 388; 


Ih. 


896 33481 
983 34464 


42/INIT 


REF 


1 LAST 937 TO 946; 



259 34723 



REF 


1 LAST 270 TO 285; 


561 


561 35284 


1 LAST 463 TO 468 


111 111 30373 


42/PIN 


RFF 


7 1 AST 352 TO 355 


92 


238 35522 


2 LAST 683 TQ 6 84: 


2 


1 I-A8T 63. 9 I D tdl3. 


15. 


515 30888 
75 30963 


42/R05 


REF 


43/FXTVR 


REE 


1 I AST 934 TO 937; 
4 LAST 254 TO 27Q: 


50 


80 35602 


253. 


614 36216 


2 LAST 1256 TO 1260; 


196 


334 31297 


43/P27 


REE 


1 LAST 1499 TO 1500; 


32 


32 36248 


1 LAST 543 Tfl 544: 


CKi 


68 31365 


43/SELF 


REF 1 LA 



TO 1404; 


HA 


314 36562 


I 


aAP: F rpvt<;t 




nr Ar,r. ^pn(;fiAM rn^AMCHF ry na<;a ?opiii3-q51 


in: 7 8 APR 


1969 


PAHE 1594 


PARAGRAPHS 


THIS A^SrMBt 


Y: addres s li mits AMD 


THF MANUFACTURING LOCATION CODE ARE SHOWN FO R EACH 


Anno rn 43 77 p aragraph a Oin RGPF MODULE l* SIDE A« SENSE LINE SET 3 < W IR £S 63- -8.Q3 

44 00 Tn 4777 PARAGRAPH « Oil ROPE MOD ULE ly SIDE B« SENSE LINE SET 5_ t W I.R £ S , ^ 63 - .SQ! 

8 non Tn g;877 paragraph ni7 rhpf Mfinni F l « S T DF A« SFNSF I TNF SFT — 6 — ( WTR FS 31- 96> 

S 400 Tn S777 PARAGRAPH U 018 RILP,^_AQ£IUL E It SIDE fit SENS E LINE S£1 6 ,. (W I RES 61- 96a 

.soon XQ iS877 PARAGRAPH H QI4 ilQ PE MQOULE It. S IDi^-^ Af SENSE L INt SET 7 (WIRES 9Jr!L L12_l 

^>400 Tn A777 PARAGRAPH U Q15 ROPF MnDULF 1« SIDE^fl^ SFNSF L TNE S£.I 7 (WIRES 97- 11 2 .1 

7000 Tn 7G7 7 PARAGRAPH U 016 R QP .^_MD_D U L E It S I QE, Aj., S EN SE LIN£-.S£r. — 8 (WIRES 11 3- 12S-1 

7400 Tn 7777 _ PARAGRAPH U 017 ROPE MODULE 1 9 SI DE 61 S ENSE LIN E S ET 8 (WIRES 113-128) 

no, POOP Tn 00,7 8 77 PARAGRAPH g 070 RHPF MHOUt F Lj STOF A* SENSE.ilNE SEJ ] — ( WIRES L= — L61 

on ,'>400 TO 00,7777 PARAGRAPH # 021 SURE MODULE 1 iL_SID£ Bt SENSE J- I NE SET 1 ( W I R E S .. _ 1 - 1 . 61 

00.8000 Tn 00.1877 p ARAGR.APR. i __aZ2 ROPE M QDUL£_Xjl SIDE Ai- SENSE L I N E- S E T — Z (WIRES — 17- 3 21 


no 





1 


01 yPOOP TO 01.7377 PARAGRAPH M Q Z_4 RO PE MODU LE If SIDE A t SENSE LINE SET 3 (WIRES — 33-. 48 1 

01 .7400 Tn 01.77 7 7 PARAGRAPH fi 025 ROPE MODULE I ♦_ SIDE 3_£MS^ , L LN£_S£ T 3^( WIRES 33- - 43 1 

01 ,8000 TR 01^^877 PARAGRAPH U 076 ROPF VinnULE 1> .SIDE A, SFNSE LINE SET 4 (WIB -ES 49 - 64 ) 

01 t 8400 TO 01 . 8777 PARAGRAPH U 077 ^BIIRE JjOQULE ELi_ ^ S SENSE LI^fE SET 4 (W I R .E5 — 49- _ 6 41 


1 



04- 7000 

Tn 

04. 7377 

PARAGRAPH 


040 

ROPF 

Mnnui F 

1 • 

SIDE 

At 

SENSE 

LINE 

SET 

_9_ 

(WIRES 

129-144) 




04. 7 4 00 

TO 

04. 7777 

PARAGRAPH 


041 

RDPF 

MODULE 

Ix^ 

SIDE 

8t 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 




04 • H 000 

1 W 

m 

04. 33 77 

PARAGRAPH 


. ^ 1 

0 42 

ROPE 

MODULE 

_1 • 

SIDE 

A 9 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 




0 4® S 4 0 0 

TO 

04. 3777 

^ ^ 0* T_ 1 ■ ^ 

PARAGRAPH 


0 43 

ROPF 

MODULE 

1 , 

SIDE 

B , 

SENSE 

LINE- 

SET 

10 

(WIRES 

145-160) 




os • 7000 

TH 

OS, 7377 

PARAGRAPH 


044 

ROPE 

MODULE 

1* 

SIDE 

A t 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 




05 »24 00 

TO 

OS. 2777 

PARAGRAPH 

H- 

045 

ROPE 

MODULE 1. 

SIDE 

B. 

SFNSE 

LINE 

SET 

11 

(WIRES 

161-176) 




OS . 8000 

Tn 

OS. 3377 

PARAGRAPH 


046 

ROPF 

MODULE 

1 • 

SIDE 

A . 

SENSE 

LINE 

SFT 

JLZ. 

(WIRES 

177-192) 




0 5* 3400 

TO 

OS, 3 7L77 

paragraph 


047 

ROPE 

MOOUIF 

1 « 

SIDE 

8. 

SENSE 

LINE 

SET 

12 

( WIR ES 

177-192) 




06 * '^000 

TO 

06.2377 

PARAGRAPH 


TTT. 

050 

ROPE 

MODULE 

2. 

SIDE 

A * 

SENSE 

LINE 

SET 

1 

(WIRES 

1- 16) 




06 . 7400 

I, .rl - 

TO 

06.7777 

PAR AGRA '^H 


051 

ROPF 

MODULE 

2, 

SIDE 

Bt 

SENSE 

LINE 

SET 

__L_ 

( WIRE S 

1- 16) 




06*3000 

TO 

06.33 77 

PARAGRAPH 


0 52 

RGPF 

MODULE 

2. 

SIDE 

A * 

SENSE 

LINE 

SET 

2 

(WIRES 

17- 32). 




06. 3400 

TP 

06*3777 

PARAGRA‘^H 


0 53 

ROPE 

MODULE 

2. 

SIDE 


SENSE 

LINE 

SET 

2 

(WIRES 

17- 32) 




07 . 7000 

TO 

07.7377 

PARAGRAPH 


054 

RGP E 

MODULE 


SIDE 

A f 

SENSE 

LINE SET 


(WIRES 

33— 48) 




07*7400 

TP 

07. 2777 

PARAGRAPH 


055 

ROPE 

MODULE 

2. 

SIDE 

B . 

SENSE 

LINE 

SET 

3 

(WIRES 

33- 48) 




0 7* 3 000 

TO 

07.3377 

PARAGRAPH 


056 

ROPE 

MODULE 

2, 

SIDE 

Af 

SENSE 

LINE 

SET 

4 

( WIRES 

49- 64) 




0 7* 3400 

TO 

07*3777 

PARAGRAPH 


0S7 

R 0 PE 

MODULE 

2 f 

SIDE 

B, 

SENSE 

LINE 

SET 

4 

(WIRES 

49- 64) 




10*7000 

TO 

10.2377 

PARAGRAPH 

U 

060 

ROPE 

MODULE 

2. 

SIDE 

A, 

SENSE 

LINE 

SET 

5 

(WIRES 

65- 80) 




10*7400 

TO 

10.7777 

par AGRAPH 


061 

ROPE 

MODULE 

2, 

SIDE 

B j 

SENSE 

LINE 

SET 

5 

( WIRES 

65- 80) 



r - - — - - ^ J ^1 i| 

10* 3000 

TO 10.3377 

PARAGRAPH 


0 62 

ROPE 

MODULE 

2. 

SIDE 

A. 

SENSE 

LINE 

SET 

6 

(WIRES 

81- 96) 




10*3400 

TO 

10.3777 

PARAGRAPH 


063 

ROPE 

MODULE 

2. 

SIDE 

8 . 

SENSE 

LINE 

SET 

6 

(WIRES 

81- 96) 




1 1*2000 

TO 

11.2377 

PARAGRAPH 


064 

ROPE 

MODULE 

2r 

SIDE 

A f 

SENSE 

LINE 

SET 

7 

(WIRES 

97-112) 




1 \ * ^ 0 0 

TO 

11.7^77 

PARAGRAPH 


065 

ROPE 

MODULE, 

2. 

SIDE 

3f 

SENSE 

L IN E 

SET 

7 

(WIRES 

97-112) 




11.3000 

TO 

1 1.3377 

PARAGRAPH 


066 

ROPE 

MODULE 

2f 

SIDE 

A, 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 




1 1. 3400 

TO 

11,3777 

PARAGRAPH 


067 

ROPE 

MODULE 

2, 

SIDE 

Bt 

SENSE 

LINE 

SET 

8 

(WIRES 

113-123) 




1 2.2000 

TD 

12.2377 

PARAGRAPH 


070 

ROPE 

MODULE 

2. 

SIDE 

A. 

SENSE 

L I NE 

SET 

9 

(WIRES 

129-144) 




12.2400 

TO 

12,2777 

PARAGRAPH 

H 

071 

ROPE 

MODULE 

2, 

SIDE 

Bt 

SENSE 

LINE 

SET 

9 

(WIRES 

129-144) 




1 7.3000 

TO 

1 2* 3377 

PARAG'^.APH 


0 72 

ROPE 

MODULE 

2\ 

S I 0 r- 

A, 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 




. 


artP; F up\/r<iinM p.F A r. p. _p_aj3 r, R & M r.nANrHF KY ma<;a pn7im-n‘ii 



PAr:F 1 


P4><ar,:; iPH’; r,FNFRATFn FOR THt<; a»;si-mbiy; Anni.!F<;«; l TMITS and THF MANIIFAr.TURlNa inCftTION CnOF ARF SHOWN FDR FAr.H 


16.3^00 


»7.?riQ0 


TO 16.377 7 
TO 17.?^77 


PARAGRAPH if 113 
PARAGRAPH H 114 



SENSE LINE SET 
ROPE rtonill F T. SinF A. SENSE I INF SET 


6 (WIRES 

7 (WIRES 


£1^^961 

97-112) 


17.2400 TO 1 7.2777 
17.3000 

1 7.3400 


PARAGRAPH ^ IIS 


ROPE MODULE i... 



7 (WIRES 07-112) 


17^3377 
TO 17.3777 



116 


PARAGRAPH tf 117 


iOlPE MODULE 3. SIDE A. SENSE LINE SET 
ROPE MODllI F 3. SIDE R. SENSE LINE SET 


8 (WIRES 113-128) 


8 (MIRES 113-128) 


2 0.2000 IQ 



377 


PARAGRAPH 



Q. 


ROPE MODULE 3. SIDE A. SENSE 



9 (WIRES 129-144) 


20.2400 


20.3000 


TO 20.2 777_ 
TO 20.3377 


PARAGRAPH « 121 
PARAGRAPH « 122 


ROPE MODOLF 3. SIDE B. SENSE LINE SET 9 (WIRES 1 29-144) 
ROPE MOOUIF 3. SIDE A. SENSE LINE SET 10 (WIRES 145-160) 


20. 3400 TO 20.3777 


21.2000 TO 21.2377 


PARAGRAPH if 123 
PARAGRAPH H 124 


21.2400 TO 21.2777 
21.3000 TO 21.3377 


PARAGRAPH ^ 125 


ROPE MQDUl F 3. SIDE B. SENSE LINE SET 10 (WIRES 145-160) 
ROPE MODULE 3. S IDE A. SENSE LINE SET 11 (WIRES 161-176) 
ROPE MOOliLE 3. SIOE 3. SENSE LINE SET 11 (WIRES 161-176) 


PARAGRAPH # 126 


ROPE MOOULF 3. SIDE A. SENSE LINE SET 12 (WIPES 177-192) 


21.3400 TO 21.3777 

TO 22.2377 


PARAGRAPH # 127 


72.2000 


PARAGRAPH » 130 


ROPE NODULE 3. SIDE B. SENSE LINE SET 12 (WIRES 177-192) 
ROPE MOOHLF 4. StOE A. SENSE LINE SET 1 {WIRES 1-16) 


22.2400 TO 22.2777 


PARAGRAPH » 131 


22.3000 TO 22.3377 


PARAGRAPH H 132 


ROPE MODULE 4. SIDE B. SENSE LINE SET 
ROPE MODULE 4. SIDE A, SENSE LINE SET 


1 (WIRES 


1- 16) 


2 (WIRES 17- 32) 


22.3400 


23. 2000 


TO 22.3777 
TO 23.2377 


PAPAGRAPH 4 133 

PARAGRAPH # 184 



23 


2400 


TO 23.2777 


PARAGRAPH # 135 


ROPE MODULE 4. SIOE B. SENSE 
ROPE MODULE 4. SIOE A. SENSE LINE SET 
rope module 4. SIOE B. SENSE LINE SET 


(WIRES 17- 32) 


3 (WIRES 33- 48) 


3 (WIRES 33- 48) 


23.3000 TO 23.3377 


PARAGRAPH * 136 


ROPE MODIJIF 4. SIDE A. SENSE LINE SET 4 (WIRES 49- 64) 


23.3400 


24.2000 


TO 23 .3777 
TO 24.2377 


PARAGRAPH # 137 


PARAGRAPH H 140 


RQPb MODULE 4. SIOE B. SENSE LINE SET 4 (WIRES 49- 64) 

SrOE A. SENSE LINE SET 5 (WIRES 65- 80) 


ROPE MODULE 


A « 


24.2400 TO 24.2777 


paragraph U 141 


ROPE MODULE 4. SIOE B. SENSE LINE SET 5 


(WIRES 


65- 80) 


24.3000 TO 24,3377 


PARAGRAPH 1 42 


ROPE MODULE 4. SIDE A. SENSE LINE SET b (WIRES 81- 96) 


24.3400 TO 24.3777 


PARAGRAPH tl 143 


ROPE module 4. SIOE B. SENSE LINE SET 6 (WIRES 81- 96) 


25.2000 

25.2400 


TO 25.2377 
TO 25.2777 


PARAGRAPH H 144 
PARAGRAPH 7 145 


ROPE MODULE 4. SIDE A 
ROPE MODULE 4. SIDE B. 


SENSE LINE SET 
SENSE LINE SET 


7 (WIRES 
7 (WIRES 


97-112) 

97-112) 


25.3000 TO 25.3377 


25.3400 TO 25.3777 


PARAGRAPH 7 146 

PARAGRAPH 7 147 


MOD ULE 4, SIOE A, SENSE LINE SET 
ROPE MODULE 4. SIDE B. SENSE LINE SET 


8 (WIRES 113-128) 


8 (WIRES 113-128) 


1 ? . 4 r ) n 

TP 

1 7- 3777 

PAR AOR APH 


073 

RQPF 

MODULE 

7f 

SIDE 

Q f 

SENSE 

LINE 

SET 

ID 

( WIRES 

145> 

160) 



1 - 7000 



PARAGRAPH 

ti 

0 74 

RnPF 

MODULE 

2 m 

SIDE 

-jAa 

SENSE 

LIM£^_ 

SET 

11 

(WIRES 

161-1761 



1 ^ - 7400 

TD 

1 3-7777 

PAR AORAPH 

a 

075 

ROPF 

Monm F 

?m 

^TDF 

R. 

SFMSF 

1 INF 

SFT 

1 1 

(WIRES 

I6I" 

176) 



1 3 .^onn 

T!1 

1 3, 3377 

PAR AO <APH 

n 

076 

ROPF 

MODULF 

?, 

SIDE 


SENSE 

LINE 


12 

(WIRES 

177- 

19?) 



1 3.3400 

TO 

13.3777 

PARAORAPH 

# 

077 

HOPE 

MODULE 

7m 

SIDE 

Rt 

SENSE 

LINE 

SET 


(WIRES 

177- 

192) 



1 4- 7000 

TP 

1 4.7377 



1 00 

ROPF 

MODULE, 

3. 

SIDE 

Af 

SENSE 

1 INF 

SFT 

1^. 

f WTR FS 

1 - 

16) 



14.7400 

TO 

1 4, 7777 

PARAOP. APH 

# 

1 m 

ROPE 

MODULE 

3* 

SIDE 

Rf 

SENSE 

1 INE 

SET 

1 

(WIRES 

1^ 

16) 



14.3000 

TP 

1 4. 3377 

PARAORAPH 

# 

10? 

ROPE 

MnnuLE 3. 

SIDE 

Am 

SEMSE 

1 INE SET 

_ 2 _ 

(WIRES 

17- 

32) 



1 4. 3400 

TP 

1 4. 3777 

PAR AOR APH 


1 03 

ROPE 

MOniJl F 

3f 

SIDE 

R« 

SENSE 

1 INF 

RFT 

7 

(WIRES 

17- 

8?) 



1 5. 7000 

TP 

1 5.7377 

PARAGRAPH 

# 

104 

ROPE 

MODULE 

3 . 

SIDE 




SET 


(WIRES 

33=. 

48) 



1 5.2400 

in 

15,7777 

PARAGRAPH 


1 05 

ROPE 

MODULE. 

3t 

SIDE 

Rt 

SENSE LINE 

SET 


(WIRES 

33- 

48) 



1 5.3000 

TP 

1 5-3377 

PAP AGR APH 


1 06 

ROPF 

MODULE 

3i 

SI DF 

A f 

SENSE 

LINE 

SFT 

4 

(WIRES 

49- 

641 



15*3400 

TP 

1 5,3777 

PARAGRAPH 


107 

ROPE 

MODULE 

3 f 

SIDE 


SENSE 



4 

(WIRES 

49- 

64) 



16.2000 

TP 

16.2377 

PARAGRAPH 

!f 

110 

ROPE 

MODULE 

3f 

SIDE 



LINE 

SET 

5 

( W.I.R E S 

6^ 

80) 



— ^ ^ ^ ^ - 

16.7400 

— ■»- - 

TD 

- - — — y. ,T ^ .. . — ■ 

1 6^ 7777 

PARAGRAPH 

4 

1 1 1 

ROPE 

MODULE 

3f 

SIDE 

Rt 

SENSE 

LINE 

SET 

_5_ 

(WIRES 

65- 

80) 



16.3000 


16.3377 

PARAGRAPH 

JL 

112 

ROPE 

MODULE 


SIDE 

A * 

SENSE 

LINE 

SET 

6 

(WIRES 

81- 

96) 


. - 


n.APi r n>FVT<;rnN of ^ac. 

PPOOPAM rnMANirHF RY NASA 

2021 1 13- 

051 

1Q:2R APR 



1 . 1969 

PAGE 1596 


PARAGRAPHS GENERAJPD 

ED R Till S ASSl 

HbLY; 

AOOP^SS LIMITS AMD ' 

IHE 

MANUFACTURING 

LOCATION 

CODE ARE SHOWN FOR EACH 



TO 

?f) • 2 3 T7 

PARAGRAPH 


1 50 

ROPE 

MODULE 4. 

SIDE 

At 

SENSE 

LINE SET 

9 

(WIRES 

129-144> 

?f), ?4n() 

in 

76, 2777 

PAR AGRA PH 

# 

151 

. _ ROPE 

MODULE 

-As- 

SIDE 

Q, 

S ENSE 

LINE SET 

9 

(WIRES 129-144) .... „ 

? A-^ofin 

TO 

26, 7777 

PARAGRAPTL. 


1 52 

ROPE. 

MODULE 

^ m 

SIDE 

Ai 

sen.se 

L11J£ 

SET 

1 0 

(WIRES 

145-1601 

?f>. -^400 

TD 

76,7777 

PARAGRAPH 


1 53 

ROPE 

MODULE 

^ f 

SIDE 

Bt 

SENSE 

L 1 NE_ 

SET 

JiL 

J WIRES 

145-1601 

77,7000 

TO 

77,7777 

PARAGRAPH 


1 54 

ROPE 

.MODULE 

4 9 

SIDE 


SENSE 

LINE 

SET 

JLL_ 

(WIRES 

151-176) 

7 7. 7400 

TO 

77. 7777 

PARAGRAPH 

n 

1 55 

ROPE 

MODULE 


SIDE 

R, 

SFNSE 

LINE 

SET 


(WIRES 

161-176) 

7 7, 'HO 00 

TO 

77,7777 

PARAGRAPH 

H 

156 

ROPE 

MODULE 

4“ 9 

SIDE 

At 

sense 

LINE 

SET 

12 (WIRES 

_L72-192) 

77, ^400 

TO 

27.3777 

PARAGRAPH 


ROPE 

MODUL*= 


SIDE 

B* 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

^0- 7000 

Tn 

70.7777 

PARAGRAPH 

n 

160 

ROPE 

MODULE 

5. 

SIDE 

A , 

SENSE 

1 INF 

SET 

1 

(WIRES 

1- 16L 

3 0,74if0 

TO 30.7777 

PARAGRAPH 


161 

ROPE 

MODULE 5, 

.^iU E 

Rt 

SENSE LINE 

SET 


(WIR^S 

1- 16) 


TO 

30.37 77 

PARAGRAPH 

tf 

162 

ROPE 

MODULE 

5f 

SIDE 

A t 

sense 

LINE 

SET 

2 

(WIRES 

17- 32) 

^ 0 • 7400 

Tfi 

70,7777 

PARAGRAPH 

if. 

1 63 

ROPF 

..KDDULi 

5t 

SIDE 

B , 

SENSE 

LLNE 

SET 

? 

(WIRES 

17- 3?) 

71,7000 

TO 

31 ,2377 

PARAGRAPH 

a 

164 

. .. ROPE 

MODULE 

^ f 

SIDE 

A , 

SENSE 

LINE 

SET 


(WIRES 

33- 48) 


TO 

71,2777 

PARAGRAPH 

n 

165 

ROPF 

MODULE 

5, 

.SIDE 

B. 

SENSE 

LINE 

SET 

3 

(WIRES 

33- 48) 

7 1 - 7 000 

Tm 

71 , 77 77 

PARAGRAPH 

a 

166 

ROPE 

MODULE 

5t 

S 1 D £_ 

A f 

SENSE 

LINE 

SFT 

4 

(WIRES 

49- 64) 

71 ,7400 

TO 

71,7777 

PARAGRAPH 

a 

167 

ROPE 

MODULE 

5» 

SIDE 

6* 

SENSE 

LINE 


4 

i ViIR£5- 

49- 64) 

77,7000 

TO 

32,23 77 

PARAGRAPH 


1 70 

ROPE 

MODULE 

5. 

SIDE 

A 9 

SENSE. 

LINE 

SET 

5 

(WIRES 

65- 90) 

7 7,740 0 

TO 

72, 2777 

PARAGRAPH 

H 

171 

ROPE 

MODULE 

5 9 

SIDE 

Rt 

SENSE 

LINE 

SFT 

_5_ 

(WIRES 

65- 80) 


TO 

32.3377 

PARAGRAPH 

n 

172 

ROPE 

MODULE 5. 

SIDE 

A • 

SENSE. 

LINE 

SET 

6 

(WIRES 

81- 96) 

72, ^400 

TO 

72 ,7777 

PARAGRAPH 

■H 

173 

ROPE 

MODULE 

5, 

SIDE 

Bjt 

SENSE 

LINE 

SET 

6 

(WIRES 

81- 96» 

77,7000 

TO 

77,2777 

PARAGRAPH 


1 74 

ROPE 

MODULE 

5» 

SIDE 

A 9 

SENSE 

1 INE 

SET 

7 

(WIRES 

97-112) ^ 

77,7400 

TO 

_3 if 2777 

PARAGRAPH 


175 

ROPE 

MODULE 

5. 

SIDE 

B t 

SENSE 

LINE SET 

7 

(WIRES 

97-112) 

37,7000 

TO 

33, 3377 

PARAGRAPH 

H 

176 

ROPE 

MODULE 

5, 

SIDE 

A , 

SENSE 

LINE 

SET 

8 

(WIRES 

113-128) 

77, 7400 

TO 

77,7777 

PARAGRAPH 

ff 

.177 

ROPE 

MODULE 

5, 

SJ.D.E 

B 3 

SENSE 

LINE SET 


(WIRES 

113-1281 

74,2000 

TO 


PARAGRAPH 


200 

ROPE 

MODULE 

5. 

SIDE 

A, 

SENSE 

LIN^ 

SET 

D 

(WIRES 

129-144) 

34,2400 

TO 34.2777 

PARAGRAPH 

/jf 

201 

ROPF 

MODLfLE 

5, 

SIDE 

B, 

SENSE 

LINE 

SET 

9 

( WIRES 

129-144) 

74,7000 

TO 

74, 7777 

PARAGRAPH 

u 

202 

RQP.E. 

MODULE 

5, 

SIDE 

At 

SENSE 

LINE 

SET 

JSL 

(WIRES 

145-160) 

34,3400 
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1 

21540 

0 

- 


20*2770 

00006 

1 

41540 0 

21703 

0 

03124 

0 

00006 

1 

31556 

0 

53707 

1 

00006 

1 
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^ M — ■ ^ ^ g 1. < 1 TiJ- 

» r 1 — 1.* .,1^ 










9 n . \ n G f 'I 

31 367 1 

5371 3 1 

00006 1 

31566 0 

53717 0 

Q 3l1_5 6 _11_ 

00006 1 

31610 1 



7n. ROT 0 

71705 0 

03137 1 

41674 1 

61704 0 

26.Q53_J5_. 

35004 0 

00006 1 

050L4_JL__ 



^ L/ y — ■' W JL W — 

7 n • 0 7 G 



5371 1 0 

00006 1 

31564 1 

53715 1 

00006 1 

31570 1 



— — ^ ^ y ^ \^M w 

? n - RA 

33771 O 

03747 0 

31 604 1 

00006 1 

73500 0 

55701 1 

316Q3 Q 

Q0Q06 1 




9n R04n 

73500 0 

21701 1 

31704 0 

00006 1 

73477 1 

21701 1 

03050 1 

15333 0 



7 n . R n n 

3ik Jt ^ 

76644 0 

00006 1 

31707 0 

53556 1 

00006 1 „ 

31 71 1 1 

53560 1 

00006 "l 



7 0 • ^n<so 

31 71 3 0 

53562 0 

00006 1 

31715 0 

53564 0 

00006 1 

31717 1 

53566 1 



7n- ^nvn 

^ Mm 1 ^ ^ ^ 

00006 1 


53570 0 

J)0006^ L 

31703 1 

55500 1 

53600 1 

31704 0 

M . ■ JBT ^ M M 11 = — — - ■ ■■III 



— w ^ ,. -.-. — - — — — - " — — ' — 

7 0*^1 no 

55674 1 

00006 1 

31701 0 

53604 0 

35021 1 

55644 1 

00002 0 

22016 0 




37716 0 

61675 1 

65001 0 

61625 1 

54030 0 

33473 1 

55312 1 

30033 1 



7 O - R 1 7 0 

S5645 0 

30034 0 

55646 0 

15335 0 

31702 0 

00006 1 

75015 1 

00006 1 



70-71 70 

13136 1 

11707 1 . 

35003 1 

13135 1 

45003 0 

55702 L 

.013002. _0.„- 

31705 ,I 




70 . 71 40 

60000 1 

54001 1 

35021 1 

61704 0 

00006 1 

73472 1 

00006 1 

13155 1 



7 0 • 7 1 5 0 

11704 1 

33471 0 

13154 0 

43471 1 

55704 1 

00002 0 

35021 1 

55615 0 



70,7160 

55617 1 

55621 1 

55704 1 

55700 0 

31703 1 

00006 1 

71723 1 

55616 0 



70.71 70 

31707 0 

00006 1 

71773 1 

21616 0 

53707 1 

21616 0 

31616 1 

00006 1 
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20.3700 

71730 0 

55620 0 

31615 1 

00006 1 

71730 0 

21620 0 

53713 1 

21620 0 



70-7710 

31466 1 

7500? 1 

10000 0 

13220 0 

00006 1 

31620 1 

5 3622 1 

13232 0 



^ ^ f ^ 

70.3720 

31620 1 

00006 1 

71 735 0 

55622 1 

31617 0 

00006 1 

71735 0 

21622 1 



20*3730 

53717 0 

■ ^ — - 

21622 1 

41622 1 

00006 1 

71641 1 

55705 0 

41621 1 

00006 1 




I--JS & ^ ^-le- ^ ^ 










70 .3740 

71641 1 

71705 0 

53 705 0 

20001 1 

20001 1 

53705 0 

00002 0 

35021 1 



70.3750 

55611 1 

55 61 3 0 

31703 1 

00006 1 

71724 0 

55612 1 

31702 0 

00006 1 



70. 3760 

71774 0 

71617 1 

41616 0 

00006 1 

71726 1 

55614 1 

41615 0 

00006 1 



7 0- 37 70 

71776 1 

21614 1 

53614 1 

21612 1 

53612 1 

20001 1 

21711 0 

53711 0 




20*3300 

53707 1 

35021 1 

55611 1 

55710 1 

31703 1 

00006 1 

71725 1 

55612 1 



20.3310 

3170? 0 

00006 1 

71725 1 

21612 1 

41616 0 

00006 1 

71727 0 

55711 0 



70* 3370 

41615 0 

00006 1 

71727 0 

21711 0 

53612 1 

21711 0 

35021 1 

55611 1 



70- 3330 

55613 0 

31616 1 

00006 1 

71731 1 

55612 1 

31615 1 

00006 1 

71731 1 



- ^ w ^ ^ ^ ^ -r- ■ TT m -m » , ■■ » . , 

20* 3340 

21612 1 

41670 0 

00006 1 

71733 0 

55614 1 

41617 1 

00006 1 

71733 0 



2 0 • 3 3 0 

21614 1 

53614 1 

21612 1 

53612 1 

20001 1 

21715 1 

53715 1 

53713 1 



^ ^ - — . -■ . — ^ 

70.3360 

35021 1 

55611 1 

55714 0 

31616 1 

00006 1 

71737 1 

55612 1 

. _ • - - — — - ■ ■ - ^ ■ 

31615 1 



?0, 3370 

00006 1 

71732 1 

21612 1 

41620 0 

00006 1 

71734 1 

55715 1 

41617 1 
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20.3400 

00006 

1 

71 734 

1 

21715 1 


5361? 1 

21 71 5 1 - . 

^1466 1 


750m 0 

IQOQQ 

_Q 


2 0.3410 


0 

3 5021 

1 

55611 1 


55613 n 

^1620 1 

00006 1 


71736 Q 

CT Cl 1 O 



2 0. 3420 

31 61 7 

0 

00006 

1 

71 736 0 


21612 1 

41622 1 - 

QQ0Q6 1 


71740 1 

53iil4, 

_1 



41 62 1 

1 

00006 

1 

71740 1 


21614 1 

6^614 1 

21612- J-. 


5^612 1 

20001 

J 


d y I* ■ — — — * 

2 0.3440 

21 721 

0 

53721 

0 

•5^717 0 


35021 1 

55611 1 

55720 1 


31620 1 

00006 

1 


20 - 34'in 

717 37 

1 

5 561 2 

1 

31 61 7 0- 


00006 1 

71 737 1 

21612 1 


41622-J 

00006 

J 


2Q.3<^60 

71741 

_Q 

■55721 

J1 

4tft21 1 


00006 1 

71741 Q 



53612 1 

2XIZ1_ 

_Q 



70.^470 Q0QQ2 Q C: 00375 Q C: QQ1Q1_1, C: Q 2 5 3Q Q CX Q31QI.1_ C: Q2732 0 CJ_QIUL1:5. .JL C: QQ 2 43 i 


20.3500 

r.: 375 35 

0 

0351 2 

1 

00004 

0 

314ii6 1 

75002 1 


00006 

A 

13511 

_Q 


1L413_ 

0 

20.3510 

55574 1 

15217 

1 


0 

55655 1 

55656 L-_„ 


33523 

0 

55660 

1 


43524 

0 

f— ^ ^ 

20-3520 

55661 

0 

00 00 2 

0 r : 

0001 2 

1 

c : 00003 1 . 

c: 00004 0 

CJ_ 

Q0Q05 

J 

r-t 0001 1 

JL 

LA 

00Q15 0 

2 0 * 3 5 30 

C : 00006 

1 

c: 00005 

1 c • 

00004 

0 

00006 1 

234i2 J 


35016 

0 

05245 

1 

C: 

03542 

1 


















20. 3540 

C: 40066 

0 

13544 

0 

34367 

1 

55657 0 

31574 0 


26054 

A 

35005 

1 


00006 

1 

20. 3 550 

05014 

1 

25656 

0 

41655 

1 

00006 1 

63556 1 


01657 

1 

11660 

1 


13577 

0 

20*3560 

13603 

0 

25661 

1 

41661 

0 

00006 1 

13575 1 


51661 

1 

33530 

1 


55660 

1 

20.3570 

516 61 

4^ 

1 

43 53 1 

0 

55656 

1 

55655 1 

01657 1 


55574 

A 

01657 

A 


55660 

1 


















20*3600 

31 6 56 

0 

60000 

1 

13606 

0 

45017 0 

55660 1 


31656 

0 

55655 

1 


41574 

1 

20.3610 

55574 

1 

016 5 7 

i 

35057 

0 

54003 0 

05560 1 

C: 

00112, 


05560 

J 

LA 

00133 

0 

20.3620 

00006 

1 

33737 

1 

53313 

0 

00006 1 

33737 1 


53311 

1 

06000 

1 


47707 

1 

20*3630 

71466 

0 

55466 

0 

03636 

1 

35036 1 

04662 1 

C: 

01732 

0 

35005 

1 


70102 

0 


















20.3640 

00006 

"l 

13633 

0 

45017 

"0 

55501 0 

55727 0 


30007 

0 

55711 

0 


55713 

1 

20*3650 

00004 

0 

00006 

1 

31666 

0 

53604 0 

31664 1 


55717 

0 

00006 

1 


75002 

1 

20.3660 

55715 

1 

401Q2_ 

0 

75004 

1 

26102 0 

A-0076 1 


7501 / 

0 

26076 

1 


00003 

1 


20^3570 04701 0 C: 54342 0 35057 0 54003 0 00 004 0 41205 0 55720 I 35002 0 


2QV3700 65002 0 60025 0 27720 I 45022 0 61720 0 lOOQQ 0 63735 0 13705 I 

20*3710 13711 1 65017 1 35725 1 05245 I C: 02434 0 C: 32066 0 43734 0 70102 0 

2 0*3720 64377 0 5 4102 0 300_07 J) 55666 1 35017 I 54305 0 05372 1 C: 40116 0 

2Q«3730 C: 05024 1 C: 13QQQ 0 04701 Q C; 54326 1 C: 16017 Q C: 77766 0 C: 03153 0 C: 12062 0 


20.3740 

C: 03740 1 

C: 03741 0 

CKSM 77241 0 

a 

a 

a 

3 

a 


20*3750 

a> 

"?) 

a) 

a 

3 

a 

a 

a 


20*3760 

3) 

.3 

a 

a 

a 

a 

a 

a 


20. 'A770 

li 

nl 

a 

a 

3 

a 

a 

3 
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? 1 - 7000 

04S A7 

1 

04740 

0 r : 45 1 44 1 

31155 

1 

55646 0 

04526 1 

31327 0 

54063 Q 


7 1 • 70 1 0 

35021 

1 

5 3 3 7 6 


05324 

1 

22016 0_ 

00006 1 

72012 1 

02024 0 


^ ^ ^ - * X.. 

7 1. 7070 


0 c 

- mT — T r wm ■m^ 

; 07177 

1 C: 42066 1 

C: 37704 

0 _ 

32023 1 

54030 0 

55465 0 

41501 0 


7 1. 70*^0 

7 5 0 1 5 

1 

77501 

0 00006 1 

32022 

_Q 

53313 0 

44105 0 

70102 Q 

65002 0 


* *¥*'»"■« — — * — ——-■■■■ ■■■■■■■ _ 

7 1.7040 


0 

00002 

0 55512 1 

00006 

1 

71511 1 

55511 1 

35021 1 

57510 1 


7 1 .70^0 

00006 

1 

715 17 

1 21511 1 

00002 

0 

21511 1 

00006 1 

12073 0 

11510 0 


71. 7060 

12074 

1 

12063 

1 12076 0 

11511 

1 

12101 1 

12067 0 

40000 0 

64777 1 


71 .7070 

. . ■ mm — ^ _J A. 

5551 1 

1 

34 777 

1 56510 0 

00002 

0 

65001 0 . 

12072 1 

40000 0 

64777 1 



7 1 . 2100 

17072 1 

65001 

0 55511 1 

35001 

0 

12072 1 

22016 0 

31465 1 

00006 1 


7 1 • 7 1 1 0 

— » 

67117 1 

12114 

0 45017 0 

55465 

0 

00006 1 

32121 1 

53313 0 

12123 1 


71.7170 

r : 07 17 7 

1 r 

.1^ L ■ 

: 42066 

1 72016 0 

00006 

1 

22012 1 

35001 0 

00006 1 _ 

02Q31 1 


21.2130 

___ 00006 

1 

1^160 

0 41501 a_. 

75002 

I 

27501 0 

34777 1 _ 

55332 0 

35021 1 



2 1.71 40 

55567 0 

55570 0 

55571 1 

35002 

0 

00006 1 

02031 

A 

00006 

1 


12160 

0 


71.2150 

55465 0 

37676 1 

54030 0 

02632 

1 

12350 1 

C: 37770 

0 

C: 37776 

0 

C: 

37634 

1 



— L m ^ . . u ■ 

11465 0 

12544 1 

12661 0 

12 546 

0 

55465 0 

30030 

1 

55634 

0 


32156 

1 


7 1.717 O 

54030 n 

1 ■■■■! 1 ifw rft ^ i -j 

41371 1 

75012 0 

10000 

0 

12210 I _ 

4 1 5 01 

_Q 

75002 

1 


27501 

0 



21.2700 

35002 0 

55332 0 

00006 1 

02031 

1 

00006 1 

12417 

0 

12534 

0 

C: 

00030 

1 


71-7710 

31 501 1 

75002 1 

OOOOS 1 

12215. 

1 

12350 1 

33016 

_Q 

55506 

1 


60000 

1 



55507 0 

51507 1 

41552 0 

00006 

1 

51617 0 

73077 

0 

51507 

1 


21553 

1 


21. 2 ^ 3 0 

00006 I 

51507 1 

41534 0 

53511 

1 

35003 1 

02042 

0 

53511 

1 


51507 

1 

















? 1.2240 

21553 1 

11506 1 

12216 1 

3003 2 

0 

57635 0 

00006 

1 

21635 

1 


40000 

0 


21.2^50 

22007 0 

53516 0 

30033 1 

57636 

0 

00006 1 

21636 

1 

0 0 0 0 

0 


55502 

0 


7 1 . 77 60 

00006 1 

71640 0 

21516 0 

31641 

0 

00006 1 

71502 

0 

53520 

0 


31643 

1 


2N2Z10 

00006 1 

71502 0 

53522 1 

30034 

0 

57637 1 

00006 

1 

21637 

0 


40000 

0 



21.2300 

55502 

0 

00006 

1 

71642 

1 

21520 

0 

31644 

0 

00006 

1 

71502 

0 

21522 

1 


21.2310 

35016 

0 

55506 

1 

60 000 

1 

55507 

0 

00006 

1 

51507 

1 

31516 

1 

51507 

1 


21.2320 

215 53 

1 

00006 

1 

51507 

1 

31516 

1 

51507 

I 

21542 

1 

51507 

1 

31552 

1 


2 1 .2330 

60000 

1 

60000 

1 

00006 

1 

51617 

0 

73115 

0 

51507 

1 

21534 

0 

51506 

0 



21.2340 

31620 

1 

00006 

1 

51 506 

0 

71547 

1 

51507 

1 

21534 

0 

11506 

1 

12311 

1 


21.2350 

31560 

0 

75026 


10000 

0 

12361 

0 

37671 

^ 

05134 

_i 

c; 03447 

0 

C; 44066 

_1 


21.2360 

34334 

1 

55560 

1 

41332 

0 

00006 

1 

62411 

1 

35016 

0 

55506 

1 

60000 

1 


21.2370 

55507 

0 

00006 

1 

50000 

1 

31647 

0 

5351 1 

1 

00006 

1 

51507 

1 

31576 

1 
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? 1 - 9 A.nrj 

070 S4 

1 

00 00 6 

1 

31611 0 

51 50 6 

0 

55572 

J 

51507 

X_ 


53647 

_L. 

11506 1 



71-7410 

1 7366 

1 

41 SOI 

0 

7 5 014 0 

00006 

1 

13160 

J 

77501 



02420 0 

15333 0 



j ^ U — — 

7 1 - 747 0 

3S014 

1 — ^ — 

1 

00006 

1 

02 01 7 0 

00006. 

L 

12431 

1 

41501 0 


75015, 


275Q1 0 



^ J- • ^ W _ — 

9 1^ 9 A 9n 

on on 7 

■ J 

n 

31 sm 

1 

76711 1 

00006 

J 

1247L 

H 

7501 5 



00006 


17467 1 



r t ^ ^ 1 H .fc,*. — ■ * ■ * — ■ 

7 1 - 7 440 

45012 

0 



03012 1 

45021 

0 



55477 



55500 

1 

55503 1 



7 1 - 74*^0 



66 606 








JL 


7150.]^ 

_Q_ 

65016 0 



A L % r J la 

7 1 - 7460 

5S501 

0 

00002 

0 

3S012 1 

00006. 

1 

05012 

1 

46211 



71501 


55501 0 



71.0 A.7n 

00007 

0 

3S01 7 

1 

00006 1 

02012 

0 

00006 

1 

12425 

1 


35016 

JL_ 

55506 1 




7 1 - 7 S 0 0 

4S003 

0 

00006 

1 

51506 0 

71476 

L 

54001 

1 

10000 

0 


32542 

0 

12511 1 



^ — — — ^ 

42 54? 

iiC ^ 

1 

60001 

0 

S5502 0 

12517 

1 

50000 

1 

32542 

0 


54001 

1 

51506 0 



0 1 - 7 S 7 (') 

* rf. 1 

41 50 3 

1 

6 0 0 0 1 

0 

SI SOf^ 0 

76050 

0 

51506 

.0 

2 3503 

SL 


11506 


12477 XL. 



7 1 . 7 ^ O 

3 7707 

0 

c 

c 

c 

c 

c 

1 

05014 1 

00002 

0 

32 540 

1 

54030 

0 


55465 

0 

15333 0 




7 1 . 7 S 40 C : 

37754 

0 r. 

: 77177 

0 r 

: 3720Q 1 

C: 00600 

1 

35017 

J 

55332 

JL 


04740 

_Q_ 

C: 40347 0 



7 1 • 7 S SO 

04740 

0 r 

: 40S00 

0 


55506 

1 .. 

3 5021 

J 

51506 

0 


55525 

0 

11506 1 



0 1 -7 5 60 


W ^ 

02637 1 

45021 0 

55633 

1 

55632 

0 

32624 

0 


55654 

0 

35015 0 


■ar iiT^ 1 ■ 1 ^ 

?1.>'‘57l] 


_Q 

35Q24. 

J 

55617 1 

30032 

_Q 

55635 

J 

30033 



5563 6 


30034_D_ 




21* '-'6 00 

55637 

0 

35021 

1 

55455 

0 

41321 

1 

75012 

0 


10000 

0 

12612 1 

55617 

1 


71-7610 

37676 

1 

17617 

1 

37671 

0 

05134 

1 

C: 03447 

0 

C s 

44066 


32625 1 

55501 

0 


L...X 1 V 1 W 

7 1-7620 

37 7^27 

0 

54030 

0 

05333 

1 

C: 00044 

1 

C: 07534 

1 

C: 

00004 

0 . 

C: 20004 1 

C: 3777? 

1 


21. 2630 

C: 03617 

1 

C J 36066 

1 

35024 

1 

55506 

1 

35021 

1 


51506 

6 

5545 1 1 

11506 

1 




















2 1.2640 

12633 

1 

35015 

_ 

5 5 4 

1 

35024 

1 

55464 

1 


45017 

0 

71501 0 

55501 

0 


2 1 .26 50 

00006 

1 

32631 

1 

53311 

1 

33050 

1 

54031 

1 


35001 

0 

00006 1 

05013 

0 


2 1 • 7660 

00002 

0 

11617 

T 

13146 

0 

12665 

1 
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694 

25.3033_ 

TO 

25.3077 

864 

26,27LQ_ 

TO 26,2750 

809 

27.2757 

TO 

27,3006 

1376 



( 


24.P612 TO 24. 2657 


24.2660 ril 2 4 . 2726 696 


Z^,272f 


TO 24.2770 597 


24.2771 TO 24.3036 698 


24,30J7 TO 24.3112 69^ 


24.3113 TO 24.3167 700 


24,3170 TO 24.3247 701 


24.3260 TO 24.3257 7Q2 


24.3260 


TO 24,3324 703 


24, 3325 


24,3332 


TO 24,33 31 
TO 24, 


704 


3376 


705 


24.3377 TO 24,3445 


706 


24, 344 


o 


TO 24.3512 707 


24.3513 TO 24.3560 


24,3561 TO 24,3573 
24,3574 


24.3604 TO 24,3661 


24.3662 TO 24,3743 

24,3744 TO 24,3760 


25 




i 100 

T n 

1 < j 

25.3151 

865 

26.2751 

TO 

26,3017 

810 

27,3007 

TO 

27.3025 

1377 

il5? 

TO 

25,3220 

866 

26,3020 

TO 

26.3027 

all 

27.3026 

TO 

27,3063 

1379 

I .ifc - ifci 

\22\ 

Tn 

25,3271 

867 

26,3030 

TO 

26,3045 

812 

27,3064 

TO 

27,3132 

1382 

)21Z 

TQ 

\) i 

Ol j 

« 

863 

26.3046 

TQ 

25,3073 

814 

27,3133 

_jra. 

27,3173 

1383 


25,3313 TO 25,3332 869 


26,3074 TO 26.3135 851 


27.3174 TO 27.3243 1384 


25.3333 TO 25.3375 870 


26.3136 TO 26.3144 852 


27.3244 TO 27.3310 1385 


25,3376 

3454 


TO 


25,3453 871 

TO 25,3525 872 


26,3145 TO 26,3171 879 


27,3311 TO 27.3333 1386 


26,3172 TO 26,3251 880 


27.3334 TO 27.3352 1387 


25,3526 TO 25,3602 873 


26,3252 TO 26,3323 881 


27,3353 TO 27,3372 1388 


23,3603 


25,3613 


TO 25,3612 
TO 25.3636 


874 


26,3324 TO 26.3343 1205 


27,3373 TO 27,3402 1500 



26.3344 TO 26.3366 1243 


27.3403 TO 27.3454 1501 


25,3637 TO 25.3705 876 


26.3367 TO 26.3370 1244 


27.3455 TO 27,3515 1502 


25.3706 TO 25.3754 877 


26.3371 TO 26.3420 1245 


27.3516 TO 27.3560 1503 


25,3755 


26,3421 



1246 


27.3561 

27,3626 


TO 27,3625 1504 
TO 27.3677 1505 



24,3761 TO 24,3764 735 


26,2120 TO 26,2201 737 


26,3660 


26,3716 1446 


30,2052 TO 30,2125 



24,3765 T.-J 24,3766 


31 


26.2202 TO 26.2216 788 


26,37W TO 26,3752 1447 


30.2126 TO 30.2207 567 


25.2000 TO 25,2023 844 


7 , ’ ♦ .1 


I ^ 


TO ?6.2227 789 


26,3753 TO 26,3776 1448 


30,2210 TO 30,2271 568 


25,2024 
2 5,2075 



25,20 74 
25,2114 


84 5 
646 


2230 
26, 2301 


TO 26,2300 790 

Tfi 26.2313 791 


27,2000 

2^,2035 


TO 27,2034 
TO 27,2104 


320 

391 


30,2272 

30,2312 


TO 30,2311 
TO 30,2322 


569 

598 
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TCi 

30- 7400 

509 

71 ,3475 

Tfl 

31,3505^ 

639 

3 7,37 34 

TO 

32t3767 

930 

34.7341 

_IIL 

34.2344 - 

541 

^ n . 7 4 f ) 1 

Tn 

30. 7 467 

600 

31 . 3506 

TO 

31.3546 

64Q 

32.3770 

TQ 

32.3771 

32 

34.2345 

TQ34^ 2415 

542 

^0.74/-.^ 

jn 

^ n ^ 7 ^ 

601 

3 1 - 3547 

T r 

3 1 ,3573 

641 

33,7000 

TQ 

33,2 (103 

422 

34.7416 

JUL 

34,2424 

544 

^n. 7S4S 

in 

30 - 2 676 

6 07 

31.3574 

TO 

31.^36 07 

642 

33.2004 

TQ 

33.7041 

423 . 

34. 2425 

TO- 

34.2502 

3 4,5_ . 

^ y ■- ■ -* - ■ - mm 9 -- ■ ■ ■ 1 — — — ^ 

^n. 7A77 

TO 

30.771 0 

607 

31 .361 0 


31.3653 

673 

33.2042 

TO 

33.2121. 

424 

34.7503 

JLO. 

34.2564 

546 

^n , 771 1 

TO 

30- 7777 

604 

31 ,3654 

TO 

31 ,3661 

674 


TQ 

33.2177 

425 

34.2565 

-JIL 

34. 2627 

547 

30.777^ 

TO 

30.3054 

605 

31 . 3662 

TO 


677 

33,2200 

TO 

33.2260 

426 

34,2630 

TO 

34.2673 

579 

'^0. 7nsR 

TO 

30 . 31 36 

606 

31 . 3700 

TQ 

31.3741 

915 

33.2261 

TQ 

33.7275 

427 

34.2674 

TO 

34.2755 

580 


30, ^1 M 

TO 

30^3720 

6 07 

31,3742 

TC 

31 . 3760 

916 

33.2276 

TO 

33.2351 

428 

34,2756 

TO 

34.3037 

581 

^0- ^771 

TO 

30. 3301 

6nft 

31 .3761 

Tfl 

31.3762 

32 

33,2352 

TQ 

33.2367 

429 

34.3040 

JO. 

34.3121 

582 

^0.3^07 

TO 

30, 3341 

609 


TO 

32,-2016 . 

430 

33.2370 

JO- 

31,2426^ 

430 

34,3122- _ 

TO 

34,3203 

583 


m 


61 0 

32.3017 

TO 

32,2043. 

643 

33.2427 

TQ 

33.2452 

431 

34.3204 

TO 

34,3265 

5 84 

















^0. 3357 

Til 

30.3440 

611 

37.7044 

TH 

37.2120 

6 A 4 

33,2453__. 

TO 

33,2517 

434 

J 4, 3266. 

TD_ 

34.3342 

585 

30 .3441 

TO 

30,3577 

61 7 

3 2 , 7 1 7 1 

JO 

32,2200 

645 


ID 

33^2521- 

435 

34,3343- 

-TQ 

. 34.3346 

592 _ 

^ O . 3 5 7 3 

TO 

30.3604 

61 3 

37 . 7701 

TO 

37.7256 

646 

33.2522 

TQ 

33.2567 

436 

34.3347 

jh 

34.3423 

593 

30.3^05 

TO 30.3644 

614 

32.2257 

10 

32.2261 


33,2570 

TO 

33.2631 

437 

34. 3424 

TO 

34,3473 

594 


30- 3R45 

TO 

30.3701 

71 7 

37.7767 

TO 

32.2276 

900 

33,7632 

TO 

33.2667 

438 

34.3474 


34.3551 

595 

30. 3702 

TD 30. 3747 

713 

32.2277 

TO 

32,2315 

901 

33,2670 

TO 

33.2744 

439 

34.3552 

TO 

34.3632 

596 

30.3750 

TO 

30.3751 

32 

52. 2316 

TO 

32.2332 

902 

33.2745 

TO 

33.3022 

440 

34.3633 

TO 

34.3711 

597 

3 1 - 7000 

- ^ 

Til 

3 1 • 7047 

5 05 

32.2333 

TU 

32.7414 

903 

33.3023 

TQ 

33.3072 

4 41 

34.3712 

JIL 

34,3752 

617 


31.7050 

TO 

31.2131 

506 

32,2415 

TO 

32,2447 

904 

33.3073 

TO 

33.3132 

442 

34, 3753 

TO 

34,3762 

618 

31.713? 

TD 

31,71 37 

507 

37.7450 

TO 

32.2466 

905 

33,3133 

TO 

33,3207 

443 

34.3763 

JH 

34.3764 

33 

31.2140 

TO 

31.2200 

503 

32.2467 

TO 

32.2540 

906 

33.3210 

TO 

33,3265 

444 

35,2000 

TO 

35.2032 

463 

31.2201 

TO 

31.2262 

5 09 

32,2541 

TO 

32.7600 

908 

33.3266 

TO 

33, 3343 

445 

35.2033 

TO 

35,2113 

464 

- — ■ - ^ ■■_■■■_■ ■ - ■ ■■■■■■! p, , ,, 1 „ — ■ ■ . . - - , — - 

3 1.2263 

TO 

31,2331 

510 

32,2601 

TO 

32,2657 

909 

33 t 3344 

TO 

33.3420 

446 

35.2114 

TO 

35.2156 

465 

■ - n — — Jm. 

31 . 7332 

TO 

31.2350 

609 

32.2660 

TO 

32.2741 

910 

33,3421 

TO 

33.3435 

447 

35.2157 

TO 

35.2215 

468 

31 .2351 

TO 


510 

32,2742 

TO 

32,3020 

.911. 

33.3436 

TO 

33.3507 

449 

35.2216 

TO 

35,2275 

469 

31, z'toa 

TO 

31,2431 

619 

32, 3021 

TO 

32,3070 

912 

33 .3510 

TO 

33.3562 

450 

35,2276 

TO 

35,2357 

470 

















31.7432 

TO 

31.2513 

62 3 

32.3071 

TO 

32.3074 

913 

33.3563 

TO 

33.3634 

451 

35,2360 

TO 

35,2441 

471 

3 lj_23l^ 

TO 

31.2575 

621 

37,3075 

TO 

32.3140 

918 

33,3635 

TO 

33.3657 

452 

35,2442 

TO 

35,2523 

472 

31.7576 

TO 

31,2656 

.522 

32,3141 

TO 

32,3217 

919 

33.3653 

TO 

33.3725 

453 

35.2524 

TO 

35,2525 

473 

31 .7A57 

TO 

31 . 7736 

• - 

623 

3.7.3220 

TO 

32.3275 

920 

33 . 372 6_ 

TO 

33.3775 

454 

35,2526 

TO 

35.2600 

475 


31.2737 

TO 

31,2770 

624 

32,3276 

TQ 

32,3351 

921 



33,3776 

33 

35.2601 

TO 

35.2615 

476 

31.2771 

TO 

M. 

31.3051 

625 

32.3352 

TO 

32.3427 

922 

34.7000 

TO 

34.2001 

35 

35.2616 

TO 

35,2660 

477 

31.3052 

TO 

31.3133 

626 

32,3430 

TO 

32,3456 

923 

34,2002 

TO 

34,2032 

535 

35,2661 

TO 

35,2665 

478 

31, 31 34 

TO 

31,3215 

627 

37,3457 

TO 

32,3531 

925 

34.2033 

TO 

34,2077 

5 36 

35,2666 

TO 

35.2740 

479 

















31.3216 

TO 

31 .3277 

628 

32,3532 

TO 

32,3610 

926 

34.2100 

TO 

34.2156 

537 

35,2741 

TO 

35,3001 

480 

31 . 3300 

TO 

31, 3361 

629 

32,3611 

TO 

32,3657 

927 

34,2157 

TO 

34,2231 

538 

35,3002 

TO 

35, 3046 

481 

31 , 3362 

TO 

31.3443 

630 

32 # 3 660 

TO 

32.3707 

928 

34.2232 

TO 

34.2275 

539 

35,3047 

TO 

35.3067 

482 

31.3444 

TO 

31 . 3474 

631 

32,3710 

TO 

32,3733 

929 

34,2276 

TO 

34,2340 

540 

35,3070 

TO 

35,3077 

483 
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38- 

31 on 

Tfl 3 8.31 08 4R4 

36.3386 

TP 36.3437 

1 7 84 

37.3470 

Tn 

37.3524 

883 

4Qj36Q0 ■ 

_X£L 

40.3623 

504 


— -J f 

3 8- 

31 06 

TO 38.3127 488 

^ <S • ^ ^ ^ 0 

TO 36.3468 

1 788 

37.3525 

_xa_ 

87^3577 

384 

40.3624 

JLIL 

40.3671 

632 


3 8- 

31 ?3 

TO 38-3136 881 

36-3466 

Tf. 36*3814 

1786 

37^3600 

Tn 

37,3647 

888 

40,3672 

TO 

40,3753 

633 


38, 

31 37 

TO 35.31 50 5i2 

36.351 5 

Tfl 3 6,3 876 

1 257 

07,3650 

JLO. 

37.3654 

386 

40.3754 

TO 

40.3767 

634 



Tn Tn I76ft 37 » 3655 — Tfl 37»3715 dJB-Z 

7? TH ^S,3?51 „ S60 36y366>l Tfi 36^374? 1 ? 59 37»3716 TD 37«376 2 - 83 3 

TO. Sfel 3^^3743 TO 3A^A1J 1 12ij.Q 37*3763 TO 37*3772 EM 

3 Ry 3 ?A 4 Tn 3qy33;>P A33 3^^377;^ TR 3^^3773 33 37»3773 TH 37*3774 33 


38,3373 

Tn 

38*3334 

6 3 6 



T7.2000 

35 __ 

40.2000 

TO 

40.2050 315 

41*2170 

TQ 

41.2220 

326 

38-3338 

rn 

38.341 7 

63 7 

37. 7nni 

TO 

3 7.704j5_ 

487 

40.2051 

TO 

40,2116 

316 

41 .2221 

TO 

41,2264 

3?7 

38.3413 

TH 

38.3444 

63R 

37.7046 

Tn 

37^7127 

458 

40.2117 

TO 

40.2177 

317 

41.2265 

TO 

41*2342 

328 

3 8- 34^1.8 

rn 

38.3446 

663 

37.7] 30 

TO 


45 9 

40.2200 

TO 

40,2281 

318 

41.2343 

JLil. 

41.2352 

3 29. 

- — .r ■ ^ -i — * . - — . ■ - 1 — " ~ 

38.3447 

TO 

35*3456 

664 

37*2185 

TO 

37.2221 

543 

40.225? 

TO 

40,2324 

319 

41, 2353 

_j:q_ 

41.2430 

331 „ 

38. 3457 

TD 

35.3476 

67R 

37*7227 

TO 

37, 2260 

544 

40*2378 

TQ 

40,2367 

320 

41*2431 

_XQ_ 

41,2475 

332 _ 

38. 3477 

1 

TO 

38.3887 

Q31 

37.7761 

TO 

37.7771 

8 62 

40.2370 

TO 

40,2443 

321 

41.2476 

TQ 

41.2550_ 

333 ^ 

3 5. 3883 

TO 

35* 3632 

9 32 

37* 72 77 

TO 

37.7357 

56 3 

40.2444 

TO 

40.2515 

322 

41*2551 

TO 41.2615 

334 




- i%m ■ ■■ - - 













3 8 - 3 6 33 

rn 

38-3634 

Q33 

37. 7383 

TO 

37,7400 

5 64 

40.251-6 

TO 

40.2562_ 

335 

41,2616 

TO 

41,2656 

3 

38.3638 

TG 

38.3674 1761 

37* 2401 

TO 

37,2423 

570 

40,2563 

ia.4Q.262.6_ 

336 

41,2657 

JtCL 

41.2736 

344 

35* 3678 

TO 

35*3733 

1 327 

37*2424 

TO 

37.2465 

571 

40,2627 

TQ 

40,2671 

_33T 

41,2737 

JO 

41.3012 

345 

55. T734 

TQ 

35,3767 

1 128 

07.2466 

JLCL 

37.2503 

57Z , 

40.267? 

TO 

40 ,2676 

338 

41.3013 

TO 

41.3065 

34,6 


40*3770 

TO 

40.3771 

34 

41,20il0 

Tn 


323 

41 , 2034 

TO 

41,2112 

3Z4 

41.7113 

TO 

41,71 67 

325 


35*3770 

TO 

35* 3771 

33 

37,2504 

TO 

37*2556 

573 

40,2677 

TO 

40,2713 

341 

4 1 * 3066 

TO 

41, 3137 

347 


36*2000 

TO 

36* 2011 

474 

37*2857 

TO 

37,2600 

574 

40,2714- 

TQ 

4Q,2TL5_ 

342 

41.3140 

TO 

41.3207 

348 


36*2012 

Tn 

36* 2057 

552 

37*2601 

TO 

37,2624 

575 

40*2716 

TO 

40.2741 

349 

41,3210 

TO 

41,3227 

349 


36-7060 

TO 

36* 2137 

853 

^7,2625 

TG 

37,2644 

662 

40 * 2742 

TO 

40,3012 

350 

41.3230 

TO 

41,3254 

355 



36*2140 

TO 

36,2217 

5 p4 

37,2645 

TO 

37,2700 

675 

40,3013 

TO 

40.3065 

351 

41,3255 

TO 

41,3326 

356 


36* 2220 

TO 

36*2276 

855 

37,2701 

TO 

37,2704 

822 

40 * 3 066 

TO 

40.3104 

352 

41,3327 

TO 

41,3350 

357 


3 6* 2277 

T 

" LJ 

36*2357 

556 

37*2708 

TO 

37*2743 

823 

40,il05 

m 

40.3154 

3 59 

41.3351 

TO 

41.3362 

358 


36*2360 

TO 

36.2440 

857 

37,2744 

T 0 

37*3012 

824 

40*3155 

TO 

40*3212 

360 

41,3363 

TO, 

41,3413 

361 



36^2441 

36*2466 

36*2514 


36*2465 
36* 2513 
TO 36*2575 892 




37 . 3013 
37* 3056 
37*3064 TP 37*3103 827 


TO 37*3055 
TO 37,3063 



40*3213 

40*3227 


TO 40*3226 
TO 40.3251 


1 


41*3414 

41.3430 


365 


40,3252 TO 40.3321 363 


41.3466 TO 41,3515 366 


36*2576 TO 36*2657 


893 


3104 TP 37*3146 828 


40*3322 TO 40*3346 364 


41*3516 TO 41*3572 371 


36*2660 TO 36t274l 894 

36* 2742 
36*3021 


TO 36*3020 
TO 36,3100 


895 

896 


37*3147 TO 37*3215 329 

830 

831 


40.3347 TO 40.3354 366 


41.3573 TO 41,3612 372 


37*3216 

37*3236 


36*3101 TO 36.3162 897 


IJ 


7,3254 


TO 37,3235 
T 3 3 7,32 53 
TO 37,3262 


40,3355 
40 , 3366 


TO 40,3365 
TO 40,3411 


367 

368 


41, 3613 
4) , 3657 


TO 41,3656 
TO 41,3724 


385 

386 


832 


40,3412 TO 40,3440 375 


41.3725 TO 41,3726 387 


36,3163 TO 36.3234 393 


37,3263 TO 37,3322 833 


40,3441 TO 40,3501 376 


41,3727 TO 41,3750 502 


36,3235 TO 36,3253 399 


37,3323 TO 37,3352 834 


40,350? TO 49.3507 377 


41.3751 TO 41,3776 504 


36,3254 TO 36.3273 1252 


37.3353 TO 37.3412 335 


40,3510 TO 40.3555 388 


42,2000 TO 42,2022 253 


3 6,32 7/+ TO 36, 33 5 5 12 53 




7,3413 TO 37*3467 836 


40*3566 TO 40,3577 389 


42*2023 TO 42*2061 254 
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4?.?nf.? Tf; 4?.?1 1 7 2-UD 43.7406 111 43.2417 2Afl 


^ » -r V J J 

47t21 20 

— *■ 

in 

42,21 ^T.S 

- * — w- - . 

271 

— I. -W fc. — 1 w — ^ 

43,2420 

IL, 1 ■ 11^ ■ 

ro 43,2454 

249 








4. - 71 R7 

Tn 

42,2220 

272 

43.2455 

Tn 43.2512 

250 








42 • 7221 

rn 

42 ,2 243 

273 

43. 2513 

TO 43.2542 

251 









42 . 2744 

T.l 

42,2276 

274 

43.2S43 

TH 43.2551 

252 








42 . 2277 

Tn 

42.2352 

71 ^ 

43.755? 

TO 43.2561 

253 








42.2352 

TO 

42,2404 

?16 

43,7562 

TP 43.2600 

255 








42. 2405 

TH 

42 , 2446 

2 77 

43,^^A01 

TO 43,2606 

256 






















42.7447 

-IQ, 

42,2525 

_2 78 


TU 43.2645 

25? - 









4?f7T?6 Til 47^760? 770 43^7 646 T O 43 ,2652 25B 

47^7603 Tn 47^7664 7 30 43.7653 Tf) 43.7705 25_2 
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